hg/stx-libtool: SystemBrowser.st@1bf516aac0b8 (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
102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	248	oldEntry := classHistory detect:[:entry \| entry className = newEntry className] ifNone:nil.
102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	249	oldEntry notNil ifTrue:[
102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	250	classHistory removeIdentical:oldEntry.
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	251	].
3679 102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	252	classHistory addFirst:newEntry.
102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	253	classHistory size > self visitedHistoryMaxSize ifTrue:[
102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	254	classHistory removeLast
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	255	].
7524 0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	256	SystemBrowser changed:#visitedClassHistory with:classHistory.
0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	257
0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	258	"Modified: / 20-11-2006 / 12:29:45 / cg"
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	259	!
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	checkClassHistory
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	262	"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	263
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	264	"/ 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	265	self classHistory reverseDo:[:histEntry\|
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	266	(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	267	ifFalse:[
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	268	self classHistory remove: histEntry
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	269	]
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	classHistory
3679 102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	274	ClassHistory isNil ifTrue:[
102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	275	ClassHistory := List new
102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	276	].
102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	277	^ ClassHistory
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	278	!
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	classHistory:newCollection
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	!
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	emptyClassHistory
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	285	"removes all class history entries"
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	286
7524 0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	287	\|classHistory\|
0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	288
0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	289	classHistory := self classHistory.
0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	290	classHistory removeAll.
0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	291	SystemBrowser changed:#visitedClassHistory with:classHistory.
0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	292
0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	293	"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	294	!
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	historyEntryForClass:aClass selector:aSelectorOrNil
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	297	\|newEntry meta cls\|
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	298
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	299	aClass isBehavior ifFalse:[^ nil].
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	300
3151 910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	301	(meta := aClass isMeta) ifTrue:[
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	302	cls := aClass theNonMetaclass.
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	303	] ifFalse:[
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	304	cls := aClass
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	305	].
3151 910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	306	newEntry := BrowserHistoryEntry new.
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	307	newEntry
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	308	className:cls name
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	309	meta:meta
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	310	selector:aSelectorOrNil.
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	311	^ newEntry
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	312
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	313	"Modified: / 24.2.2000 / 18:03:52 / cg"
9189 9f57319e21ca added: #visitedClassNamesHistory Claus Gittinger <cg@exept.de> parents: 9157 diff changeset	314	!
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	visitedClassNamesHistory
9f57319e21ca added: #visitedClassNamesHistory Claus Gittinger <cg@exept.de> parents: 9157 diff changeset	317	^ self classHistory
9f57319e21ca added: #visitedClassNamesHistory Claus Gittinger <cg@exept.de> parents: 9157 diff changeset	318	collect:[:e \| e className]
9f57319e21ca added: #visitedClassNamesHistory Claus Gittinger <cg@exept.de> parents: 9157 diff changeset	319	thenSelect:[:nm \| nm notEmptyOrNil]
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	320	! !
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	!SystemBrowser class methodsFor:'defaults'!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	323
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	324	classHistoryMaxLevels
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	325	^ 3
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	326	!
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	classHistoryMaxSize
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	329	^ 15
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	330	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	331
3549 056bd76b5b0a * empty log message * Claus Gittinger <cg@exept.de> parents: 3519 diff changeset	332	methodTemplate
8877 bb432153d321 changed: #methodTemplate Claus Gittinger <cg@exept.de> parents: 8862 diff changeset	333	"return a method definition template string or nil"
bb432153d321 changed: #methodTemplate Claus Gittinger <cg@exept.de> parents: 8862 diff changeset	334
bb432153d321 changed: #methodTemplate Claus Gittinger <cg@exept.de> parents: 8862 diff changeset	335	^ SmalltalkLanguage instance methodTemplate
3549 056bd76b5b0a * empty log message * Claus Gittinger <cg@exept.de> parents: 3519 diff changeset	336	!
056bd76b5b0a * empty log message * Claus Gittinger <cg@exept.de> parents: 3519 diff changeset	337
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	338	visitedHistoryMaxSize
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	339	"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	340
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	341	^ 15
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	342	! !
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	343
4909 e6b77dc6942e category Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	344	!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	345
3352 fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	346	emphasisForChangedCode
4499 395d7282b2f0 emphasis stuff Claus Gittinger <cg@exept.de> parents: 4490 diff changeset	347	^ UserPreferences current emphasisForChangedCode.
3352 fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	348
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	349	"
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	350	EmphasisForChangedCode := #underwave
4112 ed7af6707ad7 emphasisForChangedCode tm parents: 3834 diff changeset	351	EmphasisForChangedCode := #color->Color blue
3352 fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	352	EmphasisForChangedCode := #color->Color red lightened lightened lightened
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	353	"
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	354
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	355	"Created: / 31.10.2001 / 10:15:33 / cg"
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	356	!
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	357
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	358	emphasisForChangedCode:anEmphasis
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
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	361	"
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	362	self emphasisForChangedCode:#underwave
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	363	self emphasisForChangedCode:(#color->Color red lightened lightened lightened)
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	364	"
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	365
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	366	"Created: / 31.10.2001 / 10:15:44 / cg"
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	367	!
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	368
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	369	emphasisForDifferentPackage
4499 395d7282b2f0 emphasis stuff Claus Gittinger <cg@exept.de> parents: 4490 diff changeset	370	^ 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	371
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	372	"
3352 fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	373	EmphasisForDifferentPackage := nil.
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	374	EmphasisForDifferentPackage := #underwave
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	375	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	376	"
3352 fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	377
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	378	"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	379	!
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	380
3241 caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	381	emphasisForDifferentPackage:anEmphasis
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
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	self emphasisForDifferentPackage:#underwave
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	386	self emphasisForDifferentPackage:(#color->Color red lightened lightened lightened)
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	387	"
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
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	390	emphasisForModifiedBuffer
4499 395d7282b2f0 emphasis stuff Claus Gittinger <cg@exept.de> parents: 4490 diff changeset	391	^ 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	392	!
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	393
3241 caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	394	emphasisForModifiedBuffer:anEmphasis
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	!
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	397
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	398	emphasisForObsoleteCode
4499 395d7282b2f0 emphasis stuff Claus Gittinger <cg@exept.de> parents: 4490 diff changeset	399	^ 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	400	!
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	401
3241 caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	402	emphasisForObsoleteCode:anEmphasis
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	!
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	405
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	406	emphasisForReadVariable
4499 395d7282b2f0 emphasis stuff Claus Gittinger <cg@exept.de> parents: 4490 diff changeset	407	^ 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	408
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	EmphasisForReadVariable := #underline
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	411	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	412	"
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
3241 caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	415	emphasisForReadVariable:anEmphasis
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
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	self emphasisForReadVariable:#underline
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	420	self emphasisForReadVariable:(Array with:#underline with:#underlineColor->Color yellow)
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	421	"
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
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	424	emphasisForWrittenVariable
4499 395d7282b2f0 emphasis stuff Claus Gittinger <cg@exept.de> parents: 4490 diff changeset	425	^ 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	426
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	EmphasisForWrittenVariable := #underline
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	429	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	430	"
3241 caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	431	!
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	emphasisForWrittenVariable:anEmphasis
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
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	self emphasisForWrittenVariable:#underline
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	438	self emphasisForWrittenVariable:(Array with:#underline with:#underlineColor->Color red lightened)
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	439	"
6901 34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	440	!
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	iconForClass:aClass
8851 287f3e03a645 changed: #iconForClass: Claus Gittinger <cg@exept.de> parents: 8759 diff changeset	443	"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	444	ToolbarIconLibrary"
6901 34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	445
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	446	aClass withAllSuperclassesDo:[:eachCls \|
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	447	\| iconSymbol \|
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	448
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	449	iconSymbol := eachCls iconInBrowserSymbol.
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	450	iconSymbol notNil ifTrue:[
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	451	^ ToolbarIconLibrary perform:iconSymbol
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	452	].
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
6901 34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	455	^ nil
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	456
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	457	"Created: / 17-08-2006 / 09:11:27 / cg"
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	458	"Modified: / 20-07-2007 / 09:01:43 / cg"
6901 34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	459	!
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	resourceIconForMethod:aMethod
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	462	\|resources\|
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	463
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	464	(resources := aMethod resources) isNil ifTrue:[^ nil].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	465
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	466	(resources includesKey:#obsolete) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	467	^ self deprecatedMethodIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	468	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	469	(resources includesKey:#canvas) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	470	^ self canvasIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	471	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	472	(resources includesKey:#menu) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	473	^ self menuIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	474	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	475	(resources includesKey:#image) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	476	^ self imageIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	477	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	478	(resources includesKey:#fileImage) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	479	^ self fileImageIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	480	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	481	(resources includesKey:#programImage) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	482	^ self programImageIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	483	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	484	(resources includesKey:#help) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	485	^ self helpIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	486	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	487	(resources includesKey:#programMenu) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	488	^ self programMenuIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	489	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	490	(resources includesKey:#tableColumns) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	491	^ self tableColumnsIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	492	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	493	(resources includesKey:#tabList) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	494	^ self tabListIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	495	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	496	(resources includesKey:#hierarchicalList) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	497	^ self hierarchicalListIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	498	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	499	(resources includesKey:#programImage) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	500	^ self programImageIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	501	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	502	^ nil
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	503
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	504	"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	505	! !
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	506
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	507	!SystemBrowser class methodsFor:'dialogs'!
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	508
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	509	askForClassNameMatching:matchStringArg inEnvironment:anEnvironmentOrClassOrNil for:aBrowserOrNil
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	510	"open a dialog to ask for a class name.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	511	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	512
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	513	\|classNames caselessMatchingNames
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	514	substringMatchingNames caselessSubstringMatchingNames
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	515	caselessWithoutPrefixSubstringMatchingNames
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	516	lcMatchString subMatch lcSubMatch box className
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	517	needSearch cls env searchBlock searchBlock2
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	518	idx pref aMatchString allNames sortedBySpellingDistance msg resources\|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	519
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	520	resources := self classResources.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	521	env := anEnvironmentOrClassOrNil ? Smalltalk.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	522
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	523	aMatchString := matchStringArg.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	524
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	525	"/ 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	526
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	527	(aMatchString includesString:'::') ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	528	"/ pref := aMatchString upTo:$:.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	529	idx := aMatchString lastIndexOf:$:.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	530	pref := aMatchString copyTo:idx-2.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	531	pref includesMatchCharacters ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	532	"/ search all in Smalltalk
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	533	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	534	cls := Smalltalk at:pref asSymbol ifAbsent:nil.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	535	(cls notNil and:[cls isBehavior]) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	536	env := cls.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	537	aMatchString := aMatchString copyFrom:pref size + 1 + 2.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	538	].
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	classNames := Set new.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	543	caselessMatchingNames := Set new.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	544	substringMatchingNames := Set new.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	545	caselessSubstringMatchingNames := Set new.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	546	caselessWithoutPrefixSubstringMatchingNames := Set new.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	547
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	548	lcMatchString := aMatchString asLowercase.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	549	needSearch := true.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	550	aMatchString includesMatchCharacters ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	551	subMatch := '' , aMatchString , ''.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	552	lcSubMatch := subMatch asLowercase.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	553
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	554	"/ 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	555	className := aMatchString asSymbolIfInterned.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	556	className notNil ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	557	env isNameSpace ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	558	cls := env at:className ifAbsent:nil.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	559	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	560	cls := env privateClassesAt:className.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	561	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	562	(cls notNil and:[cls isBehavior]) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	563	needSearch := false.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	564	]
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	needSearch ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	569	searchBlock := [:aClass \|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	570	\|thisName\|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	571
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	572	"/ use dotted names for java
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	573	aClass isJavaClass ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	574	thisName := aClass displayString. "/ fullName copyReplaceAll:$/ with:$.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	575	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	576	thisName := aClass name
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	577	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	578	(lcMatchString match:aClass name asLowercase) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	579	caselessWithoutPrefixSubstringMatchingNames add:thisName
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	580	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	581	aClass nameWithoutPrefix ~= aClass name ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	582	(lcMatchString match:aClass nameWithoutPrefix asLowercase) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	583	caselessWithoutPrefixSubstringMatchingNames add:thisName
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	584	].
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	(aMatchString match:thisName) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	588	classNames add:thisName
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	589	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	590	(lcMatchString match:thisName asLowercase) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	591	caselessMatchingNames add:thisName
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	592	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	593	subMatch notNil ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	594	(subMatch match:thisName) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	595	substringMatchingNames add:thisName
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	596	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	597	(lcSubMatch match:thisName asLowercase) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	598	caselessSubstringMatchingNames add:thisName
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	599	]
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	(env == Smalltalk or:[env isNameSpace]) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	607	env allClassesDo:searchBlock
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	608	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	609	env allPrivateClasses do:searchBlock
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	610	].
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	sortedBySpellingDistance := false.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	613	"/ if nothing matched - try caseless matches
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	614	classNames size == 0 ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	615	classNames := caselessMatchingNames.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	616
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	617	"/ if nothing matched - try substring matches
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	618	classNames size == 0 ifTrue:[
8704 f5b8ba75a158 some code cleanup Claus Gittinger <cg@exept.de> parents: 8702 diff changeset	619	aMatchString isUppercaseFirst ifTrue:[
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	620	classNames := substringMatchingNames.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	621	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	622	"/ if nothing matched - try caseless substring matches
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	623	classNames size == 0 ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	624	classNames := caselessSubstringMatchingNames.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	625
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	626	"/ if nothing matched - try best fitting
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	627	classNames size == 0 ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	628	aMatchString includesMatchCharacters ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	629	allNames := SortedCollection sortBlock:[:a :b \| a value > b value].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	630	searchBlock2 :=
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	631	[:aClass \|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	632	\|thisName dist\|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	633
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	634	aClass isJavaClass ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	635	thisName := aClass displayString. "/ fullName copyReplaceAll:$/ with:$.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	636	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	637	thisName := aClass name
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	638	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	639	dist := thisName asLowercase spellAgainst:lcMatchString.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	640	(thisName asLowercase startsWith:lcMatchString) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	641	dist := dist + (thisName size * 10).
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	642	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	643	allNames add:(thisName -> dist).
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	644	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	645	(env == Smalltalk or:[env isNameSpace]) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	646	env allClassesDo:searchBlock2
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	647	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	648	env allPrivateClasses do:searchBlock2
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	649	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	650	classNames := (allNames copyTo:(allNames size min:40)) collect:[:each \| each key].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	651	sortedBySpellingDistance := true.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	652	]
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	653	]
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	(classNames size == 0) ifTrue:[^ nil].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	659	(classNames size == 1) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	660	className := classNames first
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	661	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	662	\|browseButton\|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	663
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	664	sortedBySpellingDistance ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	665	classNames := classNames asArray sort.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	666	].
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	aMatchString includesMatchCharacters ifTrue:[
9065 efb483eb10a8 changed: #askForClassNameMatching:inEnvironment:for: Claus Gittinger <cg@exept.de> parents: 9010 diff changeset	669	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	670	] ifFalse:[
9065 efb483eb10a8 changed: #askForClassNameMatching:inEnvironment:for: Claus Gittinger <cg@exept.de> parents: 9010 diff changeset	671	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	672	].
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	box := self listBoxTitle:(resources string:msg with:matchStringArg) withCRs
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	675	okText:'OK'
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	676	list:classNames.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	677	caselessWithoutPrefixSubstringMatchingNames notEmpty ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	678	box initialText:(caselessWithoutPrefixSubstringMatchingNames first).
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	679	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	680	box action:[:aString \| className := aString].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	681
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	682	browseButton := Button label:(resources string:'Browse All').
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	683	browseButton action:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	684	\|classes title\|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	685
9065 efb483eb10a8 changed: #askForClassNameMatching:inEnvironment:for: Claus Gittinger <cg@exept.de> parents: 9010 diff changeset	686	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	687	classes := classNames collect:[:nm \| Smalltalk classNamed:nm].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	688	aBrowserOrNil isNil ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	689	SystemBrowser
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	690	browseClasses:classes
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	691	label:title.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	692	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	693	aBrowserOrNil
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	694	spawnClassBrowserFor:classes
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	695	label:title
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	696	in:#newBrowser
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	697	select:false.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	698	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	699	box hide
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	700	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	701	box addButton:browseButton before:box okButton.
9157 c8166dbf5a5a changed: #askForClassNameMatching:inEnvironment:for: Claus Gittinger <cg@exept.de> parents: 9065 diff changeset	702	box minExtent:300@250.
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	703
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	704	box open.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	705	(box accepted not or:[className isNil]) ifTrue:[ "/ cancel
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	706	^ nil
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	707	]
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	className notNil ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	712	"/ use slashed javaName for search.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	713	(className includes:$.) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	714	className := className copyReplaceAll:$. with:$/
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	715	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	716	].
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	"/ pref notNil ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	719	"/ ^ pref , '::' , className
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	720	"/ ].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	721	^ className
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	722
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	723	"Modified: / 16-10-2006 / 11:36:20 / cg"
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	724	!
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	listBoxTitle:title okText:okText list:aList
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	727	"convenient method: setup a listBox & return it"
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	728
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	729	\|box resources\|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	730
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	731	resources := self classResources.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	732
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	733	box := ListSelectionBox
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	734	title:(resources string:title)
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	735	okText:(resources string:okText)
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	736	action:nil.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	737	box list:aList.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	738	^ box
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	739	! !
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	740
2692 652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	741	!SystemBrowser class methodsFor:'image specs'!
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	742
2748 80829f5a575d * empty log message * Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	743	abstractMethodIcon
80829f5a575d * empty log message * Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	744	<resource: #programImage>
80829f5a575d * empty log message * Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	745
80829f5a575d * empty log message * Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	746	^ self padLockGrayMiniIcon
80829f5a575d * empty log message * Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	747	!
80829f5a575d * empty log message * Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	748
3813 7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	749	addBreakPointIcon
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	750	"This resource specification was automatically generated
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	751	by the ImageEditor of ST/X."
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	752
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	753	"Do not manually edit this!! If it is corrupted,
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	754	the ImageEditor may not be able to read the specification."
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	755
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	756	"
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	757	self addBreakPointIcon inspect
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	758	ImageEditor openOnClass:self andSelector:#addBreakPointIcon
4852 b9266dc55860 * empty log message * Claus Gittinger <cg@exept.de> parents: 4806 diff changeset	759	Icon flushCachedIcons
3813 7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	760	"
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	761
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	762	<resource: #image>
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	763
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	764	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	765	constantNamed:'SystemBrowser class addBreakPointIcon'
3813 7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	766	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	767	!
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	768
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	769	addBreakPointIcon2
6115 43cde28a3209 * empty log message * Claus Gittinger <cg@exept.de> parents: 6052 diff changeset	770	^ XPToolbarIconLibrary addBreakPointIcon2
3813 7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	771	!
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	772
4341 7bb51f44dca7 Icon for autoloaded classes Stefan Vogel <sv@exept.de> parents: 4332 diff changeset	773	autoloadedClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	774	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	775
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	776	^ ToolbarIconLibrary autoloadedClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	777
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	778	"Modified: / 20-07-2007 / 09:15:37 / cg"
4341 7bb51f44dca7 Icon for autoloaded classes Stefan Vogel <sv@exept.de> parents: 4332 diff changeset	779	!
7bb51f44dca7 Icon for autoloaded classes Stefan Vogel <sv@exept.de> parents: 4332 diff changeset	780
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	781	canvasIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	782	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	783	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	784
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	785	"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	786	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	787
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	ImageEditor openOnClass:self andSelector:#canvasIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	790	"
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	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	793
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	794	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	795	constantNamed:'SystemBrowser class canvasIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	796	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	797	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	798
4143 abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	799	containerClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	800	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	801
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	802	^ ToolbarIconLibrary containerClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	803
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	804	"Modified: / 20-07-2007 / 09:14:54 / cg"
4143 abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	805	!
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	806
2692 652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	807	defaultIcon
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	808	"This resource specification was automatically generated
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	809	by the ImageEditor of ST/X."
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	810
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	811	"Do not manually edit this!! If it is corrupted,
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	812	the ImageEditor may not be able to read the specification."
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	813
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	self defaultIcon inspect
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	816	ImageEditor openOnClass:self andSelector:#defaultIcon
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	817	"
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	<resource: #image>
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	820
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	821	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	822	constantNamed:'SystemBrowser class defaultIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	823	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	824	@@@@@@@@@@@@@@@@@@@FY&Y&Y&X0@@@@@@@@@@YDQDQDQB@@@@@@@@@@A$QDQDQDH@@@@@@@@@@CH"H"H"H @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@
3794 8e0c2bab6856 icon Claus Gittinger <cg@exept.de> parents: 3780 diff changeset	825	@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@A&Y&Y&Y#@@@@@F@"H"HFDQDQDQH@@@@@@@@@@@L"H"H"
8e0c2bab6856 icon Claus Gittinger <cg@exept.de> parents: 3780 diff changeset	826	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	827	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@B@B@ @@H@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	828	@@@@@@@@@@@@@@@@@@@@@@@@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	829	??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	830	QDBD%DQ@!!OH''HHRQEABT$QPP99]7\@@a') ; yourself); yourself]
b332c41c3daa allCallsOn fix Claus Gittinger <cg@exept.de> parents: 2830 diff changeset	831	!
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	832
5761 b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	833	deprecatedMethodIcon
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	834	^ self doNotEnterIcon
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	835	!
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	doNotEnterIcon
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	838	"This resource specification was automatically generated
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	839	by the ImageEditor of ST/X."
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	840
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	841	"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	842	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	843
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	self doNotEnterIcon inspect
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	846	ImageEditor openOnClass:self andSelector:#doNotEnterIcon
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	847	Icon flushCachedIcons
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	848	"
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	<resource: #image>
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	851
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	852	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	853	constantNamed:'SystemBrowser class doNotEnterIcon'
5761 b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	854	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	855	!
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	856
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	857	emptyIcon
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	858	"This resource specification was automatically generated
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	859	by the ImageEditor of ST/X."
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	860
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	861	"Do not manually edit this!! If it is corrupted,
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	862	the ImageEditor may not be able to read the specification."
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	863
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	864	"
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	865	self emptyIcon inspect
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	866	ImageEditor openOnClass:self andSelector:#emptyIcon
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	867	"
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	868
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	869	<resource: #image>
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	870
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	871	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	872	constantNamed:'SystemBrowser class emptyIcon'
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	873	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	874
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	875	"Created: / 5.11.2001 / 09:39:54 / cg"
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	876	!
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	877
4143 abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	878	errorClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	879	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	880
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	881	^ ToolbarIconLibrary errorClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	882
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	883	"Modified: / 20-07-2007 / 09:14:06 / cg"
4143 abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	884	!
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	885
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	886	exceptionClassIcon
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	887	"This resource specification was automatically generated
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	888	by the ImageEditor of ST/X."
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	889
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	890	"Do not manually edit this!! If it is corrupted,
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	891	the ImageEditor may not be able to read the specification."
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	892
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	893	"
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	894	self exceptionClassIcon inspect
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	895	ImageEditor openOnClass:self andSelector:#exceptionClassIcon
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	896	Icon flushCachedIcons
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	897	"
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	898
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	899	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	900
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	901	^ ToolbarIconLibrary exceptionClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	902
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	903	"Modified: / 20-07-2007 / 09:13:18 / cg"
4143 abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	904	!
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	905
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	906	fileImageIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	907	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	908	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	909
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	910	"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	911	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	912
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	self fileImageIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	915	ImageEditor openOnClass:self andSelector:#fileImageIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	916	"
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	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	919
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	920	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	921	constantNamed:'SystemBrowser class fileImageIcon'
2846 b332c41c3daa allCallsOn fix Claus Gittinger <cg@exept.de> parents: 2830 diff changeset	922	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	923	!
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	924
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	925	greenCheckIcon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	926	"This resource specification was automatically generated
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	927	by the ImageEditor of ST/X."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	928
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	929	"Do not manually edit this!! If it is corrupted,
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	930	the ImageEditor may not be able to read the specification."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	931
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	self greenCheckIcon inspect
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	934	ImageEditor openOnClass:self andSelector:#greenCheckIcon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	935	Icon flushCachedIcons
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	936	"
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	<resource: #image>
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	939
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	940	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	941	constantNamed:'SystemBrowser class greenCheckIcon'
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	942	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	943	!
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	944
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	945	greenLockIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	946	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	947	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	948
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	949	"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	950	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	951
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	self greenLockIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	954	ImageEditor openOnClass:self andSelector:#greenLockIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	955	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	956
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	957	<resource: #programImage>
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	958
2892 1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	959	^ self padLockGreenMiniIcon
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	960
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	961	"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	962	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	963
4165 5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	964	greenThumbUpIcon
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	965	"This resource specification was automatically generated
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	966	by the ImageEditor of ST/X."
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	967
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	968	"Do not manually edit this!! If it is corrupted,
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	969	the ImageEditor may not be able to read the specification."
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	970
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	self greenThumbUpIcon inspect
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	973	ImageEditor openOnClass:self andSelector:#greenThumbUpIcon
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	974	Icon flushCachedIcons
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	975	"
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	<resource: #image>
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	978
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	979	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	980	constantNamed:'SystemBrowser class greenThumbUpIcon'
4165 5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	981	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	982	@@@@@@@@@@@@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	983	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	984	!
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	985
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	986	greenThumbUpSmallIcon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	987	"This resource specification was automatically generated
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	988	by the ImageEditor of ST/X."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	989
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	990	"Do not manually edit this!! If it is corrupted,
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	991	the ImageEditor may not be able to read the specification."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	992
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	self greenThumbUpSmallIcon inspect
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	995	ImageEditor openOnClass:self andSelector:#greenThumbUpSmallIcon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	996	Icon flushCachedIcons
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	997	"
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	<resource: #image>
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1000
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1001	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1002	constantNamed:'SystemBrowser class greenThumbUpSmallIcon'
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1003	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	1004	!
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	greyCheckIcon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1007	"This resource specification was automatically generated
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1008	by the ImageEditor of ST/X."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1009
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1010	"Do not manually edit this!! If it is corrupted,
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1011	the ImageEditor may not be able to read the specification."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1012
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	self greyCheckIcon inspect
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1015	ImageEditor openOnClass:self andSelector:#greyCheckIcon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1016	Icon flushCachedIcons
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1017	"
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	<resource: #image>
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1020
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1021	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1022	constantNamed:'SystemBrowser class greyCheckIcon'
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1023	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	1024	!
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1025
4165 5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1026	greyThumbUpIcon
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1027	"This resource specification was automatically generated
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1028	by the ImageEditor of ST/X."
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1029
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1030	"Do not manually edit this!! If it is corrupted,
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1031	the ImageEditor may not be able to read the specification."
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1032
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	self greyThumbUpIcon inspect
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1035	ImageEditor openOnClass:self andSelector:#greyThumbUpIcon
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1036	Icon flushCachedIcons
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1037	"
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	<resource: #image>
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1040
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1041	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1042	constantNamed:'SystemBrowser class greyThumbUpIcon'
4165 5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1043	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	1044	@@@@@@@@@@ @@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	1045	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	1046	!
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1047
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1048	helpIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1049	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1050	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1051
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1052	"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	1053	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	1054
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	self helpIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1057	ImageEditor openOnClass:self andSelector:#helpIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1058	"
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	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1061
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1062	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1063	constantNamed:'SystemBrowser class helpIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1064	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	1065	!
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	hierarchicalListIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1068	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1069	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1070
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1071	"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	1072	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	1073
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	ImageEditor openOnClass:self andSelector:#hierarchicalListIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1076	"
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	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1079
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1080	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1081	constantNamed:'SystemBrowser class hierarchicalListIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1082	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	1083	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1084
5997 a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1085	ignoredMethodIcon
a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1086	<resource: #programImage>
a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1087
a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1088	^ self padLockBlackMiniIcon
a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1089	!
a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1090
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1091	imageIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1092	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1093	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1094
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1095	"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	1096	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	1097
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	self imageIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1100	ImageEditor openOnClass:self andSelector:#imageIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1101	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1102
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1103	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1104
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1105	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1106	constantNamed:'SystemBrowser class imageIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1107	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	1108	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1109
10048 9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1110	instVarOverlayXmlSpec
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1111	"This resource specification was automatically generated
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1112	by the ImageEditor of ST/X."
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1113
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1114	"Do not manually edit this!! If it is corrupted,
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1115	the ImageEditor may not be able to read the specification."
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1116
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	self instVarOverlayXmlSpec inspect
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1119	ImageEditor openOnClass:self andSelector:#instVarOverlayXmlSpec
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1120	Icon flushCachedIcons
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1121	"
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	<resource: #image>
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1124
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1125	^Icon
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1126	constantNamed:'SystemBrowser class instVarOverlayXmlSpec'
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1127	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	1128	@@@@@@@@@@@@@@@@BA@XFC@L[>[O8<=#[7X0CA XBA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1129	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1130	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1131	!
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1132
7992 425aa862d872 * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	1133	instrumentationIcon
425aa862d872 * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	1134	<resource: #programImage>
425aa862d872 * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	1135
425aa862d872 * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	1136	^ ToolbarIconLibrary pipette16x16Icon
425aa862d872 * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	1137	!
425aa862d872 * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	1138
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1139	medium_methodEmptyInheritedIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1140	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1141	by the ImageEditor of ST/X."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1142
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1143	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1144	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1145
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	self medium_methodEmptyInheritedIcon inspect
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1148	ImageEditor openOnClass:self andSelector:#medium_methodEmptyInheritedIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1149	"
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	<resource: #image>
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1152
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1153	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1154	constantNamed:'SystemBrowser class medium_methodEmptyInheritedIcon'
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1155	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	1156	!
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	medium_methodInheritedFromAboveAndRedefinedBelowIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1159	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1160	by the ImageEditor of ST/X."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1161
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1162	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1163	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1164
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	self medium_methodInheritedFromAboveAndRedefinedBelowIcon inspect
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1167	ImageEditor openOnClass:self andSelector:#medium_methodInheritedFromAboveAndRedefinedBelowIcon
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1168	Icon flushCachedIcons
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1169	"
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	<resource: #image>
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1172
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1173	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1174	constantNamed:'SystemBrowser class medium_methodInheritedFromAboveAndRedefinedBelowIcon'
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1175	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	1176	!
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	medium_methodInheritedFromAboveIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1179	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1180	by the ImageEditor of ST/X."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1181
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1182	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1183	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1184
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1185	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1186	self medium_methodInheritedFromAboveIcon inspect
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1187	ImageEditor openOnClass:self andSelector:#medium_methodInheritedFromAboveIcon
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1188	Icon flushCachedIcons
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1189	"
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	<resource: #image>
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1192
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1193	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1194	constantNamed:'SystemBrowser class medium_methodInheritedFromAboveIcon'
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1195	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	1196	!
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	medium_methodRedefinedBelowIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1199	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1200	by the ImageEditor of ST/X."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1201
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1202	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1203	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1204
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	self medium_methodRedefinedBelowIcon inspect
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1207	ImageEditor openOnClass:self andSelector:#medium_methodRedefinedBelowIcon
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1208	Icon flushCachedIcons
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1209	"
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	<resource: #image>
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1212
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1213	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1214	constantNamed:'SystemBrowser class medium_methodRedefinedBelowIcon'
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1215	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	1216	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1217
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1218	menuIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1219	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1220	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1221
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1222	"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	1223	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	1224
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	self menuIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1227	ImageEditor openOnClass:self andSelector:#menuIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1228	"
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	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1231
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1232	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1233	constantNamed:'SystemBrowser class menuIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1234	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	1235	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1236
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1237	methodEmptyInheritedIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1238	^ self small_methodEmptyInheritedIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1239	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1240
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1241	methodInheritedFromAboveAndRedefinedBelowIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1242	^ self small_methodInheritedFromAboveAndRedefinedBelowIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1243	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1244
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1245	methodInheritedFromAboveIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1246	^ self small_methodInheritedFromAboveIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1247	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1248
5761 b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1249	methodIsSubclassResponsibilityAndRedefinedBelowIcon
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1250	"This resource specification was automatically generated
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1251	by the ImageEditor of ST/X."
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1252
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1253	"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	1254	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	1255
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	self methodIsSubclassResponsibilityAndRedefinedBelowIcon inspect
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1258	ImageEditor openOnClass:self andSelector:#methodIsSubclassResponsibilityAndRedefinedBelowIcon
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1259	Icon flushCachedIcons
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1260	"
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	<resource: #image>
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1263
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1264	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1265	constantNamed:'SystemBrowser class methodIsSubclassResponsibilityAndRedefinedBelowIcon'
5761 b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1266	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	1267	!
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	methodIsSubclassResponsibilityIcon
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1270	"This resource specification was automatically generated
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1271	by the ImageEditor of ST/X."
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1272
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1273	"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	1274	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	1275
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	self methodIsSubclassResponsibilityIcon inspect
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1278	ImageEditor openOnClass:self andSelector:#methodIsSubclassResponsibilityIcon
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1279	Icon flushCachedIcons
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1280	"
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	<resource: #image>
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1283
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1284	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1285	constantNamed:'SystemBrowser class methodIsSubclassResponsibilityIcon'
5761 b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1286	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	1287	!
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1288
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1289	methodRedefinedBelowIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1290	^ self small_methodRedefinedBelowIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1291	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1292
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1293	nameSpaceIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1294	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1295
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1296	^ ToolbarIconLibrary nameSpaceBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1297
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1298	"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	1299	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1300
4308 9957b7ab92e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4275 diff changeset	1301	notificationClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1302	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1303
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1304	^ ToolbarIconLibrary notificationClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1305
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1306	"Modified: / 20-07-2007 / 09:11:21 / cg"
4308 9957b7ab92e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4275 diff changeset	1307	!
9957b7ab92e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4275 diff changeset	1308
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1309	packageIcon
8853 a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1310	<resource: #programImage>
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1311
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1312	^ ToolbarIconLibrary smallYellowPackageIcon
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1313	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1314
6954 b10a2c15fee5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6944 diff changeset	1315	packageIconGraySmall
8853 a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1316	<resource: #programImage>
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1317
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1318	^ ToolbarIconLibrary smallGrayPackageIcon
6954 b10a2c15fee5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6944 diff changeset	1319	!
b10a2c15fee5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6944 diff changeset	1320
6925 388067acd009 * empty log message * Claus Gittinger <cg@exept.de> parents: 6913 diff changeset	1321	packageIconGreenSmall
8853 a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1322	<resource: #programImage>
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1323
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1324	^ ToolbarIconLibrary smallGreenPackageIcon
6925 388067acd009 * empty log message * Claus Gittinger <cg@exept.de> parents: 6913 diff changeset	1325	!
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	packageIconOrangeSmall
8853 a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1328	<resource: #programImage>
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1329
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1330	^ ToolbarIconLibrary smallOrangePackageIcon
6925 388067acd009 * empty log message * Claus Gittinger <cg@exept.de> parents: 6913 diff changeset	1331	!
388067acd009 * empty log message * Claus Gittinger <cg@exept.de> parents: 6913 diff changeset	1332
6901 34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	1333	packageIconSmall
8853 a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1334	<resource: #programImage>
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1335
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1336	^ ToolbarIconLibrary smallYellowPackageIcon
6901 34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	1337	!
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	1338
5997 a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1339	padLockBlackMiniIcon
6333 d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1340	<resource: #programImage>
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1341
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1342	^ XPToolbarIconLibrary padLockBlackMiniIcon
5997 a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1343	!
a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1344
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1345	padLockBlueMiniIcon
6333 d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1346	<resource: #programImage>
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1347
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1348	^ XPToolbarIconLibrary padLockBlueMiniIcon
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1349	!
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	padLockGrayMiniIcon
6333 d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1352	<resource: #programImage>
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1353
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1354	^ GenericToolbarIconLibrary padLockGrayMiniIcon
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1355	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1356
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1357	padLockGreenMiniIcon
6333 d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1358	<resource: #programImage>
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1359
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1360	^ GenericToolbarIconLibrary padLockGreenMiniIcon
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1361	!
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	padLockRedMiniIcon
6333 d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1364	<resource: #programImage>
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1365
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1366	^ GenericToolbarIconLibrary padLockRedMiniIcon
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1367	!
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	privateMethodIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1370	<resource: #programImage>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1371
2748 80829f5a575d * empty log message * Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	1372	^ self padLockRedMiniIcon
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1373	!
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	programImageIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1376	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1377	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1378
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1379	"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	1380	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	1381
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	self programImageIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1384	ImageEditor openOnClass:self andSelector:#programImageIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1385	"
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	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1388
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1389	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1390	constantNamed:#'SystemBrowser class programImageIcon'
2846 b332c41c3daa allCallsOn fix Claus Gittinger <cg@exept.de> parents: 2830 diff changeset	1391	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	1392	!
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1393
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1394	programMenuIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1395	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1396	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1397
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1398	"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	1399	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	1400
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	self programMenuIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1403	ImageEditor openOnClass:self andSelector:#programMenuIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1404	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1405
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1406	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1407
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1408	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1409	constantNamed:#'SystemBrowser class programMenuIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1410	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	1411	!
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	protectedMethodIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1414	<resource: #programImage>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1415
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1416	^ self padLockGreenMiniIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1417	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1418
4308 9957b7ab92e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4275 diff changeset	1419	queryClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1420	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1421
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1422	^ ToolbarIconLibrary queryClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1423
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1424	"Modified: / 20-07-2007 / 09:10:32 / cg"
4308 9957b7ab92e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4275 diff changeset	1425	!
9957b7ab92e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4275 diff changeset	1426
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1427	redCheckIcon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1428	"This resource specification was automatically generated
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1429	by the ImageEditor of ST/X."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1430
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1431	"Do not manually edit this!! If it is corrupted,
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1432	the ImageEditor may not be able to read the specification."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1433
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	self redCheckIcon inspect
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1436	ImageEditor openOnClass:self andSelector:#redCheckIcon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1437	Icon flushCachedIcons
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1438	"
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	<resource: #image>
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1441
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1442	^Icon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1443	constantNamed:#'SystemBrowser class redCheckIcon'
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1444	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	1445	!
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1446
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1447	redLockIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1448	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1449	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1450
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1451	"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	1452	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	1453
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1454	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1455	self redLockIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1456	ImageEditor openOnClass:self andSelector:#redLockIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1457	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1458
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1459	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1460
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1461	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1462	constantNamed:#'SystemBrowser class redLockIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1463	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	1464	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1465
4165 5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1466	redThumbDownIcon
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1467	"This resource specification was automatically generated
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1468	by the ImageEditor of ST/X."
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1469
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1470	"Do not manually edit this!! If it is corrupted,
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1471	the ImageEditor may not be able to read the specification."
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1472
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	self redThumbDownIcon inspect
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1475	ImageEditor openOnClass:self andSelector:#redThumbDownIcon
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1476	Icon flushCachedIcons
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1477	"
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	<resource: #image>
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1480
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1481	^Icon
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1482	constantNamed:#'SystemBrowser class redThumbDownIcon'
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1483	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	1484	@@@@@@@@@@@@@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	1485	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	1486	!
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1487
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1488	redThumbDownSmallIcon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1489	"This resource specification was automatically generated
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1490	by the ImageEditor of ST/X."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1491
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1492	"Do not manually edit this!! If it is corrupted,
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1493	the ImageEditor may not be able to read the specification."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1494
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	self redThumbDownSmallIcon inspect
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1497	ImageEditor openOnClass:self andSelector:#redThumbDownSmallIcon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1498	Icon flushCachedIcons
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1499	"
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	<resource: #image>
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1502
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1503	^Icon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1504	constantNamed:#'SystemBrowser class redThumbDownSmallIcon'
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	1505	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	1506	!
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1507
3813 7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	1508	removeBreakPointIcon2
6115 43cde28a3209 * empty log message * Claus Gittinger <cg@exept.de> parents: 6052 diff changeset	1509	^ XPToolbarIconLibrary removeBreakPointIcon2
3813 7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	1510	!
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	1511
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1512	small_methodEmptyInheritedIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1513	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1514	by the ImageEditor of ST/X."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1515
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1516	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1517	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1518
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	self small_methodEmptyInheritedIcon inspect
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1521	ImageEditor openOnClass:self andSelector:#small_methodEmptyInheritedIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1522	"
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	<resource: #image>
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1525
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1526	^Icon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1527	constantNamed:#'SystemBrowser class small_methodEmptyInheritedIcon'
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1528	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	1529	!
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	small_methodInheritedFromAboveAndRedefinedBelowIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1532	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1533	by the ImageEditor of ST/X."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1534
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1535	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1536	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1537
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1538	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1539	self small_methodInheritedFromAboveAndRedefinedBelowIcon inspect
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1540	ImageEditor openOnClass:self andSelector:#small_methodInheritedFromAboveAndRedefinedBelowIcon
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1541	Icon flushCachedIcons
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1542	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1543
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1544	<resource: #image>
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1545
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1546	^Icon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1547	constantNamed:#'SystemBrowser class small_methodInheritedFromAboveAndRedefinedBelowIcon'
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1548	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	1549	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1550
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1551	small_methodInheritedFromAboveIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1552	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1553	by the ImageEditor of ST/X."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1554
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1555	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1556	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1557
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1558	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1559	self small_methodInheritedFromAboveIcon inspect
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1560	ImageEditor openOnClass:self andSelector:#small_methodInheritedFromAboveIcon
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1561	Icon flushCachedIcons
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1562	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1563
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1564	<resource: #image>
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1565
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1566	^Icon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1567	constantNamed:#'SystemBrowser class small_methodInheritedFromAboveIcon'
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1568	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	1569	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1570
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1571	small_methodRedefinedBelowIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1572	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1573	by the ImageEditor of ST/X."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1574
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1575	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1576	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1577
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1578	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1579	self small_methodRedefinedBelowIcon inspect
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1580	ImageEditor openOnClass:self andSelector:#small_methodRedefinedBelowIcon
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1581	Icon flushCachedIcons
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1582	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1583
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1584	<resource: #image>
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1585
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1586	^Icon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1587	constantNamed:#'SystemBrowser class small_methodRedefinedBelowIcon'
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1588	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	1589	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1590
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1591	startableClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1592	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1593
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1594	^ ToolbarIconLibrary startableClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1595
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1596	"Created: / 05-11-2001 / 09:50:16 / cg"
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1597	"Modified: / 20-07-2007 / 09:09:40 / cg"
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1598	!
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1599
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1600	startableVisualAppIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1601	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1602
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1603	^ ToolbarIconLibrary visualStartableClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1604
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1605	"Created: / 05-11-2001 / 09:49:00 / cg"
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1606	"Modified: / 20-07-2007 / 09:08:34 / cg"
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1607	!
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1608
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1609	stopIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1610	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1611	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1612
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1613	"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	1614	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	1615
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	self stopIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1618	ImageEditor openOnClass:self andSelector:#stopIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1619	"
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	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1622
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1623	^Icon
3813 7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	1624	constantNamed:#'SystemBrowser class stopIcon'
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	1625	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	1626	!
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	tabListIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1629	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1630	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1631
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1632	"Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1633	the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1634
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1635	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1636	self tabListIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1637	ImageEditor openOnClass:self andSelector:#tabListIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1638	"
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	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1641
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1642	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1643	constantNamed:#'SystemBrowser class tabListIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1644	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	1645	!
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	tableColumnsIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1648	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1649	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1650
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1651	"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	1652	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	1653
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	self tableColumnsIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1656	ImageEditor openOnClass:self andSelector:#tableColumnsIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1657	"
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	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1660
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1661	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1662	constantNamed:#'SystemBrowser class tableColumnsIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1663	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	1664	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1665
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1666	testCaseClassIcon
8862 dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1667	<resource: #programImage>
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1668
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1669	"/ only left here for backward compatibility...
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1670	^ ToolbarIconLibrary testCaseClassIcon
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1671	!
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1672
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1673	testCaseClassIconFor:cls
4167 588e05d2124d * empty log message * Claus Gittinger <cg@exept.de> parents: 4166 diff changeset	1674	<resource: #programImage>
588e05d2124d * empty log message * Claus Gittinger <cg@exept.de> parents: 4166 diff changeset	1675
8862 dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1676	"/ decision moved to TestCase - see there.
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1677	"/ only left here for backward compatibility...
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1678
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1679	\|lastResult\|
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1680
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	1681	lastResult := cls lastTestRunResultOrNil.
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1682
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1683	lastResult == true ifTrue:[
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1684	^ self testCasePassedIcon
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1685	].
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1686	lastResult == false ifTrue:[
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1687	^ self testCaseFailedIcon
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1688	].
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1689	^ self testCaseUnknownResultIcon
6848 27b76bc54f22 * empty log message * Claus Gittinger <cg@exept.de> parents: 6776 diff changeset	1690
27b76bc54f22 * empty log message * Claus Gittinger <cg@exept.de> parents: 6776 diff changeset	1691	"Modified: / 06-08-2006 / 11:14:12 / cg"
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1692	!
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1693
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1694	testCaseFailedIcon
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1695	<resource: #programImage>
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1696
8862 dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1697	"/ only left here for backward compatibility...
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1698	^ ToolbarIconLibrary testCaseFailedIcon
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1699	!
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1700
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1701	testCasePassedIcon
8862 dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1702	<resource: #programImage>
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1703
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1704	"/ only left here for backward compatibility...
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1705	^ ToolbarIconLibrary testCasePassedIcon
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1706	!
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1707
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1708	testCaseUnknownResultIcon
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1709	<resource: #programImage>
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1710
8862 dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1711	"/ only left here for backward compatibility...
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1712	^ ToolbarIconLibrary testCaseClassIcon
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1713	!
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1714
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1715	timeIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1716	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1717	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1718
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1719	"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	1720	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	1721
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	self timeIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1724	ImageEditor openOnClass:self andSelector:#timeIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1725	"
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	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1728
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1729	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1730	constantNamed:#'SystemBrowser class timeIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1731	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	1732	!
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	traceIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1735	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1736	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1737
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1738	"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	1739	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	1740
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	self traceIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1743	ImageEditor openOnClass:self andSelector:#traceIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1744	"
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	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1747
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1748	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1749	constantNamed:#'SystemBrowser class traceIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1750	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	1751	!
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	visualStartableClassIcon
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1754	"This resource specification was automatically generated
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1755	by the ImageEditor of ST/X."
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1756
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1757	"Do not manually edit this!! If it is corrupted,
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1758	the ImageEditor may not be able to read the specification."
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1759
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	self visualStartableClassIcon inspect
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1762	ImageEditor openOnClass:self andSelector:#visualStartableClassIcon
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1763	"
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	<resource: #image>
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1766
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1767	^Icon
2892 1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1768	constantNamed:#'SystemBrowser class visualStartableClassIcon'
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1769	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	1770
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1771	"Modified: / 5.11.2001 / 09:49:30 / cg"
2892 1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1772	!
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1773
4275 aeaf7c245b7a * empty log message * Claus Gittinger <cg@exept.de> parents: 4270 diff changeset	1774	warningClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1775	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1776
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1777	^ ToolbarIconLibrary warningClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1778
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1779	"Modified: / 20-07-2007 / 09:04:39 / cg"
4275 aeaf7c245b7a * empty log message * Claus Gittinger <cg@exept.de> parents: 4270 diff changeset	1780	!
aeaf7c245b7a * empty log message * Claus Gittinger <cg@exept.de> parents: 4270 diff changeset	1781
2892 1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1782	watchIcon
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1783	"This resource specification was automatically generated
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1784	by the ImageEditor of ST/X."
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1785
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1786	"Do not manually edit this!! If it is corrupted,
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1787	the ImageEditor may not be able to read the specification."
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1788
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	self watchIcon inspect
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1791	ImageEditor openOnClass:self andSelector:#watchIcon
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1792	"
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	<resource: #image>
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1795
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1796	^Icon
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1797	constantNamed:#'SystemBrowser class watchIcon'
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1798	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	1799	!
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1800
4143 abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	1801	windowClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1802	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1803
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1804	^ ToolbarIconLibrary windowClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1805
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1806	"Modified: / 20-07-2007 / 09:05:57 / cg"
4143 abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	1807	!
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	1808
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1809	windowIcon
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1810	"This resource specification was automatically generated
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1811	by the ImageEditor of ST/X."
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1812
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1813	"Do not manually edit this!! If it is corrupted,
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1814	the ImageEditor may not be able to read the specification."
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1815
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1816	"
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1817	self windowIcon inspect
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1818	ImageEditor openOnClass:self andSelector:#windowIcon
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1819	"
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1820
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1821	<resource: #image>
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1822
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1823	^Icon
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1824	constantNamed:#'SystemBrowser class windowIcon'
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1825	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	1826
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1827	"Created: / 5.11.2001 / 09:39:03 / cg"
2846 b332c41c3daa allCallsOn fix Claus Gittinger <cg@exept.de> parents: 2830 diff changeset	1828	! !
2692 652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	1829
1203 ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1830	!SystemBrowser class methodsFor:'interface specs'!
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1831
1367 80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1832	metaSpec
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1833	"UIPainter new openOnClass: self andSelector: #metaSpec"
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1834
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1835	<resource: #canvas>
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1836	^#(#FullSpec
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1837	#window:
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1838	#(#WindowSpec
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1839	#label: 'Unlabeled Canvas'
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1840	#bounds: #(#Rectangle 27 249 325 334 ) )
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1841	#component:
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1842	#(#SpecCollection
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1843	#collection: #(
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1844	#(#RadioButtonSpec
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1845	#layout: #(#LayoutFrame 0 0 4 0 -1 0.575 20 0 )
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1846	#name: #instanceSwitch
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1847	#model: #metaHolder
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1848	#callbacksSpec:
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1849	#(#UIEventCallbackSubSpec
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1850	#requestValueChangeSelector: #changeRequest )
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1851	#label: 'instance'
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1852	#select: false )
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1853	#(#RadioButtonSpec
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1854	#layout: #(#LayoutFrame 1 0.575 4 0 -1 1 20 0 )
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1855	#name: #classSwitch
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1856	#model: #metaHolder
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1857	#callbacksSpec:
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1858	#(#UIEventCallbackSubSpec
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1859	#requestValueChangeSelector: #changeRequest )
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1860	#label: 'class'
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1861	#select: true ) ) ) )
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1862
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1863	"Created: / 30.10.1997 / 19:07:29 / cg"
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1864	!
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1865
1203 ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1866	methodMoveDialogSpec
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1867	"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	1868
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1869	"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	1870	handle the specification if its corrupted."
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1871
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	UIPainter new openOnClass:SystemBrowser andSelector:#methodMoveDialogSpec
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1874	SystemBrowser new openDialogInterface:#methodMoveDialogSpec
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1875	"
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	<resource: #canvas>
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1878
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	#(#FullSpec
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1882	#'window:'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1883	#(#WindowSpec
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1884	#'name:' 'uIPainterView'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1885	#'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	1886	#'label:' 'move method'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1887	#'bounds:' #(#Rectangle 0 0 279 118)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1888	)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1889	#'component:'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1890	#(#SpecCollection
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1891	#'collection:'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1892	#(
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1893	#(#HorizontalPanelViewSpec
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1894	#'name:' 'horizontalPanelView'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1895	#'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	1896	#'component:'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1897	#(#SpecCollection
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1898	#'collection:'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1899	#(
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1900	#(#ActionButtonSpec
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1901	#'name:' 'actionButton2'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1902	#'label:' 'cancel'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1903	#'tabable:' true
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1904	#'model:' #cancel
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1905	#'extent:' #(#Point 133 27)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1906	)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1907	#(#ActionButtonSpec
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1908	#'name:' 'actionButton1'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1909	#'label:' 'move'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1910	#'tabable:' true
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1911	#'isDefault:' true
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1912	#'model:' #accept
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1913	#'extent:' #(#Point 134 27)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1914	)
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	#'level:' 0
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1918	#'horizontalLayout:' #fitSpace
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1919	#'verticalLayout:' #center
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1920	#'horizontalSpace:' 4
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1921	#'verticalSpace:' 4
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1922	)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1923	#(#LabelSpec
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1924	#'name:' 'label'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1925	#'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	1926	#'label:' 'move current method to which class:'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1927	#'style:'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1928	#(#Font
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1929	'helvetica' 'medium'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1930	'roman' 12
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1931	)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1932	#'foregroundColor:' #(#Color 0.0 0.0 0.0)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1933	#'backgroundColor:' #(#Color 66.9993 66.9993 66.9993)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1934	#'adjust:' #left
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1935	)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1936	#(#ComboBoxSpec
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1937	#'name:' 'comboBox1'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1938	#'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	1939	#'tabable:' true
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1940	#'model:' #className
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1941	#'comboList:' #classList
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1942	)
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	"Created: 25.6.1997 / 13:45:20 / cg"
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1948	"Modified: 25.6.1997 / 13:46:44 / cg"
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1949	! !
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1950
4860 8e1a4b990512 method category rename Claus Gittinger <cg@exept.de> parents: 4852 diff changeset	1951	!SystemBrowser class methodsFor:'private-helpers'!
36 ccde5a941840 * empty log message * claus parents: diff changeset	1952
2880 ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1953	askForPackageChangeFrom:oldPkg to:newPkg
3626 abf84bdbfdb2 Remove unused method vars Stefan Vogel <sv@exept.de> parents: 3621 diff changeset	1954	\|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	1955
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1956	box := OptionBox
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1957	title:
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1958	('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	1959	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	1960	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	1961	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	1962	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	1963	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	1964	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	1965
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1966	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	1967	bindWith:(oldPkg allBold)
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1968	with:(newPkg allBold))
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1969	numberOfOptions:3.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1970
3476 685f67f7e818 * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	1971	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	1972	box defaultButtonIndex:3.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1973	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	1974	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	1975	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	1976	box addVerticalSpace:10.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1977	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	1978	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	1979	box resize.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1980	box showAtPointer.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1981	box destroy.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1982
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1983	(answer ~~ #cancel) ifTrue:[
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1984	notAgain value ifTrue:[
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1985	Class catchMethodRedefinitions:false.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1986	].
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	^ answer.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1989	!
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	1990
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	1991	showNoneFound
3244 1e41eccb08b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	1992	self warn:(self classResources string:'None found.').
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	1993	!
36 ccde5a941840 * empty log message * claus parents: diff changeset	1994
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	1995	showNoneFound:what
1620 51341ec8360b checkin from browser Claus Gittinger <cg@exept.de> parents: 1573 diff changeset	1996	\|rs\|
51341ec8360b checkin from browser Claus Gittinger <cg@exept.de> parents: 1573 diff changeset	1997
51341ec8360b checkin from browser Claus Gittinger <cg@exept.de> parents: 1573 diff changeset	1998	rs := self classResources.
3244 1e41eccb08b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	1999	self information:((rs string:what) , (rs string:'...\\... none found.')) withCRs.
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2000	! !
36 ccde5a941840 * empty log message * claus parents: diff changeset	2001
4860 8e1a4b990512 method category rename Claus Gittinger <cg@exept.de> parents: 4852 diff changeset	2002	!SystemBrowser class methodsFor:'private-instance creation'!
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2003
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2004	newWithLabel:aString setupBlock:aBlock
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2005	"common helper method for all creation methods"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2006
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2007	^ self newWithLabel:aString setupBlock:aBlock onDevice:Screen current
36 ccde5a941840 * empty log message * claus parents: diff changeset	2008	!
ccde5a941840 * empty log message * claus parents: diff changeset	2009
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2010	newWithLabel:aString setupBlock:aBlock onDevice:aWorkstation
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2011	"common helper method for all creation methods"
36 ccde5a941840 * empty log message * claus parents: diff changeset	2012
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2013	\|newBrowser\|
45 950b84ba89e6 * empty log message * claus parents: 41 diff changeset	2014
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2015	newBrowser := BrowserView onDevice:aWorkstation.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2016	newBrowser title:aString.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2017	aBlock value:newBrowser.
45 950b84ba89e6 * empty log message * claus parents: 41 diff changeset	2018
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2019	newBrowser open.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2020	^ newBrowser
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2021	!
45 950b84ba89e6 * empty log message * claus parents: 41 diff changeset	2022
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2023	newWithLabel:aString setupSelector:aSymbol arg:arg
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2024	"common helper method for all creation methods"
36 ccde5a941840 * empty log message * claus parents: diff changeset	2025
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2026	^ self newWithLabel:aString setupSelector:aSymbol arg:arg onDevice:Screen current
36 ccde5a941840 * empty log message * claus parents: diff changeset	2027	!
ccde5a941840 * empty log message * claus parents: diff changeset	2028
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2029	newWithLabel:aString setupSelector:aSymbol arg:arg onDevice:aWorkstation
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2030	"common helper method for all creation methods"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2031
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2032	\|newBrowser\|
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2033
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2034	newBrowser := BrowserView onDevice:aWorkstation.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2035	newBrowser title:aString.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2036	newBrowser perform:aSymbol with:arg.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2037	newBrowser open.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2038	^ newBrowser
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2039	! !
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2040
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2041	!SystemBrowser class methodsFor:'special search startup'!
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2042
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2043	allCallsOn:aSelectorString
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2044	"return a collection of methods which send aSelector."
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2045
9007 7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2046	^ self
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2047	allCallsOn:aSelectorString
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2048	in:(Smalltalk allClasses)
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2049	ignoreCase:false
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2050	match:false
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2051
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	SystemBrowser allCallsOn:#at:put:
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2054	"
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	"Created: 24.1.1997 / 19:42:57 / cg"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2057	!
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	allCallsOn:aSelectorString in:aCollectionOfClasses
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2060	"return a collection of methods which send aSelector.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2061	Methods from classes in aCollectionOfClasses are searched only."
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2062
9007 7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2063	^ self
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2064	allCallsOn:aSelectorString
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2065	in:aCollectionOfClasses
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2066	ignoreCase:false
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2067	match:false
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2068	!
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	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	2071	"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	2072	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	2073
9007 7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2074	^ self
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2075	allCallsOn:aSelectorString
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2076	in:aCollectionOfClasses
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2077	ignoreCase:ignoreCase
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2078	match:true
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2079
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	SystemBrowser allCallsOn:#at:put: in:(Smalltalk allClasses)
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2082	"
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	"Modified: 18.4.1997 / 10:32:50 / cg"
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2085	!
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	allCallsOn:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2088	"return a collection of methods which send aSelector.
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2089	Methods from classes in aCollectionOfClasses are searched only."
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2090
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	2091	\|sel searchBlock classesSearched\|
3471 4c4b41516d96 care for empty selector in allCallsOn. Claus Gittinger <cg@exept.de> parents: 3470 diff changeset	2092
4c4b41516d96 care for empty selector in allCallsOn. Claus Gittinger <cg@exept.de> parents: 3470 diff changeset	2093	aSelectorString size == 0 ifTrue:[ ^ #() ].
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2094	doMatch ifFalse:[
5090 1d20f51a7d6f checkin from browser Claus Gittinger <cg@exept.de> parents: 5018 diff changeset	2095	ignoreCase ifFalse:[
1d20f51a7d6f checkin from browser Claus Gittinger <cg@exept.de> parents: 5018 diff changeset	2096	sel := aSelectorString asSymbolIfInterned.
1d20f51a7d6f checkin from browser Claus Gittinger <cg@exept.de> parents: 5018 diff changeset	2097	sel isNil ifTrue:[
1d20f51a7d6f checkin from browser Claus Gittinger <cg@exept.de> parents: 5018 diff changeset	2098	^ #() "/ none (no such selector)
1d20f51a7d6f checkin from browser Claus Gittinger <cg@exept.de> parents: 5018 diff changeset	2099	].
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2100	].
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2101	].
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	2102
2901 8d162dedd271 * empty log message * Claus Gittinger <cg@exept.de> parents: 2892 diff changeset	2103	classesSearched := aCollectionOfClasses.
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2104	(doMatch and:[aSelectorString includesMatchCharacters]) ifFalse:[
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	2105	"/ exclude javaClasses, if selector cannot be a valid java-selector
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2106	(aSelectorString includes:$() ifFalse:[
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	2107	classesSearched := classesSearched select:[:eachClass \| eachClass theNonMetaclass isJavaClass not].
2846 b332c41c3daa allCallsOn fix Claus Gittinger <cg@exept.de> parents: 2830 diff changeset	2108	].
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2109	].
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	2110
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2111	searchBlock := self searchBlockForAllCallsOn:aSelectorString ignoreCase:ignoreCase match:doMatch.
4332 c8efd47b1a1c * empty log message * Claus Gittinger <cg@exept.de> parents: 4308 diff changeset	2112	searchBlock isNil ifTrue:[
c8efd47b1a1c * empty log message * Claus Gittinger <cg@exept.de> parents: 4308 diff changeset	2113	^ #() "/ none (no such selector)
c8efd47b1a1c * empty log message * Claus Gittinger <cg@exept.de> parents: 4308 diff changeset	2114	].
2901 8d162dedd271 * empty log message * Claus Gittinger <cg@exept.de> parents: 2892 diff changeset	2115	^ self allMethodsIn:classesSearched where:searchBlock
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2116
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	SystemBrowser allCallsOn:#at:put: in:(Smalltalk allClasses)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2119	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2120
1143 0707461e582a avoid compilation of lazy methods when searching for senders Claus Gittinger <cg@exept.de> parents: 1059 diff changeset	2121	"Modified: 18.4.1997 / 10:32:50 / cg"
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2122	!
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	allMethodsIn:aCollectionOfClasses inst:wantInst class:wantClass where:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2125	"return a collection of methods which pass the given test.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2126	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	2127	considered.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2128	Only classes in aCollectionOfClasses are inspected in the search"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2129
2769 768b6aa2fb5f eliminated a message Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	2130	\|list activePriority\|
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2131
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	since this may take a long time, lower my priority ...
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2134	"
2769 768b6aa2fb5f eliminated a message Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	2135	activePriority := Processor activePriority.
2295 4e05198e7dd8 execute BG tasks at a prio range, to ensure progress. Claus Gittinger <cg@exept.de> parents: 2208 diff changeset	2136	Processor activeProcess
2769 768b6aa2fb5f eliminated a message Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	2137	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	2138	do:[
2484 afd8d8dbd9e2 care vor methods being found in multiple classes Claus Gittinger <cg@exept.de> parents: 2439 diff changeset	2139	\|checkedClasses checkBlock detectedMethods\|
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2140
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2141	checkedClasses := IdentitySet new.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2142	list := OrderedCollection new.
2484 afd8d8dbd9e2 care vor methods being found in multiple classes Claus Gittinger <cg@exept.de> parents: 2439 diff changeset	2143	detectedMethods := IdentitySet new.
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2144
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2145	checkBlock := [:cls \|
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2146	(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	2147	(cls isObsolete and:[cls isLoaded]) ifTrue:[
2882 2a12342fef79 * empty log message * Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	2148	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	2149	] ifFalse:[
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2150	cls methodDictionary keysAndValuesDo:[:sel :method \|
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2151	(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	2152	"/ 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	2153	(detectedMethods includes:method) ifFalse:[
afd8d8dbd9e2 care vor methods being found in multiple classes Claus Gittinger <cg@exept.de> parents: 2439 diff changeset	2154	list add:method.
afd8d8dbd9e2 care vor methods being found in multiple classes Claus Gittinger <cg@exept.de> parents: 2439 diff changeset	2155	detectedMethods add:method
afd8d8dbd9e2 care vor methods being found in multiple classes Claus Gittinger <cg@exept.de> parents: 2439 diff changeset	2156	]
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2157	]
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	checkedClasses add:cls.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2160	]
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	aCollectionOfClasses do:[:aClass \|
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2165	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2166	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	2167	implementors or senders)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2168	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2169	wantInst ifTrue:[
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2170	"/ Transcript show:'searching '; show:aClass name; showCR:' ...'; endEntry.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2171	checkBlock value:aClass
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2172	].
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2173	wantClass ifTrue:[
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2174	"/ Transcript show:'searching '; show:aClass class name; showCR:' ...'; endEntry.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2175	checkBlock value:(aClass class)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2176	].
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2177	Processor yield
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2178	]
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	^ list
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2181
2484 afd8d8dbd9e2 care vor methods being found in multiple classes Claus Gittinger <cg@exept.de> parents: 2439 diff changeset	2182	"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	2183	"Modified: / 14.12.1999 / 14:59:02 / cg"
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2184	!
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	allMethodsIn:aCollectionOfClasses where:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2187	"return a collection of methods which pass the given test.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2188	Only classes in aCollectionOfClasses are inspected in the search"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2189
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2190	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2191	allMethodsIn:aCollectionOfClasses
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2192	inst:true
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2193	class:true
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2194	where:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2195
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2196	"Created: 24.1.1997 / 19:41:49 / cg"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2197	!
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2198
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2199	aproposSearch:aString
2655 9e90bbd1eb18 apropos search is now: selectors containing Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2200	"browse all methods, which have aString in their selector."
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2201
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2202	^ self aproposSearch:aString in:(Smalltalk allClasses)
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	2203
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2204	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2205
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2206	aproposSearch:aString in:aCollectionOfClasses
2655 9e90bbd1eb18 apropos search is now: selectors containing Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2207	"browse all methods, which have aString.
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2208	This is relatively slow, since all source must be processed."
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2209
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2210	\|matchString list s searchBlock browser\|
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2211
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2212	matchString := '' , aString , ''.
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2213
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2214	list := OrderedCollection new.
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2215
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2216	(aString includesMatchCharacters) ifTrue:[
2655 9e90bbd1eb18 apropos search is now: selectors containing Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2217	s := '' , aString asLowercase , ''.
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2218	"a matchString"
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2219	searchBlock := [:text \| (text asCollectionOfLinesfindFirst:[:line \| s match:line]) ~~ 0].
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2220	] ifFalse:[
2655 9e90bbd1eb18 apropos search is now: selectors containing Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2221	searchBlock := [:source \| (source findString:aString asLowercase) ~~ 0]
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2222	].
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2223
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2224	browser := self browseMethodsIn:aCollectionOfClasses
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2225	where:[:class :method :sel \|
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2226	\|comment\|
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2227
2655 9e90bbd1eb18 apropos search is now: selectors containing Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2228	(searchBlock value:sel asLowercase)
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2229	]
2729 9af04074a4bb no direct access to super-class-instvars Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	2230	title:(self classResources string:'selectors containing: %1' with:aString).
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2231
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2232	browser notNil ifTrue:[
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2233	browser autoSearch:aString
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2234	].
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2235	^ browser
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2236
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2237	"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2238	SystemBrowser aproposSearch:'append' in:(Collection withAllSubclasses)
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2239	SystemBrowser aproposSearch:'add' in:(Collection withAllSubclasses)
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2240	SystemBrowser aproposSearch:'sort' in:(Collection withAllSubclasses)
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2241	SystemBrowser aproposSearch:'[Aa]bsent' in:(Collection withAllSubclasses)
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2242	"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2243
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2244	"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	2245	!
6f4460d5a09d added supersend searches; offer comparing the current version with the Claus Gittinger <cg@exept.de> parents: 203 diff changeset	2246
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2247	browseAllCallsOn:aSelectorString
4490 de7216d4a28a * empty log message * Claus Gittinger <cg@exept.de> parents: 4350 diff changeset	2248	"launch a browser for all senders of aSelector.
de7216d4a28a * empty log message * Claus Gittinger <cg@exept.de> parents: 4350 diff changeset	2249	Notice: better go via Smalltalk browseAllCallsOn:, which honors the tool-preferences"
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2250
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2251	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2252	browseAllCallsOn:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2253	in:(Smalltalk allClasses)
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2254
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2255	"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2256	SystemBrowser browseAllCallsOn:#+
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2257	"
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2258
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2259	"Created: 9.12.1995 / 18:00:41 / cg"
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2260	"Modified: 10.7.1996 / 10:26:15 / cg"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2261	!
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	browseAllCallsOn:aSelectorString in:aSetOfClasses
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2264	"launch a browser for all senders of aSelector"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2265
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2266	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2267	browseAllCallsOn:aSelectorString
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2268	in:aSetOfClasses
4200 3859a6fee797 show none found Claus Gittinger <cg@exept.de> parents: 4198 diff changeset	2269	title:(self classResources string:'Senders of: %1' with:aSelectorString)
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2270
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	SystemBrowser browseAllCallsOn:#+ in:(Number withAllSubclasses)
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2273	"
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	"Created: 10.7.1996 / 10:25:49 / cg"
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2276	"Modified: 24.1.1997 / 19:49:34 / cg"
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2277	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2278
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2279	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	2280	"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	2281
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2282	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2283	browseAllCallsOn:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2284	in:aSetOfClasses
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2285	ignoreCase:ignoreCase
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	2286	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	2287
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	SystemBrowser browseAllCallsOn:#+ in:(Number withAllSubclasses)
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2290	"
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	"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	2293	"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	2294	!
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2295
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2296	browseAllCallsOn:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase title:titleArg
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2297	"launch a browser for all senders of aSelector in aCollectionOfClasses"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2298
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2299	\|list list2 browser selWithColon title rs\|
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2300
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2301	title := titleArg.
4200 3859a6fee797 show none found Claus Gittinger <cg@exept.de> parents: 4198 diff changeset	2302
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2303	list := self allCallsOn:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase match:true.
4200 3859a6fee797 show none found Claus Gittinger <cg@exept.de> parents: 4198 diff changeset	2304	list isEmpty ifTrue:[
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2305	aSelectorString numArgs == 0 ifTrue:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2306	selWithColon := aSelectorString , ':'.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2307	selWithColon knownAsSymbol ifTrue:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2308	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	2309	].
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	list2 size == 0 ifTrue:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2312	self showNoneFound:title.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2313	^ nil
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2314	].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2315	rs := self classResources.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2316	(Dialog confirm:((rs string:title) ,
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2317	(rs string:'...\\... none found.') ,
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2318	(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	2319	with:list2 size
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2320	with:selWithColon allBold)) withCRs) ifFalse:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2321	^ nil
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2322	].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2323	list := list2.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2324	title := title , ':'.
4200 3859a6fee797 show none found Claus Gittinger <cg@exept.de> parents: 4198 diff changeset	2325	].
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	browser := self browseMethods:list title:title.
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2328	browser notNil ifTrue:[
648 6ec086b7972c Move method's literals form literalArray to indexed instvars. Stefan Vogel <sv@exept.de> parents: 634 diff changeset	2329	\|s\|
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2330
8139 acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2331	"/ "
acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2332	"/ 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	2333	"/ 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	2334	"/ "
acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2335	"/ s := aSelectorString.
acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2336	"/ (s includes:$:) ifTrue:[
acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2337	"/ s := s copyTo:(s indexOf:$:)
acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2338	"/ ].
acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2339	"/ browser autoSearch:s
acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2340	browser autoSearchSelector:aSelectorString ignoreCase:ignoreCase doMatch:true.
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2341	].
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2342	^ browser
648 6ec086b7972c Move method's literals form literalArray to indexed instvars. Stefan Vogel <sv@exept.de> parents: 634 diff changeset	2343
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2344	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2345	SystemBrowser
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2346	browseAllCallsOn:#+
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2347	in:(Number withAllSubclasses)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2348	title:'just a test'
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2349	"
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	"Modified: 24.1.1997 / 19:48:54 / cg"
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2352	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2353
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2354	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	2355	"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	2356
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2357	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2358	browseAllCallsOn:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2359	in:aCollectionOfClasses
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2360	ignoreCase:false
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2361	title:title
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2362
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	SystemBrowser
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2365	browseAllCallsOn:#+
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2366	in:(Number withAllSubclasses)
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2367	title:'just a test'
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2368	"
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	"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	2371	!
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2372
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2373	browseCallsOn:aSelectorString under:aClass
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2374	"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	2375
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2376	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2377	browseAllCallsOn:aSelectorString
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2378	in:(aClass withAllSubclasses)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2379	title:(self classResources
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	2380	string:'Senders of: %1 (in and below %2)'
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2381	with:aSelectorString
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2382	with:aClass name)
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2383
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2384	"
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2385	SystemBrowser browseCallsOn:#+ under:Number
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2386	"
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2387
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2388	"Created: 9.12.1995 / 17:59:57 / cg"
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2389	"Modified: 24.1.1997 / 19:50:33 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2390	!
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	browseClassRefsTo:aString in:aCollectionOfClasses modificationsOnly:modsOnly
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2393	"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	2394	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	2395	classvar is modified"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2396
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2397	^ self browseRefsTo:aString classVars:true in:aCollectionOfClasses modificationsOnly:modsOnly
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2398	!
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	browseClassRefsTo:varName in:aCollectionOfClasses modificationsOnly:modsOnly title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2401	"launch a browser for all methods in aCollectionOfClasses,
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2402	where the classVar named aString is referenced;
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2403	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	2404
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2405	^ self browseRefsTo:varName classVars:true in:aCollectionOfClasses modificationsOnly:modsOnly title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2406	!
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	browseClassRefsTo:aString under:aClass modificationsOnly:modsOnly
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2409	"launch a browser for all methods in aClass and subclasses
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2410	where the classVar named aString is referenced;
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2411	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	2412
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2413	^ self browseClassRefsTo:aString in:(aClass withAllSubclasses) modificationsOnly:modsOnly
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2414
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
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2417	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	2418	"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	2419	resource in aCollectionOfClasses.
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2420	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	2421	are parsed.
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2422	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	2423	browseForResource:#style containing:nil in:... title:...
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2424	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	2425	browseForResource:#style containing:'arrowButtonDownForm' in:... title:..."
573 e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2426
742 2ef5e22d8983 code cleanup (unused vars eliminated) Claus Gittinger <cg@exept.de> parents: 675 diff changeset	2427	\|browser searchBlock\|
573 e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2428
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2429	"/ search for any resource can be done without looking
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2430	"/ at the source ...
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2431	(aResourceSymbol isNil and:[item isNil]) ifTrue:[
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2432	searchBlock := [:class :method :s \| method hasResource]
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2433	] ifFalse:[
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2434	searchBlock := [:class :method :s \|
1573 4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2435	\|rsrc val found\|
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2436
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2437	found := false.
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2438	method hasResource ifTrue:[
1573 4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2439	rsrc := method resources.
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2440	rsrc notNil ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2441	aResourceSymbol isNil ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2442	item isNil ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2443	found := true
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2444	] ifFalse:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2445	rsrc isCollection ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2446	rsrc keysAndValuesDo:[:rsrc :val \|
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2447	val isCollection ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2448	val do:[:v \|
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2449	found := item match:v printString
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2450	]
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2451	] ifFalse:[
1573 4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2452	found := item match:val printString
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2453	]
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2454	]
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2455	] ifFalse:[
1573 4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2456	found := item match:rsrc printString
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2457	]
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	] ifFalse:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2460	(rsrc includesKey:aResourceSymbol) ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2461	item isNil ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2462	found := true
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2463	] ifFalse:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2464	rsrc isCollection ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2465	val := rsrc at:aResourceSymbol.
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2466	val isCollection ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2467	val do:[:v \|
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2468	found := item match:v printString
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2469	]
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2470	] ifFalse:[
1573 4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2471	found := item match:val printString
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2472	]
1573 4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2473	] ifFalse:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2474	found := item match:rsrc printString
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2475	]
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2476	]
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2477	]
573 e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2478	]
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2479	].
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2480	].
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2481	found
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2482	].
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2483	].
573 e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2484
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2485	browser := self browseMethodsIn:aCollectionOfClasses
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2486	where:searchBlock
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2487	title:title.
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2488	browser notNil ifTrue:[
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2489	browser autoSearch:'resource:'
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2490	].
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2491	^ browser
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2492
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	SystemBrowser
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2495	browseForResource:nil
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2496	in:Smalltalk allClasses
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2497	title:'methods with a resource'
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2498	"
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	SystemBrowser
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2501	browseForResource:#style
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2502	containing:nil
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2503	in:Smalltalk allClasses
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2504	title:'methods with a #style resource'
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2505	"
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	SystemBrowser
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2508	browseForResource:#style
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2509	containing:'arrowButton*'
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2510	in:Smalltalk allClasses
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2511	title:'methods with a #style resource'
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2512	"
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2513
1573 4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2514	"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	2515	!
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	browseForResource:aResourceSymbol in:aCollectionOfClasses title:title
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2518	"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	2519	resource in aCollectionOfClasses"
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2520
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2521	^ self
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2522	browseForResource:aResourceSymbol
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2523	containing:nil
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2524	in:aCollectionOfClasses
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2525	title:title
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2526
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	SystemBrowser
573 e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2529	browseForResource:#style
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2530	in:Smalltalk allClasses
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2531	title:'methods accessing styleSheet values'
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2532	"
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	SystemBrowser
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2535	browseForResource:#keyboard
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2536	in:Smalltalk allClasses
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2537	title:'methods handling keyboard events'
573 e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2538	"
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	SystemBrowser
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2541	browseForResource:nil
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2542	in:Smalltalk allClasses
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2543	title:'methods with a resource'
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2544	"
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2545
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2546	"Modified: 9.1.1997 / 12:44:38 / cg"
573 e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2547	!
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2548
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2549	browseForString:aString
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2550	"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	2551	This may be slow, since source-code has to be scanned."
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2552
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2553	^ self browseForString:aString in:(Smalltalk allClasses) ignoreCase:false
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2554
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2555	"Modified: / 18.6.1998 / 16:42:39 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2556	!
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	browseForString:aString in:aCollectionOfClasses
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2559	"launch a browser for all methods in aCollectionOfClasses
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2560	containing a string in their source.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2561	This may be slow, since source-code has to be scanned."
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2562
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2563	^ self
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2564	browseForString:aString
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2565	in:aCollectionOfClasses
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2566	ignoreCase:false
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2567
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	SystemBrowser browseForString:'all' in:(Array with:Object)
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2570	SystemBrowser browseForString:'should' in:(Array with:Object)
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2571	SystemBrowser browseForString:'[eE]rror' in:(Array with:Object)
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2572	"
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	"Created: / 9.12.1995 / 18:03:12 / cg"
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2575	"Modified: / 18.6.1998 / 16:43:27 / cg"
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2576	!
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	browseForString:aString in:aCollectionOfClasses ignoreCase:ignoreCase
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2579	"launch a browser for all methods in aCollectionOfClasses
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2580	containing a string in their source.
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2581	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	2582
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2583	\|browser searchBlock title s\|
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2584
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	2585	title := self classResources string:'Methods containing: %1' with:aString displayString.
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2586
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2587	(aString includesMatchCharacters
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2588	or:[ignoreCase]) ifTrue:[
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2589	s := '' , aString , ''.
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2590	"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	2591	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	2592	\|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	2593	src := m source.
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2594	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	2595	('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	2596	false
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2597	] ifFalse:[
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2598	s match:src ignoreCase:ignoreCase
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2599	]
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	2600	]
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2601	] 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	2602	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	2603	\|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	2604
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	src := m source.
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2606	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	2607	('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	2608	false
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2609	] ifFalse:[
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2610	(src findString:aString) ~~ 0
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2611	]
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	2612	]
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2613	].
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2614	browser := self browseMethodsIn:aCollectionOfClasses where:searchBlock title:title.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2615
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2616	browser notNil ifTrue:[
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2617	browser autoSearch:aString ignoreCase:ignoreCase
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2618	].
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2619	^ browser
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2620
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2621	"
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2622	SystemBrowser browseForString:'all' in:(Array with:Object)
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2623	SystemBrowser browseForString:'should' in:(Array with:Object)
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2624	SystemBrowser browseForString:'[eE]rror' in:(Array with:Object)
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2625	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2626
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2627	"Created: / 18.6.1998 / 16:42:50 / cg"
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2628	"Modified: / 18.6.1998 / 16:51:25 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2629	!
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	browseForSymbol:aSymbol
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2632	"launch a browser for all methods referencing aSymbol"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2633
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2634	^ self
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2635	browseForSymbol:aSymbol
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	2636	title:(self classResources string:'Users of: %1' with:aSymbol)
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2637	warnIfNone:true
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2638
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2639	"Created: 9.12.1995 / 18:04:34 / cg"
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2640	"Modified: 10.7.1996 / 10:35:34 / cg"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2641	!
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	browseForSymbol:aSymbol in:aSetOfClasses title:title warnIfNone:doWarn
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2644	"launch a browser for all methods referencing aSymbol"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2645
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	2646	^ self
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	2647	browseForSymbol:aSymbol
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	2648	in:aSetOfClasses
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	2649	title:title
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	2650	warnIfNone:doWarn
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	2651	searchFor:aSymbol
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2652	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2653
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2654	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	2655	"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	2656
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2657	\|browser searchBlock sym\|
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2658
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2659	(aSymbol includesMatchCharacters) ifTrue:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2660	"a matchString"
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2661	searchBlock := [:c :m :s \|
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2662	(m literalsDetect:[:aLiteral\|
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2663	(aLiteral isMemberOf:Symbol)
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2664	and:[aSymbol match:aLiteral]
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2665	] ifNone:nil) notNil
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2666	].
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2667	] ifFalse:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2668	"
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2669	can do a faster search
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2670	"
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2671	sym := aSymbol asSymbolIfInterned.
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2672	sym isNil ifTrue:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2673	self showNoneFound:title.
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2674	^ nil
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2675	].
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	searchBlock := [:c :m :s \|
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2678	(m literalsDetect:[:aLiteral\|
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2679	(sym == aLiteral)
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2680	] ifNone:nil) notNil
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2681	].
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	doWarn ifFalse:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2684	WarningSignal ignoreIn:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2685	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	2686	]
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2687	] ifTrue:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2688	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	2689	].
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	(browser notNil
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2692	and:[searchString notNil]) ifTrue:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2693	browser autoSearch:searchString
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2694	].
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2695	^ browser
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2696
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2697	"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	2698	"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	2699	"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	2700	!
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2701
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2702	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	2703	"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	2704
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2705	\|browser searchBlock sym\|
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2706
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2707	(aSymbol includesMatchCharacters) ifTrue:[
375 a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2708	"a matchString"
a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2709	searchBlock := [:c :m :s \|
2439 2c7133af56df checkin from browser Claus Gittinger <cg@exept.de> parents: 2418 diff changeset	2710	m referencesGlobalMatching:aSymbol
2c7133af56df checkin from browser Claus Gittinger <cg@exept.de> parents: 2418 diff changeset	2711	"/ (m literalsDetect:[:aLiteral\|
2c7133af56df checkin from browser Claus Gittinger <cg@exept.de> parents: 2418 diff changeset	2712	"/ (aLiteral isMemberOf:Symbol)
2c7133af56df checkin from browser Claus Gittinger <cg@exept.de> parents: 2418 diff changeset	2713	"/ and:[aSymbol match:aLiteral]
2c7133af56df checkin from browser Claus Gittinger <cg@exept.de> parents: 2418 diff changeset	2714	"/ ] ifNone:nil) notNil
375 a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2715	].
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2716	] ifFalse:[
375 a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2717	"
a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2718	can do a faster search
a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2719	"
a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2720	sym := aSymbol asSymbolIfInterned.
a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2721	sym isNil ifTrue:[
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2722	actionIfNoneFound value.
375 a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2723	^ nil
a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2724	].
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2725
375 a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2726	searchBlock := [:c :m :s \|
2439 2c7133af56df checkin from browser Claus Gittinger <cg@exept.de> parents: 2418 diff changeset	2727	m referencesGlobal:sym
2c7133af56df checkin from browser Claus Gittinger <cg@exept.de> parents: 2418 diff changeset	2728	"/ (m literalsDetect:[:aLiteral\|
2c7133af56df checkin from browser Claus Gittinger <cg@exept.de> parents: 2418 diff changeset	2729	"/ (sym == aLiteral)
2c7133af56df checkin from browser Claus Gittinger <cg@exept.de> parents: 2418 diff changeset	2730	"/ ] ifNone:nil) notNil
375 a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2731	].
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2732	].
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2733
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2734	WarningSignal ignoreIn:[
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2735	InformationSignal ignoreIn:[
375 a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2736	browser := self browseMethodsWhere:searchBlock title:title.
a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2737	]
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2738	].
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2739	browser isNil ifTrue:[
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2740	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	2741	].
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2742
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2743	(browser notNil
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2744	and:[searchString notNil]) ifTrue:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2745	browser autoSearch:searchString
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2746	].
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2747	^ browser
375 a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2748
2439 2c7133af56df checkin from browser Claus Gittinger <cg@exept.de> parents: 2418 diff changeset	2749	"Modified: / 24.6.1996 / 14:39:07 / stefan"
2c7133af56df checkin from browser Claus Gittinger <cg@exept.de> parents: 2418 diff changeset	2750	"Created: / 31.10.1996 / 14:45:08 / cg"
2c7133af56df checkin from browser Claus Gittinger <cg@exept.de> parents: 2418 diff changeset	2751	"Modified: / 9.11.1999 / 17:04:30 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2752	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2753
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2754	browseForSymbol:aSymbol title:title warnIfNone:doWarn
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2755	"launch a browser for all methods referencing aSymbol"
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2756
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2757	^ self
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2758	browseForSymbol:aSymbol
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2759	title:title
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2760	warnIfNone:doWarn
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2761	searchFor:aSymbol
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2762
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2763	"Modified: 31.10.1996 / 14:45:38 / cg"
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2764	!
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	browseForSymbol:aSymbol title:title warnIfNone:doWarn searchFor:searchString
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2767	"launch a browser for all methods referencing aSymbol"
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2768
2414 a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	2769	\|b\|
a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	2770
a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	2771	doWarn ifTrue: [
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2772	b := [self showNoneFound:title]
2414 a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	2773	].
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2774	^ self
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2775	browseForSymbol:aSymbol
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2776	title:title
2414 a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	2777	ifNone:b
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2778	searchFor:searchString
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2779	!
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2780
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2781	browseImplementorsMatching:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2782	"launch a browser for all implementors of aSelector"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2783
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2784	^ self
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2785	browseImplementorsMatching:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2786	in:(Smalltalk allClasses)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2787
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	SystemBrowser browseImplementorsOf:#+
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2790	NewSystemBrowser browseImplementorsOf:#+
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2791	"
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	"Created: / 9.12.1995 / 18:01:18 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2794	"Modified: / 5.11.2001 / 17:31:11 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2795	!
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	browseImplementorsMatching:aSelectorString in:aSetOfClasses
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2798	"launch a browser for all implementors of aSelector"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2799
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2800	^ self
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2801	browseImplementorsMatching:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2802	in:aSetOfClasses
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2803	title:(self classResources string:'implementors of: %1' with:aSelectorString)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2804
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	SystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2807	NewSystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2808	"
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	"Created: / 10.7.1996 / 10:20:59 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2811	"Modified: / 5.11.2001 / 17:30:57 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2812	!
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	browseImplementorsMatching:aSelectorString in:aSetOfClasses ignoreCase:ignoreCase
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2815	"launch a browser for all implementors of aSelector"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2816
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2817	^ self
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2818	browseImplementorsMatching:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2819	in:aSetOfClasses
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2820	ignoreCase:ignoreCase
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2821	title:(self classResources string:'implementors of: %1' with:aSelectorString)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2822
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	SystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2825	NewSystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2826	"
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	"Created: / 10.7.1996 / 10:20:59 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2829	"Modified: / 5.11.2001 / 17:30:43 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2830	!
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	browseImplementorsMatching:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase title:title
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2833	"launch a browser for all implementors of aSelector in
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2834	the classes contained in aCollectionOfClasses and its metaclasses"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2835
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2836	\|list\|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2837
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2838	list := self
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2839	findImplementorsMatching:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2840	in:aCollectionOfClasses
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2841	ignoreCase:ignoreCase.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2842
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2843	list size == 0 ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2844	self showNoneFound:title.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2845	^ nil
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2846	].
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	^ self browseMethods:list asOrderedCollection title:title
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2849
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	SystemBrowser browseImplementorsOf:#+
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2852	in:(Array with:Number
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2853	with:Float
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2854	with:SmallInteger)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2855	title:'some implementors of +'
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2856
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2857	NewSystemBrowser browseImplementorsOf:#+
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2858	in:(Array with:Number
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2859	with:Float
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2860	with:SmallInteger)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2861	title:'some implementors of +'
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2862	"
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	"Modified: / 4.9.1995 / 17:33:39 / claus"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2865	"Modified: / 19.6.1996 / 14:19:02 / stefan"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2866	"Modified: / 5.11.2001 / 17:30:38 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2867	!
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	browseImplementorsMatching:aSelectorString in:aCollectionOfClasses title:title
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2870	"launch a browser for all implementors of aSelector in
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2871	the classes contained in aCollectionOfClasses and its metaclasses"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2872
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2873	^ self
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2874	browseImplementorsMatching:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2875	in:aCollectionOfClasses
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2876	ignoreCase:false
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2877	title:title
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2878	!
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	browseImplementorsMatching:aSelectorString under:aClass
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2881	"launch a browser for all implementors of aSelector in aClass
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2882	and its subclasses"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2883
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2884	^ self
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2885	browseImplementorsMatching:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2886	in:(aClass withAllSubclasses)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2887	title:(self classResources
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2888	string:'implementors of: %1 (in and below %2)'
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2889	with:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2890	with:aClass name)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2891
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2892	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2893	SystemBrowser browseImplementorsOf:#+ under:Integer
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2894	NewSystemBrowser browseImplementorsOf:#+ under:Integer
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2895	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2896
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2897	"Created: / 9.12.1995 / 18:06:09 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2898	"Modified: / 5.11.2001 / 17:30:15 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2899	!
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2900
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2901	browseImplementorsOf:aSelectorString
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2902	"launch a browser for all implementors of aSelector"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2903
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2904	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2905	browseImplementorsOf:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2906	in:(Smalltalk allClasses)
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2907
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2908	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2909	SystemBrowser browseImplementorsOf:#+
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	2910	NewSystemBrowser browseImplementorsOf:#+
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2911	"
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2912
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	2913	"Created: / 9.12.1995 / 18:01:18 / cg"
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	2914	"Modified: / 5.11.2001 / 17:31:11 / cg"
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2915	!
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	browseImplementorsOf:aSelectorString in:aSetOfClasses
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2918	"launch a browser for all implementors of aSelector"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2919
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2920	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2921	browseImplementorsOf:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2922	in:aSetOfClasses
8704 f5b8ba75a158 some code cleanup Claus Gittinger <cg@exept.de> parents: 8702 diff changeset	2923	title:(self classResources string:'Implementors of: %1' with:aSelectorString allBold)
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2924
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	SystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	2927	NewSystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2928	"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2929
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	2930	"Created: / 10.7.1996 / 10:20:59 / cg"
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	2931	"Modified: / 5.11.2001 / 17:30:57 / cg"
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2932	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2933
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2934	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	2935	"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	2936
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2937	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2938	browseImplementorsOf:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2939	in:aSetOfClasses
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2940	ignoreCase:ignoreCase
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	2941	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	2942
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	SystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	2945	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	2946	"
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2947
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	2948	"Created: / 10.7.1996 / 10:20:59 / cg"
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	2949	"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	2950	!
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2951
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2952	browseImplementorsOf:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase title:titleArg
36 ccde5a941840 * empty log message * claus parents: diff changeset	2953	"launch a browser for all implementors of aSelector in
ccde5a941840 * empty log message * claus parents: diff changeset	2954	the classes contained in aCollectionOfClasses and its metaclasses"
ccde5a941840 * empty log message * claus parents: diff changeset	2955
8688 71d973fdd817 * empty log message * Claus Gittinger <cg@exept.de> parents: 8685 diff changeset	2956	\|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	2957
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2958	title := titleArg.
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	2959	list := self
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2960	findImplementorsOf:aSelectorString
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	2961	in:aCollectionOfClasses
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	2962	ignoreCase:ignoreCase.
45 950b84ba89e6 * empty log message * claus parents: 41 diff changeset	2963
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	2964	list size == 0 ifTrue:[
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2965	aSelectorString numArgs == 0 ifTrue:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2966	selWithColon := aSelectorString , ':'.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2967	selWithColon knownAsSymbol ifTrue:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2968	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	2969	].
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	list2 size == 0 ifTrue:[
8678 7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	2972	"/ self showNoneFound:title.
7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	2973	"/ ^ self
8688 71d973fdd817 * empty log message * Claus Gittinger <cg@exept.de> parents: 8685 diff changeset	2974	allSelectors := Set new.
8678 7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	2975	top20 := SortedCollection new.
7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	2976	top20 sortBlock:[:a :b \| (a spellAgainst:aSelectorString) > (b spellAgainst:aSelectorString)].
8759 1ef143757126 * empty log message * Claus Gittinger <cg@exept.de> parents: 8704 diff changeset	2977	Smalltalk allMethodsWithSelectorDo:[:eachMethod :eachSelector \|
1ef143757126 * empty log message * Claus Gittinger <cg@exept.de> parents: 8704 diff changeset	2978	(eachSelector spellAgainst:aSelectorString) > 50 ifTrue:[
1ef143757126 * empty log message * Claus Gittinger <cg@exept.de> parents: 8704 diff changeset	2979	(allSelectors includes:eachSelector) ifFalse:[
1ef143757126 * empty log message * Claus Gittinger <cg@exept.de> parents: 8704 diff changeset	2980	allSelectors add:eachSelector.
1ef143757126 * empty log message * Claus Gittinger <cg@exept.de> parents: 8704 diff changeset	2981	top20 add:eachSelector.
1ef143757126 * empty log message * Claus Gittinger <cg@exept.de> parents: 8704 diff changeset	2982	top20 size > 20 ifTrue:[ top20 removeLast. allSelectors := top20 asSet ].
1ef143757126 * empty log message * Claus Gittinger <cg@exept.de> parents: 8704 diff changeset	2983	]
8678 7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	2984	]
7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	2985	].
9685 629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	2986	top20 isEmpty ifTrue:[
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	2987	\|lcSelector\|
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	2988
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	2989	lcSelector := aSelectorString asLowercase.
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	2990	Smalltalk allMethodsWithSelectorDo:[:eachMethod :eachSelector \|
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	2991	(eachSelector asLowercase spellAgainst:lcSelector) > 50 ifTrue:[
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	2992	(allSelectors includes:eachSelector) ifFalse:[
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	2993	allSelectors add:eachSelector.
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	2994	top20 add:eachSelector.
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	2995	top20 size > 20 ifTrue:[ top20 removeLast. allSelectors := top20 asSet ].
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	2996	]
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
8678 7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3001	choice := Dialog
8704 f5b8ba75a158 some code cleanup Claus Gittinger <cg@exept.de> parents: 8702 diff changeset	3002	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	3003	fromList:top20
7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3004	lines:10.
7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3005	choice notEmptyOrNil ifTrue:[
7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3006	self browseImplementorsOf:choice in:aCollectionOfClasses ignoreCase:ignoreCase title:'Implementors of ',choice.
7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3007	].
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3008	^ nil
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3009	].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3010	rs := self classResources.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3011	(Dialog confirm:((rs string:title) ,
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3012	(rs string:'...\\... none found.') ,
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3013	(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	3014	with:list2 size
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3015	with:selWithColon allBold)) withCRs) ifFalse:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3016	^ nil
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3017	].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3018	list := list2.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3019	title := title , ':'.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3020
36 ccde5a941840 * empty log message * claus parents: diff changeset	3021	].
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3022
270 f97a37f5df7a checkin from browser Claus Gittinger <cg@exept.de> parents: 256 diff changeset	3023	^ self browseMethods:list asOrderedCollection title:title
36 ccde5a941840 * empty log message * claus parents: diff changeset	3024
ccde5a941840 * empty log message * claus parents: diff changeset	3025	"
ccde5a941840 * empty log message * claus parents: diff changeset	3026	SystemBrowser browseImplementorsOf:#+
270 f97a37f5df7a checkin from browser Claus Gittinger <cg@exept.de> parents: 256 diff changeset	3027	in:(Array with:Number
f97a37f5df7a checkin from browser Claus Gittinger <cg@exept.de> parents: 256 diff changeset	3028	with:Float
f97a37f5df7a checkin from browser Claus Gittinger <cg@exept.de> parents: 256 diff changeset	3029	with:SmallInteger)
f97a37f5df7a checkin from browser Claus Gittinger <cg@exept.de> parents: 256 diff changeset	3030	title:'some implementors of +'
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3031
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3032	NewSystemBrowser browseImplementorsOf:#+
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3033	in:(Array with:Number
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3034	with:Float
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3035	with:SmallInteger)
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3036	title:'some implementors of +'
36 ccde5a941840 * empty log message * claus parents: diff changeset	3037	"
132 9bf0c15113f2 . claus parents: 118 diff changeset	3038
9685 629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3039	"Modified: / 04-09-1995 / 17:33:39 / claus"
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3040	"Modified: / 19-06-1996 / 14:19:02 / stefan"
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3041	"Modified: / 15-01-2011 / 14:35:56 / cg"
36 ccde5a941840 * empty log message * claus parents: diff changeset	3042	!
ccde5a941840 * empty log message * claus parents: diff changeset	3043
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3044	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	3045	"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	3046	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	3047
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3048	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3049	browseImplementorsOf:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3050	in:aCollectionOfClasses
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3051	ignoreCase:false
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3052	title:title
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3053
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
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3056	browseImplementorsOf:aSelectorString under:aClass
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3057	"launch a browser for all implementors of aSelector in aClass
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3058	and its subclasses"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3059
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3060	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3061	browseImplementorsOf:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3062	in:(aClass withAllSubclasses)
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3063	title:(self classResources
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	3064	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	3065	with:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3066	with:aClass name)
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3067
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3068	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3069	SystemBrowser browseImplementorsOf:#+ under:Integer
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3070	NewSystemBrowser browseImplementorsOf:#+ under:Integer
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3071	"
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3072
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3073	"Created: / 9.12.1995 / 18:06:09 / cg"
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3074	"Modified: / 5.11.2001 / 17:30:15 / cg"
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3075	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3076
3663 5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3077	browseImplementorsOfAny:setOfSelectors
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3078	"launch a browser for all implementors of aSelector"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3079
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3080	^ self
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3081	browseImplementorsOfAny:setOfSelectors
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3082	in:(Smalltalk allClasses)
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3083
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3084	"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3085	SystemBrowser browseImplementorsOfAny:#( #+ #- )
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3086	NewSystemBrowser browseImplementorsOfAny:#( #+ #- )
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3087	"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3088
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3089	"Created: / 9.12.1995 / 18:01:18 / cg"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3090	"Modified: / 5.11.2001 / 17:31:11 / cg"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3091	!
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3092
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3093	browseImplementorsOfAny:setOfSelectors in:aSetOfClasses
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3094	"launch a browser for all implementors of aSelector"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3095
8047 8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3096	\|title\|
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3097
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3098	setOfSelectors size == 1 ifTrue:[
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3099	title := self classResources
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3100	string:'Implementors of %1'
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3101	with:(setOfSelectors asOrderedCollection first).
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3102	] ifFalse:[
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3103	setOfSelectors size == 2 ifTrue:[
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3104	title := self classResources
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3105	string:'Implementors of %1 or %2'
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3106	with:(setOfSelectors asOrderedCollection first)
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3107	with:(setOfSelectors asOrderedCollection second).
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3108	] ifFalse:[
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3109	title := self classResources string:'Implementors of some'.
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3110	].
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
3663 5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3113	^ self
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3114	browseImplementorsOfAny:setOfSelectors
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3115	in:aSetOfClasses
8047 8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3116	title:title
3663 5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3117
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3118	"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3119	SystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3120	NewSystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3121	"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3122
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3123	"Created: / 10.7.1996 / 10:20:59 / cg"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3124	"Modified: / 5.11.2001 / 17:30:57 / cg"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3125	!
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3126
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3127	browseImplementorsOfAny:setOfSelectors in:aCollectionOfClasses ignoreCase:ignoreCase title:title
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3128	"launch a browser for all implementors of aSelector in
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3129	the classes contained in aCollectionOfClasses and its metaclasses"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3130
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3131	\|list\|
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3132
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3133	list := self
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3134	findImplementorsOfAny:setOfSelectors
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3135	in:aCollectionOfClasses
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3136	ignoreCase:ignoreCase.
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3137
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3138	list size == 0 ifTrue:[
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3139	self showNoneFound:title.
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3140	^ nil
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3141	].
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3142
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3143	^ self browseMethods:list asOrderedCollection title:title
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3144
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3145	"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3146	SystemBrowser browseImplementorsOf:#+
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3147	in:(Array with:Number
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3148	with:Float
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3149	with:SmallInteger)
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3150	title:'some implementors of +'
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3151
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3152	NewSystemBrowser browseImplementorsOf:#+
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3153	in:(Array with:Number
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3154	with:Float
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3155	with:SmallInteger)
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3156	title:'some implementors of +'
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3157	"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3158
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3159	"Modified: / 4.9.1995 / 17:33:39 / claus"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3160	"Modified: / 19.6.1996 / 14:19:02 / stefan"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3161	"Modified: / 5.11.2001 / 17:30:38 / cg"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3162	!
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3163
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3164	browseImplementorsOfAny:setOfSelectors in:aCollectionOfClasses title:title
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3165	"launch a browser for all implementors of aSelector in
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3166	the classes contained in aCollectionOfClasses and its metaclasses"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3167
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3168	^ self
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3169	browseImplementorsOfAny:setOfSelectors
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3170	in:aCollectionOfClasses
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3171	ignoreCase:false
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3172	title:title
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3173	!
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3174
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3175	browseInstRefsTo:aString in:aCollectionOfClasses modificationsOnly:modsOnly
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3176	"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	3177	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	3178	instvar is modified"
45 950b84ba89e6 * empty log message * claus parents: 41 diff changeset	3179
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3180	^ self browseRefsTo:aString classVars:false in:aCollectionOfClasses modificationsOnly:modsOnly
36 ccde5a941840 * empty log message * claus parents: diff changeset	3181	!
ccde5a941840 * empty log message * claus parents: diff changeset	3182
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3183	browseInstRefsTo:varName in:aCollectionOfClasses modificationsOnly:modsOnly title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3184	"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	3185	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	3186	instvar is modified"
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3187
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3188	^ self browseRefsTo:varName classVars:false in:aCollectionOfClasses modificationsOnly:modsOnly title:title
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3189	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3190
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3191	browseInstRefsTo:aString under:aClass modificationsOnly:modsOnly
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3192	"launch a browser for all methods in aClass and subclasses
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3193	where the instVar named aString is referenced;
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3194	if modsOnly is true, browse only methods where the instvar is modified"
36 ccde5a941840 * empty log message * claus parents: diff changeset	3195
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3196	^ self browseInstRefsTo:aString in:(aClass withAllSubclasses) modificationsOnly:modsOnly
36 ccde5a941840 * empty log message * claus parents: diff changeset	3197	!
ccde5a941840 * empty log message * claus parents: diff changeset	3198
ccde5a941840 * empty log message * claus parents: diff changeset	3199	browseReferendsOf:aGlobalName
ccde5a941840 * empty log message * claus parents: diff changeset	3200	"launch a browser for all methods referencing a global
1367 80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3201	named aGlobalName. The argument may be a symbol, a string or
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3202	a matchPattern.
36 ccde5a941840 * empty log message * claus parents: diff changeset	3203	"
ccde5a941840 * empty log message * claus parents: diff changeset	3204
ccde5a941840 * empty log message * claus parents: diff changeset	3205	^ self browseReferendsOf:aGlobalName warnIfNone:true
ccde5a941840 * empty log message * claus parents: diff changeset	3206
ccde5a941840 * empty log message * claus parents: diff changeset	3207	"
ccde5a941840 * empty log message * claus parents: diff changeset	3208	Browser browseReferendsOf:#Transcript
1367 80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3209	Browser browseReferendsOf:'Tr*'
36 ccde5a941840 * empty log message * claus parents: diff changeset	3210	"
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	3211
1367 80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3212	"Modified: / 30.10.1997 / 23:45:52 / cg"
36 ccde5a941840 * empty log message * claus parents: diff changeset	3213	!
ccde5a941840 * empty log message * claus parents: diff changeset	3214
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3215	browseReferendsOf:aGlobalName ifNone:actionIfNone
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3216	"launch a browser for all methods referencing a global
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3217	named aGlobalName.
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3218	"
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	^ self
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3221	browseReferendsOf:aGlobalName
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	3222	title:(self classResources string:'Users of: %1' with:aGlobalName)
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3223	ifNone:actionIfNone
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3224
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3225	"Modified: / 31.10.1997 / 15:42:05 / cg"
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3226	!
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3227
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3228	browseReferendsOf:aGlobalName in:aSetOfClasses
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3229	"launch a browser for all methods referencing a global
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3230	named aGlobalName.
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3231	"
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	^ self browseReferendsOf:aGlobalName in:aSetOfClasses warnIfNone:true
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3234
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	Browser browseReferendsOf:#Transcript
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3237	"
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	"Created: 10.7.1996 / 10:37:30 / cg"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3240	!
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	browseReferendsOf:aGlobalName in:aSetOfClasses warnIfNone:doWarn
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3243	"launch a browser for all methods referencing a global
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3244	named aGlobalName.
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3245	"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3246
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3247	\|globalsPlainName idx\|
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3248
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3249	globalsPlainName := aGlobalName.
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3250	(idx := globalsPlainName lastIndexOf:$:) ~~ 0 ifTrue:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3251	globalsPlainName := globalsPlainName copyFrom:idx+1
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3252	].
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3253
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3254	^ self browseForSymbol:aGlobalName
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3255	in:aSetOfClasses
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	3256	title:(self classResources string:'Users of: %1' with:aGlobalName)
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3257	warnIfNone:doWarn
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3258	searchFor:globalsPlainName
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3259
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3260	"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	3261	"Modified: 31.10.1996 / 14:56:38 / cg"
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3262	!
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3263
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3264	browseReferendsOf:aGlobalName title:title ifNone:actionIfNone
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3265	"launch a browser for all methods referencing a global named aGlobalName."
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3266
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3267	\|searchBlock browser\|
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3268
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3269	searchBlock := self searchBlockForReferendsOf:aGlobalName.
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3270	browser := self
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3271	browseMethodsWhere:searchBlock
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3272	title:title
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3273	ifNone:[
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3274	actionIfNone value.
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3275	^ nil
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3276	].
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3277
2828 6e54ebb9b75e * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	3278	browser isNil ifTrue:[
6e54ebb9b75e * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	3279	actionIfNone value
6e54ebb9b75e * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	3280	] ifFalse:[
9010 fa5c1fef4aef changed: #browseReferendsOf:title:ifNone: Claus Gittinger <cg@exept.de> parents: 9007 diff changeset	3281	browser autoSearchVariable:aGlobalName.
2828 6e54ebb9b75e * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	3282	].
6e54ebb9b75e * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	3283	^ browser
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3284
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	Tools::NewSystemBrowser browseReferendsOf:'SortedCollection' title:'foo' ifNone:[ self halt ]
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3287	"
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3288	!
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	browseReferendsOf:aGlobalName title:title warnIfNone:doWarn
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3291	"launch a browser for all methods referencing a global
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3292	named aGlobalName.
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3293	"
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3294
2414 a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	3295	\|b\|
a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	3296
a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	3297	doWarn ifTrue: [
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3298	b := [self showNoneFound:title]
2414 a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	3299	].
a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	3300
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3301	^ self
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3302	browseReferendsOf:aGlobalName
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3303	title:title
2414 a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	3304	ifNone:b
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3305
1367 80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3306	!
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	browseReferendsOf:aGlobalName warnIfNone:doWarn
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3309	"launch a browser for all methods referencing a global
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3310	named aGlobalName.
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3311	"
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	^ self
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3314	browseReferendsOf:aGlobalName
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	3315	title:(self classResources string:'Users of: %1' with:aGlobalName)
1367 80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3316	warnIfNone:doWarn
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3317
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3318	"Modified: / 31.10.1997 / 15:42:05 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3319	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3320
4198 de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3321	browseReferendsOfUnboundGlobalsWithTitle:title ifNone:actionIfNone
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3322	"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	3323	"
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	\|globalsPlainName searchBlock browser\|
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3326
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3327	searchBlock := [:cls :mthd :sel \|
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3328
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3329	\|mSource globals potentialNames\|
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3330
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3331	"/ 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	3332	mthd isLazyMethod ifTrue:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3333	mSource := mthd source.
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3334	mSource notNil ifTrue:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3335	globals := mthd usedGlobals.
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3336	].
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3337	] ifFalse:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3338	"/ try hard to avoid the usedGlobals - its expensive
6640 326360e94271 * empty log message * Claus Gittinger <cg@exept.de> parents: 6581 diff changeset	3339	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	3340	potentialNames notEmpty ifTrue:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3341	potentialNames := potentialNames select:[:lit \| (Smalltalk at:lit) isNil].
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3342	potentialNames notEmpty ifTrue:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3343	globals := mthd usedGlobals.
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3344	]
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	globals notNil ifTrue:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3348	globals contains:[:aGlobalKey \| (Smalltalk at:aGlobalKey asSymbol) isNil].
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3349	] ifFalse:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3350	false
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3351	]
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	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	3355	browser isNil ifTrue:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3356	actionIfNone value
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3357	] ifFalse:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3358	browser autoSearch:globalsPlainName
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3359	].
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3360	^ browser
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3361	!
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	browseReferendsOfUnboundGlobalsWithTitle:title warnIfNone:doWarn
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3364	"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	3365	"
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	\|b\|
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3368
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3369	doWarn ifTrue: [
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3370	b := [self showNoneFound:title]
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3371	].
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	^ self
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3374	browseReferendsOfUnboundGlobalsWithTitle:title
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3375	ifNone:b
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3376	!
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3377
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3378	browseRefsTo:aString classVars:classVars in:aCollectionOfClasses modificationsOnly:modsOnly
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3379	"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	3380	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	3381	instvar is modified"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3382
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3383	\|title\|
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3384
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3385	modsOnly ifTrue:[
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	3386	title := 'Modifications of: %1'
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3387	] ifFalse:[
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	3388	title := 'References to: %1 '
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3389	].
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3390	^ self
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3391	browseRefsTo:aString
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3392	classVars:classVars
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3393	in:aCollectionOfClasses
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3394	modificationsOnly:modsOnly
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3395	title:(self classResources string:title with:aString)
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3396
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3397	"Created: 9.12.1995 / 18:07:05 / cg"
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3398	"Modified: 9.12.1995 / 18:11:49 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3399	!
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	browseRefsTo:varName classVars:classVars in:aCollectionOfClasses modificationsOnly:modsOnly title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3402	"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	3403	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	3404	instvar is modified"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3405
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3406	\|filter browser pattern\|
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3407
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3408	filter := self filterToSearchRefsTo:varName classVars:classVars modificationsOnly:modsOnly.
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3409	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	3410
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3411	browser notNil ifTrue:[
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3412	modsOnly ifTrue:[
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3413	pattern := varName , ' :='
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3414	] ifFalse:[
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3415	pattern := varName
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3416	].
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3417	browser autoSearch:pattern
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3418	].
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3419	^ browser
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3420	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3421
3407 7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3422	browseSendersOf:aSelectorString
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3423	"launch a browser for all senders of aSelector"
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3424
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3425	^ self browseAllCallsOn:aSelectorString
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3426
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	SystemBrowser browseSendersOf:#+
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3429	UserPreferences current systemBrowserClass browseSendersOf:#+
3407 7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3430	"
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	"Modified: / 10.7.1996 / 10:26:15 / cg"
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3433	"Created: / 13.11.2001 / 13:52:12 / cg"
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3434	!
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3435
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3436	browseSuperCallsIn:aCollectionOfClasses title:title
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3437	"launch a browser for all super sends in aCollectionOfClasses"
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3438
742 2ef5e22d8983 code cleanup (unused vars eliminated) Claus Gittinger <cg@exept.de> parents: 675 diff changeset	3439	\|browser searchBlock\|
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3440
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3441	searchBlock := [:class :method :s \|
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3442	\|src parser\|
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3443
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3444	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	3445	(src notNil and:[src findString:'super']) ~~ 0 ifTrue:[
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3446	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	3447	parseMethod:src
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3448	in:class
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3449	ignoreErrors:true
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3450	ignoreWarnings:true.
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3451
7711 7e8881bccf72 * empty log message * Claus Gittinger <cg@exept.de> parents: 7524 diff changeset	3452	(parser notNil and:[parser ~~ #Error and:[parser usesSuper]])
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3453	] ifFalse:[
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3454	false
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3455	]
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3456	].
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	browser := self browseMethodsIn:aCollectionOfClasses
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3459	where:searchBlock
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3460	title:title.
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3461
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3462	browser notNil ifTrue:[
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3463	browser autoSearch:'super'
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3464	].
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3465	^ browser
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3466
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3467	"
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3468	SystemBrowser
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3469	browseSuperCallsIn:(Array with:SortedCollection)
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3470	title:'superSends in SortedCollection'
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3471	"
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3472
7711 7e8881bccf72 * empty log message * Claus Gittinger <cg@exept.de> parents: 7524 diff changeset	3473	"Created: / 23-11-1995 / 14:08:55 / cg"
7e8881bccf72 * empty log message * Claus Gittinger <cg@exept.de> parents: 7524 diff changeset	3474	"Modified: / 06-03-2007 / 14:00:12 / cg"
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3475	!
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	browseSuperCallsUnder:aClass
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3478	"launch a browser for all supersends in aClass and subclasses"
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3479
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3480	^ self browseSuperCallsIn:(aClass withAllSubclasses)
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	3481	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	3482
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	SystemBrowser browseSuperCallsUnder:Number
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3485	"
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	"Created: 23.11.1995 / 12:06:06 / cg"
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3488	"Modified: 9.12.1995 / 18:11:59 / cg"
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3489	!
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3490
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3491	browseUsesOf:aClass
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3492	\|dict owners offsets
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3493	sz "{ Class: SmallInteger }"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3494	n "{ Class: SmallInteger }"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3495	removeSet newDict\|
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3496
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3497	owners := ObjectMemory whoReferencesInstancesOf:aClass.
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3498
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3499	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3500	collect set of offsets in dict; key is class
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3501	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3502	dict := IdentityDictionary new.
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3503	owners do:[:someObject \|
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3504	\|cls create\|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3505
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3506	someObject isContext ifFalse:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3507	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3508	someObject refers to an instance of aClass;
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3509	find out, which instVar(s)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3510	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3511	cls := someObject class.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3512	cls ~~ Array ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3513	n := cls instSize.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3514	create := [\|s\| s := Set new. dict at:cls put:s. s].
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3515
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3516	1 to:n do:[:i \|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3517	\|ref\|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3518
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3519	ref := someObject instVarAt:i.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3520	(ref isMemberOf:aClass) ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3521	offsets := dict at:cls ifAbsent:create.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3522	offsets add:i.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3523	]
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	cls isVariable ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3526	cls isPointers ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3527	\| idx "{ Class: SmallInteger }" \|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3528
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3529	sz := someObject basicSize.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3530	idx := 1.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3531	[idx <= sz] whileTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3532	\|ref\|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3533
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3534	ref := someObject basicAt:idx.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3535	(ref isMemberOf:aClass) ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3536	offsets := dict at:cls ifAbsent:create.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3537	offsets add:0.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3538	idx := sz
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3539	].
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3540	idx := idx + 1
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3541	]
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	]
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3546	].
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	merge with superclass refs
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3550	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3551	dict keysAndValuesDo:[:cls :set \|
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3552	cls allSuperclasses do:[:aSuperclass \|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3553	\|superSet\|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3554
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3555	superSet := dict at:aSuperclass ifAbsent:[].
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3556	superSet notNil ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3557	\|removeSet\|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3558
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3559	superSet := dict at:aSuperclass.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3560	removeSet := Set new.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3561	set do:[:offset \|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3562	(superSet includes:offset) ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3563	removeSet add:offset
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3564	]
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	set removeAll:removeSet
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3567	]
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3568	]
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3569	].
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	remove empty ones
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3573	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3574	removeSet := Set new.
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3575	dict keysAndValuesDo:[:cls :set \|
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3576	set isEmpty ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3577	removeSet add:cls
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3578	]
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3579	].
9334 ed9742f1a717 changed: #browseUsesOf: Claus Gittinger <cg@exept.de> parents: 9313 diff changeset	3580	dict removeAllKeys:removeSet.
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3581
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3582	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3583	replace the indices by real names
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3584	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3585	newDict := IdentityDictionary new.
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3586	dict keysAndValuesDo:[:cls :set \|
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3587	\|newSet names\|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3588
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3589	names := cls allInstVarNames.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3590	newSet := set collect:[:index \|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3591	index == 0 ifTrue:['indexed'] ifFalse:[names at:index].
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3592	].
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3593	newDict at:cls put:newSet
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3594	].
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3595
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3596	newDict inspect
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3597	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3598
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3599	filterToSearchRefsTo:varName classVars:classVars access:accessType
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3600	"return a searchblock for variable references (obsolete)"
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3601
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3602	^ self
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3603	filterToSearchRefsTo:varName
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3604	instVars:(classVars not)
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3605	classVars:classVars
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3606	globals:false
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3607	access:accessType
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3608	!
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3609
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3610	filterToSearchRefsTo:varName classVars:classVars modificationsOnly:modsOnly
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3611	"return a searchblock for variable references"
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3612
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3613	^ self
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3614	filterToSearchRefsTo:varName
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3615	classVars:classVars
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3616	access:(modsOnly ifTrue:#write ifFalse:#readWrite)
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3617	!
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3618
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3619	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	3620	"return a searchblock for variable references"
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3621
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3622	\|searchBlock\|
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3623
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3624	searchBlock := [:c :m :s \|
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3625	\|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	3626
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3627	needMatch := varName includesMatchCharacters.
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3628
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3629	result := false.
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3630
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3631	src := m source.
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3632	src notNil ifTrue:[
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3633	needMatch ifFalse:[
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3634	"
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3635	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	3636	methods source for the variables name ...
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3637	"
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3638	(varName includes:$:) ifTrue:[
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3639	result := (src findString:(varName copyFrom:(varName lastIndexOf:$:)+1)) ~~ 0.
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3640	] ifFalse:[
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3641	result := (src findString:varName) ~~ 0.
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3642	].
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3643	] ifTrue:[
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3644	result := true.
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3645	].
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3646	result ifTrue:[
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3647	result := false.
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3648	parser := Parser
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3649	parseMethod:src
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3650	in:c
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3651	ignoreErrors:true
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3652	ignoreWarnings:true.
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3653
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3654	(parser notNil and:[parser ~~ #Error]) ifTrue:[
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3655	vars := Set new.
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3656	doInstVars ifTrue:[
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3657	accessType == #read ifTrue:[
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3658	instVars := parser readInstVars
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3659	] ifFalse:[
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3660	accessType == #write ifTrue:[
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3661	instVars := parser modifiedInstVars
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3662	] ifFalse:[
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3663	instVars := parser usedInstVars
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3664	]
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3665	].
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3666	vars addAll:instVars.
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3667	].
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3668	doClassVars ifTrue:[
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3669	accessType == #read ifTrue:[
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3670	classVars := parser readClassVars
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3671	] ifFalse:[
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3672	accessType == #write ifTrue:[
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3673	classVars := parser modifiedClassVars
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3674	] ifFalse:[
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3675	classVars := parser usedClassVars
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3676	]
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3677	].
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3678	vars addAll:classVars.
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3679	].
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3680	doGlobals ifTrue:[
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3681	accessType == #read ifTrue:[
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3682	globals := parser readGlobals
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3683	] ifFalse:[
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3684	accessType == #write ifTrue:[
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3685	globals := parser modifiedGlobals
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3686	] ifFalse:[
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3687	globals := parser usedGlobals
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3688	]
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3689	].
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3690	vars addAll:globals.
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3691	].
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3692	vars size > 0 ifTrue:[
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3693	needMatch ifTrue:[
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3694	result := vars contains:[:cv \| (varName match:cv)]
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3695	] ifFalse:[
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3696	result := vars includes:varName
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3697	]
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	Processor yield.
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3703	result
36 ccde5a941840 * empty log message * claus parents: diff changeset	3704	].
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3705	^ searchBlock
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3706
1190 d265f77ecbc8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1143 diff changeset	3707	"Modified: 19.6.1997 / 18:27:57 / cg"
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	3708	!
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	3709
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3710	findAnyResourceIn:aCollectionOfClasses
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3711	"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	3712
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3713	^ 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	3714
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	SystemBrowser findAnyResourceIn:(ApplicationModel withAllSubclasses)
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3717	"
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
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3720	findClassRefsTo:aString in:aCollectionOfClasses access:accessType
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3721	"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	3722	aString is referenced;
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3723	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	3724
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3725	^ 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	3726	!
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3727
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3728	findClassRefsTo:aString in:aCollectionOfClasses modificationsOnly:modsOnly
2728 5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3729	"return all methods in aCollectionOfClasses where the classVar named
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3730	aString is referenced;
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3731	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	3732
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3733	^ self findRefsTo:aString classVars:true in:aCollectionOfClasses modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3734	!
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3735
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3736	findClassRefsTo:aString inClass:aClass access:accessType
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3737	"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	3738	aString is referenced;
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3739	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	3740
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3741	^ 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	3742	!
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3743
2728 5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3744	findClassRefsTo:aString inClass:aClass modificationsOnly:modsOnly
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3745	"return all methods in aClass where the classVar named
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3746	aString is referenced;
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3747	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	3748
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3749	^ self findRefsTo:aString classVars:true in:(Array with:aClass) modificationsOnly:modsOnly
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3750	!
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3751
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3752	findClassRefsTo:aString under:aClass access:accessType
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3753	"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	3754	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	3755	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	3756
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3757	^ 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	3758	!
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3759
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3760	findClassRefsTo:aString under:aClass modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3761	"return all methods in aClass and subclasses
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3762	where the classVar named aString is referenced;
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3763	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	3764
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3765	^ self findClassRefsTo:aString in:(aClass withAllSubclasses) modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3766
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
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	3769	findCode:aCodeString in:aCollectionOfClasses isMethod:isMethod
5243 6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3770	"return a collection of all methods in aCollectionOfClasses
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	3771	containing a matching piece of code.
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	3772	This may be slow, since source-code has to be scanned."
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	3773
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	3774	\|searchBlock\|
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	3775
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	3776	searchBlock := self searchBlockForCode:aCodeString in:aCollectionOfClasses isMethod:isMethod.
5226 35a9709e73ee code search Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	3777	searchBlock isNil ifTrue:[ ^ nil].
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	3778	^ self findMethodsIn:aCollectionOfClasses where:searchBlock.
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	3779
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	3780	"Modified: / 02-05-2011 / 13:25:15 / sr"
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	3781	!
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	3782
5243 6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3783	findCode:aCodeString inMethods:aCollectionOfMethods isMethod:isMethod
6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3784	"return a collection of all methods in aCollectionOfMethods
6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3785	containing a matching piece of code."
6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3786
6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3787	\|searchBlock\|
6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3788
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	3789	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	3790	searchBlock isNil ifTrue:[ ^ nil].
6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3791	^ aCollectionOfMethods select:[:m \| searchBlock value:m mclass value:m value:m selector].
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	3792
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	3793	"Modified: / 02-05-2011 / 13:25:39 / sr"
5243 6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3794	!
6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3795
9482 542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3796	findExceptionHandlersIn:aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3797	"return a collection of all methods in aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3798	containing an exception raiser.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3799	This may be slow, since source-code has to be scanned."
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3800
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3801	^ self findUsingParseTreeSearcher:(ParseTreeSearcher handlesException) in:aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3802
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3803	"Modified: / 11-05-2010 / 16:18:55 / cg"
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3804	!
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	findExceptionHandlersInMethods:aCollectionOfMethods
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3807	"return a collection of all methods in aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3808	containing an exception raiser.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3809	This may be slow, since source-code has to be scanned."
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3810
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3811	^ self findUsingParseTreeSearcher:(ParseTreeSearcher handlesException) inMethods:aCollectionOfMethods
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3812
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3813	"Created: / 11-05-2010 / 16:20:48 / cg"
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3814	!
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	findExceptionRaisersIn:aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3817	"return a collection of all methods in aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3818	containing an exception raiser.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3819	This may be slow, since source-code has to be scanned."
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3820
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3821	^ self findUsingParseTreeSearcher:(ParseTreeSearcher raisesException) in:aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3822
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3823	"Modified: / 11-05-2010 / 16:18:48 / cg"
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3824	!
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	findExceptionRaisersInMethods:aCollectionOfMethods
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3827	"return a collection of all methods in aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3828	containing an exception raiser.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3829	This may be slow, since source-code has to be scanned."
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3830
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3831	^ self findUsingParseTreeSearcher:(ParseTreeSearcher raisesException) inMethods:aCollectionOfMethods
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3832
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3833	"Created: / 11-05-2010 / 16:20:36 / cg"
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3834	!
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3835
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3836	findHelpSpecMethodsWithString:aString in:aCollectionOfClasses ignoreCase:ignoreCase
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	3837	"return a collection of all help-spec methods in aCollectionOfClasses
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	3838	containing a string in their source.
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	3839	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	3840
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3841	^ self
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3842	findSpecMethodsFor:#help
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3843	withString:aString
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3844	in:aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3845	ignoreCase:ignoreCase
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3846	!
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	findHelpSpecMethodsWithString:aString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3849	"return a collection of all help-spec methods in aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3850	containing a string in their source.
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3851	This may be slow, since source-code has to be scanned."
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3852
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3853	^ self
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3854	findSpecMethodsFor:#help
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3855	withString:aString
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3856	in:aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3857	ignoreCase:ignoreCase
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	3858	match:doMatch
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	3859	!
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	3860
4152 92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3861	findImplementors:aSelectorMatchString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3862	"search for all implementors of aSelector in
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3863	the classes contained in aCollectionOfClasses and its metaclasses.
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3864	Return a collection of methods"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3865
6776 5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3866	\|list compare testST testJava lcSelector\|
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3867
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3868	list := IdentitySet new.
6051 adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	3869	aSelectorMatchString size == 0 ifTrue:[ ^ list ].
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	3870
4152 92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3871	doMatch ifTrue:[
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3872	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	3873	] ifFalse:[
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3874	compare := [:sel :search \| sel = search].
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3875	].
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3876
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3877	ignoreCase == true ifTrue:[
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3878	lcSelector := aSelectorMatchString asLowercase.
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3879
7847 bc2f06886dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 7827 diff changeset	3880	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	3881	testJava := [:aSelector :aMethod \| (compare value:aSelector value:aMethod name asLowercase) ].
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3882	] ifFalse:[
6776 5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3883	testST := [:aSelector :aMethod \| (compare value:aSelectorMatchString value:aSelector) ].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3884	testJava := [:aSelector :aMethod \| (compare value:aSelectorMatchString value:aMethod name) ].
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3885	].
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	aCollectionOfClasses do:[:aClass \|
6776 5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3888	\|testBlock srchBlock\|
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3889
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3890	aClass isObsolete ifFalse:[
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3891	aClass isJavaClass ifTrue:[
6776 5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3892	testBlock := testJava
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3893	] ifFalse:[
6776 5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3894	testBlock := testST
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3895	].
6776 5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3896	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	3897	aClass methodDictionary keysAndValuesDo:srchBlock.
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3898	aClass isMeta ifFalse:[
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3899	aClass class methodDictionary keysAndValuesDo:srchBlock
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3900	]
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	^ list
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3905
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	SystemBrowser findImplementorsOf:#+
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3908	in:(Array with:Number
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3909	with:Float
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3910	with:SmallInteger)
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3911	"
7847 bc2f06886dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 7827 diff changeset	3912
bc2f06886dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 7827 diff changeset	3913	"Modified: / 20-09-2007 / 16:02:10 / cg"
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3914	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3915
6776 5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3916	findImplementors:aSelectorMatchString inMethods:aCollectionOfMethods ignoreCase:ignoreCase match:doMatch
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3917	"search for all implementors of aSelector in
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3918	the classes contained in aCollectionOfClasses and its metaclasses.
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3919	Return a collection of methods"
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3920
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3921	\|list compare testST testJava lcSelector\|
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3922
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3923	list := IdentitySet new.
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3924	aSelectorMatchString size == 0 ifTrue:[ ^ list ].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3925
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3926	doMatch ifTrue:[
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3927	compare := [:sel :search \| sel match:search].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3928	] ifFalse:[
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3929	compare := [:sel :search \| sel = search].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3930	].
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	ignoreCase == true ifTrue:[
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3933	lcSelector := aSelectorMatchString asLowercase.
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3934
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3935	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	3936	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	3937	] ifFalse:[
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3938	testST := [:aSelector :aMethod \| (compare value:aSelectorMatchString value:aSelector) ].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3939	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	3940	].
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	aCollectionOfMethods do:[:eachMethod \|
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3943	\|cls sel testBlock\|
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3944
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3945	cls := eachMethod mclass.
7066 43640ba63db6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6955 diff changeset	3946	(cls isNil or:[cls isObsolete]) ifFalse:[
6776 5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3947	cls isJavaClass ifTrue:[
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3948	testBlock := testJava
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3949	] ifFalse:[
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3950	testBlock := testST
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3951	].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3952	sel := eachMethod selector.
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3953	(testBlock value:sel value:eachMethod) ifTrue:[
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3954	list add:eachMethod
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3955	].
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	^ list
7066 43640ba63db6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6955 diff changeset	3960
43640ba63db6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6955 diff changeset	3961	"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	3962	!
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	3963
4152 92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3964	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	3965	"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	3966	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	3967	Return a collection of methods"
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3968
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3969	^ 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	3970
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	SystemBrowser findImplementorsOf:#+
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3973	in:(Array with:Number
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3974	with:Float
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3975	with:SmallInteger)
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	3976	"
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
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3979	findImplementorsMatchingAny:aCollectionOfSelectors in:aCollectionOfClasses ignoreCase:ignoreCase
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3980	"search for all implementors of any in aCollectionOfSelectors in
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3981	the classes contained in aCollectionOfClasses and its metaclasses.
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3982	Return a collection of methods.
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3983	CAVEAT: searches multiple times (could be tuned alot if heavily used)"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	3984
6052 e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	3985	^ aCollectionOfSelectors
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	3986	collectAll:[:eachSelector \|
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	3987	self findImplementorsMatching:eachSelector
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	3988	in:aCollectionOfClasses
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	3989	ignoreCase:ignoreCase.
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	3990	].
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	"/ \|implementors\|
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	3993	"/
6051 adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	3994	"/ implementors := IdentitySet new.
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	3995	"/ aCollectionOfSelectors do:[:eachSelector \|
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	3996	"/ implementors addAll:(self findImplementorsMatching:eachSelector in:aCollectionOfClasses ignoreCase:ignoreCase).
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	3997	"/ ].
6052 e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	3998	"/ ^ implementors
6051 adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	3999
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	self
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4002	findImplementorsMatchingAny:#( 'at:' 'size')
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4003	in:(Smalltalk allClasses)
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4004	ignoreCase:true
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4005	"
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4006	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4007
4152 92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4008	findImplementorsOf:aSelectorMatchString in:aCollectionOfClasses ignoreCase:ignoreCase
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4009	"search for all implementors of aSelector in
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4010	the classes contained in aCollectionOfClasses and its metaclasses.
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4011	Return a collection of methods"
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4012
6480 a84b7a241f0a * empty log message * Claus Gittinger <cg@exept.de> parents: 6476 diff changeset	4013	^ self
a84b7a241f0a * empty log message * Claus Gittinger <cg@exept.de> parents: 6476 diff changeset	4014	findImplementors:aSelectorMatchString
a84b7a241f0a * empty log message * Claus Gittinger <cg@exept.de> parents: 6476 diff changeset	4015	in:aCollectionOfClasses
a84b7a241f0a * empty log message * Claus Gittinger <cg@exept.de> parents: 6476 diff changeset	4016	ignoreCase:ignoreCase
a84b7a241f0a * empty log message * Claus Gittinger <cg@exept.de> parents: 6476 diff changeset	4017	match:false
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4018
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	SystemBrowser findImplementorsOf:#+
4152 92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4021	in:(Array with:Number
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4022	with:Float
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4023	with:SmallInteger)
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4024	"
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
2811 85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4027	findImplementorsOfAny:aCollectionOfSelectors in:aCollectionOfClasses ignoreCase:ignoreCase
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4028	"search for all implementors of any in aCollectionOfSelectors in
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4029	the classes contained in aCollectionOfClasses and its metaclasses.
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4030	Return a collection of methods.
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4031	CAVEAT: searches multiple times (could be tuned alot if heavily used)"
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4032
6052 e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4033	^ aCollectionOfSelectors
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4034	collectAll:[:eachSelector \|
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4035	self findImplementorsOf:eachSelector
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4036	in:aCollectionOfClasses
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4037	ignoreCase:ignoreCase.
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4038	].
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	"/ \|implementors\|
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4041	"/
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4042	"/ implementors := IdentitySet new.
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4043	"/ aCollectionOfSelectors do:[:eachSelector \|
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4044	"/ implementors addAll:(self findImplementorsOf:eachSelector in:aCollectionOfClasses ignoreCase:ignoreCase).
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4045	"/ ].
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4046	"/ ^ implementors
2811 85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4047	!
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4048
2741 aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4049	findInstRefsTo:aString in:aCollectionOfClasses access:accessType
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4050	"return all methods in aCollectionOfClasses where the instVar named
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4051	aString is referenced;
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4052	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	4053
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4054	^ self findRefsTo:aString classVars:false in:aCollectionOfClasses access:accessType
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4055	!
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4056
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4057	findInstRefsTo:aString in:aCollectionOfClasses modificationsOnly:modsOnly
2728 5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4058	"return all methods in aCollectionOfClasses where the instVar named
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4059	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	4060	instvar is modified"
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4061
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4062	^ self findRefsTo:aString classVars:false in:aCollectionOfClasses modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4063	!
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4064
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4065	findInstRefsTo:aString inClass:aClass access:accessType
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4066	"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	4067	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	4068	instvar is modified"
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4069
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4070	^ 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	4071	!
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4072
2728 5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4073	findInstRefsTo:aString inClass:aClass modificationsOnly:modsOnly
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4074	"return all methods in aClass where the instVar named
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4075	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	4076	instvar is modified"
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4077
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4078	^ self findRefsTo:aString classVars:false in:(Array with:aClass) modificationsOnly:modsOnly
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4079	!
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4080
2741 aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4081	findInstRefsTo:aString under:aClass access:accessType
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4082	"return all methods in aClass and subclasses
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4083	where the classVar named aString is referenced;
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4084	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	4085
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4086	^ self findInstRefsTo:aString in:(aClass withAllSubclasses) access:accessType
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4087	!
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4088
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4089	findInstRefsTo:aString under:aClass modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4090	"return all methods in aClass and subclasses
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4091	where the instVar named aString is referenced;
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4092	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	4093
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4094	^ self findInstRefsTo:aString in:(aClass withAllSubclasses) modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4095	!
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4096
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4097	findMenuSpecMethodsWithString:aString in:aCollectionOfClasses ignoreCase:ignoreCase
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4098	"return a collection of all menu-spec methods in aCollectionOfClasses
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4099	containing a string in their source.
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4100	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	4101
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4102	^ self
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4103	findSpecMethodsFor:#menu
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4104	withString:aString
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4105	in:aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4106	ignoreCase:ignoreCase
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4107	!
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	findMenuSpecMethodsWithString:aString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4110	"return a collection of all menu-spec methods in aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4111	containing a string in their source.
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4112	This may be slow, since source-code has to be scanned."
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4113
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4114	^ self
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4115	findSpecMethodsFor:#menu
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4116	withString:aString
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4117	in:aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4118	ignoreCase:ignoreCase
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4119	match:doMatch
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4120	!
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4121
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4122	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	4123	"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	4124	varName is referenced;
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4125	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	4126
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4127	\|filter\|
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4128
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4129	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	4130	^ 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	4131
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	self
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4134	findRefsTo:'x'
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4135	classVars:false
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4136	in:(Array with:Point)
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4137	modificationsOnly:true
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4138	"
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
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4141	findRefsTo:varName classVars:classVars in:aCollectionOfClasses modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4142	"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	4143	varName is referenced;
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4144	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	4145
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4146	\|filter\|
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4147
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4148	filter := self filterToSearchRefsTo:varName classVars:classVars modificationsOnly:modsOnly.
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4149	^ self findMethodsIn:aCollectionOfClasses inst:true class:classVars where:filter.
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4150
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	self
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4153	findRefsTo:'x'
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4154	classVars:false
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4155	in:(Array with:Point)
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4156	modificationsOnly:true
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4157	"
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
2692 652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4160	findResource:aResourceSymbolOrCollectionOfSymbols in:aCollectionOfClasses
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4161	"return a collection of all methods in aCollectionOfClasses
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4162	containing a resource."
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4163
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4164	\|searchBlock\|
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4165
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4166	aResourceSymbolOrCollectionOfSymbols isSymbol ifTrue:[
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4167	searchBlock := [:c :m :sel \| \|resources\|
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4168	(resources := m resources) size > 0
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4169	and:[resources includesKey:aResourceSymbolOrCollectionOfSymbols]
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4170	].
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4171	] ifFalse:[
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4172	searchBlock := [:c :m :sel \| \|resources\|
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4173	(resources := m resources) size > 0
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4174	and:[resources keys includesAny:aResourceSymbolOrCollectionOfSymbols]
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4175	].
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	^ self findMethodsIn:aCollectionOfClasses where:searchBlock.
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4179
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	SystemBrowser findResource:#image in:(ApplicationModel withAllSubclasses)
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4182	SystemBrowser findResource:#menu in:(ApplicationModel withAllSubclasses)
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4183	SystemBrowser findResource:#(menu programMenu) in:(ApplicationModel withAllSubclasses)
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4184	"
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
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4187	findSendersOf:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4188	"search for all senders of aSelector in
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4189	the classes contained in aCollectionOfClasses and its metaclasses.
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4190	Return a collection of methods"
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4191
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4192	^ self allCallsOn:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase match:true
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4193
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4194	"
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4195	SystemBrowser findSendersOf:#+
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4196	in:(Array with:Number
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4197	with:Float
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4198	with:SmallInteger)
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4199	ignoreCase:false
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4200	"
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4201	!
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4202
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4203	findSendersOf:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4204	"search for all senders of aSelector in
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4205	the classes contained in aCollectionOfClasses and its metaclasses.
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4206	Return a collection of methods"
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4207
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4208	^ self allCallsOn:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4209
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4210	"
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4211	SystemBrowser findSendersOf:#+
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4212	in:(Array with:Number
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4213	with:Float
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4214	with:SmallInteger)
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4215	ignoreCase:false
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4216	"
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4217	!
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4218
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4219	findSendersOf:aSelectorString inMethods:aCollectionOfMethods ignoreCase:ignoreCase
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4220	"search for all senders of aSelector in aCollectionOfMethods.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4221	Return a collection of methods"
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4222
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4223	\|searchBlock\|
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4224
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4225	searchBlock := self searchBlockForAllCallsOn:aSelectorString ignoreCase:ignoreCase.
9313 44795fcbf414 changed: #findSendersOf:inMethods:ignoreCase: Claus Gittinger <cg@exept.de> parents: 9312 diff changeset	4226	searchBlock isNil ifTrue:[^ #() ].
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4227	^ 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	4228	!
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4229
4350 0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	4230	findSendersOf:aSelectorString inMethods:aCollectionOfMethods ignoreCase:ignoreCase match:doMatch
0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	4231	"search for all senders of aSelector in aCollectionOfMethods.
0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	4232	Return a collection of methods"
0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	4233
0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	4234	\|searchBlock\|
0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	4235
0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	4236	searchBlock := self searchBlockForAllCallsOn:aSelectorString ignoreCase:ignoreCase match:doMatch.
9312 71f84182390a changed: #findSendersOf:inMethods:ignoreCase:match: Claus Gittinger <cg@exept.de> parents: 9189 diff changeset	4237	searchBlock isNil ifTrue:[^ #() ].
4350 0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	4238	^ 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	4239	!
0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	4240
2811 85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4241	findSendersOfAny:aCollectionOfSelectors in:aCollectionOfClasses ignoreCase:ignoreCase
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4242	"search for all senders of any selector in aCollectionOfSelectors in
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4243	the classes contained in aCollectionOfClasses and its metaclasses.
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4244	Return a collection of methods.
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4245	CAVEAT: searches multiple times (could be tuned alot if heavily used)"
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4246
6052 e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4247	^ aCollectionOfSelectors
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4248	collectAll:[:eachSelector \|
6184 bcb22487bc67 senders of any - duplicates Claus Gittinger <cg@exept.de> parents: 6134 diff changeset	4249	(self allCallsOn:eachSelector
6052 e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4250	in:aCollectionOfClasses
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4251	ignoreCase:ignoreCase
6184 bcb22487bc67 senders of any - duplicates Claus Gittinger <cg@exept.de> parents: 6134 diff changeset	4252	match:false) asSet.
6052 e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4253	].
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4254
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4255	"/ \|allSenders\|
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4256	"/
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4257	"/ allSenders := IdentitySet new.
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4258	"/ aCollectionOfSelectors do:[:eachSelector \|
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4259	"/ allSenders addAll:(self allCallsOn:eachSelector in:aCollectionOfClasses ignoreCase:ignoreCase match:true)
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4260	"/ ].
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4261	"/ ^ allSenders
2811 85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4262
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4263	"
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4264	SystemBrowser findSendersOfAny:#(#'+' #'-')
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4265	in:(Array with:Number
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4266	with:Float
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4267	with:SmallInteger)
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4268	ignoreCase:false
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4269	"
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4270	!
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4271
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4272	findSpecMethodsFor:specSymbol withString:aString in:aCollectionOfClasses ignoreCase:ignoreCase
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4273	"return a collection of all specSymbol-spec methods in aCollectionOfClasses
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4274	containing a string in their source.
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4275	This may be slow, since source-code has to be scanned."
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4276
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4277	self
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4278	findSpecMethodsFor:specSymbol
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4279	withString:aString
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4280	in:aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4281	ignoreCase:ignoreCase
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4282	match:true
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4283	!
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4284
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4285	findSpecMethodsFor:specSymbol withString:aString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4286	"return a collection of all specSymbol-spec methods in aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4287	containing a string in their source.
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4288	This may be slow, since source-code has to be scanned."
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4289
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4290	\|searchBlock innerSearchBlock\|
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4291
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4292	innerSearchBlock := self searchBlockForString:aString ignoreCase:ignoreCase match:doMatch.
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4293
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4294	searchBlock := [:c :m :sel \|
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4295	\|resources\|
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4296
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4297	((resources := m resources) size > 0
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4298	and:[resources includesKey:specSymbol]) ifTrue:[
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4299	innerSearchBlock value:c value:m value:sel
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4300	]
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4301	].
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4302
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4303	^ self findMethodsIn:aCollectionOfClasses where:searchBlock.
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4304	!
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4305
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4306	findString:aString in:aCollectionOfClasses ignoreCase:ignoreCase
5243 6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	4307	"return a collection of all methods in aCollectionOfClasses
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4308	containing a string in their source.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4309	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	4310
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4311	^ self
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4312	findString:aString
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4313	in:aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4314	ignoreCase:ignoreCase
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4315	match:true
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4316
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4317	"
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4318	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	4319	"
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4320	!
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4321
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4322	findString:aString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
5243 6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	4323	"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	4324	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	4325	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	4326
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4327	\|searchBlock\|
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4328
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4329	searchBlock := self searchBlockForString:aString ignoreCase:ignoreCase match:doMatch.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4330	^ self findMethodsIn:aCollectionOfClasses where:searchBlock.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4331
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4332	"
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4333	SystemBrowser findString:'should' in:(Array with:Object) ignoreCase:false
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4334	"
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4335	!
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4336
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4337	findString:aString inMethods:aCollectionOfMethods ignoreCase:ignoreCase match:doMatch
5243 6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	4338	"return a collection of all methods in aCollectionOfClasses
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4339	containing a string in their source.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4340	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	4341
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4342	\|searchBlock\|
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4343
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4344	searchBlock := self searchBlockForString:aString ignoreCase:ignoreCase match:doMatch.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4345	^ 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	4346	!
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4347
5877 c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4348	findStringLiteral:aString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4349	"return a collection of all methods in aCollectionOfClasses
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4350	containing a string in any of their string-literals."
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4351
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4352	\|searchBlock\|
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4353
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4354	searchBlock := self searchBlockForStringLiteral:aString ignoreCase:ignoreCase match:doMatch.
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4355	^ self findMethodsIn:aCollectionOfClasses where:searchBlock.
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4356
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4357	"
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4358	SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:true match:false
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4359	"
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4360	!
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4361
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4362	findStringLiteral:aString inMethods:aCollectionOfMethods ignoreCase:ignoreCase match:doMatch
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4363	"return a collection of all methods in aCollectionOfClasses
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4364	containing a string in any of their string-literals."
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4365
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4366	\|searchBlock\|
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4367
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4368	searchBlock := self searchBlockForStringLiteral:aString ignoreCase:ignoreCase match:doMatch.
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4369	^ 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	4370	!
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4371
9482 542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4372	findUsingParseTreeSearcher:searcher in:aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4373	"return a collection of all methods in aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4374	containing an exception raiser.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4375	This may be slow, since source-code has to be scanned."
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4376
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4377	\|searchBlock\|
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4378
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4379	searchBlock := self searchBlockForParseTreeSearcher:searcher isMethod:false.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4380	searchBlock isNil ifTrue:[ ^ nil].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4381	^ self findMethodsIn:aCollectionOfClasses where:searchBlock.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4382
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4383	"Created: / 11-05-2010 / 16:18:36 / cg"
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4384	!
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4385
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4386	findUsingParseTreeSearcher:searcher inMethods:aCollectionOfMethods
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4387	"return a collection of all methods in aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4388	containing an exception raiser.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4389	This may be slow, since source-code has to be scanned."
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4390
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4391	\|searchBlock\|
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4392
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4393	searchBlock := self searchBlockForParseTreeSearcher:searcher isMethod:false.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4394	searchBlock isNil ifTrue:[ ^ nil].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4395	^ 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	4396
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4397	"Created: / 11-05-2010 / 16:20:12 / cg"
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4398	!
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4399
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4400	searchBlockForAllCallsOn:aSelectorString ignoreCase:ignoreCase
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4401	^ self searchBlockForAllCallsOn:aSelectorString ignoreCase:ignoreCase match:true
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4402	!
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4403
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4404	searchBlockForAllCallsOn:aSelectorString ignoreCase:ignoreCase match:doMatch
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4405	\|sel searchBlock lcString quickMatch\|
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4406
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4407	(doMatch
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4408	and:[(aSelectorString ~= '*')
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4409	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	4410	"/ a matchString or ignoreCase - need string matching procedure
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4411
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4412	ignoreCase ifTrue:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4413	lcString := aSelectorString asLowercase.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4414	] ifFalse:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4415	lcString := aSelectorString.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4416	].
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4417
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4418	quickMatch := aSelectorString.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4419	(quickMatch startsWith:'*') ifTrue:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4420	quickMatch := quickMatch copyFrom:2
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4421	].
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4422	(quickMatch endsWith:'*') ifTrue:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4423	quickMatch := quickMatch copyWithoutLast:1
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4424	].
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4425	(quickMatch includes:$:) ifTrue:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4426	quickMatch := quickMatch copyTo:(quickMatch indexOf:$:)-1.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4427	].
8685 b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4428
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4429	(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	4430	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	4431	\|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	4432
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4433	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	4434	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	4435	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	4436	(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	4437	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	4438	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	4439	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	4440	(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	4441	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	4442	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	4443	ifNone:nil) notNil
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4444	]
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4445	] 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	4446	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	4447	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	4448	(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	4449	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	4450	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	4451	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	4452	].
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4453	inLiterals
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4454	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	4455	].
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4456	] ifFalse:[
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4457	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	4458	\|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	4459
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4460	"/ 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	4461	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	4462	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	4463	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	4464	(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	4465	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	4466	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	4467	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	4468	(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	4469	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	4470	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	4471	ifNone:nil) notNil
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4472	]
8685 b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4473	] ifFalse:[
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4474	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	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:[(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	4477	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	4478	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	4479	].
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4480	inLiterals
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4481	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	4482	].
8685 b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4483	].
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4484	] ifFalse:[
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4485	(doMatch and:[aSelectorString = '*']) ifTrue:[
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4486	searchBlock := [:class :method :s \| true].
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4487	] ifFalse:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4488	"/ no matchString - can do it much faster
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4489
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4490	sel := aSelectorString asSymbolIfInterned.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4491	sel isNil ifTrue:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4492	^ nil "/ none
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4493	].
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4494
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4495	quickMatch := sel.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4496	(quickMatch includes:$:) ifTrue:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4497	quickMatch := quickMatch copyTo:(quickMatch indexOf:$:)-1.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4498	].
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4499	searchBlock := [:class :method :s \|
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4500	\|src\|
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4501
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4502	method isLazyMethod ifTrue:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4503	src := method source.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4504	(src notNil and:[src includesString:quickMatch]) ifTrue:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4505	method makeRealMethod.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4506	method sends:sel.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4507	] ifFalse:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4508	false
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4509	]
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4510	] ifFalse:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4511	method sends:sel
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4512	]
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4513	].
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4514	]
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4515	].
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4516	^ searchBlock
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4517	!
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4518
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4519	searchBlockForCode:aCodeString in:aCollectionOfClasses isMethod:isMethod
7395 4aa4c6b9a161 * empty log message * Claus Gittinger <cg@exept.de> parents: 7361 diff changeset	4520	"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	4521
6581 ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4522	\|errAction searchTree searcher globalVariablesUsed usedSymbols
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4523	sentMessages searchBlock foundMatch numMethodArgs methodSelector nameSpacesForGlobals\|
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4524
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4525	"/self halt.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4526	"/rule := ParseTreeLintRule
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4527	"/ createParseTreeRule: (Array with: aCodeString)
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4528	"/ method: isMethod
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4529	"/ name: 'Search for: ' , aCodeString.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4530	"/self halt.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4531	"/
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4532	"/ searchBlock := [:c :m :sel \|
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4533	"/ rslt := SmalllintChecker
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4534	"/ runRule:rule
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4535	"/ 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	4536	"/
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4537	"/ self halt.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4538	"/ ].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4539	"/^ searchBlock.
5226 35a9709e73ee code search Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	4540
35a9709e73ee code search Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	4541	errAction := [:str :pos \|
35a9709e73ee code search Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	4542	Dialog warn:'Error during parse: ' , str , ' (position ' , pos printString , ')'.
35a9709e73ee code search Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	4543	^ nil
35a9709e73ee code search Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	4544	].
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4545
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4546	isMethod ifTrue:[
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4547	searchTree := RBParser
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4548	parseRewriteMethod:aCodeString
5226 35a9709e73ee code search Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	4549	onError: errAction.
8281 67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4550	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	4551	methodSelector := searchTree selector.
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4552	] ifFalse:[
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4553	searchTree := RBParser
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4554	parseRewriteExpression:aCodeString
5226 35a9709e73ee code search Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	4555	onError: errAction.
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4556	].
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4557
6368 ef36274cbbf1 faster code-search Claus Gittinger <cg@exept.de> parents: 6353 diff changeset	4558	Error handle:[:ex \|
ef36274cbbf1 faster code-search Claus Gittinger <cg@exept.de> parents: 6353 diff changeset	4559	] do:[
6549 cd47faed29f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6546 diff changeset	4560	sentMessages := searchTree sentMessages.
5135 d844ec803124 improved code search Claus Gittinger <cg@exept.de> parents: 5112 diff changeset	4561	].
6581 ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4562
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4563	nameSpacesForGlobals := Set with:Smalltalk.
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4564	aCollectionOfClasses do:[:eachClass \|
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4565	nameSpacesForGlobals add:eachClass topNameSpace
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4566	].
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4567
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4568	globalVariablesUsed := OrderedCollection new.
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4569	searchTree referencedVariables do:[:node \|
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4570	\|nm ns alternatives\|
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4571
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4572	node isPatternNode ifFalse:[
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4573	nm := node name.
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4574	ns := nameSpacesForGlobals detect:[:ns \| ns includesKey: nm asSymbol] ifNone:nil.
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4575	ns notNil ifTrue:[
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4576	alternatives := OrderedCollection new.
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4577	nm asSymbolIfInterned notNil ifTrue:[ alternatives add: nm asSymbol ].
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4578	('Smalltalk::',nm) asSymbolIfInterned notNil ifTrue:[ alternatives add: ('Smalltalk::',nm) asSymbol ].
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4579	(ns name,'::',nm) asSymbolIfInterned notNil ifTrue:[ alternatives add: (ns name,'::',nm) asSymbol ].
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4580	nm asSymbolIfInterned notNil ifTrue:[ alternatives add: nm asSymbol ].
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4581	globalVariablesUsed add:alternatives
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4582	].
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4583	]
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4584	].
5135 d844ec803124 improved code search Claus Gittinger <cg@exept.de> parents: 5112 diff changeset	4585
6581 ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4586	usedSymbols := searchTree usedSymbols.
ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4587
7395 4aa4c6b9a161 * empty log message * Claus Gittinger <cg@exept.de> parents: 7361 diff changeset	4588	"/ 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	4589	"/ constants in the literal-array.
4aa4c6b9a161 * empty log message * Claus Gittinger <cg@exept.de> parents: 7361 diff changeset	4590	"/ literalsUsed := searchTree usedLiterals.
4aa4c6b9a161 * empty log message * Claus Gittinger <cg@exept.de> parents: 7361 diff changeset	4591	"/ literalsUsed := literalsUsed select:[:lit \| lit isString].
4aa4c6b9a161 * empty log message * Claus Gittinger <cg@exept.de> parents: 7361 diff changeset	4592
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4593	searcher := ParseTreeSearcher new.
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4594	isMethod ifTrue:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4595	searcher
8281 67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4596	matchesMethod:aCodeString
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4597	do:[:aNode :answer \| foundMatch := true].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4598	] ifFalse:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4599	searcher
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4600	matchesTree:searchTree
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4601	do:[:aNode :answer \| foundMatch := true].
6303 47c12063b000 Fix BC-Compile error Stefan Vogel <sv@exept.de> parents: 6184 diff changeset	4602	].
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4603
6581 ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4604
ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4605	searchBlock := [:c :m :sel \|
ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4606	\|allSelectorsInLiteralArray allMessagesSent
9544 0947c3513df7 changed: #searchBlockForCode:isMethod: Claus Gittinger <cg@exept.de> parents: 9483 diff changeset	4607	allGlobalsReferenced allUsedSymbolsInLiteralArray allSent src rslt parseTree
0947c3513df7 changed: #searchBlockForCode:isMethod: Claus Gittinger <cg@exept.de> parents: 9483 diff changeset	4608	literalsInMethod\|
6581 ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4609
ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4610	foundMatch := false.
ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4611
8281 67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4612	"/ 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	4613	(isMethod not
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4614	or:[ numMethodArgs isNil
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4615	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	4616	m isLazyMethod ifTrue:[
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4617	src := m source.
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4618	src notNil ifTrue:[
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4619	m makeRealMethod.
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4620	].
5135 d844ec803124 improved code search Claus Gittinger <cg@exept.de> parents: 5112 diff changeset	4621	].
9544 0947c3513df7 changed: #searchBlockForCode:isMethod: Claus Gittinger <cg@exept.de> parents: 9483 diff changeset	4622	"/ 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	4623	literalsInMethod := m literals.
0947c3513df7 changed: #searchBlockForCode:isMethod: Claus Gittinger <cg@exept.de> parents: 9483 diff changeset	4624	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	4625	allSelectorsInLiteralArray ifTrue:[
9544 0947c3513df7 changed: #searchBlockForCode:isMethod: Claus Gittinger <cg@exept.de> parents: 9483 diff changeset	4626	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	4627	allUsedSymbolsInLiteralArray ifTrue:[
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4628	allGlobalsReferenced := globalVariablesUsed conform:[:varNames \| varNames contains:[:varName \| m referencesGlobal:varName]].
8505 dd4cfeb8d6ad allGlobalsReferenced before allMessagesSent in #searchBlockForCode:isMethod: fm parents: 8478 diff changeset	4629	allGlobalsReferenced ifTrue:[
dd4cfeb8d6ad allGlobalsReferenced before allMessagesSent in #searchBlockForCode:isMethod: fm parents: 8478 diff changeset	4630	allMessagesSent := sentMessages isEmptyOrNil or:[ m messages includesAll:sentMessages ].
dd4cfeb8d6ad allGlobalsReferenced before allMessagesSent in #searchBlockForCode:isMethod: fm parents: 8478 diff changeset	4631	allMessagesSent ifTrue:[
8281 67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4632	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	4633	allSent ifTrue:[
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4634	src := m source.
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4635	src isNil ifTrue:[
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4636	('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	4637	false
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4638	] ifFalse:[
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4639	parseTree := RBParser
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4640	parseSearchMethod:src
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4641	onError: [:str :pos \|
9544 0947c3513df7 changed: #searchBlockForCode:isMethod: Claus Gittinger <cg@exept.de> parents: 9483 diff changeset	4642	self halt.
0947c3513df7 changed: #searchBlockForCode:isMethod: Claus Gittinger <cg@exept.de> parents: 9483 diff changeset	4643	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	4644	Transcript showCR:str.
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4645	Transcript showCR:pos.
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4646	nil].
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4647
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4648	parseTree notNil ifTrue:[
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4649	false "isMethod" ifTrue:[
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4650	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	4651	] ifFalse:[
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4652	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	4653	].
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4654	]
6552 343882b29fec code search bug - leftover foundMatch flag (must be cleared) Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	4655	]
6368 ef36274cbbf1 faster code-search Claus Gittinger <cg@exept.de> parents: 6353 diff changeset	4656	]
ef36274cbbf1 faster code-search Claus Gittinger <cg@exept.de> parents: 6353 diff changeset	4657	]
5251 847d633792ce tuned code search if global vars are involved Claus Gittinger <cg@exept.de> parents: 5243 diff changeset	4658	]
5135 d844ec803124 improved code search Claus Gittinger <cg@exept.de> parents: 5112 diff changeset	4659	]
6581 ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4660	]
ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4661	].
ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4662	foundMatch.
ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4663	].
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4664	^ searchBlock.
7395 4aa4c6b9a161 * empty log message * Claus Gittinger <cg@exept.de> parents: 7361 diff changeset	4665
9544 0947c3513df7 changed: #searchBlockForCode:isMethod: Claus Gittinger <cg@exept.de> parents: 9483 diff changeset	4666	"Modified: / 12-08-2010 / 11:03:36 / cg"
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4667	"Created: / 02-05-2011 / 13:25:01 / sr"
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4668	!
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4669
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4670	searchBlockForCode:aCodeString isMethod:isMethod
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4671	"return a block to search for a piece of code (intelligent search)."
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4672
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4673	^ self searchBlockForCode:aCodeString in:#() isMethod:isMethod
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4674
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4675	"Modified: / 02-05-2011 / 13:26:18 / sr"
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4676	!
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4677
9482 542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4678	searchBlockForParseTreeSearcher:searcher isMethod:isMethod
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4679	"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	4680
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4681	\|errAction searchBlock foundMatch\|
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4682
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4683	errAction := [:str :pos \|
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4684	Dialog warn:'Error during parse: ' , str , ' (position ' , pos printString , ')'.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4685	^ nil
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4686	].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4687
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4688	searchBlock := [:c :m :sel \|
9483 eead021c9729 changed: #searchBlockForParseTreeSearcher:isMethod: Claus Gittinger <cg@exept.de> parents: 9482 diff changeset	4689	\|src parseTree\|
9482 542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4690
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4691	foundMatch := false.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4692
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4693	m isLazyMethod ifTrue:[
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4694	src := m source.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4695	src notNil ifTrue:[
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4696	m makeRealMethod.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4697	].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4698	].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4699
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4700	src := m source.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4701	src isNil ifTrue:[
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4702	('Browser [info]: no source for ' , m printString) infoPrintCR.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4703	false
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4704	] ifFalse:[
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4705	parseTree := RBParser
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4706	parseSearchMethod:src
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4707	onError: [:str :pos \|
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4708	Transcript show:'Error in '; showCR:m.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4709	Transcript showCR:str.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4710	Transcript showCR:pos.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4711	nil].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4712
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4713	parseTree notNil ifTrue:[
9483 eead021c9729 changed: #searchBlockForParseTreeSearcher:isMethod: Claus Gittinger <cg@exept.de> parents: 9482 diff changeset	4714	foundMatch := searcher executeTree:parseTree initialAnswer:false.
9482 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	].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4717	foundMatch.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4718	].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4719
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4720	^ searchBlock.
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	"Created: / 11-05-2010 / 16:14:25 / cg"
9483 eead021c9729 changed: #searchBlockForParseTreeSearcher:isMethod: Claus Gittinger <cg@exept.de> parents: 9482 diff changeset	4723	"Modified: / 11-05-2010 / 22:05:09 / cg"
9482 542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4724	!
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4725
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4726	searchBlockForReferendsOf:aGlobalName
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4727	"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	4728	which may be a matchpattern"
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4729
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4730	\|globalsPlainName idx matchingGlobalNames\|
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4731
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4732	globalsPlainName := aGlobalName.
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4733	(idx := globalsPlainName lastIndexOf:$:) ~~ 0 ifTrue:[
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4734	globalsPlainName := globalsPlainName copyFrom:idx+1.
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4735	(globalsPlainName size == 0
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4736	or:[globalsPlainName = '*']) ifTrue:[
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4737	globalsPlainName := aGlobalName
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4738	]
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4739	].
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4740
9660 e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4741	"/ matchingGlobalNames := OrderedCollection new.
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4742
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4743	aGlobalName includesMatchCharacters ifFalse:[
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4744	^ [:cls :mthd :sel \|
9660 e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4745	\|sym1 sym2 mSource ok m\|
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4746
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4747	sym1 := aGlobalName asSymbolIfInterned.
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4748	sym2 := globalsPlainName asSymbolIfInterned.
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4749	(sym1 isNil and:[ sym2 isNil ]) ifTrue:[
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4750	false
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4751	] ifFalse:[
9660 e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4752	ok := false.
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4753	"/ kludge: Lazy methods do not include symbols in the literal array - sigh
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4754	mthd isLazyMethod ifTrue:[
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4755	mSource := mthd source.
9660 e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4756	(mSource notNil) ifTrue:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4757	(mSource includesString:sym2) ifTrue:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4758	(mthd usedGlobals includes:sym1) ifTrue:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4759	ok := true
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4760	] ifFalse:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4761	(mthd usedGlobals includes:sym2) ifTrue:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4762	ok := true
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4763	]
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4764	]
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4765	]
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4766	]
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4767	] ifFalse:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4768	(m := mthd) isWrapped ifTrue:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4769	m := m originalMethod.
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4770	].
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4771
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4772	((m refersToLiteral:sym1) or:[ (m refersToLiteral:sym2) ]) ifTrue:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4773	(m usedGlobals includes:sym1) ifTrue:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4774	ok := true
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4775	] ifFalse:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4776	(m usedGlobals includes:sym2) ifTrue:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4777	ok := true
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4778	].
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4779	].
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4780	].
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4781	]
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4782	]
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4783	].
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4784	].
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4785
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4786	^ [:cls :mthd :sel \|
9660 e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4787	\|mSource usedGlobals global m\|
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4788
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4789	"/ kludge: Lazy methods do not include symbols in the literal array - sigh
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4790	mthd isLazyMethod ifTrue:[
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4791	mSource := mthd source.
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4792	mSource notNil ifTrue:[
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4793	usedGlobals := mthd usedGlobals
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4794	]
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4795	] ifFalse:[
9660 e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4796	(m := mthd) isWrapped ifTrue:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4797	m := m originalMethod.
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	(m literals contains:[:lit \| (aGlobalName match:lit) or:[globalsPlainName match:lit]]) ifTrue:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4800	usedGlobals := m usedGlobals
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4801	].
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4802	].
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4803	usedGlobals notNil ifTrue:[
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4804	global := usedGlobals detect:[:lit \| aGlobalName match:lit] ifNone:nil.
9660 e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4805	global isNil ifTrue:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4806	global := usedGlobals detect:[:lit \| globalsPlainName match:lit] ifNone:nil.
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4807	].
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4808	"/ global notNil ifTrue:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4809	"/ matchingGlobalNames add:global.
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	4810	"/ ]
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4811	].
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4812	global notNil
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4813	].
9660 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	"Modified: / 08-12-2010 / 12:20:18 / cg"
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
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4818	searchBlockForString:aString ignoreCase:ignoreCase match:doMatch
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4819	"return a block to search for a string."
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4820
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4821	\|searchBlock s\|
5891 2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4822
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4823	(doMatch and:[ aString includesMatchCharacters ]) ifTrue:[
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4824	s := '' , aString , ''.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4825	"a matchString"
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4826	searchBlock := [:c :m :sel \|
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4827	\|src\|
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4828	src := m source.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4829	src isNil ifTrue:[
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4830	('Browser [info]: no source for ' , m printString) infoPrintCR.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4831	false
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4832	] ifFalse:[
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4833	s match:src ignoreCase:ignoreCase
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4834	]
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4835	]
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4836	] ifFalse:[
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4837	searchBlock :=
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4838	[:c :m :sel \|
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4839	\|src\|
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4840
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4841	src := m source.
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4842	src isNil ifTrue:[
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4843	('Browser [info]: no source for ' , m printString) infoPrintCR.
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4844	false
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4845	] ifFalse:[
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4846	(src findString:aString ignoreCase:ignoreCase) ~~ 0
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4847	]
5891 2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4848	]
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4849	].
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4850	^ searchBlock.
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4851
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4852	"
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4853	SystemBrowser findString:'should' in:(Array with:Object) ignoreCase:false
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4854	"
4152 92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4855	!
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4856
5877 c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4857	searchBlockForStringLiteral:aString ignoreCase:ignoreCase match:doMatch
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4858	"return a block to search for a string-literal."
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4859
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4860	\|searchBlock s\|
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4861
5891 2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4862	(doMatch and:[ aString includesMatchCharacters]) ifTrue:[
5877 c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4863	s := '' , aString , ''.
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4864	"a matchString"
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4865	searchBlock := [:c :m :sel \|
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4866	\|lits\|
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4867	lits := m literals ? #().
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4868	lits contains:[:lit \|
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4869	lit isString
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4870	and:[lit isSymbol not
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4871	and:[s match:lit ignoreCase:ignoreCase]]
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4872	]
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4873	]
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4874	] ifFalse:[
5891 2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4875	ignoreCase ifTrue:[
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4876	s := aString asLowercase.
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4877	searchBlock := [:c :m :sel \|
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4878	\|lits\|
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4879	lits := m literals ? #().
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4880	lits contains:[:lit \|
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4881	lit isString
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4882	and:[lit isSymbol not
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4883	and:[s = lit asLowercase]]
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4884	]
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4885	]
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4886	] ifFalse:[
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4887	searchBlock := [:c :m :sel \|
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4888	\|lits\|
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4889	lits := m literals ? #().
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4890	lits contains:[:lit \|
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4891	lit isString
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4892	and:[lit isSymbol not
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4893	and:[s = lit]]
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4894	]
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4895	]
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	4896	].
5877 c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4897	].
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4898	^ searchBlock.
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4899
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4900	"
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4901	SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:true match:true
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4902	SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:true match:false
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4903	SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:false match:true
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4904	SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:false match:false
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4905	"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4906	! !
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4907
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	4908	!SystemBrowser class methodsFor:'startup'!
36 ccde5a941840 * empty log message * claus parents: diff changeset	4909
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4910	browseAllSelect:aBlock
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4911	"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	4912	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	4913
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4914	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4915	browseMethodsWhere:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4916	title:'selected messages'
36 ccde5a941840 * empty log message * claus parents: diff changeset	4917
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	4918	"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4919	SystemBrowser browseAllSelect:[:aClass :aMethod :selector \| selector numArgs == 3]
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	4920	"
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4921
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4922	"Modified: 24.1.1997 / 19:45:05 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4923	!
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	4924
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4925	browseClass:aClass
4490 de7216d4a28a * empty log message * Claus Gittinger <cg@exept.de> parents: 4350 diff changeset	4926	"launch a browser for aClass.
de7216d4a28a * empty log message * Claus Gittinger <cg@exept.de> parents: 4350 diff changeset	4927	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	4928
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4929	^ self
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4930	newWithLabel:aClass name
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4931	setupSelector:#setupForClass:
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4932	arg:aClass
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4933
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4934	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4935	SystemBrowser browseClass:Object
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4936	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4937
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4938	"Modified: 24.1.1997 / 19:45:16 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4939	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4940
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4941	browseClass:aClass methodCategory:aCategory
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4942	"launch a browser for all methods under aCategory in aClass"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4943
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4944	^ self newWithLabel:(aClass name , ' ' , aCategory)
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4945	setupBlock:[:browser \| browser setupForClass:aClass methodCategory:aCategory]
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4946
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4947	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4948	SystemBrowser browseClass:String methodCategory:'copying'
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4949	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4950
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4951	"Modified: 24.1.1997 / 19:45:23 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4952	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4953
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4954	browseClass:aClass selector:selector
4490 de7216d4a28a * empty log message * Claus Gittinger <cg@exept.de> parents: 4350 diff changeset	4955	"launch a browser for the method at selector in aClass."
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4956
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4957	^ self
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4958	newWithLabel:(aClass name , ' ' , selector , ' ' , selector)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4959	setupBlock:[:newBrowser \| newBrowser setupForClass:aClass selector:selector]
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4960
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4961	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4962	SystemBrowser browseClass:Object selector:#printString
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4963	"
36 ccde5a941840 * empty log message * claus parents: diff changeset	4964	!
ccde5a941840 * empty log message * claus parents: diff changeset	4965
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4966	browseClassCategory:aClassCategory
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4967	"launch a browser for all classes under aCategory"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4968
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4969	^ self
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4970	newWithLabel:aClassCategory
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4971	setupSelector:#setupForClassCategory:
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4972	arg:aClassCategory
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4973
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4974	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4975	SystemBrowser browseClassCategory:'Kernel-Objects'
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4976	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4977
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	4978	"Modified: 24.1.1997 / 19:45:32 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4979	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4980
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4981	browseClassHierarchy:aClass
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4982	"launch a browser for aClass and all its superclasses.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4983	this is different from the fullProtocol browser."
36 ccde5a941840 * empty log message * claus parents: diff changeset	4984
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4985	^ self
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4986	newWithLabel:(aClass name , '-' , 'hierarchy')
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4987	setupSelector:#setupForClassHierarchy:
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4988	arg:aClass
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4989
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4990	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4991	SystemBrowser browseClassHierarchy:Number
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4992	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4993	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4994
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	4995	browseClasses:aList label:title
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4996	"launch a browser for all classes in aList"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4997
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4998	^ self
576 62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	4999	newWithLabel:title
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5000	setupBlock:[:b \| b setupForClassList:aList sort:true]
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5001
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5002	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5003	SystemBrowser browseClasses:(Array with:Object
576 62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5004	with:Float)
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5005	title:'two classes'
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5006	"
576 62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5007
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5008	"Modified: 28.5.1996 / 13:52:25 / cg"
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5009	!
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5010
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5011	browseClasses:aList label:title sort:doSort
576 62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5012	"launch a browser for all classes in aList"
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5013
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5014	^ self
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5015	newWithLabel:title
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5016	setupBlock:[:b \| b setupForClassList:aList sort:doSort]
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5017
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5018	"
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5019	SystemBrowser browseClasses:(Array with:Object
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5020	with:Float)
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5021	title:'two classes'
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5022	"
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5023
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5024	"Created: 28.5.1996 / 13:52:09 / cg"
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	5025	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	5026
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5027	browseClasses:aList title:title
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5028	<resource: #obsolete>
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5029	"launch a browser for all classes in aList"
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5030
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5031	self obsoleteMethodWarning.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5032	^ self browseClasses:aList label:title
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5033	!
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5034
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5035	browseClasses:aList title:title sort:doSort
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5036	<resource: #obsolete>
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5037	"launch a browser for all classes in aList"
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5038
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5039	self obsoleteMethodWarning.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5040	^ self browseClasses:aList label:title sort:doSort
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5041
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5042	"Created: 28.5.1996 / 13:52:09 / cg"
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5043	!
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5044
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5045	browseFullClassProtocol:aClass
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5046	"launch a browser for aClasses full protocol.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5047	This is different from hierarchy browsing."
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5048
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5049	^ self
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	5050	newWithLabel:(aClass name , '-' , 'full protocol')
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	5051	setupSelector:#setupForFullClassProtocol:
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	5052	arg:aClass
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5053
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5054	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5055	SystemBrowser browseFullClassProtocol:Number
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5056	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5057	!
36 ccde5a941840 * empty log message * claus parents: diff changeset	5058
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5059	browseFullClasses
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5060	"launch a browser showing all methods at once"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5061
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5062	^ self
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	5063	newWithLabel:'Full Class Browser'
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	5064	setupBlock:[:newBrowser \| newBrowser setupForFullClass]
36 ccde5a941840 * empty log message * claus parents: diff changeset	5065
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5066	"SystemBrowser browseFullClasses"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5067	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5068
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5069	browseInstMethodsFrom:aClass where:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5070	"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	5071	where aBlock evaluates to true"
36 ccde5a941840 * empty log message * claus parents: diff changeset	5072
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5073	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5074	browseMethodsIn:(aClass withAllSubclasses)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5075	inst:true
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5076	class:false
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5077	where:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5078	title:title
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5079
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5080	"Modified: 24.1.1997 / 19:44:45 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5081	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5082
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5083	browseInstMethodsIn:aCollectionOfClasses where:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5084	"launch a browser for all instance methods of all classes in
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5085	aCollectionOfClasses where aBlock evaluates to true"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5086
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5087	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5088	browseMethodsIn:aCollectionOfClasses
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5089	inst:true class:false
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5090	where:aBlock title:title
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5091
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5092	"Modified: 24.1.1997 / 19:43:41 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5093	!
36 ccde5a941840 * empty log message * claus parents: diff changeset	5094
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5095	browseInstMethodsOf:aClass where:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5096	"launch a browser for all instance methods in aClass
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5097	where aBlock evaluates to true"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5098
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5099	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5100	browseMethodsIn:(Array with:aClass)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5101	inst:true
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5102	class:false
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5103	where:aBlock title:title
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5104
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5105	"Modified: 24.1.1997 / 19:43:50 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5106	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5107
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5108	browseMethodCategory:aCategory
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5109	"launch a browser for all methods where category = aCategory"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5110
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5111	\|searchBlock\|
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5112
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5113	aCategory includesMatchCharacters ifTrue:[
2822 8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	5114	searchBlock := [:c :m :s \| aCategory match:m category].
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5115	] ifFalse:[
2822 8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	5116	searchBlock := [:c :m :s \| m category = aCategory]
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5117	].
2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5118
2822 8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	5119	^ self browseMethodsWhere:searchBlock title:('all methods with category of ' , aCategory)
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5120
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5121	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5122	SystemBrowser browseMethodCategory:'printing & storing'
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5123	SystemBrowser browseMethodCategory:'print*'
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5124	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5125	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5126
3666 f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5127	browseMethods:aListOfMethods
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5128	"launch a multi-method browser."
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5129
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5130	^ self browseMethods:aListOfMethods title:'some methods'
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5131
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5132	"
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5133	self
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5134	browseMethods:(Array with:(Array compiledMethodAt:#at:)
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5135	with:(OrderedCollection compiledMethodAt:#at:))
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5136
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5137	self
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5138	browseMethods:(Array with:(Array compiledMethodAt:#at:)
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5139	with:(Array compiledMethodAt:#at:put:))
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5140	"
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5141	!
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5142
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5143	browseMethods:aList title:aString
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5144	"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	5145	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	5146	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	5147	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	5148
1919 0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5149	^ self
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5150	browseMethods:aList
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5151	title:aString
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5152	sort:true
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5153
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5154
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5155	"
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5156	SystemBrowser
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5157	browseMethods:#('Object printOn:' 'Collection add:')
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5158	title:'some methods'
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5159
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5160	SystemBrowser
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5161	browseMethods:#('Behavior new:' 'Setclass new:')
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5162	title:'some new: methods'
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5163
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5164	SystemBrowser
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5165	browseMethods:(Array with:(Object compiledMethodAt:#printOn:)
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5166	with:(Collection compiledMethodAt:#add:)
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5167	with:(Object class compiledMethodAt:#initialize))
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5168	title:'some methods'
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5169
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5170	"
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5171
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5172	"Modified: 1.11.1996 / 16:30:17 / cg"
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5173	!
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5174
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5175	browseMethods:aList title:aString sort:doSort
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5176	"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	5177	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	5178	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	5179	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	5180
279 062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5181	\|l\|
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5182
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5183	(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	5184	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	5185	^ nil
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5186	].
279 062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5187	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	5188	l := l collect:[:entry \|
1937 fc541342f2db more support for java code (implementors) Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	5189	\|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	5190
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5191	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	5192	entry
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5193	] ifFalse:[
2822 8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	5194	cls := entry mclass.
8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	5195	cls isNil ifTrue:[
1031 5d77c99b877e dont crash when unbound methods are passed ca parents: 1018 diff changeset	5196	'??? unbound'
5d77c99b877e dont crash when unbound methods are passed ca parents: 1018 diff changeset	5197	] ifFalse:[
2822 8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	5198	cls isJavaClass ifTrue:[
8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	5199	clsName := 'JAVA::' , cls fullName
1937 fc541342f2db more support for java code (implementors) Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	5200	] ifFalse:[
2822 8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	5201	clsName := cls name
8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	5202	].
7915 56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	5203	(cls selectorAtMethod:entry) isNil ifTrue:[
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	5204	clsName
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	5205	, ' '
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	5206	, '???'
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	5207	] ifFalse:[
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	5208	clsName
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	5209	, ' '
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	5210	, (entry printStringForBrowserWithSelector:(cls selectorAtMethod:entry) inClass:cls)
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	5211	]
1031 5d77c99b877e dont crash when unbound methods are passed ca parents: 1018 diff changeset	5212	]
279 062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5213	]
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5214	].
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5215
1919 0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5216	doSort ifTrue:[l sort].
1937 fc541342f2db more support for java code (implementors) Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	5217
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5218	^ 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	5219	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	5220	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	5221	arg:l
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5222
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5223	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5224	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	5225	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	5226	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	5227
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5228	SystemBrowser
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5229	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	5230	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	5231
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5232	SystemBrowser
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5233	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	5234	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	5235	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	5236	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	5237
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5238	"
279 062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5239
7711 7e8881bccf72 * empty log message * Claus Gittinger <cg@exept.de> parents: 7524 diff changeset	5240	"Modified: / 17-06-1996 / 17:07:46 / stefan"
7e8881bccf72 * empty log message * Claus Gittinger <cg@exept.de> parents: 7524 diff changeset	5241	"Modified: / 05-03-2007 / 16:25:25 / cg"
2826 9d7f11697806 * empty log message * Claus Gittinger <cg@exept.de> parents: 2824 diff changeset	5242	!
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5243
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5244	browseMethodsFrom:aClass where:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5245	"launch a browser for all instance- and classmethods in aClass
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5246	and all its subclasses where aBlock evaluates to true.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5247	The block is called with 3 arguments, class, method and seelctor."
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5248
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5249	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5250	browseMethodsIn:(aClass withAllSubclasses)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5251	where:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5252	title:title
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5253
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5254	"Modified: 24.1.1997 / 19:44:00 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5255	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5256
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5257	browseMethodsIn:aCollectionOfClasses inst:wantInst class:wantClass where:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5258	"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	5259	classmethods (if wantClass is true) from classes in aCollectionOfClasses,
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5260	where aBlock evaluates to true.
270 f97a37f5df7a checkin from browser Claus Gittinger <cg@exept.de> parents: 256 diff changeset	5261	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	5262
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5263	\|list\|
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5264
2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5265	"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5266	since this may take a long time, lower my priority ...
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5267	"
2295 4e05198e7dd8 execute BG tasks at a prio range, to ensure progress. Claus Gittinger <cg@exept.de> parents: 2208 diff changeset	5268	Processor activeProcess
4e05198e7dd8 execute BG tasks at a prio range, to ensure progress. Claus Gittinger <cg@exept.de> parents: 2208 diff changeset	5269	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	5270	do:[
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5271	list := self findMethodsIn:aCollectionOfClasses inst:wantInst class:wantClass where:aBlock
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5272	].
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5273	^ self browseMethods:list title:title
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5274	!
2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5275
3780 39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5276	browseMethodsIn:aCollectionOfClasses inst:wantInst class:wantClass where:aBlock title:title ifNone:warnBlock
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5277	"launch a browser for all instance- (if wantInst is true) and/or
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5278	classmethods (if wantClass is true) from classes in aCollectionOfClasses,
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5279	where aBlock evaluates to true.
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5280	The block is called with 3 arguments, class, method and selector."
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5281
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5282	\|list\|
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5283
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5284	"
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5285	since this may take a long time, lower my priority ...
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5286	"
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5287	Processor activeProcess
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5288	withPriority:Processor activePriority-1 to:Processor activePriority
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5289	do:[
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5290	list := self findMethodsIn:aCollectionOfClasses inst:wantInst class:wantClass where:aBlock.
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5291	list size == 0 ifTrue:[warnBlock value].
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5292	].
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5293	^ self browseMethods:list title:title
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5294	!
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5295
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5296	browseMethodsIn:aCollectionOfClasses where:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5297	"launch a browser for all instance- and classmethods from
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5298	all classes in aCollectionOfClasses where aBlock evaluates to true.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5299	The block is called with 3 arguments, class, method and seelctor."
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5300
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5301	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5302	browseMethodsIn:aCollectionOfClasses
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5303	inst:true
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5304	class:true
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5305	where:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5306	title:title
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	5307
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5308	"Modified: 24.1.1997 / 19:44:17 / cg"
36 ccde5a941840 * empty log message * claus parents: diff changeset	5309	!
ccde5a941840 * empty log message * claus parents: diff changeset	5310
3780 39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5311	browseMethodsIn:aCollectionOfClasses where:aBlock title:title ifNone:warnBlock
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5312	"launch a browser for all instance- and classmethods from
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5313	all classes in aCollectionOfClasses where aBlock evaluates to true.
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5314	The block is called with 3 arguments, class, method and seelctor."
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5315
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5316	^ self
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5317	browseMethodsIn:aCollectionOfClasses
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5318	inst:true
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5319	class:true
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5320	where:aBlock
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5321	title:title
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5322	ifNone:warnBlock
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5323
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5324	"Modified: 24.1.1997 / 19:44:17 / cg"
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5325	!
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5326
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5327	browseMethodsOf:aClass where:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5328	"launch a browser for all instance- and classmethods in aClass
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5329	where aBlock evaluates to true.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5330	The block is called with 3 arguments, class, method and seelctor."
93 dda97353e775 . claus parents: 90 diff changeset	5331
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5332	^ self browseMethodsIn:(Array with:aClass) where:aBlock title:title
93 dda97353e775 . claus parents: 90 diff changeset	5333	!
dda97353e775 . claus parents: 90 diff changeset	5334
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5335	browseMethodsWhere:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5336	"launch a browser for all methods where aBlock returns true.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5337	The block is called with 3 arguments, class, method and seelctor."
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5338
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5339	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5340	browseMethodsIn:(Smalltalk allClasses)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5341	where:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5342	title:title
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5343
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5344	"Modified: 24.1.1997 / 19:44:30 / cg"
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5345	!
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5346
3780 39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5347	browseMethodsWhere:aBlock title:title ifNone:warnBlock
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5348	"launch a browser for all methods where aBlock returns 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:(Smalltalk allClasses)
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5353	where:aBlock
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5354	title:title
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5355	ifNone:warnBlock
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5356
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5357	"Modified: 24.1.1997 / 19:44:30 / cg"
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5358	!
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5359
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5360	findMethodsIn:aCollectionOfClasses inst:wantInst class:wantClass where:aBlock
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5361	"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	5362	from classes in aCollectionOfClasses, where aBlock evaluates to true."
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5363
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5364	\|list checkedClasses checkBlock\|
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5365
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5366	checkedClasses := IdentitySet new.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5367	list := OrderedCollection new.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5368
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5369	checkBlock := [:cls \|
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5370	(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	5371	(cls isObsolete and:[cls isLoaded]) ifTrue:[
2882 2a12342fef79 * empty log message * Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	5372	Transcript showCR:'Browser method search: skipping obsolete class: ' , cls displayString
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5373	] ifFalse:[
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5374	cls methodDictionary keysAndValuesDo:[:sel :method \|
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5375	(aBlock value:cls value:method value:sel) ifTrue:[
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5376	list add:method "/ (cls name , ' ' , sel)
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5377	]
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5378	].
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5379	checkedClasses add:cls.
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	]
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5382	].
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5383
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5384	aCollectionOfClasses do:[:aClass \|
3008 1a45c272b13f * empty log message * Claus Gittinger <cg@exept.de> parents: 2901 diff changeset	5385	(aClass notNil and:[aClass isObsolete not]) ifTrue:[
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5386	"
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5387	output disabled - it slows down things too much (when searching for
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5388	implementors or senders)
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5389	"
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5390	wantInst ifTrue:[
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5391	"/ Transcript show:'searching '; show:aClass name; showCR:' ...'; endEntry.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5392	checkBlock value:aClass
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5393	].
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5394	wantClass ifTrue:[
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5395	"/ Transcript show:'searching '; show:aClass class name; showCR:' ...'; endEntry.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5396	checkBlock value:(aClass class)
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5397	].
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5398	Processor yield
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5399	]
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	^ list
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5402	!
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	findMethodsIn:aCollectionOfClasses where:aBlock
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5405	"return all instance- and classmethods
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5406	from classes in aCollectionOfClasses, where aBlock evaluates to true."
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5407
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5408	^ self
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5409	findMethodsIn:aCollectionOfClasses
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5410	inst:true
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5411	class:true
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5412	where:aBlock
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5413	! !
93 dda97353e775 . claus parents: 90 diff changeset	5414
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	5415	!SystemBrowser class methodsFor:'startup with query'!
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5416
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5417	askThenBrowseClass
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5418	self getClassThenPerform:#browseClass:
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5419
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5420	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5421	SystemBrowser askThenBrowseClass
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5422	"
93 dda97353e775 . claus parents: 90 diff changeset	5423	!
dda97353e775 . claus parents: 90 diff changeset	5424
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5425	askThenBrowseClassHierarchy
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5426	self getClassThenPerform:#browseClassHierarchy:
36 ccde5a941840 * empty log message * claus parents: diff changeset	5427
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5428	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5429	SystemBrowser askThenBrowseClassHierarchy
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5430	"
36 ccde5a941840 * empty log message * claus parents: diff changeset	5431	!
ccde5a941840 * empty log message * claus parents: diff changeset	5432
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5433	askThenBrowseFullClassProtocol
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5434	self getClassThenPerform:#browseFullClassProtocol:
36 ccde5a941840 * empty log message * claus parents: diff changeset	5435
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5436	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5437	SystemBrowser askThenBrowseFullClassProtocol
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5438	"
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	5439	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	5440
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5441	getClassThenPerform:aSelector
2729 9af04074a4bb no direct access to super-class-instvars Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	5442	\|enterBox resources\|
9af04074a4bb no direct access to super-class-instvars Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	5443
9af04074a4bb no direct access to super-class-instvars Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	5444	resources := self classResources.
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	5445
6353 b9e2940b7714 * empty log message * Claus Gittinger <cg@exept.de> parents: 6333 diff changeset	5446	enterBox := EnterBox title:(self classResources stringWithCRs:'Browse which class:').
6640 326360e94271 * empty log message * Claus Gittinger <cg@exept.de> parents: 6581 diff changeset	5447	enterBox okText:(resources string:'Browse').
6873 10854f75d38d * empty log message * Claus Gittinger <cg@exept.de> parents: 6848 diff changeset	5448	enterBox entryCompletionBlock:(DoWhatIMeanSupport classNameEntryCompletionBlock).
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5449	enterBox action:[:className \|
2729 9af04074a4bb no direct access to super-class-instvars Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	5450	\|cls\|
9af04074a4bb no direct access to super-class-instvars Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	5451
9af04074a4bb no direct access to super-class-instvars Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	5452	cls := Smalltalk classNamed:className.
9af04074a4bb no direct access to super-class-instvars Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	5453	cls isNil ifTrue:[
6640 326360e94271 * empty log message * Claus Gittinger <cg@exept.de> parents: 6581 diff changeset	5454	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	5455	] ifFalse:[
9af04074a4bb no direct access to super-class-instvars Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	5456	self perform:aSelector with:cls
9af04074a4bb no direct access to super-class-instvars Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	5457	]
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5458	].
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5459	enterBox showAtPointer
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	5460
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5461	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5462	SystemBrowser getClassThenPerform:#browseClass:
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5463	"
6873 10854f75d38d * empty log message * Claus Gittinger <cg@exept.de> parents: 6848 diff changeset	5464
10854f75d38d * empty log message * Claus Gittinger <cg@exept.de> parents: 6848 diff changeset	5465	"Modified: / 10-08-2006 / 12:54:20 / cg"
36 ccde5a941840 * empty log message * claus parents: diff changeset	5466	! !
ccde5a941840 * empty log message * claus parents: diff changeset	5467
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5468	!SystemBrowser class methodsFor:'utilities'!
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5469
3833 89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	5470	classWithNameSimilarTo:className
89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	5471	"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	5472
4924 0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5473	\|allMatchingClasses\|
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5474
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5475	allMatchingClasses := self classesWithNameSimilarTo:className.
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5476	^ allMatchingClasses firstIfEmpty:nil
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5477	!
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5478
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5479	classesWithNameSimilarTo:className
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5480	"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	5481
6944 1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5482	^ self classesWithNameSimilarTo:className from:nil
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5483
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5484	"Modified: / 22-08-2006 / 13:22:41 / cg"
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5485	!
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5486
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5487	classesWithNameSimilarTo:className from:aNameSpaceOrNil
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5488	"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	5489
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5490	\|nm lcName class allClasses triedDetectors triedMatchers allMatchingClasses
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5491	prefNameSpaceOrNil prefLcNameSpace\|
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5492
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5493	prefNameSpaceOrNil := (aNameSpaceOrNil == Smalltalk) ifTrue:[ nil ] ifFalse:[aNameSpaceOrNil].
3833 89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	5494
89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	5495	(className startsWith:'Smalltalk::') ifTrue:[
89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	5496	nm := className copyFrom:('Smalltalk::' size + 1).
89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	5497	] ifFalse:[
89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	5498	nm := className.
89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	5499	].
89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	5500
6944 1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5501	prefNameSpaceOrNil notNil ifTrue:[
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5502	class := prefNameSpaceOrNil at:nm asSymbol.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5503	class isBehavior ifTrue:[^ Array with:class]. "/ a direct hit
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5504	prefLcNameSpace := prefNameSpaceOrNil name asLowercase.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5505	].
3833 89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	5506	class := Smalltalk at:nm asSymbol.
4924 0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5507	class isBehavior ifTrue:[^ Array with:class]. "/ a direct hit
3833 89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	5508
89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	5509	lcName := className asLowercase.
4924 0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5510
3833 89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	5511	allClasses := Smalltalk allClasses.
4806 439bed9def3a code cleanup Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	5512
6134 024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	5513	triedDetectors := OrderedCollection new.
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	5514	triedDetectors add:[:cls \| cls name asLowercase = lcName].
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	5515
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	5516	triedDetectors do:[:eachTry \|
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	5517	\|class\|
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	5518
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	5519	class := allClasses detect:eachTry ifNone:nil.
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	5520	class notNil ifTrue:[^ Array with:class].
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	5521	].
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	5522
4806 439bed9def3a code cleanup Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	5523	triedMatchers := OrderedCollection new.
5018 2fe02eac49c5 better classesWithNameSimilarTo Claus Gittinger <cg@exept.de> parents: 4924 diff changeset	5524	triedMatchers add:[:cls \| cls nameWithoutPrefix asLowercase = lcName].
2fe02eac49c5 better classesWithNameSimilarTo Claus Gittinger <cg@exept.de> parents: 4924 diff changeset	5525	triedMatchers add:[:cls \| cls nameWithoutNameSpacePrefix asLowercase = lcName].
4924 0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5526
4806 439bed9def3a code cleanup Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	5527	triedMatchers add:[:cls \| cls name asLowercase startsWith:lcName].
439bed9def3a code cleanup Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	5528	triedMatchers add:[:cls \| cls nameWithoutNameSpacePrefix asLowercase startsWith:lcName].
439bed9def3a code cleanup Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	5529	triedMatchers add:[:cls \| cls nameWithoutPrefix asLowercase startsWith:lcName].
439bed9def3a code cleanup Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	5530	triedMatchers add:[:cls \| cls nameWithoutPrefix asLowercase includesString:lcName].
6134 024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	5531	triedMatchers add:[:cls \| cls name asLowercase includesString:lcName].
4924 0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5532
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5533	allMatchingClasses := IdentitySet new.
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5534	triedMatchers do:[:eachTry \|
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5535	\|matchingClasses\|
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5536
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5537	matchingClasses := allClasses select:eachTry.
6944 1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5538	"/ matchingClasses size == 1 ifTrue:[^ matchingClasses].
4924 0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5539	allMatchingClasses addAll:matchingClasses.
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5540	].
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5541	allMatchingClasses isEmpty ifTrue:[^ #()].
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5542
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5543	allMatchingClasses := allMatchingClasses asOrderedCollection.
6944 1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5544	allMatchingClasses
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5545	sort:[:a :b \|
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5546	\|lcNameA lcNameB da db distA distB \|
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5547
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5548	lcNameA := a name asLowercase.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5549	lcNameB := b name asLowercase.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5550	prefNameSpaceOrNil notNil ifTrue:[
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5551	a nameSpace == prefNameSpaceOrNil ifTrue:[
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5552	lcNameA := a nameWithoutNameSpacePrefix asLowercase.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5553	].
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5554	b nameSpace == prefNameSpaceOrNil ifTrue:[
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5555	lcNameB := b nameWithoutNameSpacePrefix asLowercase.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5556	].
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5557	].
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5558
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5559	distA := da := lcName levenshteinTo:lcNameA.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5560	distB := db := lcName levenshteinTo:lcNameB.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5561	"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	5562
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5563	(lcNameA startsWith:lcName) ifTrue:[
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5564	distB := distB * 2
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5565	].
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5566	(lcNameB startsWith:lcName) ifTrue:[
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5567	distA := distA * 2
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5568	].
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5569	distA < distB
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5570	].
4924 0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	5571	^ allMatchingClasses.
6546 1b809ef4658b comment Stefan Vogel <sv@exept.de> parents: 6480 diff changeset	5572
1b809ef4658b comment Stefan Vogel <sv@exept.de> parents: 6480 diff changeset	5573	"
6678 aa5572677e17 * empty log message * Claus Gittinger <cg@exept.de> parents: 6640 diff changeset	5574	self classesWithNameSimilarTo:'NewSystemBrowser'
aa5572677e17 * empty log message * Claus Gittinger <cg@exept.de> parents: 6640 diff changeset	5575	self classesWithNameSimilarTo:'Moose::MSEAbstractOperator'
6546 1b809ef4658b comment Stefan Vogel <sv@exept.de> parents: 6480 diff changeset	5576	"
6944 1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5577
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5578	"Created: / 22-08-2006 / 13:22:48 / cg"
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	5579	"Modified: / 22-08-2006 / 14:53:38 / cg"
3833 89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	5580	!
89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	5581
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5582	extractClassAndSelectorFrom:aString into:aBlock
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5583	"given a string which can be either 'class>>sel' or
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5584	'class sel', extract className and selector, and call aBlock with
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5585	the result.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5586	Useful to open browser on a method as selected in some documentation."
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5587
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5588	\|sel clsName isMeta sep s\|
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5589
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5590	sel := aString.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5591	sel notNil ifTrue:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5592	sel := sel asString withoutSeparators.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5593	('>>' match:sel) ifTrue:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5594	sep := $>
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5595	] ifFalse:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5596	('* *' match:sel) ifTrue:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5597	sep := Character space
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5598	]
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5599	].
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5600	sep notNil ifTrue:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5601	"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5602	extract class/sel from selection
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5603	"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5604	s := ReadStream on:sel.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5605	clsName := s upTo:sep.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5606	[s peek == sep] whileTrue:[s next].
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5607	sel := s upToEnd.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5608
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5609	(clsName endsWith:' class') ifTrue:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5610	isMeta := true.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5611	clsName := clsName copyWithoutLast:6 "copyTo:(clsName size - 5)"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5612	] ifFalse:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5613	isMeta := false
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5614	].
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5615	]
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5616	].
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5617	aBlock value:clsName value:sel value:isMeta
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5618
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5619	"Modified: / 17.6.1996 / 16:52:14 / stefan"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5620	"Created: / 6.2.2000 / 00:51:51 / cg"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5621	"Modified: / 6.2.2000 / 00:56:43 / cg"
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
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5624	extractSelectorFrom:aString
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5625	"given an arbitrary string, try to extract a useful selector.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5626	Useful to open browser on a selected code fragment."
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5627
8047 8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	5628	\|s sel sel2 t\|
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5629
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5630	aString isNil ifTrue:[^ nil].
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5631
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5632	s := aString asString string.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5633	s := s withoutSeparators.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5634	sel := s.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5635
6705 b78bea6fd220 * empty log message * Claus Gittinger <cg@exept.de> parents: 6678 diff changeset	5636	((sel endsWith:$:)
b78bea6fd220 * empty log message * Claus Gittinger <cg@exept.de> parents: 6678 diff changeset	5637	and:[sel knownAsSymbol]) ifTrue:[
b78bea6fd220 * empty log message * Claus Gittinger <cg@exept.de> parents: 6678 diff changeset	5638	^ sel asSymbol
b78bea6fd220 * empty log message * Claus Gittinger <cg@exept.de> parents: 6678 diff changeset	5639	].
b78bea6fd220 * empty log message * Claus Gittinger <cg@exept.de> parents: 6678 diff changeset	5640
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5641	t := Parser selectorInExpression:sel.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5642	t notNil ifTrue:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5643	sel := t
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5644	].
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5645	(sel = s or:[sel isNil or:[t == #>>]]) ifTrue:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5646	"oops - thats probably not what we want here ..."
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5647	self extractClassAndSelectorFrom:s into:[:c :s :m \|
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5648	sel := s
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	].
8047 8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	5651
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	5652	sel asSymbolIfInterned isNil ifTrue:[
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	5653	(sel startsWith:'#') ifTrue:[
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	5654	sel2 := sel copyFrom:2.
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	5655	((sel2 startsWith:'''') and:[(sel2 endsWith:'''')]) ifTrue:[
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	5656	sel2 := (sel2 copyFrom:2) copyWithoutLast:1
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	5657	].
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	5658	sel2 asSymbolIfInterned notNil ifTrue:[
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	5659	^ sel2
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	5660	].
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	5661	].
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	5662	].
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	5663
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5664	^ sel
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5665
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	self extractSelectorFrom:'at:put:'
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5668	self extractSelectorFrom:'#at:put:'
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5669	self extractSelectorFrom:'at:something put:someValue'
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5670	self extractSelectorFrom:'self at:something put:someValue'
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5671	self extractSelectorFrom:'(self at:something put:someValue)'
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5672	self extractSelectorFrom:'[self at:something put:someValue] value'
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5673	self extractSelectorFrom:'Array>>at:put:'
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5674	"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5675
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5676	"Created: / 6.2.2000 / 00:49:44 / cg"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5677	"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	5678	!
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5679
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5680	resourceEditorClassFor:aResource
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5681	"resources are from a methods resource-info;
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5682	return an appropriate editor class."
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5683
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5684	(aResource == #canvas) ifTrue:[
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5685	^ UIPainter
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5686	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5687	(aResource == #menu) ifTrue:[
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5688	^ MenuEditor
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5689	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5690	((aResource == #image) or:[aResource == #fileImage]) ifTrue:[
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5691	^ ImageEditor
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5692	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5693	(aResource == #help) ifTrue:[
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5694	^ UIHelpTool
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5695	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5696	(aResource == #tableColumns) ifTrue:[
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5697	^ DataSetBuilder
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5698	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5699	(aResource == #tabList) ifTrue:[
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5700	^ TabListEditor
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5701	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5702	(aResource == #hierarchicalList) ifTrue:[
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5703	^ HierarchicalListEditor
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5704	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5705	^ nil
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5706	!
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5707
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5708	resourceEditorClassForResources:resources
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5709	"resources are from a methods resource-info;
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5710	return an appropriate editor class."
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5711
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5712	resources keysDo:[:eachResource \|
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5713	\|editor\|
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	editor := self resourceEditorClassFor:eachResource.
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5716	editor notNil ifTrue:[ ^ editor].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5717	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	5718	^ nil
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5719	! !
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5720
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5721	!SystemBrowser::BrowserHistoryEntry methodsFor:'accessing'!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5722
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5723	className
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5724	"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	5725
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5726	^ className
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5727	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5728
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5729	className:something
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5730	"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	5731
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5732	className := something.
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5733	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5734
3151 910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5735	className:classNameArg meta:metaArg selector:selectorArg
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5736	className := classNameArg.
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5737	meta := metaArg.
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5738	selector := selectorArg.
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5739	!
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	5740
10048 9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5741	icon
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5742
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5743	^nil
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5744
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5745	"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	5746	!
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5747
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5748	label
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5749
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5750	^self displayString
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5751
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5752	"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	5753	!
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5754
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5755	meta
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5756	"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	5757
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5758	^ meta
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5759	!
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	meta:something
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5762	"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	5763
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5764	meta := something.
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5765	!
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	selector
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5768	"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	5769
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5770	^ selector
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5771	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5772
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5773	selector:something
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5774	"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	5775
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5776	selector := something.
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5777	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5778
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5779	theClass
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5780	^ Smalltalk at:className asSymbol
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5781	! !
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5782
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5783	!SystemBrowser::BrowserHistoryEntry methodsFor:'comparing'!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5784
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5785	= anEntry
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5786	^ className = anEntry className
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5787	and:[meta = anEntry meta
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5788	and:[selector = anEntry selector]]
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5789	! !
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	5790
10048 9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5791	!SystemBrowser::BrowserHistoryEntry methodsFor:'displaying'!
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5792
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5793	displayString
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5794
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5795	^(className , (meta ifTrue:[' class'] ifFalse:[''])) asText allBold ,
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5796	(selector isNil
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5797	ifTrue:['']
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5798	ifFalse:[ ' >> ' , (selector asText "allItalic") ])
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5799
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5800	"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	5801	"Modified: / 03-07-2011 / 13:44:32 / cg"
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5802	! !
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5803
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	5804	!SystemBrowser class methodsFor:'documentation'!
93 dda97353e775 . claus parents: 90 diff changeset	5805
8851 287f3e03a645 changed: #iconForClass: Claus Gittinger <cg@exept.de> parents: 8759 diff changeset	5806	version_CVS
10048 9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5807	^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.289 2011-07-03 13:46:38 cg Exp $'
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5808	!
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5809
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5810	version_SVN
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	5811	^ '�Id: SystemBrowser.st 7772 2011-06-08 21:59:15Z vranyj1 �'
36 ccde5a941840 * empty log message * claus parents: diff changeset	5812	! !
4112 ed7af6707ad7 emphasisForChangedCode tm parents: 3834 diff changeset	5813
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5814	SystemBrowser initialize!

author	Claus Gittinger <cg@exept.de>
	Sun, 03 Jul 2011 19:50:05 +0200
changeset 10071	1bf516aac0b8
parent 10048	9e92f3285051
child 10173	ed7cc5e574cb
permissions	-rw-r--r--