hg/stx-libtool: SystemBrowser.st@95e82ec734ff (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
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	19	EmphasisForWrittenVariable EmphasisForChangedCode'
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	20	poolDictionaries:''
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	21	category:'Interface-Browsers'
36 ccde5a941840 * empty log message * claus parents: diff changeset	22	!
ccde5a941840 * empty log message * claus parents: diff changeset	23
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	24	Object subclass:#BrowserHistoryEntry
4165 5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	25	instanceVariableNames:'className meta selector'
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	26	classVariableNames:''
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	27	poolDictionaries:''
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	28	privateIn:SystemBrowser
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	29	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	30
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	31	!SystemBrowser class methodsFor:'documentation'!
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	32
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	33	copyright
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	34	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	35	COPYRIGHT (c) 1989 by Claus Gittinger
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	36	All Rights Reserved
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	37
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	38	This software is furnished under a license and may be used
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	39	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	40	inclusion of the above copyright notice. This software may not
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	41	be provided or otherwise made available to, or used by, any
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	42	other person. No title to or ownership of the software is
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	43	hereby transferred.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	44	"
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	documentation
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	48	"
8893 27e01498c25b changed: #documentation Claus Gittinger <cg@exept.de> parents: 8877 diff changeset	49	Notice: SystemBrowser has been completely rewritten to be an instance
8894 73a8f5f943aa changed: #documentation Claus Gittinger <cg@exept.de> parents: 8893 diff changeset	50	of ApplicationModel. This rewritten version is found under NewSystemBrowser.
8893 27e01498c25b changed: #documentation Claus Gittinger <cg@exept.de> parents: 8877 diff changeset	51	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	52	as an instance-less functionality provider only.
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	53
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	54	written winter 89 by claus.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	55
508 8d2ab732fca5 documentation Claus Gittinger <cg@exept.de> parents: 504 diff changeset	56	[author:]
8d2ab732fca5 documentation Claus Gittinger <cg@exept.de> parents: 504 diff changeset	57	Claus Gittinger
8d2ab732fca5 documentation Claus Gittinger <cg@exept.de> parents: 504 diff changeset	58
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	59	"
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
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	62	!SystemBrowser class methodsFor:'initialization'!
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	63
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	64	initialize
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	65	"Browser configuration;
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	66	(values can be changed from your private startup file)"
45 950b84ba89e6 * empty log message * claus parents: 41 diff changeset	67
254 8258536e5bcf * empty log message * Claus Gittinger <cg@exept.de> parents: 215 diff changeset	68	"/ self classResources.
85 d9713a3ca092 * empty log message * claus parents: 77 diff changeset	69
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	70	"
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	71	setting this to false, the removeClass function will remove
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	72	classes WITHOUT checking for instances. Otherwise,
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	73	it will check and let you confirm in case there are instances.
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	74	Checking for instances may be a bit time consuming, though.
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	75	The default is true - therefore, it will check
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	76	"
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	77	CheckForInstancesWhenRemovingClasses := true
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	78
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	79	"
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	80	CheckForInstancesWhenRemovingClasses := true
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	81	CheckForInstancesWhenRemovingClasses := false
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	82
85 d9713a3ca092 * empty log message * claus parents: 77 diff changeset	83	SystemBrowser initialize
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	84	"
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	85	! !
36 ccde5a941840 * empty log message * claus parents: diff changeset	86
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	87	!SystemBrowser class methodsFor:'instance creation'!
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	88
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	89	open
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	90	"launch a standard browser"
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	91
2631 bd18074649ed * empty log message * Claus Gittinger <cg@exept.de> parents: 2623 diff changeset	92	self == SystemBrowser ifFalse:[
bd18074649ed * empty log message * Claus Gittinger <cg@exept.de> parents: 2623 diff changeset	93	^ super open
bd18074649ed * empty log message * Claus Gittinger <cg@exept.de> parents: 2623 diff changeset	94	].
bd18074649ed * empty log message * Claus Gittinger <cg@exept.de> parents: 2623 diff changeset	95
105 520f37755229 . claus parents: 100 diff changeset	96	^ self openOnDevice:(Screen current)
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	97
93 dda97353e775 . claus parents: 90 diff changeset	98	"
dda97353e775 . claus parents: 90 diff changeset	99	SystemBrowser open
dda97353e775 . claus parents: 90 diff changeset	100	"
194 93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	101	!
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	102
523 db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	103	openInClass:aClass
db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	104	"launch a standard browser which immediately switches
db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	105	to aClass"
db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	106
db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	107	^ self openInClass:aClass selector:nil
db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	108
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	SystemBrowser openInClass:Object
db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	111	"
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	"Created: 30.4.1996 / 14:43:45 / cg"
db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	114	!
db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	115
194 93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	116	openInClass:aClass selector:aSelector
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	117	"launch a standard browser which immediately switches
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	118	to aClass>>aSelector."
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	119
3626 abf84bdbfdb2 Remove unused method vars Stefan Vogel <sv@exept.de> parents: 3621 diff changeset	120	\|brwsr classesName\|
194 93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	121
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	122	brwsr := self openOnDevice:(Screen current).
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	123	brwsr waitUntilVisible.
1561 102b90f99e58 avoid double-redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	124
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	125	aClass notNil ifTrue:[
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	126	"/ cls := aClass.
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	127	"/ cls isMeta ifTrue:[
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	128	"/ cls := aClass soleInstance
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	129	"/ ].
1561 102b90f99e58 avoid double-redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	130	aClass isMeta ifTrue:[
102b90f99e58 avoid double-redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	131	brwsr instanceProtocol:false
102b90f99e58 avoid double-redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	132	].
1931 03de5c5f4402 care for javaClass in #openInClass:selector: Claus Gittinger <cg@exept.de> parents: 1919 diff changeset	133	aClass isJavaClass ifTrue:[
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	134	classesName := aClass fullName.
1931 03de5c5f4402 care for javaClass in #openInClass:selector: Claus Gittinger <cg@exept.de> parents: 1919 diff changeset	135	] ifFalse:[
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	136	classesName := aClass name.
1931 03de5c5f4402 care for javaClass in #openInClass:selector: Claus Gittinger <cg@exept.de> parents: 1919 diff changeset	137	].
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	138	brwsr switchToClassNamed:classesName.
1681 b209bdfbf762 checkin from browser Claus Gittinger <cg@exept.de> parents: 1620 diff changeset	139	brwsr classSelectionChanged.
1561 102b90f99e58 avoid double-redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	140	aSelector notNil ifTrue:[
102b90f99e58 avoid double-redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	141	brwsr switchToMethodNamed:aSelector.
102b90f99e58 avoid double-redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	142	]
194 93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	143	].
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	144	^ brwsr
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	145
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	SystemBrowser openInClass:Object selector:#at:put:
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	148	SystemBrowser openInClass:Object selector:nil
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	149	SystemBrowser openInClass:nil selector:nil
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	150	"
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	151
1561 102b90f99e58 avoid double-redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	152	"Created: / 22.11.1995 / 21:04:50 / cg"
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	153	"Modified: / 5.11.2001 / 16:51:02 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	154	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	155
3588 3a8e5e30a92a * empty log message * Claus Gittinger <cg@exept.de> parents: 3573 diff changeset	156	openOn:anEnvironment
4921 cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	157	^ self
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	158	openOn:anEnvironment
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	159	label:(self classResources string:'System Browser')
3588 3a8e5e30a92a * empty log message * Claus Gittinger <cg@exept.de> parents: 3573 diff changeset	160
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	SystemBrowser openOn:Smalltalk
3589 f38e59e3ab76 * empty log message * Claus Gittinger <cg@exept.de> parents: 3588 diff changeset	163	SystemBrowser openOn:Demos
3588 3a8e5e30a92a * empty log message * Claus Gittinger <cg@exept.de> parents: 3573 diff changeset	164	"
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
4921 cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	167	openOn:aClassEnvironment label:title
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	168	^ self
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	169	openOn:aClassEnvironment
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	170	label:title
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	171	onDevice:(Screen current)
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	172	!
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	openOn:aClassEnvironment label:title onDevice:aDisplayDevice
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	175	\|browser\|
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	176
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	177	browser := self
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	178	newWithLabel:title
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	179	setupBlock:[:browser \| browser environment:aClassEnvironment.
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	180	browser setupForAll]
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	181	onDevice:aDisplayDevice.
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	182	^ browser
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	183	!
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	184
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	185	openOnDevice:aDisplay
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	186	"launch a standard browser on another display."
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	187
2631 bd18074649ed * empty log message * Claus Gittinger <cg@exept.de> parents: 2623 diff changeset	188	self == SystemBrowser ifFalse:[
bd18074649ed * empty log message * Claus Gittinger <cg@exept.de> parents: 2623 diff changeset	189	^ super openOnDevice:aDisplay
bd18074649ed * empty log message * Claus Gittinger <cg@exept.de> parents: 2623 diff changeset	190	].
bd18074649ed * empty log message * Claus Gittinger <cg@exept.de> parents: 2623 diff changeset	191
3519 0fef57de776a checkin from browser Claus Gittinger <cg@exept.de> parents: 3476 diff changeset	192	^ self
4921 cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	193	openOn:Smalltalk
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	194	label:(self classResources string:'System Browser')
3519 0fef57de776a checkin from browser Claus Gittinger <cg@exept.de> parents: 3476 diff changeset	195	onDevice:aDisplay
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	196
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	197	"\|d\|
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	198
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	199	d := XWorkstation new initializeFor:'porty:0'.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	200	d startDispatch.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	201	SystemBrowser openOnDevice:d
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	202	"
2818 27ff722f6c45 checkin from browser Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	203	!
27ff722f6c45 checkin from browser Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	204
3573 cc8a6cf4520a + openOnRemoteImage Claus Gittinger <cg@exept.de> parents: 3549 diff changeset	205	openOnRemoteImageOnHost:aHostName port:portOrNil
4921 cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	206	\|environment\|
3573 cc8a6cf4520a + openOnRemoteImage Claus Gittinger <cg@exept.de> parents: 3549 diff changeset	207
cc8a6cf4520a + openOnRemoteImage Claus Gittinger <cg@exept.de> parents: 3549 diff changeset	208	environment := RemoteImage onHost:aHostName port:portOrNil.
4921 cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	209	^ self
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	210	openOn:environment
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	211	label:(self classResources string:'RemoteImage Browser - %1' with:aHostName)
3573 cc8a6cf4520a + openOnRemoteImage Claus Gittinger <cg@exept.de> parents: 3549 diff changeset	212
cc8a6cf4520a + openOnRemoteImage Claus Gittinger <cg@exept.de> parents: 3549 diff changeset	213	"
cc8a6cf4520a + openOnRemoteImage Claus Gittinger <cg@exept.de> parents: 3549 diff changeset	214	SystemBrowser openOnRemoteImageOnHost:'funkfix' port:nil
7998 0c63e8647d1f comment Claus Gittinger <cg@exept.de> parents: 7992 diff changeset	215	SystemBrowser openOnRemoteImageOnHost:'192.168.8.1' port:nil
3573 cc8a6cf4520a + openOnRemoteImage Claus Gittinger <cg@exept.de> parents: 3549 diff changeset	216	"
cc8a6cf4520a + openOnRemoteImage Claus Gittinger <cg@exept.de> parents: 3549 diff changeset	217	!
cc8a6cf4520a + openOnRemoteImage Claus Gittinger <cg@exept.de> parents: 3549 diff changeset	218
2818 27ff722f6c45 checkin from browser Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	219	openOnSnapShotImage:anImageFileName
4921 cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	220	\|environment\|
2818 27ff722f6c45 checkin from browser Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	221
27ff722f6c45 checkin from browser Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	222	environment := SnapShotImage for:anImageFileName.
4921 cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	223	^ self
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	224	openOn:environment
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	225	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	226
27ff722f6c45 checkin from browser Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	227	"
2822 8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	228	SystemBrowser openOnSnapShotImage:('/tmp/stmeas.img')
2824 85795055a3bf * empty log message * Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	229	"
85795055a3bf * empty log message * Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	230	! !
36 ccde5a941840 * empty log message * claus parents: diff changeset	231
4909 e6b77dc6942e category Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	232	!SystemBrowser class methodsFor:'Compatibility-ST80'!
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	233
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	234	newOnClass:aClass
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	235	^ self browseClass:aClass
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	236
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	237	"Created: / 27.10.1997 / 20:10:39 / cg"
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	238	! !
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	239
4909 e6b77dc6942e category Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	240	!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	241
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	242	addToHistory:aClass selector:aSelectorOrNil
3679 102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	243	\|newEntry oldEntry classHistory\|
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	244
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	245	(newEntry := self historyEntryForClass:aClass selector:aSelectorOrNil) isNil ifTrue:[^ self].
3679 102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	246	classHistory := self classHistory.
102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	247
10173 ed7cc5e574cb comment/format in: #addToHistory:selector: Claus Gittinger <cg@exept.de> parents: 10048 diff changeset	248	oldEntry := classHistory detect:[:entry \| (entry className = newEntry className)
ed7cc5e574cb comment/format in: #addToHistory:selector: Claus Gittinger <cg@exept.de> parents: 10048 diff changeset	249	"and:[entry selector = newEntry selector]"] ifNone:nil.
3679 102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	250	oldEntry notNil ifTrue:[
102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	251	classHistory removeIdentical:oldEntry.
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	252	].
3679 102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	253	classHistory addFirst:newEntry.
102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	254	classHistory size > self visitedHistoryMaxSize ifTrue:[
102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	255	classHistory removeLast
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	256	].
7524 0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	257	SystemBrowser changed:#visitedClassHistory with:classHistory.
0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	258
10173 ed7cc5e574cb comment/format in: #addToHistory:selector: Claus Gittinger <cg@exept.de> parents: 10048 diff changeset	259	"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	260	!
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	checkClassHistory
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	263	"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	264
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	265	"/ 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	266	self classHistory reverseDo:[:histEntry\|
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	267	(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	268	ifFalse:[
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	269	self classHistory remove: histEntry
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	270	]
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	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	273
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	274	classHistory
3679 102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	275	ClassHistory isNil ifTrue:[
102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	276	ClassHistory := List new
102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	277	].
102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	278	^ ClassHistory
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	279	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	280
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	281	classHistory:newCollection
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	282	ClassHistory := newCollection
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
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	285	emptyClassHistory
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	286	"removes all class history entries"
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	287
7524 0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	288	\|classHistory\|
0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	289
0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	290	classHistory := self classHistory.
0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	291	classHistory removeAll.
0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	292	SystemBrowser changed:#visitedClassHistory with:classHistory.
0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	293
0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	294	"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	295	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	296
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	297	historyEntryForClass:aClass selector:aSelectorOrNil
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	298	\|newEntry meta cls\|
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	aClass isBehavior ifFalse:[^ nil].
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	301
3151 910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	302	(meta := aClass isMeta) ifTrue:[
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	303	cls := aClass theNonMetaclass.
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	304	] ifFalse:[
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	305	cls := aClass
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	306	].
3151 910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	307	newEntry := BrowserHistoryEntry new.
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	308	newEntry
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	309	className:cls name
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	310	meta:meta
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	311	selector:aSelectorOrNil.
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	312	^ newEntry
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	313
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	314	"Modified: / 24.2.2000 / 18:03:52 / cg"
9189 9f57319e21ca added: #visitedClassNamesHistory Claus Gittinger <cg@exept.de> parents: 9157 diff changeset	315	!
9f57319e21ca added: #visitedClassNamesHistory Claus Gittinger <cg@exept.de> parents: 9157 diff changeset	316
9f57319e21ca added: #visitedClassNamesHistory Claus Gittinger <cg@exept.de> parents: 9157 diff changeset	317	visitedClassNamesHistory
9f57319e21ca added: #visitedClassNamesHistory Claus Gittinger <cg@exept.de> parents: 9157 diff changeset	318	^ self classHistory
9f57319e21ca added: #visitedClassNamesHistory Claus Gittinger <cg@exept.de> parents: 9157 diff changeset	319	collect:[:e \| e className]
9f57319e21ca added: #visitedClassNamesHistory Claus Gittinger <cg@exept.de> parents: 9157 diff changeset	320	thenSelect:[:nm \| nm notEmptyOrNil]
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	321	! !
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	322
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	323	!SystemBrowser class methodsFor:'defaults'!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	324
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	325	classHistoryMaxLevels
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	326	^ 3
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	327	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	328
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	329	classHistoryMaxSize
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	330	^ 15
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	331	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	332
3549 056bd76b5b0a * empty log message * Claus Gittinger <cg@exept.de> parents: 3519 diff changeset	333	methodTemplate
8877 bb432153d321 changed: #methodTemplate Claus Gittinger <cg@exept.de> parents: 8862 diff changeset	334	"return a method definition template string or nil"
bb432153d321 changed: #methodTemplate Claus Gittinger <cg@exept.de> parents: 8862 diff changeset	335
bb432153d321 changed: #methodTemplate Claus Gittinger <cg@exept.de> parents: 8862 diff changeset	336	^ SmalltalkLanguage instance methodTemplate
3549 056bd76b5b0a * empty log message * Claus Gittinger <cg@exept.de> parents: 3519 diff changeset	337	!
056bd76b5b0a * empty log message * Claus Gittinger <cg@exept.de> parents: 3519 diff changeset	338
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	339	visitedHistoryMaxSize
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	340	"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	341
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	342	^ 15
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	343	! !
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	344
4909 e6b77dc6942e category Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	345	!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	346
3352 fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	347	emphasisForChangedCode
4499 395d7282b2f0 emphasis stuff Claus Gittinger <cg@exept.de> parents: 4490 diff changeset	348	^ UserPreferences current emphasisForChangedCode.
3352 fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	349
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	350	"
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	351	EmphasisForChangedCode := #underwave
4112 ed7af6707ad7 emphasisForChangedCode tm parents: 3834 diff changeset	352	EmphasisForChangedCode := #color->Color blue
3352 fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	353	EmphasisForChangedCode := #color->Color red lightened lightened lightened
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	354	"
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	355
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	356	"Created: / 31.10.2001 / 10:15:33 / cg"
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	357	!
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	358
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	359	emphasisForChangedCode:anEmphasis
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	360	EmphasisForChangedCode := anEmphasis
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	361
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	362	"
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	363	self emphasisForChangedCode:#underwave
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	364	self emphasisForChangedCode:(#color->Color red lightened lightened lightened)
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	365	"
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	366
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	367	"Created: / 31.10.2001 / 10:15:44 / cg"
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	368	!
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	369
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	370	emphasisForDifferentPackage
4499 395d7282b2f0 emphasis stuff Claus Gittinger <cg@exept.de> parents: 4490 diff changeset	371	^ 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	372
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	373	"
3352 fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	374	EmphasisForDifferentPackage := nil.
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	375	EmphasisForDifferentPackage := #underwave
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	376	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	377	"
3352 fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	378
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	379	"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	380	!
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	381
3241 caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	382	emphasisForDifferentPackage:anEmphasis
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	383	EmphasisForDifferentPackage := anEmphasis
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	384
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	385	"
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	386	self emphasisForDifferentPackage:#underwave
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	387	self emphasisForDifferentPackage:(#color->Color red lightened lightened lightened)
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	388	"
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	389	!
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	390
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	391	emphasisForModifiedBuffer
4499 395d7282b2f0 emphasis stuff Claus Gittinger <cg@exept.de> parents: 4490 diff changeset	392	^ 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	393	!
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	394
3241 caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	395	emphasisForModifiedBuffer:anEmphasis
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	396	EmphasisForModifiedBuffer := anEmphasis
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	397	!
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	398
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	399	emphasisForObsoleteCode
4499 395d7282b2f0 emphasis stuff Claus Gittinger <cg@exept.de> parents: 4490 diff changeset	400	^ 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	401	!
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	402
3241 caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	403	emphasisForObsoleteCode:anEmphasis
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	404	EmphasisForObsoleteCode := anEmphasis
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	405	!
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	406
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	407	emphasisForReadVariable
4499 395d7282b2f0 emphasis stuff Claus Gittinger <cg@exept.de> parents: 4490 diff changeset	408	^ 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	409
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	410	"
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	411	EmphasisForReadVariable := #underline
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	412	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	413	"
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	414	!
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	415
3241 caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	416	emphasisForReadVariable:anEmphasis
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	417	EmphasisForReadVariable := anEmphasis
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	418
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	self emphasisForReadVariable:#underline
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	421	self emphasisForReadVariable:(Array with:#underline with:#underlineColor->Color yellow)
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	422	"
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
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	425	emphasisForWrittenVariable
4499 395d7282b2f0 emphasis stuff Claus Gittinger <cg@exept.de> parents: 4490 diff changeset	426	^ 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	427
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	EmphasisForWrittenVariable := #underline
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	430	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	431	"
3241 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
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	434	emphasisForWrittenVariable:anEmphasis
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	435	EmphasisForWrittenVariable := anEmphasis
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	436
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	437	"
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	438	self emphasisForWrittenVariable:#underline
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	439	self emphasisForWrittenVariable:(Array with:#underline with:#underlineColor->Color red lightened)
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	440	"
6901 34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	441	!
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	442
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	443	iconForClass:aClass
8851 287f3e03a645 changed: #iconForClass: Claus Gittinger <cg@exept.de> parents: 8759 diff changeset	444	"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	445	ToolbarIconLibrary"
6901 34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	446
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	447	aClass withAllSuperclassesDo:[:eachCls \|
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	448	\| iconSymbol \|
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	449
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	450	iconSymbol := eachCls iconInBrowserSymbol.
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	451	iconSymbol notNil ifTrue:[
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	452	^ ToolbarIconLibrary perform:iconSymbol
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	453	].
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	454	].
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	455
6901 34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	456	^ nil
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	457
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	458	"Created: / 17-08-2006 / 09:11:27 / cg"
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	459	"Modified: / 20-07-2007 / 09:01:43 / cg"
6901 34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	460	!
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	461
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	462	resourceIconForMethod:aMethod
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	463	\|resources\|
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	464
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	465	(resources := aMethod resources) isNil ifTrue:[^ nil].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	466
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	467	(resources includesKey:#obsolete) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	468	^ self deprecatedMethodIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	469	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	470	(resources includesKey:#canvas) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	471	^ self canvasIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	472	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	473	(resources includesKey:#menu) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	474	^ self menuIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	475	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	476	(resources includesKey:#image) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	477	^ self imageIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	478	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	479	(resources includesKey:#fileImage) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	480	^ self fileImageIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	481	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	482	(resources includesKey:#programImage) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	483	^ self programImageIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	484	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	485	(resources includesKey:#help) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	486	^ self helpIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	487	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	488	(resources includesKey:#programMenu) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	489	^ self programMenuIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	490	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	491	(resources includesKey:#tableColumns) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	492	^ self tableColumnsIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	493	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	494	(resources includesKey:#tabList) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	495	^ self tabListIcon
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	(resources includesKey:#hierarchicalList) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	498	^ self hierarchicalListIcon
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 includesKey:#programImage) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	501	^ self programImageIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	502	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	503	^ nil
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	"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	506	! !
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	507
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	508	!SystemBrowser class methodsFor:'dialogs'!
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	509
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	510	askForClassNameMatching:matchStringArg inEnvironment:anEnvironmentOrClassOrNil for:aBrowserOrNil
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	511	"open a dialog to ask for a class name.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	512	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	513
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	514	\|classNames caselessMatchingNames
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	515	substringMatchingNames caselessSubstringMatchingNames
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	516	caselessWithoutPrefixSubstringMatchingNames
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	517	lcMatchString subMatch lcSubMatch box className
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	518	needSearch cls env searchBlock searchBlock2
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	519	idx pref aMatchString allNames sortedBySpellingDistance msg resources\|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	520
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	521	resources := self classResources.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	522	env := anEnvironmentOrClassOrNil ? Smalltalk.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	523
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	524	aMatchString := matchStringArg.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	525
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	526	"/ 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	527
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	528	(aMatchString includesString:'::') ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	529	"/ pref := aMatchString upTo:$:.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	530	idx := aMatchString lastIndexOf:$:.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	531	pref := aMatchString copyTo:idx-2.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	532	pref includesMatchCharacters ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	533	"/ search all in Smalltalk
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	534	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	535	cls := Smalltalk at:pref asSymbol ifAbsent:nil.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	536	(cls notNil and:[cls isBehavior]) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	537	env := cls.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	538	aMatchString := aMatchString copyFrom:pref size + 1 + 2.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	539	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	540	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	541	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	542
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	543	classNames := Set new.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	544	caselessMatchingNames := Set new.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	545	substringMatchingNames := Set new.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	546	caselessSubstringMatchingNames := Set new.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	547	caselessWithoutPrefixSubstringMatchingNames := Set new.
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	lcMatchString := aMatchString asLowercase.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	550	needSearch := true.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	551	aMatchString includesMatchCharacters ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	552	subMatch := '' , aMatchString , ''.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	553	lcSubMatch := subMatch asLowercase.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	554
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	555	"/ 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	556	className := aMatchString asSymbolIfInterned.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	557	className notNil ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	558	env isNameSpace ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	559	cls := env at:className ifAbsent:nil.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	560	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	561	cls := env privateClassesAt:className.
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	(cls notNil and:[cls isBehavior]) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	564	needSearch := false.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	565	]
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	566	]
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	567	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	568
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	569	needSearch ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	570	searchBlock := [:aClass \|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	571	\|thisName\|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	572
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	573	"/ use dotted names for java
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	574	aClass isJavaClass ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	575	thisName := aClass displayString. "/ fullName copyReplaceAll:$/ with:$.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	576	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	577	thisName := aClass name
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	578	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	579	(lcMatchString match:aClass name asLowercase) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	580	caselessWithoutPrefixSubstringMatchingNames add:thisName
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	581	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	582	aClass nameWithoutPrefix ~= aClass name ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	583	(lcMatchString match:aClass nameWithoutPrefix asLowercase) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	584	caselessWithoutPrefixSubstringMatchingNames add:thisName
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	585	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	586	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	587
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	588	(aMatchString match:thisName) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	589	classNames add:thisName
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	590	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	591	(lcMatchString match:thisName asLowercase) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	592	caselessMatchingNames add:thisName
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	593	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	594	subMatch notNil ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	595	(subMatch match:thisName) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	596	substringMatchingNames add:thisName
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	597	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	598	(lcSubMatch match:thisName asLowercase) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	599	caselessSubstringMatchingNames add:thisName
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	]
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	605	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	606
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	607	(env == Smalltalk or:[env isNameSpace]) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	608	env allClassesDo:searchBlock
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	609	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	610	env allPrivateClasses do:searchBlock
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	611	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	612
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	613	sortedBySpellingDistance := false.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	614	"/ if nothing matched - try caseless matches
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	615	classNames size == 0 ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	616	classNames := caselessMatchingNames.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	617
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	618	"/ if nothing matched - try substring matches
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	619	classNames size == 0 ifTrue:[
8704 f5b8ba75a158 some code cleanup Claus Gittinger <cg@exept.de> parents: 8702 diff changeset	620	aMatchString isUppercaseFirst ifTrue:[
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	621	classNames := substringMatchingNames.
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	"/ if nothing matched - try caseless substring matches
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	624	classNames size == 0 ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	625	classNames := caselessSubstringMatchingNames.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	626
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	627	"/ if nothing matched - try best fitting
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	628	classNames size == 0 ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	629	aMatchString includesMatchCharacters ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	630	allNames := SortedCollection sortBlock:[:a :b \| a value > b value].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	631	searchBlock2 :=
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	632	[:aClass \|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	633	\|thisName dist\|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	634
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	635	aClass isJavaClass ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	636	thisName := aClass displayString. "/ fullName copyReplaceAll:$/ with:$.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	637	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	638	thisName := aClass name
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	dist := thisName asLowercase spellAgainst:lcMatchString.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	641	(thisName asLowercase startsWith:lcMatchString) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	642	dist := dist + (thisName size * 10).
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	643	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	644	allNames add:(thisName -> dist).
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	645	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	646	(env == Smalltalk or:[env isNameSpace]) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	647	env allClassesDo:searchBlock2
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	648	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	649	env allPrivateClasses do:searchBlock2
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	650	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	651	classNames := (allNames copyTo:(allNames size min:40)) collect:[:each \| each key].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	652	sortedBySpellingDistance := true.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	653	]
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	654	]
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	655	]
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	656	]
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
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	659	(classNames size == 0) ifTrue:[^ nil].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	660	(classNames size == 1) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	661	className := classNames first
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	662	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	663	\|browseButton\|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	664
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	665	sortedBySpellingDistance ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	666	classNames := classNames asArray sort.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	667	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	668
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	669	aMatchString includesMatchCharacters ifTrue:[
9065 efb483eb10a8 changed: #askForClassNameMatching:inEnvironment:for: Claus Gittinger <cg@exept.de> parents: 9010 diff changeset	670	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	671	] ifFalse:[
9065 efb483eb10a8 changed: #askForClassNameMatching:inEnvironment:for: Claus Gittinger <cg@exept.de> parents: 9010 diff changeset	672	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	673	].
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	box := self listBoxTitle:(resources string:msg with:matchStringArg) withCRs
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	676	okText:'OK'
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	677	list:classNames.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	678	caselessWithoutPrefixSubstringMatchingNames notEmpty ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	679	box initialText:(caselessWithoutPrefixSubstringMatchingNames first).
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	box action:[:aString \| className := aString].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	682
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	683	browseButton := Button label:(resources string:'Browse All').
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	684	browseButton action:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	685	\|classes title\|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	686
9065 efb483eb10a8 changed: #askForClassNameMatching:inEnvironment:for: Claus Gittinger <cg@exept.de> parents: 9010 diff changeset	687	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	688	classes := classNames collect:[:nm \| Smalltalk classNamed:nm].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	689	aBrowserOrNil isNil ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	690	SystemBrowser
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	691	browseClasses:classes
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	692	label:title.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	693	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	694	aBrowserOrNil
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	695	spawnClassBrowserFor:classes
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	696	label:title
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	697	in:#newBrowser
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	698	select:false.
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	box hide
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	701	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	702	box addButton:browseButton before:box okButton.
9157 c8166dbf5a5a changed: #askForClassNameMatching:inEnvironment:for: Claus Gittinger <cg@exept.de> parents: 9065 diff changeset	703	box minExtent:300@250.
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	704
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	705	box open.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	706	(box accepted not or:[className isNil]) ifTrue:[ "/ cancel
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	707	^ nil
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	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	711
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	712	className notNil ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	713	"/ use slashed javaName for search.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	714	(className includes:$.) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	715	className := className copyReplaceAll:$. with:$/
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	716	].
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
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	719	"/ pref notNil ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	720	"/ ^ pref , '::' , className
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	721	"/ ].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	722	^ className
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	723
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	724	"Modified: / 16-10-2006 / 11:36:20 / cg"
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	725	!
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	726
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	727	listBoxTitle:title okText:okText list:aList
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	728	"convenient method: setup a listBox & return it"
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	729
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	730	\|box resources\|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	731
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	732	resources := self classResources.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	733
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	734	box := ListSelectionBox
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	735	title:(resources string:title)
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	736	okText:(resources string:okText)
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	737	action:nil.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	738	box list:aList.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	739	^ box
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
2692 652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	742	!SystemBrowser class methodsFor:'image specs'!
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	743
2748 80829f5a575d * empty log message * Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	744	abstractMethodIcon
80829f5a575d * empty log message * Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	745	<resource: #programImage>
80829f5a575d * empty log message * Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	746
80829f5a575d * empty log message * Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	747	^ self padLockGrayMiniIcon
80829f5a575d * empty log message * Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	748	!
80829f5a575d * empty log message * Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	749
3813 7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	750	addBreakPointIcon
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	751	"This resource specification was automatically generated
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	752	by the ImageEditor of ST/X."
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	753
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	754	"Do not manually edit this!! If it is corrupted,
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	755	the ImageEditor may not be able to read the specification."
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	756
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	757	"
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	758	self addBreakPointIcon inspect
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	759	ImageEditor openOnClass:self andSelector:#addBreakPointIcon
4852 b9266dc55860 * empty log message * Claus Gittinger <cg@exept.de> parents: 4806 diff changeset	760	Icon flushCachedIcons
3813 7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	761	"
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	762
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	763	<resource: #image>
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	764
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	765	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	766	constantNamed:'SystemBrowser class addBreakPointIcon'
3813 7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	767	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	768	!
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	769
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	770	addBreakPointIcon2
6115 43cde28a3209 * empty log message * Claus Gittinger <cg@exept.de> parents: 6052 diff changeset	771	^ XPToolbarIconLibrary addBreakPointIcon2
3813 7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	772	!
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	773
4341 7bb51f44dca7 Icon for autoloaded classes Stefan Vogel <sv@exept.de> parents: 4332 diff changeset	774	autoloadedClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	775	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	776
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	777	^ ToolbarIconLibrary autoloadedClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	778
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	779	"Modified: / 20-07-2007 / 09:15:37 / cg"
4341 7bb51f44dca7 Icon for autoloaded classes Stefan Vogel <sv@exept.de> parents: 4332 diff changeset	780	!
7bb51f44dca7 Icon for autoloaded classes Stefan Vogel <sv@exept.de> parents: 4332 diff changeset	781
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	782	canvasIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	783	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	784	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	785
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	786	"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	787	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	788
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	789	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	790	ImageEditor openOnClass:self andSelector:#canvasIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	791	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	792
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	793	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	794
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	795	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	796	constantNamed:'SystemBrowser class canvasIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	797	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	798	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	799
4143 abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	800	containerClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	801	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	802
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	803	^ ToolbarIconLibrary containerClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	804
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	805	"Modified: / 20-07-2007 / 09:14:54 / cg"
4143 abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	806	!
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	807
2692 652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	808	defaultIcon
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	809	"This resource specification was automatically generated
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	810	by the ImageEditor of ST/X."
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	811
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	812	"Do not manually edit this!! If it is corrupted,
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	813	the ImageEditor may not be able to read the specification."
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	814
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	815	"
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	816	self defaultIcon inspect
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	817	ImageEditor openOnClass:self andSelector:#defaultIcon
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	818	"
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	819
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	820	<resource: #image>
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	821
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	822	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	823	constantNamed:'SystemBrowser class defaultIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	824	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	825	@@@@@@@@@@@@@@@@@@@FY&Y&Y&X0@@@@@@@@@@YDQDQDQB@@@@@@@@@@A$QDQDQDH@@@@@@@@@@CH"H"H"H @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@
3794 8e0c2bab6856 icon Claus Gittinger <cg@exept.de> parents: 3780 diff changeset	826	@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@A&Y&Y&Y#@@@@@F@"H"HFDQDQDQH@@@@@@@@@@@L"H"H"
8e0c2bab6856 icon Claus Gittinger <cg@exept.de> parents: 3780 diff changeset	827	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	828	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@B@B@ @@H@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	829	@@@@@@@@@@@@@@@@@@@@@@@@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	830	??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	831	QDBD%DQ@!!OH''HHRQEABT$QPP99]7\@@a') ; yourself); yourself]
b332c41c3daa allCallsOn fix Claus Gittinger <cg@exept.de> parents: 2830 diff changeset	832	!
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	833
5761 b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	834	deprecatedMethodIcon
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	835	^ self doNotEnterIcon
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	836	!
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	837
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	838	doNotEnterIcon
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	839	"This resource specification was automatically generated
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	840	by the ImageEditor of ST/X."
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	841
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	842	"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	843	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	844
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	845	"
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	846	self doNotEnterIcon inspect
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	847	ImageEditor openOnClass:self andSelector:#doNotEnterIcon
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	848	Icon flushCachedIcons
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	849	"
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	850
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	851	<resource: #image>
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	852
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	853	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	854	constantNamed:'SystemBrowser class doNotEnterIcon'
5761 b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	855	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	856	!
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	857
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	858	emptyIcon
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	859	"This resource specification was automatically generated
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	860	by the ImageEditor of ST/X."
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	861
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	862	"Do not manually edit this!! If it is corrupted,
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	863	the ImageEditor may not be able to read the specification."
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	864
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	865	"
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	866	self emptyIcon inspect
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	867	ImageEditor openOnClass:self andSelector:#emptyIcon
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	868	"
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	869
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	870	<resource: #image>
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	871
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	872	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	873	constantNamed:'SystemBrowser class emptyIcon'
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	874	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	875
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	876	"Created: / 5.11.2001 / 09:39:54 / cg"
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	877	!
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	878
4143 abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	879	errorClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	880	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	881
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	882	^ ToolbarIconLibrary errorClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	883
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	884	"Modified: / 20-07-2007 / 09:14:06 / cg"
4143 abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	885	!
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	886
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	887	exceptionClassIcon
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	888	"This resource specification was automatically generated
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	889	by the ImageEditor of ST/X."
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	890
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	891	"Do not manually edit this!! If it is corrupted,
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	892	the ImageEditor may not be able to read the specification."
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	893
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	894	"
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	895	self exceptionClassIcon inspect
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	896	ImageEditor openOnClass:self andSelector:#exceptionClassIcon
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	897	Icon flushCachedIcons
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	898	"
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	899
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	900	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	901
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	902	^ ToolbarIconLibrary exceptionClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	903
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	904	"Modified: / 20-07-2007 / 09:13:18 / cg"
4143 abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	905	!
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	906
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	907	fileImageIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	908	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	909	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	910
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	911	"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	912	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	913
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	914	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	915	self fileImageIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	916	ImageEditor openOnClass:self andSelector:#fileImageIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	917	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	918
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	919	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	920
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	921	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	922	constantNamed:'SystemBrowser class fileImageIcon'
2846 b332c41c3daa allCallsOn fix Claus Gittinger <cg@exept.de> parents: 2830 diff changeset	923	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	924	!
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	925
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	926	greenCheckIcon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	927	"This resource specification was automatically generated
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	928	by the ImageEditor of ST/X."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	929
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	930	"Do not manually edit this!! If it is corrupted,
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	931	the ImageEditor may not be able to read the specification."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	932
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	933	"
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	934	self greenCheckIcon inspect
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	935	ImageEditor openOnClass:self andSelector:#greenCheckIcon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	936	Icon flushCachedIcons
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	937	"
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	938
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	939	<resource: #image>
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	940
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	941	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	942	constantNamed:'SystemBrowser class greenCheckIcon'
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	943	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	944	!
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	945
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	946	greenLockIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	947	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	948	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	949
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	950	"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	951	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	952
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	953	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	954	self greenLockIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	955	ImageEditor openOnClass:self andSelector:#greenLockIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	956	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	957
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	958	<resource: #programImage>
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	959
2892 1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	960	^ self padLockGreenMiniIcon
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	961
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	962	"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	963	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	964
4165 5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	965	greenThumbUpIcon
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	966	"This resource specification was automatically generated
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	967	by the ImageEditor of ST/X."
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	968
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	969	"Do not manually edit this!! If it is corrupted,
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	970	the ImageEditor may not be able to read the specification."
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	971
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	972	"
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	973	self greenThumbUpIcon inspect
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	974	ImageEditor openOnClass:self andSelector:#greenThumbUpIcon
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	975	Icon flushCachedIcons
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	976	"
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	977
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	978	<resource: #image>
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	979
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	980	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	981	constantNamed:'SystemBrowser class greenThumbUpIcon'
4165 5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	982	ifAbsentPut:[(Depth4Image new) width: 15; height: 15; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	983	@@@@@@@@@@@@A)<@@@@@@@@G( @@@@@@@@^/@@@@@@@@A9@@@@@@@@C)$@@@@@@@A)+<>]BM]0BZ(->&E''3&@I*J&DN];@@VZ''G^DV] C%&Y8AY7,@@MQU
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	984	P]8QY6@@@MSPE''XP@@@@@CL0!!''X@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 0 64 0 77 242 77 0 128 0 0 160 32 8 215 50 50 173 50 45 210 45 0 32 0 40 247 40 77 242 118 0 64 32 22 105 22 18 141 18 13 178 13 45 210 86]; mask:((ImageMask new) width: 15; height: 15; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'G@@>@C8@O @<@G?<??;??/?>??;??O?<?? ?>@?0') ; yourself); yourself]
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	985	!
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	986
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	987	greenThumbUpSmallIcon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	988	"This resource specification was automatically generated
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	989	by the ImageEditor of ST/X."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	990
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	991	"Do not manually edit this!! If it is corrupted,
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	992	the ImageEditor may not be able to read the specification."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	993
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	994	"
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	995	self greenThumbUpSmallIcon inspect
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	996	ImageEditor openOnClass:self andSelector:#greenThumbUpSmallIcon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	997	Icon flushCachedIcons
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	998	"
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	999
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1000	<resource: #image>
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1001
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1002	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1003	constantNamed:'SystemBrowser class greenThumbUpSmallIcon'
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1004	ifAbsentPut:[(Depth2Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@P@@@@D@@@@A@@L@@P@B@@U*@@@UZ@@@UV @@EV @@@@@@B@@@@B@b') ; colorMapFromArray:#[0 0 0 0 255 0 0 127 0]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C@@N@@8@C @_8A?0O?@?8C?@O8@@@@@a') ; yourself); yourself]
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1005	!
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1006
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1007	greyCheckIcon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1008	"This resource specification was automatically generated
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1009	by the ImageEditor of ST/X."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1010
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1011	"Do not manually edit this!! If it is corrupted,
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1012	the ImageEditor may not be able to read the specification."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1013
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1014	"
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1015	self greyCheckIcon inspect
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1016	ImageEditor openOnClass:self andSelector:#greyCheckIcon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1017	Icon flushCachedIcons
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1018	"
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	<resource: #image>
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1021
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1022	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1023	constantNamed:'SystemBrowser class greyCheckIcon'
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1024	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	1025	!
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1026
4165 5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1027	greyThumbUpIcon
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1028	"This resource specification was automatically generated
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1029	by the ImageEditor of ST/X."
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1030
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1031	"Do not manually edit this!! If it is corrupted,
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1032	the ImageEditor may not be able to read the specification."
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1033
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1034	"
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1035	self greyThumbUpIcon inspect
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1036	ImageEditor openOnClass:self andSelector:#greyThumbUpIcon
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1037	Icon flushCachedIcons
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1038	"
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1039
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1040	<resource: #image>
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1041
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1042	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1043	constantNamed:'SystemBrowser class greyThumbUpIcon'
4165 5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1044	ifAbsentPut:[(Depth4Image new) width: 15; height: 15; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1045	@@@@@@@@@@ @@4\@@@@@@@@GE@@@@@@@@@\W@@@@@@@@A4@@@@@@@@@4P@@@@@@H@4E2]FAV]0AAEF\SH7X3@DDQPSHC]2@@]ADWI#H#\0@7]7LBM7H@@FY7
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1046	YVL"M3@@@FY T7L @@@@@BH T7L@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 224 224 224 64 64 64 128 128 128 192 192 192 32 32 32 96 96 96 160 160 160]; mask:((ImageMask new) width: 15; height: 15; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'G@@>@C8@O @<@G?<??;??/?>??;??O?<?? ?>@?0') ; yourself); yourself]
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1047	!
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1048
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1049	helpIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1050	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1051	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1052
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1053	"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	1054	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	1055
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1056	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1057	self helpIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1058	ImageEditor openOnClass:self andSelector:#helpIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1059	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1060
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1061	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1062
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1063	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1064	constantNamed:'SystemBrowser class helpIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1065	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	1066	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1067
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1068	hierarchicalListIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1069	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1070	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1071
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1072	"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	1073	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	1074
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1075	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1076	ImageEditor openOnClass:self andSelector:#hierarchicalListIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1077	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1078
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1079	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1080
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1081	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1082	constantNamed:'SystemBrowser class hierarchicalListIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1083	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	1084	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1085
5997 a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1086	ignoredMethodIcon
a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1087	<resource: #programImage>
a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1088
a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1089	^ self padLockBlackMiniIcon
a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1090	!
a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1091
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1092	imageIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1093	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1094	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1095
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1096	"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	1097	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	1098
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1099	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1100	self imageIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1101	ImageEditor openOnClass:self andSelector:#imageIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1102	"
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	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1105
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1106	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1107	constantNamed:'SystemBrowser class imageIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1108	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	1109	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1110
10048 9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1111	instVarOverlayXmlSpec
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1112	"This resource specification was automatically generated
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1113	by the ImageEditor of ST/X."
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1114
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1115	"Do not manually edit this!! If it is corrupted,
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1116	the ImageEditor may not be able to read the specification."
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1117
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1118	"
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1119	self instVarOverlayXmlSpec inspect
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1120	ImageEditor openOnClass:self andSelector:#instVarOverlayXmlSpec
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1121	Icon flushCachedIcons
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1122	"
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1123
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1124	<resource: #image>
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1125
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1126	^Icon
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1127	constantNamed:'SystemBrowser class instVarOverlayXmlSpec'
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1128	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	1129	@@@@@@@@@@@@@@@@BA@XFC@L[>[O8<=#[7X0CA XBA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1130	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1131	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1132	!
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1133
7992 425aa862d872 * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	1134	instrumentationIcon
425aa862d872 * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	1135	<resource: #programImage>
425aa862d872 * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	1136
425aa862d872 * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	1137	^ ToolbarIconLibrary pipette16x16Icon
425aa862d872 * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	1138	!
425aa862d872 * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	1139
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1140	medium_methodEmptyInheritedIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1141	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1142	by the ImageEditor of ST/X."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1143
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1144	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1145	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1146
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1147	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1148	self medium_methodEmptyInheritedIcon inspect
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1149	ImageEditor openOnClass:self andSelector:#medium_methodEmptyInheritedIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1150	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1151
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1152	<resource: #image>
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1153
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1154	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1155	constantNamed:'SystemBrowser class medium_methodEmptyInheritedIcon'
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1156	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	1157	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1158
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1159	medium_methodInheritedFromAboveAndRedefinedBelowIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1160	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1161	by the ImageEditor of ST/X."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1162
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1163	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1164	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1165
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1166	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1167	self medium_methodInheritedFromAboveAndRedefinedBelowIcon inspect
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1168	ImageEditor openOnClass:self andSelector:#medium_methodInheritedFromAboveAndRedefinedBelowIcon
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1169	Icon flushCachedIcons
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1170	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1171
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1172	<resource: #image>
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1173
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1174	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1175	constantNamed:'SystemBrowser class medium_methodInheritedFromAboveAndRedefinedBelowIcon'
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1176	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	1177	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1178
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1179	medium_methodInheritedFromAboveIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1180	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1181	by the ImageEditor of ST/X."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1182
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1183	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1184	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1185
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1186	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1187	self medium_methodInheritedFromAboveIcon inspect
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1188	ImageEditor openOnClass:self andSelector:#medium_methodInheritedFromAboveIcon
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1189	Icon flushCachedIcons
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1190	"
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	<resource: #image>
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1193
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1194	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1195	constantNamed:'SystemBrowser class medium_methodInheritedFromAboveIcon'
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1196	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	1197	!
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	medium_methodRedefinedBelowIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1200	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1201	by the ImageEditor of ST/X."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1202
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1203	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1204	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1205
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	self medium_methodRedefinedBelowIcon inspect
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1208	ImageEditor openOnClass:self andSelector:#medium_methodRedefinedBelowIcon
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1209	Icon flushCachedIcons
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1210	"
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	<resource: #image>
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1213
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1214	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1215	constantNamed:'SystemBrowser class medium_methodRedefinedBelowIcon'
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1216	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	1217	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1218
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1219	menuIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1220	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1221	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1222
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1223	"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	1224	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	1225
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1226	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1227	self menuIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1228	ImageEditor openOnClass:self andSelector:#menuIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1229	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1230
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1231	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1232
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1233	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1234	constantNamed:'SystemBrowser class menuIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1235	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	1236	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1237
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1238	methodEmptyInheritedIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1239	^ self small_methodEmptyInheritedIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1240	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1241
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1242	methodInheritedFromAboveAndRedefinedBelowIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1243	^ self small_methodInheritedFromAboveAndRedefinedBelowIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1244	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1245
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1246	methodInheritedFromAboveIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1247	^ self small_methodInheritedFromAboveIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1248	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1249
5761 b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1250	methodIsSubclassResponsibilityAndRedefinedBelowIcon
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1251	"This resource specification was automatically generated
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1252	by the ImageEditor of ST/X."
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1253
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1254	"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	1255	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	1256
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1257	"
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1258	self methodIsSubclassResponsibilityAndRedefinedBelowIcon inspect
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1259	ImageEditor openOnClass:self andSelector:#methodIsSubclassResponsibilityAndRedefinedBelowIcon
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1260	Icon flushCachedIcons
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1261	"
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1262
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1263	<resource: #image>
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1264
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1265	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1266	constantNamed:'SystemBrowser class methodIsSubclassResponsibilityAndRedefinedBelowIcon'
5761 b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1267	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	1268	!
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1269
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1270	methodIsSubclassResponsibilityIcon
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1271	"This resource specification was automatically generated
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1272	by the ImageEditor of ST/X."
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1273
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1274	"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	1275	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	1276
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1277	"
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1278	self methodIsSubclassResponsibilityIcon inspect
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1279	ImageEditor openOnClass:self andSelector:#methodIsSubclassResponsibilityIcon
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1280	Icon flushCachedIcons
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1281	"
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1282
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1283	<resource: #image>
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1284
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1285	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1286	constantNamed:'SystemBrowser class methodIsSubclassResponsibilityIcon'
5761 b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1287	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	1288	!
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1289
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1290	methodRedefinedBelowIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1291	^ self small_methodRedefinedBelowIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1292	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1293
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1294	nameSpaceIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1295	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1296
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1297	^ ToolbarIconLibrary nameSpaceBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1298
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1299	"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	1300	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1301
4308 9957b7ab92e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4275 diff changeset	1302	notificationClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1303	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1304
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1305	^ ToolbarIconLibrary notificationClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1306
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1307	"Modified: / 20-07-2007 / 09:11:21 / cg"
4308 9957b7ab92e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4275 diff changeset	1308	!
9957b7ab92e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4275 diff changeset	1309
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1310	packageIcon
8853 a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1311	<resource: #programImage>
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1312
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1313	^ ToolbarIconLibrary smallYellowPackageIcon
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1314	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1315
6954 b10a2c15fee5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6944 diff changeset	1316	packageIconGraySmall
8853 a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1317	<resource: #programImage>
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1318
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1319	^ ToolbarIconLibrary smallGrayPackageIcon
6954 b10a2c15fee5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6944 diff changeset	1320	!
b10a2c15fee5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6944 diff changeset	1321
6925 388067acd009 * empty log message * Claus Gittinger <cg@exept.de> parents: 6913 diff changeset	1322	packageIconGreenSmall
8853 a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1323	<resource: #programImage>
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1324
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1325	^ ToolbarIconLibrary smallGreenPackageIcon
6925 388067acd009 * empty log message * Claus Gittinger <cg@exept.de> parents: 6913 diff changeset	1326	!
388067acd009 * empty log message * Claus Gittinger <cg@exept.de> parents: 6913 diff changeset	1327
388067acd009 * empty log message * Claus Gittinger <cg@exept.de> parents: 6913 diff changeset	1328	packageIconOrangeSmall
8853 a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1329	<resource: #programImage>
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1330
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1331	^ ToolbarIconLibrary smallOrangePackageIcon
6925 388067acd009 * empty log message * Claus Gittinger <cg@exept.de> parents: 6913 diff changeset	1332	!
388067acd009 * empty log message * Claus Gittinger <cg@exept.de> parents: 6913 diff changeset	1333
6901 34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	1334	packageIconSmall
8853 a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1335	<resource: #programImage>
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1336
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1337	^ ToolbarIconLibrary smallYellowPackageIcon
6901 34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	1338	!
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	1339
5997 a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1340	padLockBlackMiniIcon
6333 d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1341	<resource: #programImage>
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1342
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1343	^ XPToolbarIconLibrary padLockBlackMiniIcon
5997 a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1344	!
a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1345
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1346	padLockBlueMiniIcon
6333 d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1347	<resource: #programImage>
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1348
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1349	^ XPToolbarIconLibrary padLockBlueMiniIcon
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1350	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1351
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1352	padLockGrayMiniIcon
6333 d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1353	<resource: #programImage>
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1354
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1355	^ GenericToolbarIconLibrary padLockGrayMiniIcon
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1356	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1357
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1358	padLockGreenMiniIcon
6333 d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1359	<resource: #programImage>
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1360
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1361	^ GenericToolbarIconLibrary padLockGreenMiniIcon
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1362	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1363
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1364	padLockRedMiniIcon
6333 d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1365	<resource: #programImage>
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1366
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1367	^ GenericToolbarIconLibrary padLockRedMiniIcon
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1368	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1369
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1370	privateMethodIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1371	<resource: #programImage>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1372
2748 80829f5a575d * empty log message * Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	1373	^ self padLockRedMiniIcon
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1374	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1375
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1376	programImageIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1377	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1378	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1379
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1380	"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	1381	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	1382
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1383	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1384	self programImageIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1385	ImageEditor openOnClass:self andSelector:#programImageIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1386	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1387
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1388	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1389
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1390	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1391	constantNamed:#'SystemBrowser class programImageIcon'
2846 b332c41c3daa allCallsOn fix Claus Gittinger <cg@exept.de> parents: 2830 diff changeset	1392	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	1393	!
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1394
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1395	programMenuIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1396	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1397	by the ImageEditor of ST/X."
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	"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	1400	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	1401
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1402	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1403	self programMenuIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1404	ImageEditor openOnClass:self andSelector:#programMenuIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1405	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1406
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1407	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1408
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1409	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1410	constantNamed:#'SystemBrowser class programMenuIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1411	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	1412	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1413
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1414	protectedMethodIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1415	<resource: #programImage>
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	^ self padLockGreenMiniIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1418	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1419
4308 9957b7ab92e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4275 diff changeset	1420	queryClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1421	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1422
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1423	^ ToolbarIconLibrary queryClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1424
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1425	"Modified: / 20-07-2007 / 09:10:32 / cg"
4308 9957b7ab92e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4275 diff changeset	1426	!
9957b7ab92e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4275 diff changeset	1427
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1428	redCheckIcon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1429	"This resource specification was automatically generated
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1430	by the ImageEditor of ST/X."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1431
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1432	"Do not manually edit this!! If it is corrupted,
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1433	the ImageEditor may not be able to read the specification."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1434
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1435	"
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1436	self redCheckIcon inspect
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1437	ImageEditor openOnClass:self andSelector:#redCheckIcon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1438	Icon flushCachedIcons
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1439	"
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1440
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1441	<resource: #image>
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1442
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1443	^Icon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1444	constantNamed:#'SystemBrowser class redCheckIcon'
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1445	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	1446	!
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1447
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1448	redLockIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1449	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1450	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1451
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1452	"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	1453	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	1454
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1455	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1456	self redLockIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1457	ImageEditor openOnClass:self andSelector:#redLockIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1458	"
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	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1461
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1462	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1463	constantNamed:#'SystemBrowser class redLockIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1464	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	1465	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1466
4165 5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1467	redThumbDownIcon
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1468	"This resource specification was automatically generated
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1469	by the ImageEditor of ST/X."
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1470
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1471	"Do not manually edit this!! If it is corrupted,
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1472	the ImageEditor may not be able to read the specification."
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1473
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1474	"
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1475	self redThumbDownIcon inspect
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1476	ImageEditor openOnClass:self andSelector:#redThumbDownIcon
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1477	Icon flushCachedIcons
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1478	"
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1479
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1480	<resource: #image>
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1481
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1482	^Icon
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1483	constantNamed:#'SystemBrowser class redThumbDownIcon'
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1484	ifAbsentPut:[(Depth4Image new) width: 15; height: 15; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1485	@@@@@@@@@@@@@L3@!!;\@@@C6<J^7(@@H=-5*<Z);\@@]UUDJ^;(@@MH3N:<Z);\@H3MC^ F;(@@#MO$7);8WB@\#'')K0#;,@@AH @@@@@@@@B2@@@@@@@@@K
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1486	NP@@@@@L@@,4@@@@@@T@A2$@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 191 20 1 255 44 33 255 131 65 255 84 65 255 88 33 160 40 0 184 67 40 32 27 0 223 99 33 64 22 0 223 52 33 128 13 0 224 56 0 112 16 31 152 35 8]; mask:((ImageMask new) width: 15; height: 15; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C?@?>O?8??3??O?>??;??/?>_?0<@C8@O @>@A0@') ; yourself); yourself]
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1487	!
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1488
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1489	redThumbDownSmallIcon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1490	"This resource specification was automatically generated
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1491	by the ImageEditor of ST/X."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1492
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1493	"Do not manually edit this!! If it is corrupted,
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1494	the ImageEditor may not be able to read the specification."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1495
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1496	"
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1497	self redThumbDownSmallIcon inspect
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1498	ImageEditor openOnClass:self andSelector:#redThumbDownSmallIcon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1499	Icon flushCachedIcons
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1500	"
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1501
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1502	<resource: #image>
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1503
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1504	^Icon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1505	constantNamed:#'SystemBrowser class redThumbDownSmallIcon'
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	1506	ifAbsentPut:[(Depth2Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@B@@@@@@EV @@AUZ@@@EV C@@U*@@@A@@@@@P@@@@D@@@@A@@@@@@@@ b') ; colorMapFromArray:#[0 0 0 255 0 0 127 0 0 255 255 255]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@? C?@O>@?<A?0G>@N@@8@C @L@@@a') ; yourself); yourself]
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1507	!
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1508
3813 7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	1509	removeBreakPointIcon2
6115 43cde28a3209 * empty log message * Claus Gittinger <cg@exept.de> parents: 6052 diff changeset	1510	^ XPToolbarIconLibrary removeBreakPointIcon2
3813 7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	1511	!
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	1512
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1513	small_methodEmptyInheritedIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1514	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1515	by the ImageEditor of ST/X."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1516
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1517	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1518	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1519
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1520	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1521	self small_methodEmptyInheritedIcon inspect
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1522	ImageEditor openOnClass:self andSelector:#small_methodEmptyInheritedIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1523	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1524
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1525	<resource: #image>
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1526
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1527	^Icon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1528	constantNamed:#'SystemBrowser class small_methodEmptyInheritedIcon'
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1529	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	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	small_methodInheritedFromAboveAndRedefinedBelowIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1533	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1534	by the ImageEditor of ST/X."
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	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1537	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1538
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1539	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1540	self small_methodInheritedFromAboveAndRedefinedBelowIcon inspect
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1541	ImageEditor openOnClass:self andSelector:#small_methodInheritedFromAboveAndRedefinedBelowIcon
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1542	Icon flushCachedIcons
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1543	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1544
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1545	<resource: #image>
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	^Icon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1548	constantNamed:#'SystemBrowser class small_methodInheritedFromAboveAndRedefinedBelowIcon'
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1549	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	1550	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1551
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1552	small_methodInheritedFromAboveIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1553	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1554	by the ImageEditor of ST/X."
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	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1557	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1558
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1559	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1560	self small_methodInheritedFromAboveIcon inspect
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1561	ImageEditor openOnClass:self andSelector:#small_methodInheritedFromAboveIcon
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1562	Icon flushCachedIcons
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1563	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1564
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1565	<resource: #image>
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	^Icon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1568	constantNamed:#'SystemBrowser class small_methodInheritedFromAboveIcon'
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1569	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	1570	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1571
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1572	small_methodRedefinedBelowIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1573	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1574	by the ImageEditor of ST/X."
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	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1577	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1578
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1579	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1580	self small_methodRedefinedBelowIcon inspect
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1581	ImageEditor openOnClass:self andSelector:#small_methodRedefinedBelowIcon
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1582	Icon flushCachedIcons
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1583	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1584
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1585	<resource: #image>
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	^Icon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1588	constantNamed:#'SystemBrowser class small_methodRedefinedBelowIcon'
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1589	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	1590	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1591
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1592	startableClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1593	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1594
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1595	^ ToolbarIconLibrary startableClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1596
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1597	"Created: / 05-11-2001 / 09:50:16 / cg"
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1598	"Modified: / 20-07-2007 / 09:09:40 / cg"
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1599	!
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1600
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1601	startableVisualAppIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1602	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1603
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1604	^ ToolbarIconLibrary visualStartableClassBrowserIcon
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	"Created: / 05-11-2001 / 09:49:00 / cg"
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1607	"Modified: / 20-07-2007 / 09:08:34 / cg"
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1608	!
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1609
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1610	stopIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1611	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1612	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1613
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1614	"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	1615	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	1616
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1617	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1618	self stopIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1619	ImageEditor openOnClass:self andSelector:#stopIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1620	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1621
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1622	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1623
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1624	^Icon
3813 7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	1625	constantNamed:#'SystemBrowser class stopIcon'
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	1626	ifAbsentPut:[(Depth1Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@N@@8@C @N@@P@@@@D@@8@A@@@@@@a') ; colorMapFromArray:#[255 0 0 255 255 255]; 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	1627	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1628
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1629	tabListIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1630	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1631	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1632
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1633	"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	1634	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	1635
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1636	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1637	self tabListIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1638	ImageEditor openOnClass:self andSelector:#tabListIcon
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
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1644	constantNamed:#'SystemBrowser class tabListIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1645	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	1646	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1647
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1648	tableColumnsIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1649	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1650	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1651
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1652	"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	1653	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	1654
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1655	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1656	self tableColumnsIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1657	ImageEditor openOnClass:self andSelector:#tableColumnsIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1658	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1659
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1660	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1661
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1662	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1663	constantNamed:#'SystemBrowser class tableColumnsIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1664	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	1665	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1666
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1667	testCaseClassIcon
8862 dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1668	<resource: #programImage>
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1669
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1670	"/ only left here for backward compatibility...
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1671	^ ToolbarIconLibrary testCaseClassIcon
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1672	!
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1673
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1674	testCaseClassIconFor:cls
4167 588e05d2124d * empty log message * Claus Gittinger <cg@exept.de> parents: 4166 diff changeset	1675	<resource: #programImage>
588e05d2124d * empty log message * Claus Gittinger <cg@exept.de> parents: 4166 diff changeset	1676
8862 dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1677	"/ decision moved to TestCase - see there.
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1678	"/ only left here for backward compatibility...
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1679
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1680	\|lastResult\|
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1681
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	1682	lastResult := cls lastTestRunResultOrNil.
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1683
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1684	lastResult == true ifTrue:[
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1685	^ self testCasePassedIcon
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1686	].
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1687	lastResult == false ifTrue:[
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1688	^ self testCaseFailedIcon
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1689	].
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1690	^ self testCaseUnknownResultIcon
6848 27b76bc54f22 * empty log message * Claus Gittinger <cg@exept.de> parents: 6776 diff changeset	1691
27b76bc54f22 * empty log message * Claus Gittinger <cg@exept.de> parents: 6776 diff changeset	1692	"Modified: / 06-08-2006 / 11:14:12 / cg"
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1693	!
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1694
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1695	testCaseFailedIcon
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1696	<resource: #programImage>
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1697
8862 dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1698	"/ only left here for backward compatibility...
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1699	^ ToolbarIconLibrary testCaseFailedIcon
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1700	!
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1701
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1702	testCasePassedIcon
8862 dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1703	<resource: #programImage>
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1704
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1705	"/ only left here for backward compatibility...
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1706	^ ToolbarIconLibrary testCasePassedIcon
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1707	!
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1708
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1709	testCaseUnknownResultIcon
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1710	<resource: #programImage>
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1711
8862 dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1712	"/ only left here for backward compatibility...
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1713	^ ToolbarIconLibrary testCaseClassIcon
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1714	!
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1715
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1716	timeIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1717	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1718	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1719
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1720	"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	1721	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	1722
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1723	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1724	self timeIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1725	ImageEditor openOnClass:self andSelector:#timeIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1726	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1727
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1728	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1729
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1730	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1731	constantNamed:#'SystemBrowser class timeIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1732	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	1733	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1734
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1735	traceIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1736	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1737	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1738
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1739	"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	1740	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	1741
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1742	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1743	self traceIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1744	ImageEditor openOnClass:self andSelector:#traceIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1745	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1746
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1747	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1748
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1749	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1750	constantNamed:#'SystemBrowser class traceIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1751	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	1752	!
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1753
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1754	visualStartableClassIcon
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1755	"This resource specification was automatically generated
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1756	by the ImageEditor of ST/X."
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1757
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1758	"Do not manually edit this!! If it is corrupted,
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1759	the ImageEditor may not be able to read the specification."
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1760
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1761	"
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1762	self visualStartableClassIcon inspect
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1763	ImageEditor openOnClass:self andSelector:#visualStartableClassIcon
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1764	"
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1765
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1766	<resource: #image>
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1767
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1768	^Icon
2892 1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1769	constantNamed:#'SystemBrowser class visualStartableClassIcon'
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1770	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	1771
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1772	"Modified: / 5.11.2001 / 09:49:30 / cg"
2892 1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1773	!
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1774
4275 aeaf7c245b7a * empty log message * Claus Gittinger <cg@exept.de> parents: 4270 diff changeset	1775	warningClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1776	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1777
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1778	^ ToolbarIconLibrary warningClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1779
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1780	"Modified: / 20-07-2007 / 09:04:39 / cg"
4275 aeaf7c245b7a * empty log message * Claus Gittinger <cg@exept.de> parents: 4270 diff changeset	1781	!
aeaf7c245b7a * empty log message * Claus Gittinger <cg@exept.de> parents: 4270 diff changeset	1782
2892 1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1783	watchIcon
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1784	"This resource specification was automatically generated
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1785	by the ImageEditor of ST/X."
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1786
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1787	"Do not manually edit this!! If it is corrupted,
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1788	the ImageEditor may not be able to read the specification."
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1789
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1790	"
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1791	self watchIcon inspect
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1792	ImageEditor openOnClass:self andSelector:#watchIcon
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1793	"
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1794
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1795	<resource: #image>
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1796
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1797	^Icon
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1798	constantNamed:#'SystemBrowser class watchIcon'
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1799	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	1800	!
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1801
4143 abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	1802	windowClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1803	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1804
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1805	^ ToolbarIconLibrary windowClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1806
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1807	"Modified: / 20-07-2007 / 09:05:57 / cg"
4143 abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	1808	!
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	1809
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1810	windowIcon
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1811	"This resource specification was automatically generated
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1812	by the ImageEditor of ST/X."
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1813
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1814	"Do not manually edit this!! If it is corrupted,
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1815	the ImageEditor may not be able to read the specification."
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1816
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1817	"
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1818	self windowIcon inspect
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1819	ImageEditor openOnClass:self andSelector:#windowIcon
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1820	"
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1821
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1822	<resource: #image>
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1823
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1824	^Icon
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1825	constantNamed:#'SystemBrowser class windowIcon'
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1826	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	1827
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1828	"Created: / 5.11.2001 / 09:39:03 / cg"
2846 b332c41c3daa allCallsOn fix Claus Gittinger <cg@exept.de> parents: 2830 diff changeset	1829	! !
2692 652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	1830
1203 ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1831	!SystemBrowser class methodsFor:'interface specs'!
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1832
1367 80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1833	metaSpec
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1834	"UIPainter new openOnClass: self andSelector: #metaSpec"
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1835
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1836	<resource: #canvas>
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1837	^#(#FullSpec
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1838	#window:
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1839	#(#WindowSpec
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1840	#label: 'Unlabeled Canvas'
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1841	#bounds: #(#Rectangle 27 249 325 334 ) )
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1842	#component:
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1843	#(#SpecCollection
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1844	#collection: #(
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1845	#(#RadioButtonSpec
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1846	#layout: #(#LayoutFrame 0 0 4 0 -1 0.575 20 0 )
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1847	#name: #instanceSwitch
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1848	#model: #metaHolder
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1849	#callbacksSpec:
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1850	#(#UIEventCallbackSubSpec
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1851	#requestValueChangeSelector: #changeRequest )
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1852	#label: 'instance'
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1853	#select: false )
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1854	#(#RadioButtonSpec
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1855	#layout: #(#LayoutFrame 1 0.575 4 0 -1 1 20 0 )
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1856	#name: #classSwitch
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1857	#model: #metaHolder
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1858	#callbacksSpec:
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1859	#(#UIEventCallbackSubSpec
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1860	#requestValueChangeSelector: #changeRequest )
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1861	#label: 'class'
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1862	#select: true ) ) ) )
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1863
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1864	"Created: / 30.10.1997 / 19:07:29 / cg"
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1865	!
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1866
1203 ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1867	methodMoveDialogSpec
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1868	"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	1869
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1870	"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	1871	handle the specification if its corrupted."
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1872
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1873	"
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1874	UIPainter new openOnClass:SystemBrowser andSelector:#methodMoveDialogSpec
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1875	SystemBrowser new openDialogInterface:#methodMoveDialogSpec
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1876	"
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1877
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1878	<resource: #canvas>
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1879
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1880	^
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1881
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1882	#(#FullSpec
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1883	#'window:'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1884	#(#WindowSpec
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1885	#'name:' 'uIPainterView'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1886	#'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	1887	#'label:' 'move method'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1888	#'bounds:' #(#Rectangle 0 0 279 118)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1889	)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1890	#'component:'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1891	#(#SpecCollection
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1892	#'collection:'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1893	#(
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1894	#(#HorizontalPanelViewSpec
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1895	#'name:' 'horizontalPanelView'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1896	#'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	1897	#'component:'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1898	#(#SpecCollection
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1899	#'collection:'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1900	#(
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1901	#(#ActionButtonSpec
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1902	#'name:' 'actionButton2'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1903	#'label:' 'cancel'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1904	#'tabable:' true
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1905	#'model:' #cancel
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1906	#'extent:' #(#Point 133 27)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1907	)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1908	#(#ActionButtonSpec
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1909	#'name:' 'actionButton1'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1910	#'label:' 'move'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1911	#'tabable:' true
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1912	#'isDefault:' true
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1913	#'model:' #accept
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1914	#'extent:' #(#Point 134 27)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1915	)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1916	)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1917	)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1918	#'level:' 0
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1919	#'horizontalLayout:' #fitSpace
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1920	#'verticalLayout:' #center
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1921	#'horizontalSpace:' 4
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1922	#'verticalSpace:' 4
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1923	)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1924	#(#LabelSpec
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1925	#'name:' 'label'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1926	#'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	1927	#'label:' 'move current method to which class:'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1928	#'style:'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1929	#(#Font
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1930	'helvetica' 'medium'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1931	'roman' 12
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1932	)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1933	#'foregroundColor:' #(#Color 0.0 0.0 0.0)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1934	#'backgroundColor:' #(#Color 66.9993 66.9993 66.9993)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1935	#'adjust:' #left
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	#(#ComboBoxSpec
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1938	#'name:' 'comboBox1'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1939	#'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	1940	#'tabable:' true
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1941	#'model:' #className
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1942	#'comboList:' #classList
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1943	)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1944	)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1945	)
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
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1948	"Created: 25.6.1997 / 13:45:20 / cg"
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1949	"Modified: 25.6.1997 / 13:46:44 / cg"
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
4860 8e1a4b990512 method category rename Claus Gittinger <cg@exept.de> parents: 4852 diff changeset	1952	!SystemBrowser class methodsFor:'private-helpers'!
36 ccde5a941840 * empty log message * claus parents: diff changeset	1953
2880 ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1954	askForPackageChangeFrom:oldPkg to:newPkg
3626 abf84bdbfdb2 Remove unused method vars Stefan Vogel <sv@exept.de> parents: 3621 diff changeset	1955	\|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	1956
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1957	box := OptionBox
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1958	title:
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1959	('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	1960	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	1961	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	1962	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	1963	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	1964	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	1965	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	1966
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1967	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	1968	bindWith:(oldPkg allBold)
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1969	with:(newPkg allBold))
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1970	numberOfOptions:3.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1971
3476 685f67f7e818 * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	1972	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	1973	box defaultButtonIndex:3.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1974	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	1975	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	1976	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	1977	box addVerticalSpace:10.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1978	chk := box addCheckBox:'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	1979	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	1980	box resize.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1981	box showAtPointer.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1982	box destroy.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1983
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1984	(answer ~~ #cancel) ifTrue:[
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1985	notAgain value ifTrue:[
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1986	Class catchMethodRedefinitions:false.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1987	].
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1988	].
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1989	^ answer.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1990	!
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1991
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	1992	showNoneFound
3244 1e41eccb08b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	1993	self warn:(self classResources string:'None found.').
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	1994	!
36 ccde5a941840 * empty log message * claus parents: diff changeset	1995
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	1996	showNoneFound:what
1620 51341ec8360b checkin from browser Claus Gittinger <cg@exept.de> parents: 1573 diff changeset	1997	\|rs\|
51341ec8360b checkin from browser Claus Gittinger <cg@exept.de> parents: 1573 diff changeset	1998
51341ec8360b checkin from browser Claus Gittinger <cg@exept.de> parents: 1573 diff changeset	1999	rs := self classResources.
3244 1e41eccb08b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	2000	self information:((rs string:what) , (rs string:'...\\... none found.')) withCRs.
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2001	! !
36 ccde5a941840 * empty log message * claus parents: diff changeset	2002
4860 8e1a4b990512 method category rename Claus Gittinger <cg@exept.de> parents: 4852 diff changeset	2003	!SystemBrowser class methodsFor:'private-instance creation'!
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2004
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2005	newWithLabel:aString setupBlock:aBlock
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2006	"common helper method for all creation methods"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2007
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2008	^ self newWithLabel:aString setupBlock:aBlock onDevice:Screen current
36 ccde5a941840 * empty log message * claus parents: diff changeset	2009	!
ccde5a941840 * empty log message * claus parents: diff changeset	2010
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2011	newWithLabel:aString setupBlock:aBlock onDevice:aWorkstation
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2012	"common helper method for all creation methods"
36 ccde5a941840 * empty log message * claus parents: diff changeset	2013
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2014	\|newBrowser\|
45 950b84ba89e6 * empty log message * claus parents: 41 diff changeset	2015
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2016	newBrowser := BrowserView onDevice:aWorkstation.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2017	newBrowser title:aString.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2018	aBlock value:newBrowser.
45 950b84ba89e6 * empty log message * claus parents: 41 diff changeset	2019
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2020	newBrowser open.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2021	^ newBrowser
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2022	!
45 950b84ba89e6 * empty log message * claus parents: 41 diff changeset	2023
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2024	newWithLabel:aString setupSelector:aSymbol arg:arg
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2025	"common helper method for all creation methods"
36 ccde5a941840 * empty log message * claus parents: diff changeset	2026
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2027	^ self newWithLabel:aString setupSelector:aSymbol arg:arg onDevice:Screen current
36 ccde5a941840 * empty log message * claus parents: diff changeset	2028	!
ccde5a941840 * empty log message * claus parents: diff changeset	2029
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2030	newWithLabel:aString setupSelector:aSymbol arg:arg onDevice:aWorkstation
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2031	"common helper method for all creation methods"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2032
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2033	\|newBrowser\|
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2034
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2035	newBrowser := BrowserView onDevice:aWorkstation.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2036	newBrowser title:aString.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2037	newBrowser perform:aSymbol with:arg.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2038	newBrowser open.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2039	^ newBrowser
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2040	! !
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2041
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2042	!SystemBrowser class methodsFor:'special search startup'!
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2043
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2044	allCallsOn:aSelectorString
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2045	"return a collection of methods which send aSelector."
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2046
9007 7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2047	^ self
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2048	allCallsOn:aSelectorString
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2049	in:(Smalltalk allClasses)
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2050	ignoreCase:false
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2051	match:false
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2052
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2053	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2054	SystemBrowser allCallsOn:#at:put:
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2055	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2056
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2057	"Created: 24.1.1997 / 19:42:57 / cg"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2058	!
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2059
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2060	allCallsOn:aSelectorString in:aCollectionOfClasses
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2061	"return a collection of methods which send aSelector.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2062	Methods from classes in aCollectionOfClasses are searched only."
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2063
9007 7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2064	^ self
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2065	allCallsOn:aSelectorString
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2066	in:aCollectionOfClasses
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2067	ignoreCase:false
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2068	match:false
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2069	!
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2070
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2071	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	2072	"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	2073	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	2074
9007 7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2075	^ self
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2076	allCallsOn:aSelectorString
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2077	in:aCollectionOfClasses
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2078	ignoreCase:ignoreCase
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2079	match:true
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2080
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2081	"
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2082	SystemBrowser allCallsOn:#at:put: in:(Smalltalk allClasses)
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2083	"
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2084
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2085	"Modified: 18.4.1997 / 10:32:50 / cg"
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2086	!
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2087
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2088	allCallsOn:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2089	"return a collection of methods which send aSelector.
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2090	Methods from classes in aCollectionOfClasses are searched only."
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2091
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	2092	\|sel searchBlock classesSearched\|
3471 4c4b41516d96 care for empty selector in allCallsOn. Claus Gittinger <cg@exept.de> parents: 3470 diff changeset	2093
4c4b41516d96 care for empty selector in allCallsOn. Claus Gittinger <cg@exept.de> parents: 3470 diff changeset	2094	aSelectorString size == 0 ifTrue:[ ^ #() ].
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2095	doMatch ifFalse:[
5090 1d20f51a7d6f checkin from browser Claus Gittinger <cg@exept.de> parents: 5018 diff changeset	2096	ignoreCase ifFalse:[
1d20f51a7d6f checkin from browser Claus Gittinger <cg@exept.de> parents: 5018 diff changeset	2097	sel := aSelectorString asSymbolIfInterned.
1d20f51a7d6f checkin from browser Claus Gittinger <cg@exept.de> parents: 5018 diff changeset	2098	sel isNil ifTrue:[
1d20f51a7d6f checkin from browser Claus Gittinger <cg@exept.de> parents: 5018 diff changeset	2099	^ #() "/ none (no such selector)
1d20f51a7d6f checkin from browser Claus Gittinger <cg@exept.de> parents: 5018 diff changeset	2100	].
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2101	].
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2102	].
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	2103
2901 8d162dedd271 * empty log message * Claus Gittinger <cg@exept.de> parents: 2892 diff changeset	2104	classesSearched := aCollectionOfClasses.
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2105	(doMatch and:[aSelectorString includesMatchCharacters]) ifFalse:[
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	2106	"/ exclude javaClasses, if selector cannot be a valid java-selector
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2107	(aSelectorString includes:$() ifFalse:[
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	2108	classesSearched := classesSearched select:[:eachClass \| eachClass theNonMetaclass isJavaClass not].
2846 b332c41c3daa allCallsOn fix Claus Gittinger <cg@exept.de> parents: 2830 diff changeset	2109	].
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2110	].
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	2111
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2112	searchBlock := self searchBlockForAllCallsOn:aSelectorString ignoreCase:ignoreCase match:doMatch.
4332 c8efd47b1a1c * empty log message * Claus Gittinger <cg@exept.de> parents: 4308 diff changeset	2113	searchBlock isNil ifTrue:[
c8efd47b1a1c * empty log message * Claus Gittinger <cg@exept.de> parents: 4308 diff changeset	2114	^ #() "/ none (no such selector)
c8efd47b1a1c * empty log message * Claus Gittinger <cg@exept.de> parents: 4308 diff changeset	2115	].
2901 8d162dedd271 * empty log message * Claus Gittinger <cg@exept.de> parents: 2892 diff changeset	2116	^ self allMethodsIn:classesSearched where:searchBlock
996 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	SystemBrowser allCallsOn:#at:put: in:(Smalltalk allClasses)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2120	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2121
1143 0707461e582a avoid compilation of lazy methods when searching for senders Claus Gittinger <cg@exept.de> parents: 1059 diff changeset	2122	"Modified: 18.4.1997 / 10:32:50 / cg"
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2123	!
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2124
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2125	allMethodsIn:aCollectionOfClasses inst:wantInst class:wantClass where:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2126	"return a collection of methods which pass the given test.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2127	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	2128	considered.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2129	Only classes in aCollectionOfClasses are inspected in the search"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2130
2769 768b6aa2fb5f eliminated a message Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	2131	\|list activePriority\|
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2132
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2133	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2134	since this may take a long time, lower my priority ...
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2135	"
2769 768b6aa2fb5f eliminated a message Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	2136	activePriority := Processor activePriority.
2295 4e05198e7dd8 execute BG tasks at a prio range, to ensure progress. Claus Gittinger <cg@exept.de> parents: 2208 diff changeset	2137	Processor activeProcess
2769 768b6aa2fb5f eliminated a message Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	2138	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	2139	do:[
2484 afd8d8dbd9e2 care vor methods being found in multiple classes Claus Gittinger <cg@exept.de> parents: 2439 diff changeset	2140	\|checkedClasses checkBlock detectedMethods\|
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2141
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2142	checkedClasses := IdentitySet new.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2143	list := OrderedCollection new.
2484 afd8d8dbd9e2 care vor methods being found in multiple classes Claus Gittinger <cg@exept.de> parents: 2439 diff changeset	2144	detectedMethods := IdentitySet new.
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2145
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2146	checkBlock := [:cls \|
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2147	(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	2148	(cls isObsolete and:[cls isLoaded]) ifTrue:[
2882 2a12342fef79 * empty log message * Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	2149	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	2150	] ifFalse:[
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2151	cls methodDictionary keysAndValuesDo:[:sel :method \|
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2152	(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	2153	"/ 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	2154	(detectedMethods includes:method) ifFalse:[
afd8d8dbd9e2 care vor methods being found in multiple classes Claus Gittinger <cg@exept.de> parents: 2439 diff changeset	2155	list add:method.
afd8d8dbd9e2 care vor methods being found in multiple classes Claus Gittinger <cg@exept.de> parents: 2439 diff changeset	2156	detectedMethods add:method
afd8d8dbd9e2 care vor methods being found in multiple classes Claus Gittinger <cg@exept.de> parents: 2439 diff changeset	2157	]
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2158	]
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2159	].
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2160	checkedClasses add:cls.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2161	]
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2162	]
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2163	].
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2164
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2165	aCollectionOfClasses do:[:aClass \|
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2166	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2167	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	2168	implementors or senders)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2169	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2170	wantInst ifTrue:[
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2171	"/ Transcript show:'searching '; show:aClass name; showCR:' ...'; endEntry.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2172	checkBlock value:aClass
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2173	].
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2174	wantClass ifTrue:[
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2175	"/ Transcript show:'searching '; show:aClass class name; showCR:' ...'; endEntry.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2176	checkBlock value:(aClass class)
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	Processor yield
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	].
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2181	^ list
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2182
2484 afd8d8dbd9e2 care vor methods being found in multiple classes Claus Gittinger <cg@exept.de> parents: 2439 diff changeset	2183	"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	2184	"Modified: / 14.12.1999 / 14:59:02 / cg"
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2185	!
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2186
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2187	allMethodsIn:aCollectionOfClasses where:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2188	"return a collection of methods which pass the given test.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2189	Only classes in aCollectionOfClasses are inspected in the search"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2190
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2191	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2192	allMethodsIn:aCollectionOfClasses
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2193	inst:true
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2194	class:true
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2195	where:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2196
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2197	"Created: 24.1.1997 / 19:41:49 / cg"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2198	!
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2199
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2200	aproposSearch:aString
2655 9e90bbd1eb18 apropos search is now: selectors containing Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2201	"browse all methods, which have aString in their selector."
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2202
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2203	^ self aproposSearch:aString in:(Smalltalk allClasses)
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	2204
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2205	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2206
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2207	aproposSearch:aString in:aCollectionOfClasses
2655 9e90bbd1eb18 apropos search is now: selectors containing Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2208	"browse all methods, which have aString.
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2209	This is relatively slow, since all source must be processed."
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2210
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2211	\|matchString list s searchBlock browser\|
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2212
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2213	matchString := '' , aString , ''.
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2214
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2215	list := OrderedCollection new.
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2216
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2217	(aString includesMatchCharacters) ifTrue:[
2655 9e90bbd1eb18 apropos search is now: selectors containing Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2218	s := '' , aString asLowercase , ''.
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2219	"a matchString"
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2220	searchBlock := [:text \| (text asCollectionOfLinesfindFirst:[:line \| s match:line]) ~~ 0].
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2221	] ifFalse:[
2655 9e90bbd1eb18 apropos search is now: selectors containing Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2222	searchBlock := [:source \| (source findString:aString asLowercase) ~~ 0]
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2223	].
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2224
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2225	browser := self browseMethodsIn:aCollectionOfClasses
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2226	where:[:class :method :sel \|
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2227	\|comment\|
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2228
2655 9e90bbd1eb18 apropos search is now: selectors containing Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2229	(searchBlock value:sel asLowercase)
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2230	]
2729 9af04074a4bb no direct access to super-class-instvars Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	2231	title:(self classResources string:'selectors containing: %1' with:aString).
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2232
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2233	browser notNil ifTrue:[
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2234	browser autoSearch:aString
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2235	].
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2236	^ browser
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2237
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2238	"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2239	SystemBrowser aproposSearch:'append' in:(Collection withAllSubclasses)
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2240	SystemBrowser aproposSearch:'add' in:(Collection withAllSubclasses)
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2241	SystemBrowser aproposSearch:'sort' in:(Collection withAllSubclasses)
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2242	SystemBrowser aproposSearch:'[Aa]bsent' in:(Collection withAllSubclasses)
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2243	"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2244
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2245	"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	2246	!
6f4460d5a09d added supersend searches; offer comparing the current version with the Claus Gittinger <cg@exept.de> parents: 203 diff changeset	2247
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2248	browseAllCallsOn:aSelectorString
4490 de7216d4a28a * empty log message * Claus Gittinger <cg@exept.de> parents: 4350 diff changeset	2249	"launch a browser for all senders of aSelector.
de7216d4a28a * empty log message * Claus Gittinger <cg@exept.de> parents: 4350 diff changeset	2250	Notice: better go via Smalltalk browseAllCallsOn:, which honors the tool-preferences"
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2251
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2252	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2253	browseAllCallsOn:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2254	in:(Smalltalk allClasses)
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2255
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2256	"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2257	SystemBrowser browseAllCallsOn:#+
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2258	"
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2259
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2260	"Created: 9.12.1995 / 18:00:41 / cg"
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2261	"Modified: 10.7.1996 / 10:26:15 / cg"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2262	!
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2263
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2264	browseAllCallsOn:aSelectorString in:aSetOfClasses
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2265	"launch a browser for all senders of aSelector"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2266
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2267	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2268	browseAllCallsOn:aSelectorString
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2269	in:aSetOfClasses
4200 3859a6fee797 show none found Claus Gittinger <cg@exept.de> parents: 4198 diff changeset	2270	title:(self classResources string:'Senders of: %1' with:aSelectorString)
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2271
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2272	"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2273	SystemBrowser browseAllCallsOn:#+ in:(Number withAllSubclasses)
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2274	"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2275
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2276	"Created: 10.7.1996 / 10:25:49 / cg"
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2277	"Modified: 24.1.1997 / 19:49:34 / cg"
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2278	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2279
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2280	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	2281	"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	2282
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2283	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2284	browseAllCallsOn:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2285	in:aSetOfClasses
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2286	ignoreCase:ignoreCase
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	2287	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	2288
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2289	"
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2290	SystemBrowser browseAllCallsOn:#+ in:(Number withAllSubclasses)
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2291	"
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2292
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2293	"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	2294	"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	2295	!
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2296
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2297	browseAllCallsOn:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase title:titleArg
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2298	"launch a browser for all senders of aSelector in aCollectionOfClasses"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2299
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2300	\|list list2 browser selWithColon title rs\|
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2301
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2302	title := titleArg.
4200 3859a6fee797 show none found Claus Gittinger <cg@exept.de> parents: 4198 diff changeset	2303
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2304	list := self allCallsOn:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase match:true.
4200 3859a6fee797 show none found Claus Gittinger <cg@exept.de> parents: 4198 diff changeset	2305	list isEmpty ifTrue:[
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2306	aSelectorString numArgs == 0 ifTrue:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2307	selWithColon := aSelectorString , ':'.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2308	selWithColon knownAsSymbol ifTrue:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2309	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	2310	].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2311	].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2312	list2 size == 0 ifTrue:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2313	self showNoneFound:title.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2314	^ nil
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2315	].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2316	rs := self classResources.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2317	(Dialog confirm:((rs string:title) ,
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2318	(rs string:'...\\... none found.') ,
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2319	(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	2320	with:list2 size
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2321	with:selWithColon allBold)) withCRs) ifFalse:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2322	^ nil
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2323	].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2324	list := list2.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2325	title := title , ':'.
4200 3859a6fee797 show none found Claus Gittinger <cg@exept.de> parents: 4198 diff changeset	2326	].
3859a6fee797 show none found Claus Gittinger <cg@exept.de> parents: 4198 diff changeset	2327
3859a6fee797 show none found Claus Gittinger <cg@exept.de> parents: 4198 diff changeset	2328	browser := self browseMethods:list title:title.
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2329	browser notNil ifTrue:[
648 6ec086b7972c Move method's literals form literalArray to indexed instvars. Stefan Vogel <sv@exept.de> parents: 634 diff changeset	2330	\|s\|
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2331
8139 acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2332	"/ "
acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2333	"/ 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	2334	"/ 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	2335	"/ "
acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2336	"/ s := aSelectorString.
acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2337	"/ (s includes:$:) ifTrue:[
acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2338	"/ s := s copyTo:(s indexOf:$:)
acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2339	"/ ].
acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2340	"/ browser autoSearch:s
acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2341	browser autoSearchSelector:aSelectorString ignoreCase:ignoreCase doMatch:true.
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2342	].
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2343	^ browser
648 6ec086b7972c Move method's literals form literalArray to indexed instvars. Stefan Vogel <sv@exept.de> parents: 634 diff changeset	2344
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2345	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2346	SystemBrowser
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2347	browseAllCallsOn:#+
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2348	in:(Number withAllSubclasses)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2349	title:'just a test'
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2350	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2351
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2352	"Modified: 24.1.1997 / 19:48:54 / cg"
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2353	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2354
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2355	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	2356	"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	2357
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2358	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2359	browseAllCallsOn:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2360	in:aCollectionOfClasses
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2361	ignoreCase:false
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2362	title:title
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2363
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2364	"
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2365	SystemBrowser
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2366	browseAllCallsOn:#+
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2367	in:(Number withAllSubclasses)
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2368	title:'just a test'
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2369	"
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2370
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2371	"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	2372	!
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2373
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2374	browseCallsOn:aSelectorString under:aClass
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2375	"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	2376
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2377	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2378	browseAllCallsOn:aSelectorString
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2379	in:(aClass withAllSubclasses)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2380	title:(self classResources
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	2381	string:'Senders of: %1 (in and below %2)'
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2382	with:aSelectorString
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2383	with:aClass name)
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2384
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2385	"
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2386	SystemBrowser browseCallsOn:#+ under:Number
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2387	"
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2388
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2389	"Created: 9.12.1995 / 17:59:57 / cg"
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2390	"Modified: 24.1.1997 / 19:50:33 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2391	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2392
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2393	browseClassRefsTo:aString in:aCollectionOfClasses modificationsOnly:modsOnly
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2394	"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	2395	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	2396	classvar is modified"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2397
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2398	^ self browseRefsTo:aString classVars:true in:aCollectionOfClasses modificationsOnly:modsOnly
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2399	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2400
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2401	browseClassRefsTo:varName in:aCollectionOfClasses modificationsOnly:modsOnly title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2402	"launch a browser for all methods in aCollectionOfClasses,
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2403	where the classVar named aString is referenced;
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2404	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	2405
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2406	^ self browseRefsTo:varName classVars:true in:aCollectionOfClasses modificationsOnly:modsOnly title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2407	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2408
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2409	browseClassRefsTo:aString under:aClass modificationsOnly:modsOnly
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2410	"launch a browser for all methods in aClass and subclasses
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2411	where the classVar named aString is referenced;
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2412	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	2413
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2414	^ self browseClassRefsTo:aString in:(aClass withAllSubclasses) modificationsOnly:modsOnly
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2415
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2416	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2417
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2418	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	2419	"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	2420	resource in aCollectionOfClasses.
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2421	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	2422	are parsed.
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2423	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	2424	browseForResource:#style containing:nil in:... title:...
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2425	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	2426	browseForResource:#style containing:'arrowButtonDownForm' in:... title:..."
573 e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2427
742 2ef5e22d8983 code cleanup (unused vars eliminated) Claus Gittinger <cg@exept.de> parents: 675 diff changeset	2428	\|browser searchBlock\|
573 e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2429
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2430	"/ search for any resource can be done without looking
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2431	"/ at the source ...
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2432	(aResourceSymbol isNil and:[item isNil]) ifTrue:[
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2433	searchBlock := [:class :method :s \| method hasResource]
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2434	] ifFalse:[
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2435	searchBlock := [:class :method :s \|
1573 4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2436	\|rsrc val found\|
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2437
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2438	found := false.
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2439	method hasResource ifTrue:[
1573 4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2440	rsrc := method resources.
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2441	rsrc notNil ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2442	aResourceSymbol isNil ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2443	item isNil ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2444	found := true
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2445	] ifFalse:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2446	rsrc isCollection ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2447	rsrc keysAndValuesDo:[:rsrc :val \|
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2448	val isCollection ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2449	val do:[:v \|
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2450	found := item match:v printString
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2451	]
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2452	] ifFalse:[
1573 4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2453	found := item match:val printString
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2454	]
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2455	]
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2456	] ifFalse:[
1573 4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2457	found := item match:rsrc printString
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2458	]
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2459	]
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2460	] ifFalse:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2461	(rsrc includesKey:aResourceSymbol) ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2462	item isNil ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2463	found := true
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2464	] ifFalse:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2465	rsrc isCollection ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2466	val := rsrc at:aResourceSymbol.
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2467	val isCollection ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2468	val do:[:v \|
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2469	found := item match:v printString
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2470	]
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2471	] ifFalse:[
1573 4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2472	found := item match:val printString
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2473	]
1573 4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2474	] ifFalse:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2475	found := item match:rsrc printString
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2476	]
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2477	]
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2478	]
573 e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2479	]
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2480	].
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2481	].
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2482	found
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2483	].
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2484	].
573 e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2485
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2486	browser := self browseMethodsIn:aCollectionOfClasses
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2487	where:searchBlock
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2488	title:title.
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2489	browser notNil ifTrue:[
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2490	browser autoSearch:'resource:'
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2491	].
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2492	^ browser
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2493
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2494	"
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2495	SystemBrowser
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2496	browseForResource:nil
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2497	in:Smalltalk allClasses
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2498	title:'methods with a resource'
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2499	"
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2500	"
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2501	SystemBrowser
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2502	browseForResource:#style
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2503	containing:nil
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2504	in:Smalltalk allClasses
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2505	title:'methods with a #style resource'
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2506	"
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2507	"
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2508	SystemBrowser
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2509	browseForResource:#style
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2510	containing:'arrowButton*'
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2511	in:Smalltalk allClasses
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2512	title:'methods with a #style resource'
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2513	"
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2514
1573 4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2515	"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	2516	!
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2517
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2518	browseForResource:aResourceSymbol in:aCollectionOfClasses title:title
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2519	"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	2520	resource in aCollectionOfClasses"
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2521
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2522	^ self
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2523	browseForResource:aResourceSymbol
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2524	containing:nil
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2525	in:aCollectionOfClasses
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2526	title:title
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2527
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2528	"
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2529	SystemBrowser
573 e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2530	browseForResource:#style
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2531	in:Smalltalk allClasses
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2532	title:'methods accessing styleSheet values'
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2533	"
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	SystemBrowser
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2536	browseForResource:#keyboard
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2537	in:Smalltalk allClasses
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2538	title:'methods handling keyboard events'
573 e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2539	"
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2540	"
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2541	SystemBrowser
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2542	browseForResource:nil
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2543	in:Smalltalk allClasses
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2544	title:'methods with a resource'
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2545	"
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2546
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2547	"Modified: 9.1.1997 / 12:44:38 / cg"
573 e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2548	!
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2549
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2550	browseForString:aString
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2551	"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	2552	This may be slow, since source-code has to be scanned."
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2553
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2554	^ self browseForString:aString in:(Smalltalk allClasses) ignoreCase:false
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2555
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2556	"Modified: / 18.6.1998 / 16:42:39 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2557	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2558
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2559	browseForString:aString in:aCollectionOfClasses
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2560	"launch a browser for all methods in aCollectionOfClasses
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2561	containing a string in their source.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2562	This may be slow, since source-code has to be scanned."
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2563
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2564	^ self
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2565	browseForString:aString
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2566	in:aCollectionOfClasses
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2567	ignoreCase:false
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2568
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2569	"
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2570	SystemBrowser browseForString:'all' in:(Array with:Object)
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2571	SystemBrowser browseForString:'should' in:(Array with:Object)
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2572	SystemBrowser browseForString:'[eE]rror' in:(Array with:Object)
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2573	"
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2574
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2575	"Created: / 9.12.1995 / 18:03:12 / cg"
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2576	"Modified: / 18.6.1998 / 16:43:27 / cg"
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2577	!
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2578
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2579	browseForString:aString in:aCollectionOfClasses ignoreCase:ignoreCase
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2580	"launch a browser for all methods in aCollectionOfClasses
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2581	containing a string in their source.
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2582	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	2583
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2584	\|browser searchBlock title s\|
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2585
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	2586	title := self classResources string:'Methods containing: %1' with:aString displayString.
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2587
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2588	(aString includesMatchCharacters
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2589	or:[ignoreCase]) ifTrue:[
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2590	s := '' , aString , ''.
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2591	"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	2592	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	2593	\|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	2594	src := m source.
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2595	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	2596	('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	2597	false
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2598	] ifFalse:[
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2599	s match:src ignoreCase:ignoreCase
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2600	]
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	2601	]
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2602	] 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	2603	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	2604	\|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	2605
b14b3ab39af6 dont crash if searching a string in a method which has no accessable source Claus Gittinger <cg@exept.de> parents: 436 diff changeset	2606	src := m source.
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2607	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	2608	('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	2609	false
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2610	] ifFalse:[
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2611	(src findString:aString) ~~ 0
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2612	]
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	2613	]
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2614	].
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2615	browser := self browseMethodsIn:aCollectionOfClasses where:searchBlock title:title.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2616
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2617	browser notNil ifTrue:[
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2618	browser autoSearch:aString ignoreCase:ignoreCase
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2619	].
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2620	^ browser
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2621
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2622	"
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2623	SystemBrowser browseForString:'all' in:(Array with:Object)
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2624	SystemBrowser browseForString:'should' in:(Array with:Object)
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2625	SystemBrowser browseForString:'[eE]rror' in:(Array with:Object)
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2626	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2627
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2628	"Created: / 18.6.1998 / 16:42:50 / cg"
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2629	"Modified: / 18.6.1998 / 16:51:25 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2630	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2631
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2632	browseForSymbol:aSymbol
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2633	"launch a browser for all methods referencing aSymbol"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2634
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2635	^ self
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2636	browseForSymbol:aSymbol
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	2637	title:(self classResources string:'Users of: %1' with:aSymbol)
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2638	warnIfNone:true
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2639
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2640	"Created: 9.12.1995 / 18:04:34 / cg"
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2641	"Modified: 10.7.1996 / 10:35:34 / cg"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2642	!
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2643
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2644	browseForSymbol:aSymbol in:aSetOfClasses title:title warnIfNone:doWarn
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2645	"launch a browser for all methods referencing aSymbol"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2646
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	2647	^ self
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	2648	browseForSymbol:aSymbol
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	2649	in:aSetOfClasses
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	2650	title:title
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	2651	warnIfNone:doWarn
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	2652	searchFor:aSymbol
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2653	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2654
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2655	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	2656	"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	2657
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2658	\|browser searchBlock sym\|
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2659
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2660	(aSymbol includesMatchCharacters) ifTrue:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2661	"a matchString"
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2662	searchBlock := [:c :m :s \|
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2663	(m literalsDetect:[:aLiteral\|
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2664	(aLiteral isMemberOf:Symbol)
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2665	and:[aSymbol match:aLiteral]
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2666	] ifNone:nil) notNil
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2667	].
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2668	] ifFalse:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2669	"
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2670	can do a faster search
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2671	"
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2672	sym := aSymbol asSymbolIfInterned.
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2673	sym isNil ifTrue:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2674	self showNoneFound:title.
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2675	^ nil
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2676	].
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2677
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2678	searchBlock := [:c :m :s \|
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2679	(m literalsDetect:[:aLiteral\|
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2680	(sym == aLiteral)
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2681	] ifNone:nil) notNil
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2682	].
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2683	].
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2684	doWarn ifFalse:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2685	WarningSignal ignoreIn:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2686	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	2687	]
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2688	] ifTrue:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2689	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	2690	].
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2691
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2692	(browser notNil
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2693	and:[searchString notNil]) ifTrue:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2694	browser autoSearch:searchString
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2695	].
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2696	^ browser
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2697
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2698	"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	2699	"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	2700	"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	2701	!
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2702
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2703	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	2704	"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	2705
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2706	\|browser searchBlock sym\|
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2707
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2708	(aSymbol includesMatchCharacters) ifTrue:[
375 a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2709	"a matchString"
a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2710	searchBlock := [:c :m :s \|
2439 2c7133af56df checkin from browser Claus Gittinger <cg@exept.de> parents: 2418 diff changeset	2711	m referencesGlobalMatching:aSymbol
2c7133af56df checkin from browser Claus Gittinger <cg@exept.de> parents: 2418 diff changeset	2712	"/ (m literalsDetect:[:aLiteral\|
2c7133af56df checkin from browser Claus Gittinger <cg@exept.de> parents: 2418 diff changeset	2713	"/ (aLiteral isMemberOf:Symbol)
2c7133af56df checkin from browser Claus Gittinger <cg@exept.de> parents: 2418 diff changeset	2714	"/ and:[aSymbol match:aLiteral]
2c7133af56df checkin from browser Claus Gittinger <cg@exept.de> parents: 2418 diff changeset	2715	"/ ] ifNone:nil) notNil
375 a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2716	].
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2717	] ifFalse:[
375 a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2718	"
a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2719	can do a faster search
a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2720	"
a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2721	sym := aSymbol asSymbolIfInterned.
a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2722	sym isNil ifTrue:[
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2723	actionIfNoneFound value.
375 a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2724	^ nil
a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2725	].
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2726
375 a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2727	searchBlock := [:c :m :s \|
2439 2c7133af56df checkin from browser Claus Gittinger <cg@exept.de> parents: 2418 diff changeset	2728	m referencesGlobal:sym
2c7133af56df checkin from browser Claus Gittinger <cg@exept.de> parents: 2418 diff changeset	2729	"/ (m literalsDetect:[:aLiteral\|
2c7133af56df checkin from browser Claus Gittinger <cg@exept.de> parents: 2418 diff changeset	2730	"/ (sym == aLiteral)
2c7133af56df checkin from browser Claus Gittinger <cg@exept.de> parents: 2418 diff changeset	2731	"/ ] ifNone:nil) notNil
375 a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2732	].
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2733	].
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2734
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2735	WarningSignal ignoreIn:[
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2736	InformationSignal ignoreIn:[
375 a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2737	browser := self browseMethodsWhere:searchBlock title:title.
a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2738	]
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2739	].
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2740	browser isNil ifTrue:[
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2741	actionIfNoneFound value
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	2742	].
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2743
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2744	(browser notNil
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2745	and:[searchString notNil]) ifTrue:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2746	browser autoSearch:searchString
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2747	].
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2748	^ browser
375 a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2749
2439 2c7133af56df checkin from browser Claus Gittinger <cg@exept.de> parents: 2418 diff changeset	2750	"Modified: / 24.6.1996 / 14:39:07 / stefan"
2c7133af56df checkin from browser Claus Gittinger <cg@exept.de> parents: 2418 diff changeset	2751	"Created: / 31.10.1996 / 14:45:08 / cg"
2c7133af56df checkin from browser Claus Gittinger <cg@exept.de> parents: 2418 diff changeset	2752	"Modified: / 9.11.1999 / 17:04:30 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2753	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2754
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2755	browseForSymbol:aSymbol title:title warnIfNone:doWarn
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2756	"launch a browser for all methods referencing aSymbol"
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2757
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2758	^ self
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2759	browseForSymbol:aSymbol
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2760	title:title
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2761	warnIfNone:doWarn
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2762	searchFor:aSymbol
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2763
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2764	"Modified: 31.10.1996 / 14:45:38 / cg"
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2765	!
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2766
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2767	browseForSymbol:aSymbol title:title warnIfNone:doWarn searchFor:searchString
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2768	"launch a browser for all methods referencing aSymbol"
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2769
2414 a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	2770	\|b\|
a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	2771
a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	2772	doWarn ifTrue: [
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2773	b := [self showNoneFound:title]
2414 a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	2774	].
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2775	^ self
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2776	browseForSymbol:aSymbol
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2777	title:title
2414 a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	2778	ifNone:b
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2779	searchFor:searchString
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2780	!
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2781
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2782	browseImplementorsMatching:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2783	"launch a browser for all implementors of aSelector"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2784
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2785	^ self
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2786	browseImplementorsMatching:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2787	in:(Smalltalk allClasses)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2788
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2789	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2790	SystemBrowser browseImplementorsOf:#+
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2791	NewSystemBrowser browseImplementorsOf:#+
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2792	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2793
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2794	"Created: / 9.12.1995 / 18:01:18 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2795	"Modified: / 5.11.2001 / 17:31:11 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2796	!
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2797
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2798	browseImplementorsMatching:aSelectorString in:aSetOfClasses
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2799	"launch a browser for all implementors of aSelector"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2800
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2801	^ self
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2802	browseImplementorsMatching:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2803	in:aSetOfClasses
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2804	title:(self classResources string:'implementors of: %1' with:aSelectorString)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2805
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2806	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2807	SystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2808	NewSystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2809	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2810
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2811	"Created: / 10.7.1996 / 10:20:59 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2812	"Modified: / 5.11.2001 / 17:30:57 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2813	!
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2814
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2815	browseImplementorsMatching:aSelectorString in:aSetOfClasses ignoreCase:ignoreCase
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2816	"launch a browser for all implementors of aSelector"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2817
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2818	^ self
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2819	browseImplementorsMatching:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2820	in:aSetOfClasses
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2821	ignoreCase:ignoreCase
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2822	title:(self classResources string:'implementors of: %1' with:aSelectorString)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2823
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2824	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2825	SystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2826	NewSystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2827	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2828
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2829	"Created: / 10.7.1996 / 10:20:59 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2830	"Modified: / 5.11.2001 / 17:30:43 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2831	!
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2832
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2833	browseImplementorsMatching:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase title:title
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2834	"launch a browser for all implementors of aSelector in
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2835	the classes contained in aCollectionOfClasses and its metaclasses"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2836
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2837	\|list\|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2838
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2839	list := self
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2840	findImplementorsMatching:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2841	in:aCollectionOfClasses
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2842	ignoreCase:ignoreCase.
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	list size == 0 ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2845	self showNoneFound:title.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2846	^ nil
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	^ self browseMethods:list asOrderedCollection title:title
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2850
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	SystemBrowser browseImplementorsOf:#+
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2853	in:(Array with:Number
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2854	with:Float
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2855	with:SmallInteger)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2856	title:'some implementors of +'
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2857
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2858	NewSystemBrowser browseImplementorsOf:#+
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2859	in:(Array with:Number
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2860	with:Float
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2861	with:SmallInteger)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2862	title:'some implementors of +'
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2863	"
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	"Modified: / 4.9.1995 / 17:33:39 / claus"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2866	"Modified: / 19.6.1996 / 14:19:02 / stefan"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2867	"Modified: / 5.11.2001 / 17:30:38 / cg"
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	browseImplementorsMatching:aSelectorString in:aCollectionOfClasses title:title
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2871	"launch a browser for all implementors of aSelector in
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2872	the classes contained in aCollectionOfClasses and its metaclasses"
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	^ self
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2875	browseImplementorsMatching:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2876	in:aCollectionOfClasses
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2877	ignoreCase:false
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2878	title:title
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2879	!
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2880
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2881	browseImplementorsMatching:aSelectorString under:aClass
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2882	"launch a browser for all implementors of aSelector in aClass
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2883	and its subclasses"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2884
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2885	^ self
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2886	browseImplementorsMatching:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2887	in:(aClass withAllSubclasses)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2888	title:(self classResources
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2889	string:'implementors of: %1 (in and below %2)'
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2890	with:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2891	with:aClass name)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2892
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2893	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2894	SystemBrowser browseImplementorsOf:#+ under:Integer
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2895	NewSystemBrowser browseImplementorsOf:#+ under:Integer
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2896	"
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	"Created: / 9.12.1995 / 18:06:09 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2899	"Modified: / 5.11.2001 / 17:30:15 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2900	!
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2901
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2902	browseImplementorsOf:aSelectorString
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2903	"launch a browser for all implementors of aSelector"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2904
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2905	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2906	browseImplementorsOf:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2907	in:(Smalltalk allClasses)
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2908
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2909	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2910	SystemBrowser browseImplementorsOf:#+
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	2911	NewSystemBrowser browseImplementorsOf:#+
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2912	"
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2913
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	2914	"Created: / 9.12.1995 / 18:01:18 / cg"
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	2915	"Modified: / 5.11.2001 / 17:31:11 / cg"
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2916	!
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2917
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2918	browseImplementorsOf:aSelectorString in:aSetOfClasses
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2919	"launch a browser for all implementors of aSelector"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2920
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2921	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2922	browseImplementorsOf:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2923	in:aSetOfClasses
8704 f5b8ba75a158 some code cleanup Claus Gittinger <cg@exept.de> parents: 8702 diff changeset	2924	title:(self classResources string:'Implementors of: %1' with:aSelectorString allBold)
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2925
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2926	"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2927	SystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	2928	NewSystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2929	"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2930
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	2931	"Created: / 10.7.1996 / 10:20:59 / cg"
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	2932	"Modified: / 5.11.2001 / 17:30:57 / cg"
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2933	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2934
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2935	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	2936	"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	2937
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2938	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2939	browseImplementorsOf:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2940	in:aSetOfClasses
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2941	ignoreCase:ignoreCase
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	2942	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	2943
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2944	"
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2945	SystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	2946	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	2947	"
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2948
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	2949	"Created: / 10.7.1996 / 10:20:59 / cg"
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	2950	"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	2951	!
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2952
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2953	browseImplementorsOf:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase title:titleArg
36 ccde5a941840 * empty log message * claus parents: diff changeset	2954	"launch a browser for all implementors of aSelector in
ccde5a941840 * empty log message * claus parents: diff changeset	2955	the classes contained in aCollectionOfClasses and its metaclasses"
ccde5a941840 * empty log message * claus parents: diff changeset	2956
8688 71d973fdd817 * empty log message * Claus Gittinger <cg@exept.de> parents: 8685 diff changeset	2957	\|list list2 rs selWithColon title top20 allSelectors choice\|
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2958
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2959	title := titleArg.
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	2960	list := self
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2961	findImplementorsOf:aSelectorString
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	2962	in:aCollectionOfClasses
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	2963	ignoreCase:ignoreCase.
45 950b84ba89e6 * empty log message * claus parents: 41 diff changeset	2964
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	2965	list size == 0 ifTrue:[
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2966	aSelectorString numArgs == 0 ifTrue:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2967	selWithColon := aSelectorString , ':'.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2968	selWithColon knownAsSymbol ifTrue:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2969	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	2970	].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2971	].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2972	list2 size == 0 ifTrue:[
8678 7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	2973	"/ self showNoneFound:title.
7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	2974	"/ ^ self
8688 71d973fdd817 * empty log message * Claus Gittinger <cg@exept.de> parents: 8685 diff changeset	2975	allSelectors := Set new.
8678 7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	2976	top20 := SortedCollection new.
7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	2977	top20 sortBlock:[:a :b \| (a spellAgainst:aSelectorString) > (b spellAgainst:aSelectorString)].
8759 1ef143757126 * empty log message * Claus Gittinger <cg@exept.de> parents: 8704 diff changeset	2978	Smalltalk allMethodsWithSelectorDo:[:eachMethod :eachSelector \|
1ef143757126 * empty log message * Claus Gittinger <cg@exept.de> parents: 8704 diff changeset	2979	(eachSelector spellAgainst:aSelectorString) > 50 ifTrue:[
1ef143757126 * empty log message * Claus Gittinger <cg@exept.de> parents: 8704 diff changeset	2980	(allSelectors includes:eachSelector) ifFalse:[
1ef143757126 * empty log message * Claus Gittinger <cg@exept.de> parents: 8704 diff changeset	2981	allSelectors add:eachSelector.
1ef143757126 * empty log message * Claus Gittinger <cg@exept.de> parents: 8704 diff changeset	2982	top20 add:eachSelector.
1ef143757126 * empty log message * Claus Gittinger <cg@exept.de> parents: 8704 diff changeset	2983	top20 size > 20 ifTrue:[ top20 removeLast. allSelectors := top20 asSet ].
1ef143757126 * empty log message * Claus Gittinger <cg@exept.de> parents: 8704 diff changeset	2984	]
8678 7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	2985	]
7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	2986	].
9685 629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	2987	top20 isEmpty ifTrue:[
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	2988	\|lcSelector\|
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	2989
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	2990	lcSelector := aSelectorString asLowercase.
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	2991	Smalltalk allMethodsWithSelectorDo:[:eachMethod :eachSelector \|
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	2992	(eachSelector asLowercase spellAgainst:lcSelector) > 50 ifTrue:[
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	2993	(allSelectors includes:eachSelector) ifFalse:[
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	2994	allSelectors add:eachSelector.
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	2995	top20 add:eachSelector.
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	2996	top20 size > 20 ifTrue:[ top20 removeLast. allSelectors := top20 asSet ].
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	2997	]
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	2998	]
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	2999	].
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3000	].
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3001
8678 7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3002	choice := Dialog
8704 f5b8ba75a158 some code cleanup Claus Gittinger <cg@exept.de> parents: 8702 diff changeset	3003	choose:(title,' - none found.\\Browse implementors of a similar selector or cancel:' withCRs)
8678 7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3004	fromList:top20
7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3005	lines:10.
7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3006	choice notEmptyOrNil ifTrue:[
7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3007	self browseImplementorsOf:choice in:aCollectionOfClasses ignoreCase:ignoreCase title:'Implementors of ',choice.
7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3008	].
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3009	^ nil
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3010	].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3011	rs := self classResources.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3012	(Dialog confirm:((rs string:title) ,
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3013	(rs string:'...\\... none found.') ,
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3014	(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	3015	with:list2 size
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3016	with:selWithColon allBold)) withCRs) ifFalse:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3017	^ nil
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3018	].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3019	list := list2.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3020	title := title , ':'.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3021
36 ccde5a941840 * empty log message * claus parents: diff changeset	3022	].
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3023
270 f97a37f5df7a checkin from browser Claus Gittinger <cg@exept.de> parents: 256 diff changeset	3024	^ self browseMethods:list asOrderedCollection title:title
36 ccde5a941840 * empty log message * claus parents: diff changeset	3025
ccde5a941840 * empty log message * claus parents: diff changeset	3026	"
ccde5a941840 * empty log message * claus parents: diff changeset	3027	SystemBrowser browseImplementorsOf:#+
270 f97a37f5df7a checkin from browser Claus Gittinger <cg@exept.de> parents: 256 diff changeset	3028	in:(Array with:Number
f97a37f5df7a checkin from browser Claus Gittinger <cg@exept.de> parents: 256 diff changeset	3029	with:Float
f97a37f5df7a checkin from browser Claus Gittinger <cg@exept.de> parents: 256 diff changeset	3030	with:SmallInteger)
f97a37f5df7a checkin from browser Claus Gittinger <cg@exept.de> parents: 256 diff changeset	3031	title:'some implementors of +'
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3032
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3033	NewSystemBrowser browseImplementorsOf:#+
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3034	in:(Array with:Number
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3035	with:Float
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3036	with:SmallInteger)
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3037	title:'some implementors of +'
36 ccde5a941840 * empty log message * claus parents: diff changeset	3038	"
132 9bf0c15113f2 . claus parents: 118 diff changeset	3039
9685 629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3040	"Modified: / 04-09-1995 / 17:33:39 / claus"
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3041	"Modified: / 19-06-1996 / 14:19:02 / stefan"
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3042	"Modified: / 15-01-2011 / 14:35:56 / cg"
36 ccde5a941840 * empty log message * claus parents: diff changeset	3043	!
ccde5a941840 * empty log message * claus parents: diff changeset	3044
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3045	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	3046	"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	3047	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	3048
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3049	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3050	browseImplementorsOf:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3051	in:aCollectionOfClasses
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3052	ignoreCase:false
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3053	title:title
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3054
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3055	!
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3056
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3057	browseImplementorsOf:aSelectorString under:aClass
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3058	"launch a browser for all implementors of aSelector in aClass
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3059	and its subclasses"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3060
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3061	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3062	browseImplementorsOf:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3063	in:(aClass withAllSubclasses)
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3064	title:(self classResources
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	3065	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	3066	with:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3067	with:aClass name)
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3068
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3069	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3070	SystemBrowser browseImplementorsOf:#+ under:Integer
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3071	NewSystemBrowser browseImplementorsOf:#+ under:Integer
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3072	"
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3073
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3074	"Created: / 9.12.1995 / 18:06:09 / cg"
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3075	"Modified: / 5.11.2001 / 17:30:15 / cg"
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3076	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3077
3663 5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3078	browseImplementorsOfAny:setOfSelectors
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3079	"launch a browser for all implementors of aSelector"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3080
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3081	^ self
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3082	browseImplementorsOfAny:setOfSelectors
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3083	in:(Smalltalk allClasses)
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3084
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3085	"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3086	SystemBrowser browseImplementorsOfAny:#( #+ #- )
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3087	NewSystemBrowser browseImplementorsOfAny:#( #+ #- )
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3088	"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3089
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3090	"Created: / 9.12.1995 / 18:01:18 / cg"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3091	"Modified: / 5.11.2001 / 17:31:11 / cg"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3092	!
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3093
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3094	browseImplementorsOfAny:setOfSelectors in:aSetOfClasses
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3095	"launch a browser for all implementors of aSelector"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3096
8047 8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3097	\|title\|
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3098
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3099	setOfSelectors size == 1 ifTrue:[
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3100	title := self classResources
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3101	string:'Implementors of %1'
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3102	with:(setOfSelectors asOrderedCollection first).
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3103	] ifFalse:[
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3104	setOfSelectors size == 2 ifTrue:[
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3105	title := self classResources
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3106	string:'Implementors of %1 or %2'
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3107	with:(setOfSelectors asOrderedCollection first)
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3108	with:(setOfSelectors asOrderedCollection second).
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3109	] ifFalse:[
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3110	title := self classResources string:'Implementors of some'.
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3111	].
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3112	].
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3113
3663 5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3114	^ self
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3115	browseImplementorsOfAny:setOfSelectors
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3116	in:aSetOfClasses
8047 8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3117	title:title
3663 5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3118
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3119	"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3120	SystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3121	NewSystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3122	"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3123
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3124	"Created: / 10.7.1996 / 10:20:59 / cg"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3125	"Modified: / 5.11.2001 / 17:30:57 / cg"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3126	!
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3127
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3128	browseImplementorsOfAny:setOfSelectors in:aCollectionOfClasses ignoreCase:ignoreCase title:title
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3129	"launch a browser for all implementors of aSelector in
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3130	the classes contained in aCollectionOfClasses and its metaclasses"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3131
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3132	\|list\|
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3133
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3134	list := self
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3135	findImplementorsOfAny:setOfSelectors
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3136	in:aCollectionOfClasses
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3137	ignoreCase:ignoreCase.
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3138
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3139	list size == 0 ifTrue:[
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3140	self showNoneFound:title.
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3141	^ nil
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3142	].
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3143
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3144	^ self browseMethods:list asOrderedCollection title:title
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3145
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3146	"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3147	SystemBrowser browseImplementorsOf:#+
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3148	in:(Array with:Number
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3149	with:Float
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3150	with:SmallInteger)
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3151	title:'some implementors of +'
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3152
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3153	NewSystemBrowser browseImplementorsOf:#+
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3154	in:(Array with:Number
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3155	with:Float
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3156	with:SmallInteger)
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3157	title:'some implementors of +'
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3158	"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3159
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3160	"Modified: / 4.9.1995 / 17:33:39 / claus"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3161	"Modified: / 19.6.1996 / 14:19:02 / stefan"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3162	"Modified: / 5.11.2001 / 17:30:38 / cg"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3163	!
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3164
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3165	browseImplementorsOfAny:setOfSelectors in:aCollectionOfClasses title:title
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3166	"launch a browser for all implementors of aSelector in
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3167	the classes contained in aCollectionOfClasses and its metaclasses"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3168
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3169	^ self
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3170	browseImplementorsOfAny:setOfSelectors
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3171	in:aCollectionOfClasses
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3172	ignoreCase:false
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3173	title:title
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3174	!
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3175
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3176	browseInstRefsTo:aString in:aCollectionOfClasses modificationsOnly:modsOnly
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3177	"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	3178	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	3179	instvar is modified"
45 950b84ba89e6 * empty log message * claus parents: 41 diff changeset	3180
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3181	^ self browseRefsTo:aString classVars:false in:aCollectionOfClasses modificationsOnly:modsOnly
36 ccde5a941840 * empty log message * claus parents: diff changeset	3182	!
ccde5a941840 * empty log message * claus parents: diff changeset	3183
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3184	browseInstRefsTo:varName in:aCollectionOfClasses modificationsOnly:modsOnly title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3185	"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	3186	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	3187	instvar is modified"
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3188
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3189	^ self browseRefsTo:varName classVars:false in:aCollectionOfClasses modificationsOnly:modsOnly title:title
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3190	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3191
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3192	browseInstRefsTo:aString under:aClass modificationsOnly:modsOnly
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3193	"launch a browser for all methods in aClass and subclasses
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3194	where the instVar named aString is referenced;
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3195	if modsOnly is true, browse only methods where the instvar is modified"
36 ccde5a941840 * empty log message * claus parents: diff changeset	3196
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3197	^ self browseInstRefsTo:aString in:(aClass withAllSubclasses) modificationsOnly:modsOnly
36 ccde5a941840 * empty log message * claus parents: diff changeset	3198	!
ccde5a941840 * empty log message * claus parents: diff changeset	3199
ccde5a941840 * empty log message * claus parents: diff changeset	3200	browseReferendsOf:aGlobalName
ccde5a941840 * empty log message * claus parents: diff changeset	3201	"launch a browser for all methods referencing a global
1367 80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3202	named aGlobalName. The argument may be a symbol, a string or
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3203	a matchPattern.
36 ccde5a941840 * empty log message * claus parents: diff changeset	3204	"
ccde5a941840 * empty log message * claus parents: diff changeset	3205
ccde5a941840 * empty log message * claus parents: diff changeset	3206	^ self browseReferendsOf:aGlobalName warnIfNone:true
ccde5a941840 * empty log message * claus parents: diff changeset	3207
ccde5a941840 * empty log message * claus parents: diff changeset	3208	"
ccde5a941840 * empty log message * claus parents: diff changeset	3209	Browser browseReferendsOf:#Transcript
1367 80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3210	Browser browseReferendsOf:'Tr*'
36 ccde5a941840 * empty log message * claus parents: diff changeset	3211	"
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	3212
1367 80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3213	"Modified: / 30.10.1997 / 23:45:52 / cg"
36 ccde5a941840 * empty log message * claus parents: diff changeset	3214	!
ccde5a941840 * empty log message * claus parents: diff changeset	3215
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3216	browseReferendsOf:aGlobalName ifNone:actionIfNone
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3217	"launch a browser for all methods referencing a global
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3218	named aGlobalName.
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3219	"
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3220
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3221	^ self
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3222	browseReferendsOf:aGlobalName
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	3223	title:(self classResources string:'Users of: %1' with:aGlobalName)
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3224	ifNone:actionIfNone
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3225
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3226	"Modified: / 31.10.1997 / 15:42:05 / cg"
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3227	!
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3228
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3229	browseReferendsOf:aGlobalName in:aSetOfClasses
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3230	"launch a browser for all methods referencing a global
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3231	named aGlobalName.
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3232	"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3233
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3234	^ self browseReferendsOf:aGlobalName in:aSetOfClasses warnIfNone:true
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3235
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3236	"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3237	Browser browseReferendsOf:#Transcript
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3238	"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3239
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3240	"Created: 10.7.1996 / 10:37:30 / cg"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3241	!
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3242
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3243	browseReferendsOf:aGlobalName in:aSetOfClasses warnIfNone:doWarn
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3244	"launch a browser for all methods referencing a global
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3245	named aGlobalName.
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3246	"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3247
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3248	\|globalsPlainName idx\|
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3249
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3250	globalsPlainName := aGlobalName.
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3251	(idx := globalsPlainName lastIndexOf:$:) ~~ 0 ifTrue:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3252	globalsPlainName := globalsPlainName copyFrom:idx+1
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3253	].
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3254
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3255	^ self browseForSymbol:aGlobalName
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3256	in:aSetOfClasses
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	3257	title:(self classResources string:'Users of: %1' with:aGlobalName)
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3258	warnIfNone:doWarn
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3259	searchFor:globalsPlainName
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3260
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3261	"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	3262	"Modified: 31.10.1996 / 14:56:38 / cg"
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3263	!
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3264
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3265	browseReferendsOf:aGlobalName title:title ifNone:actionIfNone
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3266	"launch a browser for all methods referencing a global named aGlobalName."
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3267
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3268	\|searchBlock browser\|
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3269
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3270	searchBlock := self searchBlockForReferendsOf:aGlobalName.
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3271	browser := self
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3272	browseMethodsWhere:searchBlock
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3273	title:title
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3274	ifNone:[
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3275	actionIfNone value.
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3276	^ nil
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3277	].
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3278
2828 6e54ebb9b75e * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	3279	browser isNil ifTrue:[
6e54ebb9b75e * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	3280	actionIfNone value
6e54ebb9b75e * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	3281	] ifFalse:[
9010 fa5c1fef4aef changed: #browseReferendsOf:title:ifNone: Claus Gittinger <cg@exept.de> parents: 9007 diff changeset	3282	browser autoSearchVariable:aGlobalName.
2828 6e54ebb9b75e * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	3283	].
6e54ebb9b75e * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	3284	^ browser
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3285
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3286	"
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3287	Tools::NewSystemBrowser browseReferendsOf:'SortedCollection' title:'foo' ifNone:[ self halt ]
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3288	"
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3289	!
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3290
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3291	browseReferendsOf:aGlobalName title:title warnIfNone:doWarn
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3292	"launch a browser for all methods referencing a global
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3293	named aGlobalName.
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3294	"
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3295
2414 a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	3296	\|b\|
a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	3297
a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	3298	doWarn ifTrue: [
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3299	b := [self showNoneFound:title]
2414 a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	3300	].
a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	3301
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3302	^ self
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3303	browseReferendsOf:aGlobalName
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3304	title:title
2414 a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	3305	ifNone:b
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3306
1367 80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3307	!
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3308
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3309	browseReferendsOf:aGlobalName warnIfNone:doWarn
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3310	"launch a browser for all methods referencing a global
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3311	named aGlobalName.
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3312	"
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3313
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3314	^ self
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3315	browseReferendsOf:aGlobalName
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	3316	title:(self classResources string:'Users of: %1' with:aGlobalName)
1367 80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3317	warnIfNone:doWarn
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3318
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3319	"Modified: / 31.10.1997 / 15:42:05 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3320	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3321
4198 de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3322	browseReferendsOfUnboundGlobalsWithTitle:title ifNone:actionIfNone
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3323	"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	3324	"
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3325
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3326	\|globalsPlainName searchBlock browser\|
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3327
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3328	searchBlock := [:cls :mthd :sel \|
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3329
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3330	\|mSource globals potentialNames\|
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3331
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3332	"/ 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	3333	mthd isLazyMethod ifTrue:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3334	mSource := mthd source.
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3335	mSource notNil ifTrue:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3336	globals := mthd usedGlobals.
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3337	].
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3338	] ifFalse:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3339	"/ try hard to avoid the usedGlobals - its expensive
6640 326360e94271 * empty log message * Claus Gittinger <cg@exept.de> parents: 6581 diff changeset	3340	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	3341	potentialNames notEmpty ifTrue:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3342	potentialNames := potentialNames select:[:lit \| (Smalltalk at:lit) isNil].
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3343	potentialNames notEmpty ifTrue:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3344	globals := mthd usedGlobals.
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3345	]
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3346	]
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3347	].
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3348	globals notNil ifTrue:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3349	globals contains:[:aGlobalKey \| (Smalltalk at:aGlobalKey asSymbol) isNil].
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3350	] ifFalse:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3351	false
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3352	]
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3353	].
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3354
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3355	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	3356	browser isNil ifTrue:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3357	actionIfNone value
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3358	] ifFalse:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3359	browser autoSearch:globalsPlainName
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3360	].
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3361	^ browser
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3362	!
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3363
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3364	browseReferendsOfUnboundGlobalsWithTitle:title warnIfNone:doWarn
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3365	"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	3366	"
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3367
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3368	\|b\|
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3369
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3370	doWarn ifTrue: [
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3371	b := [self showNoneFound:title]
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3372	].
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3373
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3374	^ self
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3375	browseReferendsOfUnboundGlobalsWithTitle:title
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3376	ifNone:b
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3377	!
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3378
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3379	browseRefsTo:aString classVars:classVars in:aCollectionOfClasses modificationsOnly:modsOnly
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3380	"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	3381	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	3382	instvar is modified"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3383
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3384	\|title\|
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3385
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3386	modsOnly ifTrue:[
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	3387	title := 'Modifications of: %1'
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3388	] ifFalse:[
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	3389	title := 'References to: %1 '
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3390	].
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3391	^ self
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3392	browseRefsTo:aString
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3393	classVars:classVars
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3394	in:aCollectionOfClasses
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3395	modificationsOnly:modsOnly
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3396	title:(self classResources string:title with:aString)
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3397
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3398	"Created: 9.12.1995 / 18:07:05 / cg"
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3399	"Modified: 9.12.1995 / 18:11:49 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3400	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3401
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3402	browseRefsTo:varName classVars:classVars in:aCollectionOfClasses modificationsOnly:modsOnly title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3403	"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	3404	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	3405	instvar is modified"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3406
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3407	\|filter browser pattern\|
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3408
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3409	filter := self filterToSearchRefsTo:varName classVars:classVars modificationsOnly:modsOnly.
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3410	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	3411
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3412	browser notNil ifTrue:[
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3413	modsOnly ifTrue:[
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3414	pattern := varName , ' :='
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3415	] ifFalse:[
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3416	pattern := varName
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3417	].
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3418	browser autoSearch:pattern
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3419	].
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3420	^ browser
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3421	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3422
3407 7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3423	browseSendersOf:aSelectorString
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3424	"launch a browser for all senders of aSelector"
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3425
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3426	^ self browseAllCallsOn:aSelectorString
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3427
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3428	"
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3429	SystemBrowser browseSendersOf:#+
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3430	UserPreferences current systemBrowserClass browseSendersOf:#+
3407 7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3431	"
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3432
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3433	"Modified: / 10.7.1996 / 10:26:15 / cg"
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3434	"Created: / 13.11.2001 / 13:52:12 / cg"
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3435	!
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3436
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3437	browseSuperCallsIn:aCollectionOfClasses title:title
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3438	"launch a browser for all super sends in aCollectionOfClasses"
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3439
742 2ef5e22d8983 code cleanup (unused vars eliminated) Claus Gittinger <cg@exept.de> parents: 675 diff changeset	3440	\|browser searchBlock\|
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3441
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3442	searchBlock := [:class :method :s \|
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3443	\|src parser\|
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3444
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3445	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	3446	(src notNil and:[src findString:'super']) ~~ 0 ifTrue:[
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3447	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	3448	parseMethod:src
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3449	in:class
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3450	ignoreErrors:true
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3451	ignoreWarnings:true.
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3452
7711 7e8881bccf72 * empty log message * Claus Gittinger <cg@exept.de> parents: 7524 diff changeset	3453	(parser notNil and:[parser ~~ #Error and:[parser usesSuper]])
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3454	] ifFalse:[
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3455	false
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3456	]
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3457	].
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3458
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3459	browser := self browseMethodsIn:aCollectionOfClasses
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3460	where:searchBlock
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3461	title:title.
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3462
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3463	browser notNil ifTrue:[
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3464	browser autoSearch:'super'
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3465	].
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3466	^ browser
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3467
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3468	"
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3469	SystemBrowser
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3470	browseSuperCallsIn:(Array with:SortedCollection)
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3471	title:'superSends in SortedCollection'
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3472	"
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3473
7711 7e8881bccf72 * empty log message * Claus Gittinger <cg@exept.de> parents: 7524 diff changeset	3474	"Created: / 23-11-1995 / 14:08:55 / cg"
7e8881bccf72 * empty log message * Claus Gittinger <cg@exept.de> parents: 7524 diff changeset	3475	"Modified: / 06-03-2007 / 14:00:12 / cg"
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3476	!
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3477
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3478	browseSuperCallsUnder:aClass
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3479	"launch a browser for all supersends in aClass and subclasses"
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3480
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3481	^ self browseSuperCallsIn:(aClass withAllSubclasses)
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	3482	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	3483
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3484	"
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3485	SystemBrowser browseSuperCallsUnder:Number
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3486	"
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3487
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3488	"Created: 23.11.1995 / 12:06:06 / cg"
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3489	"Modified: 9.12.1995 / 18:11:59 / cg"
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3490	!
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3491
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3492	browseUsesOf:aClass
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3493	\|dict owners offsets
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3494	sz "{ Class: SmallInteger }"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3495	n "{ Class: SmallInteger }"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3496	removeSet newDict\|
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3497
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3498	owners := ObjectMemory whoReferencesInstancesOf:aClass.
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3499
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3500	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3501	collect set of offsets in dict; key is class
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3502	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3503	dict := IdentityDictionary new.
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3504	owners do:[:someObject \|
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3505	\|cls create\|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3506
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3507	someObject isContext ifFalse:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3508	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3509	someObject refers to an instance of aClass;
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3510	find out, which instVar(s)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3511	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3512	cls := someObject class.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3513	cls ~~ Array ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3514	n := cls instSize.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3515	create := [\|s\| s := Set new. dict at:cls put:s. s].
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3516
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3517	1 to:n do:[:i \|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3518	\|ref\|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3519
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3520	ref := someObject instVarAt:i.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3521	(ref isMemberOf:aClass) ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3522	offsets := dict at:cls ifAbsent:create.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3523	offsets add:i.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3524	]
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3525	].
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3526	cls isVariable ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3527	cls isPointers ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3528	\| idx "{ Class: SmallInteger }" \|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3529
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3530	sz := someObject basicSize.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3531	idx := 1.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3532	[idx <= sz] whileTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3533	\|ref\|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3534
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3535	ref := someObject basicAt:idx.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3536	(ref isMemberOf:aClass) ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3537	offsets := dict at:cls ifAbsent:create.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3538	offsets add:0.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3539	idx := sz
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3540	].
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3541	idx := idx + 1
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3542	]
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3543	]
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3544	]
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3545	]
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3546	]
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3547	].
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3548
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3549	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3550	merge with superclass refs
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3551	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3552	dict keysAndValuesDo:[:cls :set \|
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3553	cls allSuperclasses do:[:aSuperclass \|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3554	\|superSet\|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3555
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3556	superSet := dict at:aSuperclass ifAbsent:[].
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3557	superSet notNil ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3558	\|removeSet\|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3559
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3560	superSet := dict at:aSuperclass.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3561	removeSet := Set new.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3562	set do:[:offset \|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3563	(superSet includes:offset) ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3564	removeSet add:offset
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3565	]
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3566	].
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3567	set removeAll:removeSet
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3568	]
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3569	]
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3570	].
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3571
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3572	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3573	remove empty ones
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3574	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3575	removeSet := Set new.
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3576	dict keysAndValuesDo:[:cls :set \|
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3577	set isEmpty ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3578	removeSet add:cls
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3579	]
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3580	].
9334 ed9742f1a717 changed: #browseUsesOf: Claus Gittinger <cg@exept.de> parents: 9313 diff changeset	3581	dict removeAllKeys:removeSet.
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3582
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3583	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3584	replace the indices by real names
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3585	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3586	newDict := IdentityDictionary new.
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3587	dict keysAndValuesDo:[:cls :set \|
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3588	\|newSet names\|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3589
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3590	names := cls allInstVarNames.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3591	newSet := set collect:[:index \|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3592	index == 0 ifTrue:['indexed'] ifFalse:[names at:index].
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3593	].
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3594	newDict at:cls put:newSet
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3595	].
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3596
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3597	newDict inspect
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3598	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3599
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3600	filterToSearchRefsTo:varName classVars:classVars access:accessType
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3601	"return a searchblock for variable references (obsolete)"
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3602
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3603	^ self
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3604	filterToSearchRefsTo:varName
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3605	instVars:(classVars not)
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3606	classVars:classVars
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3607	globals:false
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3608	access:accessType
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3609	!
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3610
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3611	filterToSearchRefsTo:varName classVars:classVars modificationsOnly:modsOnly
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3612	"return a searchblock for variable references"
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3613
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3614	^ self
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3615	filterToSearchRefsTo:varName
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3616	classVars:classVars
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3617	access:(modsOnly ifTrue:#write ifFalse:#readWrite)
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3618	!
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3619
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3620	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	3621	"return a searchblock for variable references"
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3622
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3623	\|searchBlock\|
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3624
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3625	searchBlock := [:c :m :s \|
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3626	\|src result parser vars instVars classVars globals needMatch\|
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3627
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3628	needMatch := varName includesMatchCharacters.
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3629
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3630	result := false.
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3631
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3632	src := m source.
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3633	src notNil ifTrue:[
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3634	needMatch ifFalse:[
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3635	"
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3636	before doing a slow parse, quickly scan the
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3637	methods source for the variables name ...
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3638	"
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3639	(varName includes:$:) ifTrue:[
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3640	result := (src findString:(varName copyFrom:(varName lastIndexOf:$:)+1)) ~~ 0.
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3641	] ifFalse:[
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3642	result := (src findString:varName) ~~ 0.
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3643	].
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3644	] ifTrue:[
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3645	result := true.
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3646	].
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3647	result ifTrue:[
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3648	result := false.
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3649	parser := Parser
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3650	parseMethod:src
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3651	in:c
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3652	ignoreErrors:true
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3653	ignoreWarnings:true.
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3654
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3655	(parser notNil and:[parser ~~ #Error]) ifTrue:[
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3656	vars := Set new.
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3657	doInstVars ifTrue:[
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3658	accessType == #read ifTrue:[
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3659	instVars := parser readInstVars
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3660	] ifFalse:[
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3661	accessType == #write ifTrue:[
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3662	instVars := parser modifiedInstVars
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3663	] ifFalse:[
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3664	instVars := parser usedInstVars
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3665	]
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3666	].
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3667	vars addAll:instVars.
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3668	].
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3669	doClassVars ifTrue:[
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3670	accessType == #read ifTrue:[
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3671	classVars := parser readClassVars
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3672	] ifFalse:[
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3673	accessType == #write ifTrue:[
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3674	classVars := parser modifiedClassVars
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3675	] ifFalse:[
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3676	classVars := parser usedClassVars
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3677	]
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3678	].
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3679	vars addAll:classVars.
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3680	].
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3681	doGlobals ifTrue:[
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3682	accessType == #read ifTrue:[
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3683	globals := parser readGlobals
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3684	] ifFalse:[
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3685	accessType == #write ifTrue:[
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3686	globals := parser modifiedGlobals
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3687	] ifFalse:[
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3688	globals := parser usedGlobals
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3689	]
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3690	].
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3691	vars addAll:globals.
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3692	].
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3693	vars size > 0 ifTrue:[
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3694	needMatch ifTrue:[
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3695	result := vars contains:[:cv \| (varName match:cv)]
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3696	] ifFalse:[
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3697	result := vars includes:varName
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3698	]
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3699	]
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3700	].
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3701	].
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3702	].
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3703	Processor yield.
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3704	result
36 ccde5a941840 * empty log message * claus parents: diff changeset	3705	].
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3706	^ searchBlock
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3707
1190 d265f77ecbc8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1143 diff changeset	3708	"Modified: 19.6.1997 / 18:27:57 / cg"
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	3709	!
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	3710
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3711	findAnyResourceIn:aCollectionOfClasses
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3712	"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	3713
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3714	^ 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	3715
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3716	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3717	SystemBrowser findAnyResourceIn:(ApplicationModel withAllSubclasses)
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3718	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3719	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3720
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3721	findClassRefsTo:aString in:aCollectionOfClasses access:accessType
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3722	"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	3723	aString is referenced;
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3724	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	3725
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3726	^ 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	3727	!
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3728
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3729	findClassRefsTo:aString in:aCollectionOfClasses modificationsOnly:modsOnly
2728 5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3730	"return all methods in aCollectionOfClasses where the classVar named
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3731	aString is referenced;
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3732	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	3733
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3734	^ self findRefsTo:aString classVars:true in:aCollectionOfClasses modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3735	!
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3736
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3737	findClassRefsTo:aString inClass:aClass access:accessType
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3738	"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	3739	aString is referenced;
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3740	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	3741
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3742	^ 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	3743	!
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3744
2728 5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3745	findClassRefsTo:aString inClass:aClass modificationsOnly:modsOnly
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3746	"return all methods in aClass where the classVar named
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3747	aString is referenced;
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3748	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	3749
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3750	^ self findRefsTo:aString classVars:true in:(Array with:aClass) modificationsOnly:modsOnly
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3751	!
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3752
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3753	findClassRefsTo:aString under:aClass access:accessType
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3754	"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	3755	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	3756	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	3757
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3758	^ 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	3759	!
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3760
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3761	findClassRefsTo:aString under:aClass modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3762	"return all methods in aClass and subclasses
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3763	where the classVar named aString is referenced;
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3764	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	3765
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3766	^ self findClassRefsTo:aString in:(aClass withAllSubclasses) modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3767
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3768	!
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3769
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	3770	findCode:aCodeString in:aCollectionOfClasses isMethod:isMethod
5243 6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3771	"return a collection of all methods in aCollectionOfClasses
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	3772	containing a matching piece of code.
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	3773	This may be slow, since source-code has to be scanned."
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	3774
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	3775	\|searchBlock\|
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	3776
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	3777	searchBlock := self searchBlockForCode:aCodeString in:aCollectionOfClasses isMethod:isMethod.
5226 35a9709e73ee code search Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	3778	searchBlock isNil ifTrue:[ ^ nil].
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	3779	^ self findMethodsIn:aCollectionOfClasses where:searchBlock.
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	3780
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	3781	"Modified: / 02-05-2011 / 13:25:15 / sr"
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	3782	!
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	3783
5243 6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3784	findCode:aCodeString inMethods:aCollectionOfMethods isMethod:isMethod
6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3785	"return a collection of all methods in aCollectionOfMethods
6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3786	containing a matching piece of code."
6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3787
6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3788	\|searchBlock\|
6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3789
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	3790	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	3791	searchBlock isNil ifTrue:[ ^ nil].
6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3792	^ aCollectionOfMethods select:[:m \| searchBlock value:m mclass value:m value:m selector].
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	3793
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	3794	"Modified: / 02-05-2011 / 13:25:39 / sr"
5243 6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3795	!
6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3796
9482 542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3797	findExceptionHandlersIn:aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3798	"return a collection of all methods in aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3799	containing an exception raiser.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3800	This may be slow, since source-code has to be scanned."
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3801
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3802	^ self findUsingParseTreeSearcher:(ParseTreeSearcher handlesException) in:aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3803
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3804	"Modified: / 11-05-2010 / 16:18:55 / cg"
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3805	!
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3806
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3807	findExceptionHandlersInMethods:aCollectionOfMethods
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3808	"return a collection of all methods in aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3809	containing an exception raiser.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3810	This may be slow, since source-code has to be scanned."
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3811
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3812	^ self findUsingParseTreeSearcher:(ParseTreeSearcher handlesException) inMethods:aCollectionOfMethods
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3813
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3814	"Created: / 11-05-2010 / 16:20:48 / cg"
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3815	!
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3816
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3817	findExceptionRaisersIn:aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3818	"return a collection of all methods in aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3819	containing an exception raiser.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3820	This may be slow, since source-code has to be scanned."
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3821
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3822	^ self findUsingParseTreeSearcher:(ParseTreeSearcher raisesException) in:aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3823
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3824	"Modified: / 11-05-2010 / 16:18:48 / cg"
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3825	!
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3826
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3827	findExceptionRaisersInMethods:aCollectionOfMethods
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3828	"return a collection of all methods in aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3829	containing an exception raiser.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3830	This may be slow, since source-code has to be scanned."
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3831
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3832	^ self findUsingParseTreeSearcher:(ParseTreeSearcher raisesException) inMethods:aCollectionOfMethods
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3833
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3834	"Created: / 11-05-2010 / 16:20:36 / cg"
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3835	!
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3836
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3837	findHelpSpecMethodsWithString:aString in:aCollectionOfClasses ignoreCase:ignoreCase
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	3838	"return a collection of all help-spec methods in aCollectionOfClasses
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	3839	containing a string in their source.
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	3840	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	3841
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3842	^ self
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3843	findSpecMethodsFor:#help
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3844	withString:aString
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3845	in:aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3846	ignoreCase:ignoreCase
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3847	!
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3848
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3849	findHelpSpecMethodsWithString:aString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3850	"return a collection of all help-spec methods in aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3851	containing a string in their source.
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3852	This may be slow, since source-code has to be scanned."
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3853
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3854	^ self
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3855	findSpecMethodsFor:#help
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3856	withString:aString
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3857	in:aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3858	ignoreCase:ignoreCase
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3859	match:doMatch
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	3860	!
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	3861
4152 92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3862	findImplementors:aSelectorMatchString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3863	"search for all implementors of aSelector in
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3864	the classes contained in aCollectionOfClasses and its metaclasses.
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3865	Return a collection of methods"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3866
6776 5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3867	\|list compare testST testJava lcSelector\|
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3868
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3869	list := IdentitySet new.
6051 adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	3870	aSelectorMatchString size == 0 ifTrue:[ ^ list ].
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	3871
4152 92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3872	doMatch ifTrue:[
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3873	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	3874	] ifFalse:[
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3875	compare := [:sel :search \| sel = search].
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3876	].
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3877
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3878	ignoreCase == true ifTrue:[
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3879	lcSelector := aSelectorMatchString asLowercase.
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3880
7847 bc2f06886dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 7827 diff changeset	3881	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	3882	testJava := [:aSelector :aMethod \| (compare value:aSelector value:aMethod name asLowercase) ].
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3883	] ifFalse:[
6776 5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3884	testST := [:aSelector :aMethod \| (compare value:aSelectorMatchString value:aSelector) ].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3885	testJava := [:aSelector :aMethod \| (compare value:aSelectorMatchString value:aMethod name) ].
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3886	].
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3887
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3888	aCollectionOfClasses do:[:aClass \|
6776 5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3889	\|testBlock srchBlock\|
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3890
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3891	aClass isObsolete ifFalse:[
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3892	aClass isJavaClass ifTrue:[
6776 5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3893	testBlock := testJava
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3894	] ifFalse:[
6776 5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3895	testBlock := testST
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3896	].
6776 5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3897	srchBlock := [:sel :mthd \| (testBlock value:sel value:mthd) ifTrue:[ list add:mthd]].
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3898	aClass methodDictionary keysAndValuesDo:srchBlock.
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3899	aClass isMeta ifFalse:[
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3900	aClass class methodDictionary keysAndValuesDo:srchBlock
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3901	]
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3902	]
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3903	].
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3904
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3905	^ list
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3906
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3907	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3908	SystemBrowser findImplementorsOf:#+
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3909	in:(Array with:Number
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3910	with:Float
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3911	with:SmallInteger)
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3912	"
7847 bc2f06886dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 7827 diff changeset	3913
bc2f06886dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 7827 diff changeset	3914	"Modified: / 20-09-2007 / 16:02:10 / cg"
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3915	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3916
6776 5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3917	findImplementors:aSelectorMatchString inMethods:aCollectionOfMethods ignoreCase:ignoreCase match:doMatch
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3918	"search for all implementors of aSelector in
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3919	the classes contained in aCollectionOfClasses and its metaclasses.
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3920	Return a collection of methods"
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3921
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3922	\|list compare testST testJava lcSelector\|
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3923
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3924	list := IdentitySet new.
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3925	aSelectorMatchString size == 0 ifTrue:[ ^ list ].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3926
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3927	doMatch ifTrue:[
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3928	compare := [:sel :search \| sel match:search].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3929	] ifFalse:[
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3930	compare := [:sel :search \| sel = search].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3931	].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3932
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3933	ignoreCase == true ifTrue:[
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3934	lcSelector := aSelectorMatchString asLowercase.
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3935
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3936	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	3937	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	3938	] ifFalse:[
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3939	testST := [:aSelector :aMethod \| (compare value:aSelectorMatchString value:aSelector) ].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3940	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	3941	].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3942
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3943	aCollectionOfMethods do:[:eachMethod \|
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3944	\|cls sel testBlock\|
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3945
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3946	cls := eachMethod mclass.
7066 43640ba63db6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6955 diff changeset	3947	(cls isNil or:[cls isObsolete]) ifFalse:[
6776 5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3948	cls isJavaClass ifTrue:[
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3949	testBlock := testJava
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3950	] ifFalse:[
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3951	testBlock := testST
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3952	].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3953	sel := eachMethod selector.
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3954	(testBlock value:sel value:eachMethod) ifTrue:[
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3955	list add:eachMethod
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3956	].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3957	]
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3958	].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3959
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3960	^ list
7066 43640ba63db6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6955 diff changeset	3961
43640ba63db6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6955 diff changeset	3962	"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	3963	!
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3964
4152 92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3965	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	3966	"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	3967	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	3968	Return a collection of methods"
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3969
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3970	^ self findImplementors:aSelectorMatchString in:aCollectionOfClasses ignoreCase:ignoreCase match:true
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3971
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3972	"
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3973	SystemBrowser findImplementorsOf:#+
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3974	in:(Array with:Number
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3975	with:Float
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3976	with:SmallInteger)
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3977	"
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3978	!
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3979
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3980	findImplementorsMatchingAny:aCollectionOfSelectors in:aCollectionOfClasses ignoreCase:ignoreCase
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3981	"search for all implementors of any in aCollectionOfSelectors in
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3982	the classes contained in aCollectionOfClasses and its metaclasses.
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3983	Return a collection of methods.
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3984	CAVEAT: searches multiple times (could be tuned alot if heavily used)"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3985
6052 e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	3986	^ aCollectionOfSelectors
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	3987	collectAll:[:eachSelector \|
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	3988	self findImplementorsMatching:eachSelector
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	3989	in:aCollectionOfClasses
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	3990	ignoreCase:ignoreCase.
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	3991	].
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	3992
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	3993	"/ \|implementors\|
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	3994	"/
6051 adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	3995	"/ implementors := IdentitySet new.
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	3996	"/ aCollectionOfSelectors do:[:eachSelector \|
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	3997	"/ implementors addAll:(self findImplementorsMatching:eachSelector in:aCollectionOfClasses ignoreCase:ignoreCase).
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	3998	"/ ].
6052 e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	3999	"/ ^ implementors
6051 adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4000
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4001	"
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4002	self
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4003	findImplementorsMatchingAny:#( 'at:' 'size')
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4004	in:(Smalltalk allClasses)
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4005	ignoreCase:true
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4006	"
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4007	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4008
4152 92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4009	findImplementorsOf:aSelectorMatchString in:aCollectionOfClasses ignoreCase:ignoreCase
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4010	"search for all implementors of aSelector in
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4011	the classes contained in aCollectionOfClasses and its metaclasses.
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4012	Return a collection of methods"
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4013
6480 a84b7a241f0a * empty log message * Claus Gittinger <cg@exept.de> parents: 6476 diff changeset	4014	^ self
a84b7a241f0a * empty log message * Claus Gittinger <cg@exept.de> parents: 6476 diff changeset	4015	findImplementors:aSelectorMatchString
a84b7a241f0a * empty log message * Claus Gittinger <cg@exept.de> parents: 6476 diff changeset	4016	in:aCollectionOfClasses
a84b7a241f0a * empty log message * Claus Gittinger <cg@exept.de> parents: 6476 diff changeset	4017	ignoreCase:ignoreCase
a84b7a241f0a * empty log message * Claus Gittinger <cg@exept.de> parents: 6476 diff changeset	4018	match:false
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4019
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4020	"
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4021	SystemBrowser findImplementorsOf:#+
4152 92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4022	in:(Array with:Number
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4023	with:Float
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4024	with:SmallInteger)
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4025	"
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4026	!
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4027
2811 85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4028	findImplementorsOfAny:aCollectionOfSelectors in:aCollectionOfClasses ignoreCase:ignoreCase
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4029	"search for all implementors of any in aCollectionOfSelectors in
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4030	the classes contained in aCollectionOfClasses and its metaclasses.
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4031	Return a collection of methods.
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4032	CAVEAT: searches multiple times (could be tuned alot if heavily used)"
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4033
6052 e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4034	^ aCollectionOfSelectors
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4035	collectAll:[:eachSelector \|
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4036	self findImplementorsOf:eachSelector
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4037	in:aCollectionOfClasses
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4038	ignoreCase:ignoreCase.
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4039	].
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4040
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4041	"/ \|implementors\|
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4042	"/
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4043	"/ implementors := IdentitySet new.
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4044	"/ aCollectionOfSelectors do:[:eachSelector \|
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4045	"/ implementors addAll:(self findImplementorsOf:eachSelector in:aCollectionOfClasses ignoreCase:ignoreCase).
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4046	"/ ].
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4047	"/ ^ implementors
2811 85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4048	!
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4049
2741 aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4050	findInstRefsTo:aString in:aCollectionOfClasses access:accessType
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4051	"return all methods in aCollectionOfClasses where the instVar named
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4052	aString is referenced;
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4053	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	4054
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4055	^ self findRefsTo:aString classVars:false in:aCollectionOfClasses access:accessType
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4056	!
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4057
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4058	findInstRefsTo:aString in:aCollectionOfClasses modificationsOnly:modsOnly
2728 5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4059	"return all methods in aCollectionOfClasses where the instVar named
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4060	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	4061	instvar is modified"
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4062
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4063	^ self findRefsTo:aString classVars:false in:aCollectionOfClasses modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4064	!
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4065
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4066	findInstRefsTo:aString inClass:aClass access:accessType
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4067	"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	4068	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	4069	instvar is modified"
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4070
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4071	^ 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	4072	!
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4073
2728 5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4074	findInstRefsTo:aString inClass:aClass modificationsOnly:modsOnly
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4075	"return all methods in aClass where the instVar named
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4076	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	4077	instvar is modified"
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4078
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4079	^ self findRefsTo:aString classVars:false in:(Array with:aClass) modificationsOnly:modsOnly
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4080	!
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4081
2741 aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4082	findInstRefsTo:aString under:aClass access:accessType
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4083	"return all methods in aClass and subclasses
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4084	where the classVar named aString is referenced;
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4085	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	4086
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4087	^ self findInstRefsTo:aString in:(aClass withAllSubclasses) access:accessType
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4088	!
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4089
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4090	findInstRefsTo:aString under:aClass modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4091	"return all methods in aClass and subclasses
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4092	where the instVar named aString is referenced;
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4093	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	4094
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4095	^ self findInstRefsTo:aString in:(aClass withAllSubclasses) modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4096	!
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4097
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4098	findMenuSpecMethodsWithString:aString in:aCollectionOfClasses ignoreCase:ignoreCase
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4099	"return a collection of all menu-spec methods in aCollectionOfClasses
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4100	containing a string in their source.
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4101	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	4102
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4103	^ self
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4104	findSpecMethodsFor:#menu
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4105	withString:aString
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4106	in:aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4107	ignoreCase:ignoreCase
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4108	!
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4109
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4110	findMenuSpecMethodsWithString:aString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4111	"return a collection of all menu-spec methods in aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4112	containing a string in their source.
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4113	This may be slow, since source-code has to be scanned."
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4114
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4115	^ self
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4116	findSpecMethodsFor:#menu
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4117	withString:aString
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4118	in:aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4119	ignoreCase:ignoreCase
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4120	match:doMatch
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4121	!
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4122
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4123	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	4124	"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	4125	varName is referenced;
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4126	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	4127
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4128	\|filter\|
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4129
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4130	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	4131	^ 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	4132
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4133	"
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4134	self
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4135	findRefsTo:'x'
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4136	classVars:false
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4137	in:(Array with:Point)
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4138	modificationsOnly:true
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4139	"
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4140	!
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4141
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4142	findRefsTo:varName classVars:classVars in:aCollectionOfClasses modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4143	"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	4144	varName is referenced;
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4145	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	4146
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4147	\|filter\|
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4148
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4149	filter := self filterToSearchRefsTo:varName classVars:classVars modificationsOnly:modsOnly.
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4150	^ self findMethodsIn:aCollectionOfClasses inst:true class:classVars where:filter.
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4151
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4152	"
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4153	self
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4154	findRefsTo:'x'
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4155	classVars:false
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4156	in:(Array with:Point)
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4157	modificationsOnly:true
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4158	"
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4159	!
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4160
2692 652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4161	findResource:aResourceSymbolOrCollectionOfSymbols in:aCollectionOfClasses
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4162	"return a collection of all methods in aCollectionOfClasses
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4163	containing a resource."
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4164
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4165	\|searchBlock\|
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4166
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4167	aResourceSymbolOrCollectionOfSymbols isSymbol ifTrue:[
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4168	searchBlock := [:c :m :sel \| \|resources\|
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4169	(resources := m resources) size > 0
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4170	and:[resources includesKey:aResourceSymbolOrCollectionOfSymbols]
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4171	].
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4172	] ifFalse:[
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4173	searchBlock := [:c :m :sel \| \|resources\|
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4174	(resources := m resources) size > 0
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4175	and:[resources keys includesAny:aResourceSymbolOrCollectionOfSymbols]
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4176	].
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4177	].
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4178
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4179	^ self findMethodsIn:aCollectionOfClasses where:searchBlock.
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4180
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4181	"
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4182	SystemBrowser findResource:#image in:(ApplicationModel withAllSubclasses)
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4183	SystemBrowser findResource:#menu in:(ApplicationModel withAllSubclasses)
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4184	SystemBrowser findResource:#(menu programMenu) in:(ApplicationModel withAllSubclasses)
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4185	"
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4186	!
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4187
10188 95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4188	findResource:aStringOrEmpty match:doMatch ignoreCase:ignoreCase in:aCollectionOfClasses
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4189	"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	4190
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4191	\|matchCheck lcSearchString\|
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4192
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4193	aStringOrEmpty isEmptyOrNil ifTrue:[
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4194	matchCheck := [:aResourceName \| true ]
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4195	] ifFalse:[
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4196	doMatch ifTrue:[
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4197	matchCheck := [:aResourceName \| aStringOrEmpty match:aResourceName ignoreCase:ignoreCase]
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4198	] ifFalse:[
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4199	ignoreCase ifTrue:[
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4200	lcSearchString := aStringOrEmpty asLowercase.
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4201	matchCheck := [:aResourceName \| aResourceName asLowercase = lcSearchString]
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4202	] ifFalse:[
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4203	matchCheck := [:aResourceName \| aResourceName = aStringOrEmpty ]
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4204	]
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4205	].
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4206	].
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4207
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4208	^ self
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4209	findMethodsIn:aCollectionOfClasses
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4210	where:[:c :m :sel \|
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4211	m hasResource
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4212	and:[ m resources keys contains:matchCheck ]
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4213	].
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4214
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4215	"
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4216	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	4217	"
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4218
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4219	"Created: / 06-07-2011 / 12:14:24 / cg"
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4220	!
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4221
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4222	findSendersOf:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4223	"search for all senders of aSelector in
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4224	the classes contained in aCollectionOfClasses and its metaclasses.
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4225	Return a collection of methods"
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4226
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4227	^ self allCallsOn:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase match:true
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4228
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4229	"
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4230	SystemBrowser findSendersOf:#+
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4231	in:(Array with:Number
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4232	with:Float
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4233	with:SmallInteger)
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4234	ignoreCase:false
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4235	"
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4236	!
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4237
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4238	findSendersOf:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4239	"search for all senders of aSelector in
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4240	the classes contained in aCollectionOfClasses and its metaclasses.
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4241	Return a collection of methods"
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4242
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4243	^ self allCallsOn:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4244
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4245	"
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4246	SystemBrowser findSendersOf:#+
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4247	in:(Array with:Number
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4248	with:Float
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4249	with:SmallInteger)
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4250	ignoreCase:false
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4251	"
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4252	!
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4253
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4254	findSendersOf:aSelectorString inMethods:aCollectionOfMethods ignoreCase:ignoreCase
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4255	"search for all senders of aSelector in aCollectionOfMethods.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4256	Return a collection of methods"
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4257
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4258	\|searchBlock\|
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4259
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4260	searchBlock := self searchBlockForAllCallsOn:aSelectorString ignoreCase:ignoreCase.
9313 44795fcbf414 changed: #findSendersOf:inMethods:ignoreCase: Claus Gittinger <cg@exept.de> parents: 9312 diff changeset	4261	searchBlock isNil ifTrue:[^ #() ].
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4262	^ 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	4263	!
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4264
4350 0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	4265	findSendersOf:aSelectorString inMethods:aCollectionOfMethods ignoreCase:ignoreCase match:doMatch
0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	4266	"search for all senders of aSelector in aCollectionOfMethods.
0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	4267	Return a collection of methods"
0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	4268
0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	4269	\|searchBlock\|
0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	4270
0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	4271	searchBlock := self searchBlockForAllCallsOn:aSelectorString ignoreCase:ignoreCase match:doMatch.
9312 71f84182390a changed: #findSendersOf:inMethods:ignoreCase:match: Claus Gittinger <cg@exept.de> parents: 9189 diff changeset	4272	searchBlock isNil ifTrue:[^ #() ].
4350 0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	4273	^ 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	4274	!
0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	4275
2811 85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4276	findSendersOfAny:aCollectionOfSelectors in:aCollectionOfClasses ignoreCase:ignoreCase
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4277	"search for all senders of any selector in aCollectionOfSelectors in
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4278	the classes contained in aCollectionOfClasses and its metaclasses.
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4279	Return a collection of methods.
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4280	CAVEAT: searches multiple times (could be tuned alot if heavily used)"
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4281
6052 e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4282	^ aCollectionOfSelectors
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4283	collectAll:[:eachSelector \|
6184 bcb22487bc67 senders of any - duplicates Claus Gittinger <cg@exept.de> parents: 6134 diff changeset	4284	(self allCallsOn:eachSelector
6052 e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4285	in:aCollectionOfClasses
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4286	ignoreCase:ignoreCase
6184 bcb22487bc67 senders of any - duplicates Claus Gittinger <cg@exept.de> parents: 6134 diff changeset	4287	match:false) asSet.
6052 e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4288	].
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4289
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4290	"/ \|allSenders\|
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4291	"/
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4292	"/ allSenders := IdentitySet new.
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4293	"/ aCollectionOfSelectors do:[:eachSelector \|
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4294	"/ allSenders addAll:(self allCallsOn:eachSelector in:aCollectionOfClasses ignoreCase:ignoreCase match:true)
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4295	"/ ].
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4296	"/ ^ allSenders
2811 85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4297
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4298	"
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4299	SystemBrowser findSendersOfAny:#(#'+' #'-')
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4300	in:(Array with:Number
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4301	with:Float
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4302	with:SmallInteger)
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4303	ignoreCase:false
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4304	"
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4305	!
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4306
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4307	findSpecMethodsFor:specSymbol withString:aString in:aCollectionOfClasses ignoreCase:ignoreCase
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4308	"return a collection of all specSymbol-spec methods in aCollectionOfClasses
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4309	containing a string in their source.
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4310	This may be slow, since source-code has to be scanned."
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4311
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4312	self
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4313	findSpecMethodsFor:specSymbol
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4314	withString:aString
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4315	in:aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4316	ignoreCase:ignoreCase
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4317	match:true
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4318	!
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4319
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4320	findSpecMethodsFor:specSymbol withString:aString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4321	"return a collection of all specSymbol-spec methods in aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4322	containing a string in their source.
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4323	This may be slow, since source-code has to be scanned."
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4324
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4325	\|searchBlock innerSearchBlock\|
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4326
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4327	innerSearchBlock := self searchBlockForString:aString ignoreCase:ignoreCase match:doMatch.
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4328
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4329	searchBlock := [:c :m :sel \|
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4330	\|resources\|
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4331
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4332	((resources := m resources) size > 0
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4333	and:[resources includesKey:specSymbol]) ifTrue:[
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4334	innerSearchBlock value:c value:m value:sel
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4335	]
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4336	].
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4337
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4338	^ self findMethodsIn:aCollectionOfClasses where:searchBlock.
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4339	!
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4340
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4341	findString:aString in:aCollectionOfClasses ignoreCase:ignoreCase
5243 6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	4342	"return a collection of all methods in aCollectionOfClasses
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4343	containing a string in their source.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4344	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	4345
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4346	^ self
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4347	findString:aString
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4348	in:aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4349	ignoreCase:ignoreCase
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4350	match:true
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4351
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4352	"
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4353	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	4354	"
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4355	!
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4356
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4357	findString:aString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
5243 6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	4358	"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	4359	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	4360	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	4361
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4362	\|searchBlock\|
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4363
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4364	searchBlock := self searchBlockForString:aString ignoreCase:ignoreCase match:doMatch.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4365	^ self findMethodsIn:aCollectionOfClasses where:searchBlock.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4366
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4367	"
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4368	SystemBrowser findString:'should' in:(Array with:Object) ignoreCase:false
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4369	"
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4370	!
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4371
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4372	findString:aString inMethods:aCollectionOfMethods ignoreCase:ignoreCase match:doMatch
5243 6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	4373	"return a collection of all methods in aCollectionOfClasses
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4374	containing a string in their source.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4375	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	4376
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4377	\|searchBlock\|
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4378
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4379	searchBlock := self searchBlockForString:aString ignoreCase:ignoreCase match:doMatch.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4380	^ 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	4381	!
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4382
5877 c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4383	findStringLiteral:aString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4384	"return a collection of all methods in aCollectionOfClasses
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4385	containing a string in any of their string-literals."
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4386
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4387	\|searchBlock\|
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4388
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4389	searchBlock := self searchBlockForStringLiteral:aString ignoreCase:ignoreCase match:doMatch.
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4390	^ self findMethodsIn:aCollectionOfClasses where:searchBlock.
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4391
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4392	"
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4393	SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:true match:false
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4394	"
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4395	!
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4396
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4397	findStringLiteral:aString inMethods:aCollectionOfMethods ignoreCase:ignoreCase match:doMatch
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4398	"return a collection of all methods in aCollectionOfClasses
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4399	containing a string in any of their string-literals."
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4400
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4401	\|searchBlock\|
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4402
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4403	searchBlock := self searchBlockForStringLiteral:aString ignoreCase:ignoreCase match:doMatch.
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4404	^ 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	4405	!
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4406
9482 542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4407	findUsingParseTreeSearcher:searcher in:aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4408	"return a collection of all methods in aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4409	containing an exception raiser.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4410	This may be slow, since source-code has to be scanned."
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4411
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4412	\|searchBlock\|
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4413
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4414	searchBlock := self searchBlockForParseTreeSearcher:searcher isMethod:false.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4415	searchBlock isNil ifTrue:[ ^ nil].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4416	^ self findMethodsIn:aCollectionOfClasses where:searchBlock.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4417
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4418	"Created: / 11-05-2010 / 16:18:36 / cg"
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4419	!
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4420
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4421	findUsingParseTreeSearcher:searcher inMethods:aCollectionOfMethods
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4422	"return a collection of all methods in aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4423	containing an exception raiser.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4424	This may be slow, since source-code has to be scanned."
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4425
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4426	\|searchBlock\|
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4427
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4428	searchBlock := self searchBlockForParseTreeSearcher:searcher isMethod:false.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4429	searchBlock isNil ifTrue:[ ^ nil].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4430	^ 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	4431
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4432	"Created: / 11-05-2010 / 16:20:12 / cg"
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4433	!
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4434
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4435	searchBlockForAllCallsOn:aSelectorString ignoreCase:ignoreCase
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4436	^ self searchBlockForAllCallsOn:aSelectorString ignoreCase:ignoreCase match:true
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	searchBlockForAllCallsOn:aSelectorString ignoreCase:ignoreCase match:doMatch
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4440	\|sel searchBlock lcString quickMatch\|
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4441
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4442	(doMatch
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4443	and:[(aSelectorString ~= '*')
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4444	and:[(aSelectorString includesMatchCharacters 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	4445	"/ a matchString or ignoreCase - need string matching procedure
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4446
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4447	ignoreCase ifTrue:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4448	lcString := aSelectorString asLowercase.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4449	] ifFalse:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4450	lcString := aSelectorString.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4451	].
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4452
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4453	quickMatch := aSelectorString.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4454	(quickMatch startsWith:'*') ifTrue:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4455	quickMatch := quickMatch copyFrom:2
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4456	].
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4457	(quickMatch endsWith:'*') ifTrue:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4458	quickMatch := quickMatch copyWithoutLast:1
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4459	].
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4460	(quickMatch includes:$:) ifTrue:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4461	quickMatch := quickMatch copyTo:(quickMatch indexOf:$:)-1.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4462	].
8685 b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4463
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4464	(ignoreCase not and:[quickMatch includesMatchCharacters not]) ifTrue:[
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4465	searchBlock := [:class :method :s \|
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4466	\|src inLiterals\|
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4467
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4468	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	4469	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	4470	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	4471	(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	4472	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	4473	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	4474	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	4475	(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	4476	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	4477	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	4478	ifNone:nil) notNil
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4479	]
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4480	] 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	4481	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	4482	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	4483	(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	4484	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	4485	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	4486	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	4487	].
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4488	inLiterals
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4489	and:[ method messagesSent contains:[:anySelector \| aSelectorString match:anySelector ignoreCase:ignoreCase] ]
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4490	].
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4491	] ifFalse:[
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4492	searchBlock := [:class :method :s \|
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4493	\|src inLiterals\|
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4494
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4495	"/ 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	4496	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	4497	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	4498	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	4499	(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	4500	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	4501	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	4502	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	4503	(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	4504	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	4505	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	4506	ifNone:nil) notNil
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4507	]
8685 b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4508	] ifFalse:[
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4509	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	4510	(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	4511	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	4512	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	4513	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	4514	].
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4515	inLiterals
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4516	and:[ method messagesSent contains:[:anySelector \| aSelectorString match:anySelector ignoreCase:ignoreCase] ]
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4517	].
8685 b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4518	].
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4519	] ifFalse:[
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4520	(doMatch and:[aSelectorString = '*']) ifTrue:[
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4521	searchBlock := [:class :method :s \| true].
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4522	] ifFalse:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4523	"/ no matchString - can do it much faster
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4524
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4525	sel := aSelectorString asSymbolIfInterned.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4526	sel isNil ifTrue:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4527	^ nil "/ none
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4528	].
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4529
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4530	quickMatch := sel.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4531	(quickMatch includes:$:) ifTrue:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4532	quickMatch := quickMatch copyTo:(quickMatch indexOf:$:)-1.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4533	].
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4534	searchBlock := [:class :method :s \|
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4535	\|src\|
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4536
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4537	method isLazyMethod ifTrue:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4538	src := method source.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4539	(src notNil and:[src includesString:quickMatch]) ifTrue:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4540	method makeRealMethod.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4541	method sends:sel.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4542	] ifFalse:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4543	false
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4544	]
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4545	] ifFalse:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4546	method sends:sel
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4547	]
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4548	].
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4549	]
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4550	].
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4551	^ searchBlock
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4552	!
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4553
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4554	searchBlockForCode:aCodeString in:aCollectionOfClasses isMethod:isMethod
7395 4aa4c6b9a161 * empty log message * Claus Gittinger <cg@exept.de> parents: 7361 diff changeset	4555	"return a block to search for a piece of code (intelligent search)."
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4556
6581 ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4557	\|errAction searchTree searcher globalVariablesUsed usedSymbols
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4558	sentMessages searchBlock foundMatch numMethodArgs methodSelector nameSpacesForGlobals\|
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4559
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4560	"/self halt.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4561	"/rule := ParseTreeLintRule
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4562	"/ createParseTreeRule: (Array with: aCodeString)
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4563	"/ method: isMethod
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4564	"/ name: 'Search for: ' , aCodeString.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4565	"/self halt.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4566	"/
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4567	"/ searchBlock := [:c :m :sel \|
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4568	"/ rslt := SmalllintChecker
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4569	"/ runRule:rule
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4570	"/ 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	4571	"/
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4572	"/ self halt.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4573	"/ ].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4574	"/^ searchBlock.
5226 35a9709e73ee code search Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	4575
35a9709e73ee code search Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	4576	errAction := [:str :pos \|
35a9709e73ee code search Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	4577	Dialog warn:'Error during parse: ' , str , ' (position ' , pos printString , ')'.
35a9709e73ee code search Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	4578	^ nil
35a9709e73ee code search Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	4579	].
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4580
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4581	isMethod ifTrue:[
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4582	searchTree := RBParser
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4583	parseRewriteMethod:aCodeString
5226 35a9709e73ee code search Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	4584	onError: errAction.
8281 67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4585	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	4586	methodSelector := searchTree selector.
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4587	] ifFalse:[
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4588	searchTree := RBParser
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4589	parseRewriteExpression:aCodeString
5226 35a9709e73ee code search Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	4590	onError: errAction.
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4591	].
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4592
6368 ef36274cbbf1 faster code-search Claus Gittinger <cg@exept.de> parents: 6353 diff changeset	4593	Error handle:[:ex \|
ef36274cbbf1 faster code-search Claus Gittinger <cg@exept.de> parents: 6353 diff changeset	4594	] do:[
6549 cd47faed29f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6546 diff changeset	4595	sentMessages := searchTree sentMessages.
5135 d844ec803124 improved code search Claus Gittinger <cg@exept.de> parents: 5112 diff changeset	4596	].
6581 ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4597
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4598	nameSpacesForGlobals := Set with:Smalltalk.
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4599	aCollectionOfClasses do:[:eachClass \|
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4600	nameSpacesForGlobals add:eachClass topNameSpace
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4601	].
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4602
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4603	globalVariablesUsed := OrderedCollection new.
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4604	searchTree referencedVariables do:[:node \|
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4605	\|nm ns alternatives\|
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4606
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4607	node isPatternNode ifFalse:[
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4608	nm := node name.
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4609	ns := nameSpacesForGlobals detect:[:ns \| ns includesKey: nm asSymbol] ifNone:nil.
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4610	ns notNil ifTrue:[
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4611	alternatives := OrderedCollection new.
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4612	nm asSymbolIfInterned notNil ifTrue:[ alternatives add: nm asSymbol ].
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4613	('Smalltalk::',nm) asSymbolIfInterned notNil ifTrue:[ alternatives add: ('Smalltalk::',nm) asSymbol ].
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4614	(ns name,'::',nm) asSymbolIfInterned notNil ifTrue:[ alternatives add: (ns name,'::',nm) asSymbol ].
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4615	nm asSymbolIfInterned notNil ifTrue:[ alternatives add: nm asSymbol ].
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4616	globalVariablesUsed add:alternatives
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4617	].
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4618	]
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4619	].
5135 d844ec803124 improved code search Claus Gittinger <cg@exept.de> parents: 5112 diff changeset	4620
6581 ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4621	usedSymbols := searchTree usedSymbols.
ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4622
7395 4aa4c6b9a161 * empty log message * Claus Gittinger <cg@exept.de> parents: 7361 diff changeset	4623	"/ cannot use literals to speedup the search, because stc does not store
4aa4c6b9a161 * empty log message * Claus Gittinger <cg@exept.de> parents: 7361 diff changeset	4624	"/ constants in the literal-array.
4aa4c6b9a161 * empty log message * Claus Gittinger <cg@exept.de> parents: 7361 diff changeset	4625	"/ literalsUsed := searchTree usedLiterals.
4aa4c6b9a161 * empty log message * Claus Gittinger <cg@exept.de> parents: 7361 diff changeset	4626	"/ literalsUsed := literalsUsed select:[:lit \| lit isString].
4aa4c6b9a161 * empty log message * Claus Gittinger <cg@exept.de> parents: 7361 diff changeset	4627
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4628	searcher := ParseTreeSearcher new.
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4629	isMethod ifTrue:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4630	searcher
8281 67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4631	matchesMethod:aCodeString
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4632	do:[:aNode :answer \| foundMatch := true].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4633	] ifFalse:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4634	searcher
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4635	matchesTree:searchTree
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4636	do:[:aNode :answer \| foundMatch := true].
6303 47c12063b000 Fix BC-Compile error Stefan Vogel <sv@exept.de> parents: 6184 diff changeset	4637	].
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4638
6581 ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4639
ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4640	searchBlock := [:c :m :sel \|
ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4641	\|allSelectorsInLiteralArray allMessagesSent
9544 0947c3513df7 changed: #searchBlockForCode:isMethod: Claus Gittinger <cg@exept.de> parents: 9483 diff changeset	4642	allGlobalsReferenced allUsedSymbolsInLiteralArray allSent src rslt parseTree
0947c3513df7 changed: #searchBlockForCode:isMethod: Claus Gittinger <cg@exept.de> parents: 9483 diff changeset	4643	literalsInMethod\|
6581 ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4644
ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4645	foundMatch := false.
ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4646
8281 67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4647	"/ 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	4648	(isMethod not
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4649	or:[ numMethodArgs isNil
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4650	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	4651	m isLazyMethod ifTrue:[
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4652	src := m source.
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4653	src notNil ifTrue:[
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4654	m makeRealMethod.
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4655	].
5135 d844ec803124 improved code search Claus Gittinger <cg@exept.de> parents: 5112 diff changeset	4656	].
9544 0947c3513df7 changed: #searchBlockForCode:isMethod: Claus Gittinger <cg@exept.de> parents: 9483 diff changeset	4657	"/ can speedup the search, by filtering for sent messages and used globals first...
0947c3513df7 changed: #searchBlockForCode:isMethod: Claus Gittinger <cg@exept.de> parents: 9483 diff changeset	4658	literalsInMethod := m literals.
0947c3513df7 changed: #searchBlockForCode:isMethod: Claus Gittinger <cg@exept.de> parents: 9483 diff changeset	4659	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	4660	allSelectorsInLiteralArray ifTrue:[
9544 0947c3513df7 changed: #searchBlockForCode:isMethod: Claus Gittinger <cg@exept.de> parents: 9483 diff changeset	4661	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	4662	allUsedSymbolsInLiteralArray ifTrue:[
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4663	allGlobalsReferenced := globalVariablesUsed conform:[:varNames \| varNames contains:[:varName \| m referencesGlobal:varName]].
8505 dd4cfeb8d6ad allGlobalsReferenced before allMessagesSent in #searchBlockForCode:isMethod: fm parents: 8478 diff changeset	4664	allGlobalsReferenced ifTrue:[
dd4cfeb8d6ad allGlobalsReferenced before allMessagesSent in #searchBlockForCode:isMethod: fm parents: 8478 diff changeset	4665	allMessagesSent := sentMessages isEmptyOrNil or:[ m messages includesAll:sentMessages ].
dd4cfeb8d6ad allGlobalsReferenced before allMessagesSent in #searchBlockForCode:isMethod: fm parents: 8478 diff changeset	4666	allMessagesSent ifTrue:[
8281 67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4667	allSent := sentMessages conform:[:sel \| (m sends:sel)].
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4668	allSent ifTrue:[
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4669	src := m source.
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4670	src isNil ifTrue:[
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4671	('Browser [info]: no source for ' , m printString) infoPrintCR.
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4672	false
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4673	] ifFalse:[
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4674	parseTree := RBParser
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4675	parseSearchMethod:src
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4676	onError: [:str :pos \|
9544 0947c3513df7 changed: #searchBlockForCode:isMethod: Claus Gittinger <cg@exept.de> parents: 9483 diff changeset	4677	self halt.
0947c3513df7 changed: #searchBlockForCode:isMethod: Claus Gittinger <cg@exept.de> parents: 9483 diff changeset	4678	Transcript show:'Error during search in '; showCR:m.
8281 67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4679	Transcript showCR:str.
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4680	Transcript showCR:pos.
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4681	nil].
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4682
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4683	parseTree notNil ifTrue:[
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4684	false "isMethod" ifTrue:[
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4685	rslt := searcher executeMethod:parseTree.
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4686	] ifFalse:[
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4687	rslt := searcher executeTree:parseTree.
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4688	].
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4689	]
6552 343882b29fec code search bug - leftover foundMatch flag (must be cleared) Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	4690	]
6368 ef36274cbbf1 faster code-search Claus Gittinger <cg@exept.de> parents: 6353 diff changeset	4691	]
ef36274cbbf1 faster code-search Claus Gittinger <cg@exept.de> parents: 6353 diff changeset	4692	]
5251 847d633792ce tuned code search if global vars are involved Claus Gittinger <cg@exept.de> parents: 5243 diff changeset	4693	]
5135 d844ec803124 improved code search Claus Gittinger <cg@exept.de> parents: 5112 diff changeset	4694	]
6581 ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4695	]
ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4696	].
ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4697	foundMatch.
ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4698	].
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4699	^ searchBlock.
7395 4aa4c6b9a161 * empty log message * Claus Gittinger <cg@exept.de> parents: 7361 diff changeset	4700
9544 0947c3513df7 changed: #searchBlockForCode:isMethod: Claus Gittinger <cg@exept.de> parents: 9483 diff changeset	4701	"Modified: / 12-08-2010 / 11:03:36 / cg"
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4702	"Created: / 02-05-2011 / 13:25:01 / sr"
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4703	!
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4704
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4705	searchBlockForCode:aCodeString isMethod:isMethod
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4706	"return a block to search for a piece of code (intelligent search)."
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4707
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4708	^ self searchBlockForCode:aCodeString in:#() isMethod:isMethod
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4709
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4710	"Modified: / 02-05-2011 / 13:26:18 / sr"
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4711	!
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4712
9482 542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4713	searchBlockForParseTreeSearcher:searcher isMethod:isMethod
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4714	"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	4715
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4716	\|errAction searchBlock foundMatch\|
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4717
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4718	errAction := [:str :pos \|
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4719	Dialog warn:'Error during parse: ' , str , ' (position ' , pos printString , ')'.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4720	^ nil
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4721	].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4722
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4723	searchBlock := [:c :m :sel \|
9483 eead021c9729 changed: #searchBlockForParseTreeSearcher:isMethod: Claus Gittinger <cg@exept.de> parents: 9482 diff changeset	4724	\|src parseTree\|
9482 542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4725
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4726	foundMatch := false.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4727
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4728	m isLazyMethod ifTrue:[
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4729	src := m source.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4730	src notNil ifTrue:[
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4731	m makeRealMethod.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4732	].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4733	].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4734
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4735	src := m source.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4736	src isNil ifTrue:[
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4737	('Browser [info]: no source for ' , m printString) infoPrintCR.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4738	false
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4739	] ifFalse:[
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4740	parseTree := RBParser
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4741	parseSearchMethod:src
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4742	onError: [:str :pos \|
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4743	Transcript show:'Error in '; showCR:m.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4744	Transcript showCR:str.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4745	Transcript showCR:pos.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4746	nil].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4747
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4748	parseTree notNil ifTrue:[
9483 eead021c9729 changed: #searchBlockForParseTreeSearcher:isMethod: Claus Gittinger <cg@exept.de> parents: 9482 diff changeset	4749	foundMatch := searcher executeTree:parseTree initialAnswer:false.
9482 542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4750	]
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4751	].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4752	foundMatch.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4753	].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4754
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4755	^ searchBlock.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4756
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4757	"Created: / 11-05-2010 / 16:14:25 / cg"
9483 eead021c9729 changed: #searchBlockForParseTreeSearcher:isMethod: Claus Gittinger <cg@exept.de> parents: 9482 diff changeset	4758	"Modified: / 11-05-2010 / 22:05:09 / cg"
9482 542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4759	!
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4760
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4761	searchBlockForReferendsOf:aGlobalName
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4762	"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	4763	which may be a matchpattern"
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4764
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4765	\|globalsPlainName idx matchingGlobalNames\|
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4766
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4767	globalsPlainName := aGlobalName.
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4768	(idx := globalsPlainName lastIndexOf:$:) ~~ 0 ifTrue:[
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4769	globalsPlainName := globalsPlainName copyFrom:idx+1.
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4770	(globalsPlainName size == 0
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4771	or:[globalsPlainName = '*']) ifTrue:[
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4772	globalsPlainName := aGlobalName
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4773	]
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4774	].
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4775
9660 e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4776	"/ matchingGlobalNames := OrderedCollection new.
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4777
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4778	aGlobalName includesMatchCharacters ifFalse:[
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4779	^ [:cls :mthd :sel \|
9660 e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4780	\|sym1 sym2 mSource ok m\|
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4781
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4782	sym1 := aGlobalName asSymbolIfInterned.
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4783	sym2 := globalsPlainName asSymbolIfInterned.
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4784	(sym1 isNil and:[ sym2 isNil ]) ifTrue:[
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4785	false
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4786	] ifFalse:[
9660 e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4787	ok := false.
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4788	"/ kludge: Lazy methods do not include symbols in the literal array - sigh
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4789	mthd isLazyMethod ifTrue:[
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4790	mSource := mthd source.
9660 e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4791	(mSource notNil) ifTrue:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4792	(mSource includesString:sym2) ifTrue:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4793	(mthd usedGlobals includes:sym1) ifTrue:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4794	ok := true
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4795	] ifFalse:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4796	(mthd usedGlobals includes:sym2) ifTrue:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4797	ok := true
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4798	]
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4799	]
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4800	]
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4801	]
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4802	] ifFalse:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4803	(m := mthd) isWrapped ifTrue:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4804	m := m originalMethod.
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4805	].
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4806
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4807	((m refersToLiteral:sym1) or:[ (m refersToLiteral:sym2) ]) ifTrue:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4808	(m usedGlobals includes:sym1) ifTrue:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4809	ok := true
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4810	] ifFalse:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4811	(m usedGlobals includes:sym2) ifTrue:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4812	ok := true
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4813	].
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4814	].
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4815	].
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4816	]
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4817	]
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4818	].
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4819	].
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4820
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4821	^ [:cls :mthd :sel \|
9660 e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4822	\|mSource usedGlobals global m\|
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4823
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4824	"/ kludge: Lazy methods do not include symbols in the literal array - sigh
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4825	mthd isLazyMethod ifTrue:[
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4826	mSource := mthd source.
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4827	mSource notNil ifTrue:[
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4828	usedGlobals := mthd usedGlobals
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4829	]
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4830	] ifFalse:[
9660 e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4831	(m := mthd) isWrapped ifTrue:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4832	m := m originalMethod.
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4833	].
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4834	(m literals contains:[:lit \| (aGlobalName match:lit) or:[globalsPlainName match:lit]]) ifTrue:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4835	usedGlobals := m usedGlobals
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4836	].
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4837	].
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4838	usedGlobals notNil ifTrue:[
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4839	global := usedGlobals detect:[:lit \| aGlobalName match:lit] ifNone:nil.
9660 e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4840	global isNil ifTrue:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4841	global := usedGlobals detect:[:lit \| globalsPlainName match:lit] ifNone:nil.
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4842	].
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4843	"/ global notNil ifTrue:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4844	"/ matchingGlobalNames add:global.
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4845	"/ ]
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4846	].
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4847	global notNil
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4848	].
9660 e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4849
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4850	"Modified: / 08-12-2010 / 12:20:18 / cg"
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4851	!
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4852
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4853	searchBlockForString:aString ignoreCase:ignoreCase match:doMatch
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4854	"return a block to search for a string."
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4855
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4856	\|searchBlock s\|
5891 2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4857
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4858	(doMatch and:[ aString includesMatchCharacters ]) ifTrue:[
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4859	s := '' , aString , ''.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4860	"a matchString"
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4861	searchBlock := [:c :m :sel \|
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4862	\|src\|
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4863	src := m source.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4864	src isNil ifTrue:[
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4865	('Browser [info]: no source for ' , m printString) infoPrintCR.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4866	false
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4867	] ifFalse:[
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4868	s match:src ignoreCase:ignoreCase
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4869	]
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4870	]
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4871	] ifFalse:[
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4872	searchBlock :=
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4873	[:c :m :sel \|
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4874	\|src\|
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4875
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4876	src := m source.
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4877	src isNil ifTrue:[
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4878	('Browser [info]: no source for ' , m printString) infoPrintCR.
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4879	false
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4880	] ifFalse:[
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4881	(src findString:aString ignoreCase:ignoreCase) ~~ 0
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4882	]
5891 2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4883	]
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4884	].
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4885	^ searchBlock.
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4886
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4887	"
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4888	SystemBrowser findString:'should' in:(Array with:Object) ignoreCase:false
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4889	"
4152 92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4890	!
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4891
5877 c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4892	searchBlockForStringLiteral:aString ignoreCase:ignoreCase match:doMatch
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4893	"return a block to search for a string-literal."
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4894
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4895	\|searchBlock s\|
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4896
5891 2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4897	(doMatch and:[ aString includesMatchCharacters]) ifTrue:[
5877 c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4898	s := '' , aString , ''.
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4899	"a matchString"
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4900	searchBlock := [:c :m :sel \|
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4901	\|lits\|
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4902	lits := m literals ? #().
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4903	lits contains:[:lit \|
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4904	lit isString
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4905	and:[lit isSymbol not
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4906	and:[s match:lit ignoreCase:ignoreCase]]
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4907	]
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4908	]
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4909	] ifFalse:[
5891 2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4910	ignoreCase ifTrue:[
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4911	s := aString asLowercase.
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4912	searchBlock := [:c :m :sel \|
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4913	\|lits\|
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4914	lits := m literals ? #().
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4915	lits contains:[:lit \|
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4916	lit isString
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4917	and:[lit isSymbol not
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4918	and:[s = lit asLowercase]]
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4919	]
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4920	]
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4921	] ifFalse:[
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4922	searchBlock := [:c :m :sel \|
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4923	\|lits\|
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4924	lits := m literals ? #().
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4925	lits contains:[:lit \|
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4926	lit isString
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4927	and:[lit isSymbol not
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4928	and:[s = lit]]
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4929	]
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4930	]
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4931	].
5877 c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4932	].
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4933	^ searchBlock.
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4934
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4935	"
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4936	SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:true match:true
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4937	SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:true match:false
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4938	SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:false match:true
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4939	SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:false match:false
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4940	"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4941	! !
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4942
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	4943	!SystemBrowser class methodsFor:'startup'!
36 ccde5a941840 * empty log message * claus parents: diff changeset	4944
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4945	browseAllSelect:aBlock
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4946	"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	4947	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	4948
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4949	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4950	browseMethodsWhere:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4951	title:'selected messages'
36 ccde5a941840 * empty log message * claus parents: diff changeset	4952
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	4953	"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4954	SystemBrowser browseAllSelect:[:aClass :aMethod :selector \| selector numArgs == 3]
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	4955	"
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4956
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4957	"Modified: 24.1.1997 / 19:45:05 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4958	!
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	4959
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4960	browseClass:aClass
4490 de7216d4a28a * empty log message * Claus Gittinger <cg@exept.de> parents: 4350 diff changeset	4961	"launch a browser for aClass.
de7216d4a28a * empty log message * Claus Gittinger <cg@exept.de> parents: 4350 diff changeset	4962	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	4963
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4964	^ self
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4965	newWithLabel:aClass name
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4966	setupSelector:#setupForClass:
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4967	arg:aClass
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4968
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4969	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4970	SystemBrowser browseClass:Object
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4971	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4972
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4973	"Modified: 24.1.1997 / 19:45:16 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4974	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4975
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4976	browseClass:aClass methodCategory:aCategory
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4977	"launch a browser for all methods under aCategory in aClass"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4978
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4979	^ self newWithLabel:(aClass name , ' ' , aCategory)
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4980	setupBlock:[:browser \| browser setupForClass:aClass methodCategory:aCategory]
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4981
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4982	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4983	SystemBrowser browseClass:String methodCategory:'copying'
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4984	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4985
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4986	"Modified: 24.1.1997 / 19:45:23 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4987	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4988
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4989	browseClass:aClass selector:selector
4490 de7216d4a28a * empty log message * Claus Gittinger <cg@exept.de> parents: 4350 diff changeset	4990	"launch a browser for the method at selector in aClass."
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4991
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4992	^ self
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4993	newWithLabel:(aClass name , ' ' , selector , ' ' , selector)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4994	setupBlock:[:newBrowser \| newBrowser setupForClass:aClass selector:selector]
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4995
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4996	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4997	SystemBrowser browseClass:Object selector:#printString
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4998	"
36 ccde5a941840 * empty log message * claus parents: diff changeset	4999	!
ccde5a941840 * empty log message * claus parents: diff changeset	5000
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5001	browseClassCategory:aClassCategory
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5002	"launch a browser for all classes under aCategory"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5003
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5004	^ self
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5005	newWithLabel:aClassCategory
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5006	setupSelector:#setupForClassCategory:
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5007	arg:aClassCategory
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5008
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5009	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5010	SystemBrowser browseClassCategory:'Kernel-Objects'
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5011	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5012
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5013	"Modified: 24.1.1997 / 19:45:32 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5014	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5015
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5016	browseClassHierarchy:aClass
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5017	"launch a browser for aClass and all its superclasses.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5018	this is different from the fullProtocol browser."
36 ccde5a941840 * empty log message * claus parents: diff changeset	5019
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5020	^ self
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	5021	newWithLabel:(aClass name , '-' , 'hierarchy')
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	5022	setupSelector:#setupForClassHierarchy:
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	5023	arg:aClass
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5024
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5025	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5026	SystemBrowser browseClassHierarchy:Number
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5027	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5028	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5029
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5030	browseClasses:aList label:title
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5031	"launch a browser for all classes in aList"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5032
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5033	^ self
576 62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5034	newWithLabel:title
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5035	setupBlock:[:b \| b setupForClassList:aList sort:true]
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5036
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5037	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5038	SystemBrowser browseClasses:(Array with:Object
576 62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5039	with:Float)
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5040	title:'two classes'
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5041	"
576 62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5042
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5043	"Modified: 28.5.1996 / 13:52:25 / cg"
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5044	!
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5045
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5046	browseClasses:aList label:title sort:doSort
576 62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5047	"launch a browser for all classes in aList"
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5048
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5049	^ self
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5050	newWithLabel:title
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5051	setupBlock:[:b \| b setupForClassList:aList sort:doSort]
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5052
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5053	"
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5054	SystemBrowser browseClasses:(Array with:Object
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5055	with:Float)
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5056	title:'two classes'
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5057	"
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5058
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5059	"Created: 28.5.1996 / 13:52:09 / cg"
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	5060	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	5061
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5062	browseClasses:aList title:title
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5063	<resource: #obsolete>
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5064	"launch a browser for all classes in aList"
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5065
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5066	self obsoleteMethodWarning.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5067	^ self browseClasses:aList label:title
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5068	!
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5069
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5070	browseClasses:aList title:title sort:doSort
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5071	<resource: #obsolete>
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5072	"launch a browser for all classes in aList"
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5073
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5074	self obsoleteMethodWarning.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5075	^ self browseClasses:aList label:title sort:doSort
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5076
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5077	"Created: 28.5.1996 / 13:52:09 / cg"
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5078	!
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5079
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5080	browseFullClassProtocol:aClass
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5081	"launch a browser for aClasses full protocol.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5082	This is different from hierarchy browsing."
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5083
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5084	^ self
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	5085	newWithLabel:(aClass name , '-' , 'full protocol')
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	5086	setupSelector:#setupForFullClassProtocol:
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	5087	arg:aClass
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5088
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5089	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5090	SystemBrowser browseFullClassProtocol:Number
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5091	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5092	!
36 ccde5a941840 * empty log message * claus parents: diff changeset	5093
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5094	browseFullClasses
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5095	"launch a browser showing all methods at once"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5096
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5097	^ self
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	5098	newWithLabel:'Full Class Browser'
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	5099	setupBlock:[:newBrowser \| newBrowser setupForFullClass]
36 ccde5a941840 * empty log message * claus parents: diff changeset	5100
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5101	"SystemBrowser browseFullClasses"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5102	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5103
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5104	browseInstMethodsFrom:aClass where:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5105	"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	5106	where aBlock evaluates to true"
36 ccde5a941840 * empty log message * claus parents: diff changeset	5107
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5108	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5109	browseMethodsIn:(aClass withAllSubclasses)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5110	inst:true
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5111	class:false
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5112	where:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5113	title:title
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5114
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5115	"Modified: 24.1.1997 / 19:44:45 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5116	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5117
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5118	browseInstMethodsIn:aCollectionOfClasses where:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5119	"launch a browser for all instance methods of all classes in
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5120	aCollectionOfClasses where aBlock evaluates to true"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5121
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5122	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5123	browseMethodsIn:aCollectionOfClasses
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5124	inst:true class:false
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5125	where:aBlock title:title
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5126
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5127	"Modified: 24.1.1997 / 19:43:41 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5128	!
36 ccde5a941840 * empty log message * claus parents: diff changeset	5129
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5130	browseInstMethodsOf:aClass where:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5131	"launch a browser for all instance methods in aClass
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5132	where aBlock evaluates to true"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5133
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5134	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5135	browseMethodsIn:(Array with:aClass)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5136	inst:true
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5137	class:false
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5138	where:aBlock title:title
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5139
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5140	"Modified: 24.1.1997 / 19:43:50 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5141	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5142
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5143	browseMethodCategory:aCategory
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5144	"launch a browser for all methods where category = aCategory"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5145
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5146	\|searchBlock\|
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5147
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5148	aCategory includesMatchCharacters ifTrue:[
2822 8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	5149	searchBlock := [:c :m :s \| aCategory match:m category].
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5150	] ifFalse:[
2822 8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	5151	searchBlock := [:c :m :s \| m category = aCategory]
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5152	].
2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5153
2822 8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	5154	^ self browseMethodsWhere:searchBlock title:('all methods with category of ' , aCategory)
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5155
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5156	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5157	SystemBrowser browseMethodCategory:'printing & storing'
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5158	SystemBrowser browseMethodCategory:'print*'
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5159	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5160	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5161
3666 f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5162	browseMethods:aListOfMethods
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5163	"launch a multi-method browser."
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5164
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5165	^ self browseMethods:aListOfMethods title:'some methods'
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5166
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5167	"
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5168	self
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5169	browseMethods:(Array with:(Array compiledMethodAt:#at:)
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5170	with:(OrderedCollection compiledMethodAt:#at:))
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5171
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5172	self
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5173	browseMethods:(Array with:(Array compiledMethodAt:#at:)
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5174	with:(Array compiledMethodAt:#at:put:))
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5175	"
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5176	!
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5177
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5178	browseMethods:aList title:aString
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5179	"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	5180	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	5181	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	5182	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	5183
1919 0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5184	^ self
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5185	browseMethods:aList
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5186	title:aString
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5187	sort:true
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5188
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5189
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5190	"
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5191	SystemBrowser
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5192	browseMethods:#('Object printOn:' 'Collection add:')
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5193	title:'some methods'
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5194
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5195	SystemBrowser
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5196	browseMethods:#('Behavior new:' 'Setclass new:')
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5197	title:'some new: methods'
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5198
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5199	SystemBrowser
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5200	browseMethods:(Array with:(Object compiledMethodAt:#printOn:)
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5201	with:(Collection compiledMethodAt:#add:)
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5202	with:(Object class compiledMethodAt:#initialize))
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5203	title:'some methods'
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5204
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5205	"
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5206
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5207	"Modified: 1.11.1996 / 16:30:17 / cg"
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5208	!
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5209
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5210	browseMethods:aList title:aString sort:doSort
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5211	"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	5212	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	5213	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	5214	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	5215
279 062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5216	\|l\|
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5217
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5218	(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	5219	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	5220	^ nil
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5221	].
279 062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5222	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	5223	l := l collect:[:entry \|
1937 fc541342f2db more support for java code (implementors) Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	5224	\|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	5225
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5226	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	5227	entry
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5228	] ifFalse:[
2822 8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	5229	cls := entry mclass.
8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	5230	cls isNil ifTrue:[
1031 5d77c99b877e dont crash when unbound methods are passed ca parents: 1018 diff changeset	5231	'??? unbound'
5d77c99b877e dont crash when unbound methods are passed ca parents: 1018 diff changeset	5232	] ifFalse:[
2822 8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	5233	cls isJavaClass ifTrue:[
8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	5234	clsName := 'JAVA::' , cls fullName
1937 fc541342f2db more support for java code (implementors) Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	5235	] ifFalse:[
2822 8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	5236	clsName := cls name
8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	5237	].
7915 56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	5238	(cls selectorAtMethod:entry) isNil ifTrue:[
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	5239	clsName
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	5240	, ' '
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	5241	, '???'
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	5242	] ifFalse:[
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	5243	clsName
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	5244	, ' '
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	5245	, (entry printStringForBrowserWithSelector:(cls selectorAtMethod:entry) inClass:cls)
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	5246	]
1031 5d77c99b877e dont crash when unbound methods are passed ca parents: 1018 diff changeset	5247	]
279 062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5248	]
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5249	].
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5250
1919 0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5251	doSort ifTrue:[l sort].
1937 fc541342f2db more support for java code (implementors) Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	5252
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5253	^ 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	5254	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	5255	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	5256	arg:l
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5257
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5258	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5259	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	5260	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	5261	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	5262
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5263	SystemBrowser
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5264	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	5265	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	5266
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5267	SystemBrowser
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5268	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	5269	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	5270	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	5271	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	5272
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5273	"
279 062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5274
7711 7e8881bccf72 * empty log message * Claus Gittinger <cg@exept.de> parents: 7524 diff changeset	5275	"Modified: / 17-06-1996 / 17:07:46 / stefan"
7e8881bccf72 * empty log message * Claus Gittinger <cg@exept.de> parents: 7524 diff changeset	5276	"Modified: / 05-03-2007 / 16:25:25 / cg"
2826 9d7f11697806 * empty log message * Claus Gittinger <cg@exept.de> parents: 2824 diff changeset	5277	!
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5278
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5279	browseMethodsFrom:aClass where:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5280	"launch a browser for all instance- and classmethods in aClass
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5281	and all its subclasses where aBlock evaluates to true.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5282	The block is called with 3 arguments, class, method and seelctor."
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5283
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5284	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5285	browseMethodsIn:(aClass withAllSubclasses)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5286	where:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5287	title:title
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5288
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5289	"Modified: 24.1.1997 / 19:44:00 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5290	!
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	browseMethodsIn:aCollectionOfClasses inst:wantInst class:wantClass where:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5293	"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	5294	classmethods (if wantClass is true) from classes in aCollectionOfClasses,
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5295	where aBlock evaluates to true.
270 f97a37f5df7a checkin from browser Claus Gittinger <cg@exept.de> parents: 256 diff changeset	5296	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	5297
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5298	\|list\|
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5299
2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5300	"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5301	since this may take a long time, lower my priority ...
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5302	"
2295 4e05198e7dd8 execute BG tasks at a prio range, to ensure progress. Claus Gittinger <cg@exept.de> parents: 2208 diff changeset	5303	Processor activeProcess
4e05198e7dd8 execute BG tasks at a prio range, to ensure progress. Claus Gittinger <cg@exept.de> parents: 2208 diff changeset	5304	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	5305	do:[
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5306	list := self findMethodsIn:aCollectionOfClasses inst:wantInst class:wantClass where:aBlock
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5307	].
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5308	^ self browseMethods:list title:title
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5309	!
2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5310
3780 39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5311	browseMethodsIn:aCollectionOfClasses inst:wantInst class:wantClass where:aBlock title:title ifNone:warnBlock
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5312	"launch a browser for all instance- (if wantInst is true) and/or
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5313	classmethods (if wantClass is true) from classes in aCollectionOfClasses,
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5314	where aBlock evaluates to true.
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5315	The block is called with 3 arguments, class, method and selector."
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5316
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5317	\|list\|
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5318
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5319	"
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5320	since this may take a long time, lower my priority ...
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5321	"
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5322	Processor activeProcess
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5323	withPriority:Processor activePriority-1 to:Processor activePriority
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5324	do:[
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5325	list := self findMethodsIn:aCollectionOfClasses inst:wantInst class:wantClass where:aBlock.
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5326	list size == 0 ifTrue:[warnBlock value].
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5327	].
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5328	^ self browseMethods:list title:title
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5329	!
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5330
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5331	browseMethodsIn:aCollectionOfClasses where:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5332	"launch a browser for all instance- and classmethods from
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5333	all classes in aCollectionOfClasses where aBlock evaluates to true.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5334	The block is called with 3 arguments, class, method and seelctor."
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5335
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5336	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5337	browseMethodsIn:aCollectionOfClasses
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5338	inst:true
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5339	class:true
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5340	where:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5341	title:title
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	5342
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5343	"Modified: 24.1.1997 / 19:44:17 / cg"
36 ccde5a941840 * empty log message * claus parents: diff changeset	5344	!
ccde5a941840 * empty log message * claus parents: diff changeset	5345
3780 39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5346	browseMethodsIn:aCollectionOfClasses where:aBlock title:title ifNone:warnBlock
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5347	"launch a browser for all instance- and classmethods from
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5348	all classes in aCollectionOfClasses where aBlock evaluates to true.
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5349	The block is called with 3 arguments, class, method and seelctor."
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5350
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5351	^ self
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5352	browseMethodsIn:aCollectionOfClasses
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5353	inst:true
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5354	class:true
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5355	where:aBlock
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5356	title:title
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5357	ifNone:warnBlock
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5358
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5359	"Modified: 24.1.1997 / 19:44:17 / cg"
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5360	!
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5361
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5362	browseMethodsOf:aClass where:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5363	"launch a browser for all instance- and classmethods in aClass
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5364	where aBlock evaluates to true.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5365	The block is called with 3 arguments, class, method and seelctor."
93 dda97353e775 . claus parents: 90 diff changeset	5366
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5367	^ self browseMethodsIn:(Array with:aClass) where:aBlock title:title
93 dda97353e775 . claus parents: 90 diff changeset	5368	!
dda97353e775 . claus parents: 90 diff changeset	5369
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5370	browseMethodsWhere:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5371	"launch a browser for all methods where aBlock returns true.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5372	The block is called with 3 arguments, class, method and seelctor."
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5373
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5374	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5375	browseMethodsIn:(Smalltalk allClasses)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5376	where:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5377	title:title
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5378
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5379	"Modified: 24.1.1997 / 19:44:30 / cg"
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5380	!
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5381
3780 39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5382	browseMethodsWhere:aBlock title:title ifNone:warnBlock
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5383	"launch a browser for all methods where aBlock returns true.
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5384	The block is called with 3 arguments, class, method and seelctor."
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5385
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5386	^ self
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5387	browseMethodsIn:(Smalltalk allClasses)
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5388	where:aBlock
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5389	title:title
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5390	ifNone:warnBlock
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5391
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5392	"Modified: 24.1.1997 / 19:44:30 / cg"
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5393	!
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5394
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5395	findMethodsIn:aCollectionOfClasses inst:wantInst class:wantClass where:aBlock
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5396	"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	5397	from classes in aCollectionOfClasses, where aBlock evaluates to true."
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5398
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5399	\|list checkedClasses checkBlock\|
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5400
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5401	checkedClasses := IdentitySet new.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5402	list := OrderedCollection new.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5403
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5404	checkBlock := [:cls \|
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5405	(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	5406	(cls isObsolete and:[cls isLoaded]) ifTrue:[
2882 2a12342fef79 * empty log message * Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	5407	Transcript showCR:'Browser method search: skipping obsolete class: ' , cls displayString
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5408	] ifFalse:[
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5409	cls methodDictionary keysAndValuesDo:[:sel :method \|
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5410	(aBlock value:cls value:method value:sel) ifTrue:[
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5411	list add:method "/ (cls name , ' ' , sel)
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5412	]
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5413	].
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5414	checkedClasses add:cls.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5415	]
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5416	]
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5417	].
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5418
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5419	aCollectionOfClasses do:[:aClass \|
3008 1a45c272b13f * empty log message * Claus Gittinger <cg@exept.de> parents: 2901 diff changeset	5420	(aClass notNil and:[aClass isObsolete not]) ifTrue:[
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5421	"
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5422	output disabled - it slows down things too much (when searching for
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5423	implementors or senders)
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5424	"
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5425	wantInst ifTrue:[
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5426	"/ Transcript show:'searching '; show:aClass name; showCR:' ...'; endEntry.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5427	checkBlock value:aClass
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5428	].
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5429	wantClass ifTrue:[
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5430	"/ Transcript show:'searching '; show:aClass class name; showCR:' ...'; endEntry.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5431	checkBlock value:(aClass class)
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5432	].
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5433	Processor yield
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5434	]
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5435	].
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5436	^ list
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5437	!
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5438
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5439	findMethodsIn:aCollectionOfClasses where:aBlock
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5440	"return all instance- and classmethods
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5441	from classes in aCollectionOfClasses, where aBlock evaluates to true."
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5442
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5443	^ self
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5444	findMethodsIn:aCollectionOfClasses
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5445	inst:true
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5446	class:true
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5447	where:aBlock
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5448	! !
93 dda97353e775 . claus parents: 90 diff changeset	5449
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	5450	!SystemBrowser class methodsFor:'startup with query'!
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5451
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5452	askThenBrowseClass
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5453	self getClassThenPerform:#browseClass:
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5454
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5455	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5456	SystemBrowser askThenBrowseClass
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5457	"
93 dda97353e775 . claus parents: 90 diff changeset	5458	!
dda97353e775 . claus parents: 90 diff changeset	5459
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5460	askThenBrowseClassHierarchy
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5461	self getClassThenPerform:#browseClassHierarchy:
36 ccde5a941840 * empty log message * claus parents: diff changeset	5462
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5463	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5464	SystemBrowser askThenBrowseClassHierarchy
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5465	"
36 ccde5a941840 * empty log message * claus parents: diff changeset	5466	!
ccde5a941840 * empty log message * claus parents: diff changeset	5467
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5468	askThenBrowseFullClassProtocol
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5469	self getClassThenPerform:#browseFullClassProtocol:
36 ccde5a941840 * empty log message * claus parents: diff changeset	5470
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5471	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5472	SystemBrowser askThenBrowseFullClassProtocol
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5473	"
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	5474	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	5475
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5476	getClassThenPerform:aSelector
2729 9af04074a4bb no direct access to super-class-instvars Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	5477	\|enterBox resources\|
9af04074a4bb no direct access to super-class-instvars Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	5478
9af04074a4bb no direct access to super-class-instvars Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	5479	resources := self classResources.
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	5480
6353 b9e2940b7714 * empty log message * Claus Gittinger <cg@exept.de> parents: 6333 diff changeset	5481	enterBox := EnterBox title:(self classResources stringWithCRs:'Browse which class:').
6640 326360e94271 * empty log message * Claus Gittinger <cg@exept.de> parents: 6581 diff changeset	5482	enterBox okText:(resources string:'Browse').
6873 10854f75d38d * empty log message * Claus Gittinger <cg@exept.de> parents: 6848 diff changeset	5483	enterBox entryCompletionBlock:(DoWhatIMeanSupport classNameEntryCompletionBlock).
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5484	enterBox action:[:className \|
2729 9af04074a4bb no direct access to super-class-instvars Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	5485	\|cls\|
9af04074a4bb no direct access to super-class-instvars Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	5486
9af04074a4bb no direct access to super-class-instvars Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	5487	cls := Smalltalk classNamed:className.
9af04074a4bb no direct access to super-class-instvars Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	5488	cls isNil ifTrue:[
6640 326360e94271 * empty log message * Claus Gittinger <cg@exept.de> parents: 6581 diff changeset	5489	self warn:(resources string:'No such class').
2729 9af04074a4bb no direct access to super-class-instvars Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	5490	] ifFalse:[
9af04074a4bb no direct access to super-class-instvars Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	5491	self perform:aSelector with:cls
9af04074a4bb no direct access to super-class-instvars Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	5492	]
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5493	].
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5494	enterBox showAtPointer
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	5495
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5496	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5497	SystemBrowser getClassThenPerform:#browseClass:
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5498	"
6873 10854f75d38d * empty log message * Claus Gittinger <cg@exept.de> parents: 6848 diff changeset	5499
10854f75d38d * empty log message * Claus Gittinger <cg@exept.de> parents: 6848 diff changeset	5500	"Modified: / 10-08-2006 / 12:54:20 / cg"
36 ccde5a941840 * empty log message * claus parents: diff changeset	5501	! !
ccde5a941840 * empty log message * claus parents: diff changeset	5502
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5503	!SystemBrowser class methodsFor:'utilities'!
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5504
3833 89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	5505	classWithNameSimilarTo:className
89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	5506	"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	5507
4924 0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5508	\|allMatchingClasses\|
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5509
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5510	allMatchingClasses := self classesWithNameSimilarTo:className.
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5511	^ allMatchingClasses firstIfEmpty:nil
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5512	!
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5513
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5514	classesWithNameSimilarTo:className
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5515	"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	5516
6944 1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5517	^ self classesWithNameSimilarTo:className from:nil
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5518
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5519	"Modified: / 22-08-2006 / 13:22:41 / cg"
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5520	!
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5521
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5522	classesWithNameSimilarTo:className from:aNameSpaceOrNil
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5523	"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	5524
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5525	\|nm lcName class allClasses triedDetectors triedMatchers allMatchingClasses
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5526	prefNameSpaceOrNil prefLcNameSpace\|
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5527
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5528	prefNameSpaceOrNil := (aNameSpaceOrNil == Smalltalk) ifTrue:[ nil ] ifFalse:[aNameSpaceOrNil].
3833 89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	5529
89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	5530	(className startsWith:'Smalltalk::') ifTrue:[
89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	5531	nm := className copyFrom:('Smalltalk::' size + 1).
89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	5532	] ifFalse:[
89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	5533	nm := className.
89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	5534	].
89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	5535
6944 1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5536	prefNameSpaceOrNil notNil ifTrue:[
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5537	class := prefNameSpaceOrNil at:nm asSymbol.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5538	class isBehavior ifTrue:[^ Array with:class]. "/ a direct hit
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5539	prefLcNameSpace := prefNameSpaceOrNil name asLowercase.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5540	].
3833 89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	5541	class := Smalltalk at:nm asSymbol.
4924 0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5542	class isBehavior ifTrue:[^ Array with:class]. "/ a direct hit
3833 89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	5543
89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	5544	lcName := className asLowercase.
4924 0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5545
3833 89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	5546	allClasses := Smalltalk allClasses.
4806 439bed9def3a code cleanup Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	5547
6134 024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	5548	triedDetectors := OrderedCollection new.
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	5549	triedDetectors add:[:cls \| cls name asLowercase = lcName].
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	5550
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	5551	triedDetectors do:[:eachTry \|
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	5552	\|class\|
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	5553
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	5554	class := allClasses detect:eachTry ifNone:nil.
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	5555	class notNil ifTrue:[^ Array with:class].
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	5556	].
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	5557
4806 439bed9def3a code cleanup Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	5558	triedMatchers := OrderedCollection new.
5018 2fe02eac49c5 better classesWithNameSimilarTo Claus Gittinger <cg@exept.de> parents: 4924 diff changeset	5559	triedMatchers add:[:cls \| cls nameWithoutPrefix asLowercase = lcName].
2fe02eac49c5 better classesWithNameSimilarTo Claus Gittinger <cg@exept.de> parents: 4924 diff changeset	5560	triedMatchers add:[:cls \| cls nameWithoutNameSpacePrefix asLowercase = lcName].
4924 0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5561
4806 439bed9def3a code cleanup Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	5562	triedMatchers add:[:cls \| cls name asLowercase startsWith:lcName].
439bed9def3a code cleanup Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	5563	triedMatchers add:[:cls \| cls nameWithoutNameSpacePrefix asLowercase startsWith:lcName].
439bed9def3a code cleanup Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	5564	triedMatchers add:[:cls \| cls nameWithoutPrefix asLowercase startsWith:lcName].
439bed9def3a code cleanup Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	5565	triedMatchers add:[:cls \| cls nameWithoutPrefix asLowercase includesString:lcName].
6134 024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	5566	triedMatchers add:[:cls \| cls name asLowercase includesString:lcName].
4924 0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5567
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5568	allMatchingClasses := IdentitySet new.
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5569	triedMatchers do:[:eachTry \|
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5570	\|matchingClasses\|
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5571
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5572	matchingClasses := allClasses select:eachTry.
6944 1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5573	"/ matchingClasses size == 1 ifTrue:[^ matchingClasses].
4924 0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5574	allMatchingClasses addAll:matchingClasses.
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5575	].
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5576	allMatchingClasses isEmpty ifTrue:[^ #()].
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5577
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5578	allMatchingClasses := allMatchingClasses asOrderedCollection.
6944 1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5579	allMatchingClasses
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5580	sort:[:a :b \|
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5581	\|lcNameA lcNameB da db distA distB \|
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5582
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5583	lcNameA := a name asLowercase.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5584	lcNameB := b name asLowercase.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5585	prefNameSpaceOrNil notNil ifTrue:[
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5586	a nameSpace == prefNameSpaceOrNil ifTrue:[
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5587	lcNameA := a nameWithoutNameSpacePrefix asLowercase.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5588	].
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5589	b nameSpace == prefNameSpaceOrNil ifTrue:[
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5590	lcNameB := b nameWithoutNameSpacePrefix asLowercase.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5591	].
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5592	].
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5593
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5594	distA := da := lcName levenshteinTo:lcNameA.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5595	distB := db := lcName levenshteinTo:lcNameB.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5596	"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	5597
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5598	(lcNameA startsWith:lcName) ifTrue:[
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5599	distB := distB * 2
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5600	].
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5601	(lcNameB startsWith:lcName) ifTrue:[
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5602	distA := distA * 2
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5603	].
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5604	distA < distB
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5605	].
4924 0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5606	^ allMatchingClasses.
6546 1b809ef4658b comment Stefan Vogel <sv@exept.de> parents: 6480 diff changeset	5607
1b809ef4658b comment Stefan Vogel <sv@exept.de> parents: 6480 diff changeset	5608	"
6678 aa5572677e17 * empty log message * Claus Gittinger <cg@exept.de> parents: 6640 diff changeset	5609	self classesWithNameSimilarTo:'NewSystemBrowser'
aa5572677e17 * empty log message * Claus Gittinger <cg@exept.de> parents: 6640 diff changeset	5610	self classesWithNameSimilarTo:'Moose::MSEAbstractOperator'
6546 1b809ef4658b comment Stefan Vogel <sv@exept.de> parents: 6480 diff changeset	5611	"
6944 1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5612
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5613	"Created: / 22-08-2006 / 13:22:48 / cg"
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5614	"Modified: / 22-08-2006 / 14:53:38 / cg"
3833 89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	5615	!
89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	5616
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5617	extractClassAndSelectorFrom:aString into:aBlock
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5618	"given a string which can be either 'class>>sel' or
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5619	'class sel', extract className and selector, and call aBlock with
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5620	the result.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5621	Useful to open browser on a method as selected in some documentation."
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5622
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5623	\|sel clsName isMeta sep s\|
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5624
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5625	sel := aString.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5626	sel notNil ifTrue:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5627	sel := sel asString withoutSeparators.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5628	('>>' match:sel) ifTrue:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5629	sep := $>
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5630	] ifFalse:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5631	('* *' match:sel) ifTrue:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5632	sep := Character space
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5633	]
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5634	].
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5635	sep notNil ifTrue:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5636	"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5637	extract class/sel from selection
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5638	"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5639	s := ReadStream on:sel.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5640	clsName := s upTo:sep.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5641	[s peek == sep] whileTrue:[s next].
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5642	sel := s upToEnd.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5643
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5644	(clsName endsWith:' class') ifTrue:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5645	isMeta := true.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5646	clsName := clsName copyWithoutLast:6 "copyTo:(clsName size - 5)"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5647	] ifFalse:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5648	isMeta := false
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5649	].
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5650	]
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5651	].
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5652	aBlock value:clsName value:sel value:isMeta
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5653
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5654	"Modified: / 17.6.1996 / 16:52:14 / stefan"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5655	"Created: / 6.2.2000 / 00:51:51 / cg"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5656	"Modified: / 6.2.2000 / 00:56:43 / cg"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5657	!
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5658
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5659	extractSelectorFrom:aString
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5660	"given an arbitrary string, try to extract a useful selector.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5661	Useful to open browser on a selected code fragment."
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5662
8047 8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	5663	\|s sel sel2 t\|
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5664
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5665	aString isNil ifTrue:[^ nil].
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5666
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5667	s := aString asString string.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5668	s := s withoutSeparators.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5669	sel := s.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5670
6705 b78bea6fd220 * empty log message * Claus Gittinger <cg@exept.de> parents: 6678 diff changeset	5671	((sel endsWith:$:)
b78bea6fd220 * empty log message * Claus Gittinger <cg@exept.de> parents: 6678 diff changeset	5672	and:[sel knownAsSymbol]) ifTrue:[
b78bea6fd220 * empty log message * Claus Gittinger <cg@exept.de> parents: 6678 diff changeset	5673	^ sel asSymbol
b78bea6fd220 * empty log message * Claus Gittinger <cg@exept.de> parents: 6678 diff changeset	5674	].
b78bea6fd220 * empty log message * Claus Gittinger <cg@exept.de> parents: 6678 diff changeset	5675
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5676	t := Parser selectorInExpression:sel.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5677	t notNil ifTrue:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5678	sel := t
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5679	].
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5680	(sel = s or:[sel isNil or:[t == #>>]]) ifTrue:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5681	"oops - thats probably not what we want here ..."
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5682	self extractClassAndSelectorFrom:s into:[:c :s :m \|
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5683	sel := s
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5684	]
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5685	].
8047 8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	5686
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	5687	sel asSymbolIfInterned isNil ifTrue:[
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	5688	(sel startsWith:'#') ifTrue:[
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	5689	sel2 := sel copyFrom:2.
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	5690	((sel2 startsWith:'''') and:[(sel2 endsWith:'''')]) ifTrue:[
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	5691	sel2 := (sel2 copyFrom:2) copyWithoutLast:1
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	5692	].
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	5693	sel2 asSymbolIfInterned notNil ifTrue:[
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	5694	^ sel2
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	5695	].
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	5696	].
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	5697	].
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	5698
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5699	^ sel
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5700
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5701	"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5702	self extractSelectorFrom:'at:put:'
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5703	self extractSelectorFrom:'#at:put:'
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5704	self extractSelectorFrom:'at:something put:someValue'
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5705	self extractSelectorFrom:'self at:something put:someValue'
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5706	self extractSelectorFrom:'(self at:something put:someValue)'
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5707	self extractSelectorFrom:'[self at:something put:someValue] value'
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5708	self extractSelectorFrom:'Array>>at:put:'
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5709	"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5710
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5711	"Created: / 6.2.2000 / 00:49:44 / cg"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5712	"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	5713	!
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5714
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5715	resourceEditorClassFor:aResource
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5716	"resources are from a methods resource-info;
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5717	return an appropriate editor class."
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5718
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5719	(aResource == #canvas) ifTrue:[
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5720	^ UIPainter
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5721	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5722	(aResource == #menu) ifTrue:[
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5723	^ MenuEditor
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5724	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5725	((aResource == #image) or:[aResource == #fileImage]) ifTrue:[
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5726	^ ImageEditor
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5727	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5728	(aResource == #help) ifTrue:[
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5729	^ UIHelpTool
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5730	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5731	(aResource == #tableColumns) ifTrue:[
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5732	^ DataSetBuilder
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5733	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5734	(aResource == #tabList) ifTrue:[
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5735	^ TabListEditor
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5736	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5737	(aResource == #hierarchicalList) ifTrue:[
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5738	^ HierarchicalListEditor
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5739	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5740	^ nil
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5741	!
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5742
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5743	resourceEditorClassForResources:resources
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5744	"resources are from a methods resource-info;
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5745	return an appropriate editor class."
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5746
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5747	resources keysDo:[:eachResource \|
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5748	\|editor\|
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5749
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5750	editor := self resourceEditorClassFor:eachResource.
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5751	editor notNil ifTrue:[ ^ editor].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5752	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5753	^ nil
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5754	! !
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5755
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5756	!SystemBrowser::BrowserHistoryEntry methodsFor:'accessing'!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5757
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5758	className
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5759	"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	5760
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5761	^ className
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5762	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5763
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5764	className:something
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5765	"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	5766
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5767	className := something.
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5768	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5769
3151 910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5770	className:classNameArg meta:metaArg selector:selectorArg
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5771	className := classNameArg.
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5772	meta := metaArg.
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5773	selector := selectorArg.
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5774	!
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5775
10048 9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5776	icon
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5777
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5778	^nil
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5779
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5780	"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	5781	!
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5782
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5783	label
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5784
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5785	^self displayString
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5786
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5787	"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	5788	!
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5789
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5790	meta
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5791	"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	5792
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5793	^ meta
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5794	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5795
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5796	meta:something
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5797	"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	5798
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5799	meta := something.
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5800	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5801
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5802	selector
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5803	"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	5804
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5805	^ selector
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5806	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5807
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5808	selector:something
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5809	"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	5810
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5811	selector := something.
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5812	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5813
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5814	theClass
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5815	^ Smalltalk at:className asSymbol
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5816	! !
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5817
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5818	!SystemBrowser::BrowserHistoryEntry methodsFor:'comparing'!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5819
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5820	= anEntry
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5821	^ className = anEntry className
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5822	and:[meta = anEntry meta
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5823	and:[selector = anEntry selector]]
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5824	! !
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5825
10048 9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5826	!SystemBrowser::BrowserHistoryEntry methodsFor:'displaying'!
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5827
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5828	displayString
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5829
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5830	^(className , (meta ifTrue:[' class'] ifFalse:[''])) asText allBold ,
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5831	(selector isNil
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5832	ifTrue:['']
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5833	ifFalse:[ ' >> ' , (selector asText "allItalic") ])
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5834
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5835	"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	5836	"Modified: / 03-07-2011 / 13:44:32 / cg"
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5837	! !
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5838
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	5839	!SystemBrowser class methodsFor:'documentation'!
93 dda97353e775 . claus parents: 90 diff changeset	5840
8851 287f3e03a645 changed: #iconForClass: Claus Gittinger <cg@exept.de> parents: 8759 diff changeset	5841	version_CVS
10188 95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	5842	^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.291 2011-07-06 10:18:52 cg Exp $'
10048 9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5843	!
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5844
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5845	version_SVN
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5846	^ '�Id: SystemBrowser.st 7772 2011-06-08 21:59:15Z vranyj1 �'
36 ccde5a941840 * empty log message * claus parents: diff changeset	5847	! !
4112 ed7af6707ad7 emphasisForChangedCode tm parents: 3834 diff changeset	5848
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5849	SystemBrowser initialize!

author	Claus Gittinger <cg@exept.de>
	Wed, 06 Jul 2011 12:18:52 +0200
changeset 10188	95e82ec734ff
parent 10173	ed7cc5e574cb
child 10327	1273d6c94564
permissions	-rw-r--r--