hg/stx-libtool: SystemBrowser.st@28f5bfaa093d (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
19606 77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	3	COPYRIGHT (c) 2021 LabWare
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4	All Rights Reserved
36 ccde5a941840 * empty log message * claus parents: diff changeset	5
ccde5a941840 * empty log message * claus parents: diff changeset	6	This software is furnished under a license and may be used
ccde5a941840 * empty log message * claus parents: diff changeset	7	only in accordance with the terms of that license and with the
ccde5a941840 * empty log message * claus parents: diff changeset	8	inclusion of the above copyright notice. This software may not
ccde5a941840 * empty log message * claus parents: diff changeset	9	be provided or otherwise made available to, or used by, any
ccde5a941840 * empty log message * claus parents: diff changeset	10	other person. No title to or ownership of the software is
ccde5a941840 * empty log message * claus parents: diff changeset	11	hereby transferred.
ccde5a941840 * empty log message * claus parents: diff changeset	12	"
2655 9e90bbd1eb18 apropos search is now: selectors containing Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	13	"{ Package: 'stx:libtool' }"
9e90bbd1eb18 apropos search is now: selectors containing Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	14
15206 988be4fe570b class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15075 diff changeset	15	"{ NameSpace: Smalltalk }"
988be4fe570b class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15075 diff changeset	16
85 d9713a3ca092 * empty log message * claus parents: 77 diff changeset	17	ApplicationModel subclass:#SystemBrowser
4165 5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	18	instanceVariableNames:''
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	19	classVariableNames:'CheckForInstancesWhenRemovingClasses ClassHistory
19606 77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	20	EmphasisForChangedCode EmphasisForDifferentPackage
77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	21	EmphasisForModifiedBuffer EmphasisForObsoleteCode
77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	22	EmphasisForReadVariable EmphasisForWrittenVariable
77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	23	LastClassSearchBoxShowedFullName LastSearchPatterns'
4165 5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	24	poolDictionaries:''
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	25	category:'Interface-Browsers'
36 ccde5a941840 * empty log message * claus parents: diff changeset	26	!
ccde5a941840 * empty log message * claus parents: diff changeset	27
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	28	Object subclass:#BrowserHistoryEntry
4165 5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	29	instanceVariableNames:'className meta selector'
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	30	classVariableNames:''
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	31	poolDictionaries:''
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	32	privateIn:SystemBrowser
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	33	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	34
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	35	!SystemBrowser class methodsFor:'documentation'!
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	36
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	37	copyright
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	38	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	39	COPYRIGHT (c) 1989 by Claus Gittinger
19606 77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	40	COPYRIGHT (c) 2021 LabWare
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	41	All Rights Reserved
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	42
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	43	This software is furnished under a license and may be used
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	44	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	45	inclusion of the above copyright notice. This software may not
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	46	be provided or otherwise made available to, or used by, any
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	47	other person. No title to or ownership of the software is
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	48	hereby transferred.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	49	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	50	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	51
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	52	documentation
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	53	"
8893 27e01498c25b changed: #documentation Claus Gittinger <cg@exept.de> parents: 8877 diff changeset	54	Notice: SystemBrowser has been completely rewritten to be an instance
16016 5a9f302b05df #FEATURE Claus Gittinger <cg@exept.de> parents: 15976 diff changeset	55	of ApplicationModel. This rewritten version is found under Tools::NewSystemBrowser.
8893 27e01498c25b changed: #documentation Claus Gittinger <cg@exept.de> parents: 8877 diff changeset	56	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	57	as an instance-less functionality provider only.
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	58
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	59	written winter 89 by claus.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	60
508 8d2ab732fca5 documentation Claus Gittinger <cg@exept.de> parents: 504 diff changeset	61	[author:]
8d2ab732fca5 documentation Claus Gittinger <cg@exept.de> parents: 504 diff changeset	62	Claus Gittinger
8d2ab732fca5 documentation Claus Gittinger <cg@exept.de> parents: 504 diff changeset	63
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	64	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	65	! !
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	66
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	67	!SystemBrowser class methodsFor:'initialization'!
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	68
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	69	initialize
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	70	"Browser configuration;
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	71	(values can be changed from your private startup file)"
45 950b84ba89e6 * empty log message * claus parents: 41 diff changeset	72
254 8258536e5bcf * empty log message * Claus Gittinger <cg@exept.de> parents: 215 diff changeset	73	"/ self classResources.
85 d9713a3ca092 * empty log message * claus parents: 77 diff changeset	74
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	75	"
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	76	setting this to false, the removeClass function will remove
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	77	classes WITHOUT checking for instances. Otherwise,
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	78	it will check and let you confirm in case there are instances.
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	79	Checking for instances may be a bit time consuming, though.
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	80	The default is true - therefore, it will check
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	81	"
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	82	CheckForInstancesWhenRemovingClasses := true
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	83
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	84	"
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	85	CheckForInstancesWhenRemovingClasses := true
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	86	CheckForInstancesWhenRemovingClasses := false
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	87
85 d9713a3ca092 * empty log message * claus parents: 77 diff changeset	88	SystemBrowser initialize
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	89	"
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	90	! !
36 ccde5a941840 * empty log message * claus parents: diff changeset	91
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	92	!SystemBrowser class methodsFor:'instance creation'!
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	93
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	94	open
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	95	"launch a standard browser"
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	96
2631 bd18074649ed * empty log message * Claus Gittinger <cg@exept.de> parents: 2623 diff changeset	97	self == SystemBrowser ifFalse:[
bd18074649ed * empty log message * Claus Gittinger <cg@exept.de> parents: 2623 diff changeset	98	^ super open
bd18074649ed * empty log message * Claus Gittinger <cg@exept.de> parents: 2623 diff changeset	99	].
bd18074649ed * empty log message * Claus Gittinger <cg@exept.de> parents: 2623 diff changeset	100
105 520f37755229 . claus parents: 100 diff changeset	101	^ self openOnDevice:(Screen current)
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	102
93 dda97353e775 . claus parents: 90 diff changeset	103	"
15831 36652445494b class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15565 diff changeset	104	SystemBrowser default open
93 dda97353e775 . claus parents: 90 diff changeset	105	SystemBrowser open
dda97353e775 . claus parents: 90 diff changeset	106	"
194 93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	107	!
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	108
523 db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	109	openInClass:aClass
db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	110	"launch a standard browser which immediately switches
db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	111	to aClass"
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	^ self openInClass:aClass selector:nil
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	"
15831 36652445494b class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15565 diff changeset	116	SystemBrowser default openInClass:Object
523 db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	117	SystemBrowser openInClass:Object
db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	118	"
db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	119
db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	120	"Created: 30.4.1996 / 14:43:45 / cg"
db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	121	!
db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	122
194 93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	123	openInClass:aClass selector:aSelector
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	124	"launch a standard browser which immediately switches
19606 77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	125	to aClass � aSelector. Returns the browser"
194 93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	126
3626 abf84bdbfdb2 Remove unused method vars Stefan Vogel <sv@exept.de> parents: 3621 diff changeset	127	\|brwsr classesName\|
194 93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	128
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	129	brwsr := self openOnDevice:(Screen current).
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	130	brwsr waitUntilVisible.
1561 102b90f99e58 avoid double-redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	131
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	132	aClass notNil ifTrue:[
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	133	"/ cls := aClass.
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	134	"/ cls isMeta ifTrue:[
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	135	"/ cls := aClass soleInstance
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	136	"/ ].
1561 102b90f99e58 avoid double-redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	137	aClass isMeta ifTrue:[
102b90f99e58 avoid double-redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	138	brwsr instanceProtocol:false
102b90f99e58 avoid double-redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	139	].
1931 03de5c5f4402 care for javaClass in #openInClass:selector: Claus Gittinger <cg@exept.de> parents: 1919 diff changeset	140	aClass isJavaClass ifTrue:[
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	141	classesName := aClass fullName.
1931 03de5c5f4402 care for javaClass in #openInClass:selector: Claus Gittinger <cg@exept.de> parents: 1919 diff changeset	142	] ifFalse:[
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	143	classesName := aClass name.
1931 03de5c5f4402 care for javaClass in #openInClass:selector: Claus Gittinger <cg@exept.de> parents: 1919 diff changeset	144	].
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	145	brwsr switchToClassNamed:classesName.
1681 b209bdfbf762 checkin from browser Claus Gittinger <cg@exept.de> parents: 1620 diff changeset	146	brwsr classSelectionChanged.
1561 102b90f99e58 avoid double-redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	147	aSelector notNil ifTrue:[
102b90f99e58 avoid double-redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	148	brwsr switchToMethodNamed:aSelector.
102b90f99e58 avoid double-redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	149	]
194 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	^ brwsr
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	152
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	153	"
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	154	SystemBrowser openInClass:Object selector:#at:put:
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	155	SystemBrowser openInClass:Object selector:nil
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	156	SystemBrowser openInClass:nil selector:nil
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	157	"
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	158
1561 102b90f99e58 avoid double-redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	159	"Created: / 22.11.1995 / 21:04:50 / cg"
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	160	"Modified: / 5.11.2001 / 16:51:02 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	161	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	162
3588 3a8e5e30a92a * empty log message * Claus Gittinger <cg@exept.de> parents: 3573 diff changeset	163	openOn:anEnvironment
4921 cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	164	^ self
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	165	openOn:anEnvironment
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	166	label:(self classResources string:'System Browser')
3588 3a8e5e30a92a * empty log message * Claus Gittinger <cg@exept.de> parents: 3573 diff changeset	167
3a8e5e30a92a * empty log message * Claus Gittinger <cg@exept.de> parents: 3573 diff changeset	168	"
15831 36652445494b class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15565 diff changeset	169	SystemBrowser default openOn:Smalltalk
36652445494b class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15565 diff changeset	170	SystemBrowser default openOn:Demos
36652445494b class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15565 diff changeset	171
3588 3a8e5e30a92a * empty log message * Claus Gittinger <cg@exept.de> parents: 3573 diff changeset	172	SystemBrowser openOn:Smalltalk
3589 f38e59e3ab76 * empty log message * Claus Gittinger <cg@exept.de> parents: 3588 diff changeset	173	SystemBrowser openOn:Demos
3588 3a8e5e30a92a * empty log message * Claus Gittinger <cg@exept.de> parents: 3573 diff changeset	174	"
3a8e5e30a92a * empty log message * Claus Gittinger <cg@exept.de> parents: 3573 diff changeset	175	!
3a8e5e30a92a * empty log message * Claus Gittinger <cg@exept.de> parents: 3573 diff changeset	176
4921 cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	177	openOn:aClassEnvironment label:title
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	178	^ self
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	179	openOn:aClassEnvironment
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	180	label:title
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	181	onDevice:(Screen current)
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	182	!
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	openOn:aClassEnvironment label:title onDevice:aDisplayDevice
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	185	\|browser\|
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	186
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	187	browser := self
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	188	newWithLabel:title
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	189	setupBlock:[:browser \| browser environment:aClassEnvironment.
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	190	browser setupForAll]
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	191	onDevice:aDisplayDevice.
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	192	^ browser
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	193	!
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	194
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	195	openOnDevice:aDisplay
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	196	"launch a standard browser on another display."
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	197
2631 bd18074649ed * empty log message * Claus Gittinger <cg@exept.de> parents: 2623 diff changeset	198	self == SystemBrowser ifFalse:[
bd18074649ed * empty log message * Claus Gittinger <cg@exept.de> parents: 2623 diff changeset	199	^ super openOnDevice:aDisplay
bd18074649ed * empty log message * Claus Gittinger <cg@exept.de> parents: 2623 diff changeset	200	].
bd18074649ed * empty log message * Claus Gittinger <cg@exept.de> parents: 2623 diff changeset	201
3519 0fef57de776a checkin from browser Claus Gittinger <cg@exept.de> parents: 3476 diff changeset	202	^ self
4921 cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	203	openOn:Smalltalk
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	204	label:(self classResources string:'System Browser')
3519 0fef57de776a checkin from browser Claus Gittinger <cg@exept.de> parents: 3476 diff changeset	205	onDevice:aDisplay
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	206
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	207	"\|d\|
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	208
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	209	d := XWorkstation new initializeFor:'porty:0'.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	210	d startDispatch.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	211	SystemBrowser openOnDevice:d
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	212	"
2818 27ff722f6c45 checkin from browser Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	213	!
27ff722f6c45 checkin from browser Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	214
3573 cc8a6cf4520a + openOnRemoteImage Claus Gittinger <cg@exept.de> parents: 3549 diff changeset	215	openOnRemoteImageOnHost:aHostName port:portOrNil
4921 cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	216	\|environment\|
3573 cc8a6cf4520a + openOnRemoteImage Claus Gittinger <cg@exept.de> parents: 3549 diff changeset	217
cc8a6cf4520a + openOnRemoteImage Claus Gittinger <cg@exept.de> parents: 3549 diff changeset	218	environment := RemoteImage onHost:aHostName port:portOrNil.
4921 cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	219	^ self
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	220	openOn:environment
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	221	label:(self classResources string:'RemoteImage Browser - %1' with:aHostName)
3573 cc8a6cf4520a + openOnRemoteImage Claus Gittinger <cg@exept.de> parents: 3549 diff changeset	222
cc8a6cf4520a + openOnRemoteImage Claus Gittinger <cg@exept.de> parents: 3549 diff changeset	223	"
cc8a6cf4520a + openOnRemoteImage Claus Gittinger <cg@exept.de> parents: 3549 diff changeset	224	SystemBrowser openOnRemoteImageOnHost:'funkfix' port:nil
7998 0c63e8647d1f comment Claus Gittinger <cg@exept.de> parents: 7992 diff changeset	225	SystemBrowser openOnRemoteImageOnHost:'192.168.8.1' port:nil
3573 cc8a6cf4520a + openOnRemoteImage Claus Gittinger <cg@exept.de> parents: 3549 diff changeset	226	"
cc8a6cf4520a + openOnRemoteImage Claus Gittinger <cg@exept.de> parents: 3549 diff changeset	227	!
cc8a6cf4520a + openOnRemoteImage Claus Gittinger <cg@exept.de> parents: 3549 diff changeset	228
2818 27ff722f6c45 checkin from browser Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	229	openOnSnapShotImage:anImageFileName
4921 cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	230	\|environment\|
2818 27ff722f6c45 checkin from browser Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	231
27ff722f6c45 checkin from browser Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	232	environment := SnapShotImage for:anImageFileName.
4921 cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	233	^ self
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	234	openOn:environment
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	235	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	236
27ff722f6c45 checkin from browser Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	237	"
2822 8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	238	SystemBrowser openOnSnapShotImage:('/tmp/stmeas.img')
2824 85795055a3bf * empty log message * Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	239	"
85795055a3bf * empty log message * Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	240	! !
36 ccde5a941840 * empty log message * claus parents: diff changeset	241
4909 e6b77dc6942e category Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	242	!SystemBrowser class methodsFor:'Compatibility-ST80'!
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	243
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	244	newOnClass:aClass
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	245	^ self browseClass:aClass
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	246
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	247	"Created: / 27.10.1997 / 20:10:39 / cg"
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	248	! !
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	249
4909 e6b77dc6942e category Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	250	!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	251
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	252	addToHistory:aClass selector:aSelectorOrNil
3679 102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	253	\|newEntry oldEntry classHistory\|
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	254
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	255	(newEntry := self historyEntryForClass:aClass selector:aSelectorOrNil) isNil ifTrue:[^ self].
3679 102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	256	classHistory := self classHistory.
102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	257
10173 ed7cc5e574cb comment/format in: #addToHistory:selector: Claus Gittinger <cg@exept.de> parents: 10048 diff changeset	258	oldEntry := classHistory detect:[:entry \| (entry className = newEntry className)
ed7cc5e574cb comment/format in: #addToHistory:selector: Claus Gittinger <cg@exept.de> parents: 10048 diff changeset	259	"and:[entry selector = newEntry selector]"] ifNone:nil.
3679 102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	260	oldEntry notNil ifTrue:[
102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	261	classHistory removeIdentical:oldEntry.
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	262	].
3679 102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	263	classHistory addFirst:newEntry.
102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	264	classHistory size > self visitedHistoryMaxSize ifTrue:[
102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	265	classHistory removeLast
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	266	].
7524 0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	267	SystemBrowser changed:#visitedClassHistory with:classHistory.
0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	268
10173 ed7cc5e574cb comment/format in: #addToHistory:selector: Claus Gittinger <cg@exept.de> parents: 10048 diff changeset	269	"Modified: / 05-07-2011 / 16:49:57 / cg"
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	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	checkClassHistory
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	273	"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	274
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	275	"/ 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	276	self classHistory reverseDo:[:histEntry\|
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	277	(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	278	ifFalse:[
10346 560fea0fd857 changed: #checkClassHistory Claus Gittinger <cg@exept.de> parents: 10327 diff changeset	279	self classHistory removeIdentical: histEntry
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	280	]
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	281	]
10346 560fea0fd857 changed: #checkClassHistory Claus Gittinger <cg@exept.de> parents: 10327 diff changeset	282
560fea0fd857 changed: #checkClassHistory Claus Gittinger <cg@exept.de> parents: 10327 diff changeset	283	"Modified: / 20-07-2011 / 11:59:22 / cg"
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	284	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	285
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	286	classHistory
3679 102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	287	ClassHistory isNil ifTrue:[
102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	288	ClassHistory := List new
102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	289	].
102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	290	^ ClassHistory
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	291	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	292
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	293	classHistory:newCollection
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	294	ClassHistory := newCollection
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	295	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	296
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	297	emptyClassHistory
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	298	"removes all class history entries"
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	299
7524 0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	300	\|classHistory\|
0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	301
0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	302	classHistory := self classHistory.
0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	303	classHistory removeAll.
0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	304	SystemBrowser changed:#visitedClassHistory with:classHistory.
0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	305
0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	306	"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	307	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	308
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	309	historyEntryForClass:aClass selector:aSelectorOrNil
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	310	\|newEntry meta cls\|
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	311
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	312	aClass isBehavior ifFalse:[^ nil].
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	313
3151 910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	314	(meta := aClass isMeta) ifTrue:[
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	315	cls := aClass theNonMetaclass.
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	316	] ifFalse:[
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	317	cls := aClass
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	318	].
3151 910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	319	newEntry := BrowserHistoryEntry new.
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	320	newEntry
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	321	className:cls name
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	322	meta:meta
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	323	selector:aSelectorOrNil.
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	324	^ newEntry
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	325
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	326	"Modified: / 24.2.2000 / 18:03:52 / cg"
9189 9f57319e21ca added: #visitedClassNamesHistory Claus Gittinger <cg@exept.de> parents: 9157 diff changeset	327	!
9f57319e21ca added: #visitedClassNamesHistory Claus Gittinger <cg@exept.de> parents: 9157 diff changeset	328
11271 efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	329	lastSearchPatterns
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	330	^ LastSearchPatterns
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	331	!
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	332
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	333	rememberSearchPattern:aString
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	334	LastSearchPatterns isNil ifTrue:[
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	335	LastSearchPatterns := OrderedCollection new.
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	336	].
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	337	(LastSearchPatterns includes:aString) ifTrue:[
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	338	LastSearchPatterns remove:aString.
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	339	] ifFalse:[
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	340	LastSearchPatterns size > 20 ifTrue:[
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	341	LastSearchPatterns removeFirst
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	342	]
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	343	].
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	344	LastSearchPatterns addFirst:aString.
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	345
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	346	"Modified: / 24-11-2010 / 12:51:31 / cg"
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	347	"Created: / 14-02-2012 / 14:00:24 / cg"
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	348	!
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	349
9189 9f57319e21ca added: #visitedClassNamesHistory Claus Gittinger <cg@exept.de> parents: 9157 diff changeset	350	visitedClassNamesHistory
9f57319e21ca added: #visitedClassNamesHistory Claus Gittinger <cg@exept.de> parents: 9157 diff changeset	351	^ self classHistory
9f57319e21ca added: #visitedClassNamesHistory Claus Gittinger <cg@exept.de> parents: 9157 diff changeset	352	collect:[:e \| e className]
9f57319e21ca added: #visitedClassNamesHistory Claus Gittinger <cg@exept.de> parents: 9157 diff changeset	353	thenSelect:[:nm \| nm notEmptyOrNil]
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	354
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	355	"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	356	Tools::NewSystemBrowser visitedClassNamesHistory
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	357	"
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	358	! !
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	359
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	360	!SystemBrowser class methodsFor:'defaults'!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	361
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	362	classHistoryMaxLevels
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	363	^ 3
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	364	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	365
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	366	classHistoryMaxSize
12954 bb8d0ae1c21d class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12866 diff changeset	367	"returns maximum size of the visited class history"
bb8d0ae1c21d class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12866 diff changeset	368
bb8d0ae1c21d class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12866 diff changeset	369	Screen current height < 768 ifTrue:[
bb8d0ae1c21d class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12866 diff changeset	370	^ 15
bb8d0ae1c21d class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12866 diff changeset	371	].
bb8d0ae1c21d class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12866 diff changeset	372	^ 20 "/ 15
bb8d0ae1c21d class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12866 diff changeset	373
bb8d0ae1c21d class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12866 diff changeset	374	"Modified: / 10.2.2000 / 14:07:07 / cg"
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	375	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	376
15831 36652445494b class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15565 diff changeset	377	default
36652445494b class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15565 diff changeset	378	"convenient getter for the user's preference.
36652445494b class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15565 diff changeset	379	Returns his choice of browser class"
36652445494b class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15565 diff changeset	380
15940 3562f909a860 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15831 diff changeset	381	^ UserPreferences systemBrowserClass
15831 36652445494b class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15565 diff changeset	382
36652445494b class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15565 diff changeset	383	"
36652445494b class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15565 diff changeset	384	SystemBrowser default open
36652445494b class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15565 diff changeset	385	"
36652445494b class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15565 diff changeset	386	!
36652445494b class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15565 diff changeset	387
16847 b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	388	largeLabelFont
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	389	^ Label defaultFont scaled:1.2.
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	390	!
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	391
3549 056bd76b5b0a * empty log message * Claus Gittinger <cg@exept.de> parents: 3519 diff changeset	392	methodTemplate
8877 bb432153d321 changed: #methodTemplate Claus Gittinger <cg@exept.de> parents: 8862 diff changeset	393	"return a method definition template string or nil"
bb432153d321 changed: #methodTemplate Claus Gittinger <cg@exept.de> parents: 8862 diff changeset	394
bb432153d321 changed: #methodTemplate Claus Gittinger <cg@exept.de> parents: 8862 diff changeset	395	^ SmalltalkLanguage instance methodTemplate
3549 056bd76b5b0a * empty log message * Claus Gittinger <cg@exept.de> parents: 3519 diff changeset	396	!
056bd76b5b0a * empty log message * Claus Gittinger <cg@exept.de> parents: 3519 diff changeset	397
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	398	visitedHistoryMaxSize
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	399	"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	400
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	401	^ 15
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	402	! !
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	403
4909 e6b77dc6942e category Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	404	!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	405
3352 fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	406	emphasisForChangedCode
19611 a4b9d283ca40 Themes: use stylesheet to define color and style for modified buffer label Jan Vrany <jan.vrany@labware.com> parents: 19606 diff changeset	407	<resource: #style (#'emphasisForChangedCode')>
a4b9d283ca40 Themes: use stylesheet to define color and style for modified buffer label Jan Vrany <jan.vrany@labware.com> parents: 19606 diff changeset	408
19606 77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	409	EmphasisForChangedCode isNil ifTrue:[
77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	410	EmphasisForChangedCode :=
77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	411	self defaultStyleSheet
77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	412	at: 'emphasisForChangedCode'
77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	413	default: [UserPreferences current emphasisForChangedCode].
77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	414	].
77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	415	^ EmphasisForChangedCode
77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	416
3352 fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	417
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	418	"
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	419	EmphasisForChangedCode := #underwave
4112 ed7af6707ad7 emphasisForChangedCode tm parents: 3834 diff changeset	420	EmphasisForChangedCode := #color->Color blue
3352 fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	421	EmphasisForChangedCode := #color->Color red lightened lightened lightened
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	422	"
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	423
19606 77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	424	"Created: / 31-10-2001 / 10:15:33 / cg"
77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	425	"Modified: / 15-09-2021 / 13:29:19 / Jan Vrany <jan.vrany@labware.com>"
3352 fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	426	!
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	427
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	428	emphasisForChangedCode:anEmphasis
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	429	EmphasisForChangedCode := anEmphasis
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	430
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	431	"
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	432	self emphasisForChangedCode:#underwave
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	433	self emphasisForChangedCode:(#color->Color red lightened lightened lightened)
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	434	"
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	435
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	436	"Created: / 31.10.2001 / 10:15:44 / cg"
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	437	!
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	438
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	439	emphasisForDifferentPackage
4499 395d7282b2f0 emphasis stuff Claus Gittinger <cg@exept.de> parents: 4490 diff changeset	440	^ 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	441
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	442	"
3352 fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	443	EmphasisForDifferentPackage := nil.
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	444	EmphasisForDifferentPackage := #underwave
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	445	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	446	"
3352 fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	447
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	448	"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	449	!
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	450
3241 caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	451	emphasisForDifferentPackage:anEmphasis
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	452	EmphasisForDifferentPackage := anEmphasis
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	453
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	454	"
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	455	self emphasisForDifferentPackage:#underwave
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	456	self emphasisForDifferentPackage:(#color->Color red lightened lightened lightened)
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	457	"
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	458	!
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	459
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	460	emphasisForModifiedBuffer
19611 a4b9d283ca40 Themes: use stylesheet to define color and style for modified buffer label Jan Vrany <jan.vrany@labware.com> parents: 19606 diff changeset	461	<resource: #style (#'emphasisForModifiedBuffer')>
a4b9d283ca40 Themes: use stylesheet to define color and style for modified buffer label Jan Vrany <jan.vrany@labware.com> parents: 19606 diff changeset	462
a4b9d283ca40 Themes: use stylesheet to define color and style for modified buffer label Jan Vrany <jan.vrany@labware.com> parents: 19606 diff changeset	463	EmphasisForModifiedBuffer isNil ifTrue:[
a4b9d283ca40 Themes: use stylesheet to define color and style for modified buffer label Jan Vrany <jan.vrany@labware.com> parents: 19606 diff changeset	464	EmphasisForModifiedBuffer :=
a4b9d283ca40 Themes: use stylesheet to define color and style for modified buffer label Jan Vrany <jan.vrany@labware.com> parents: 19606 diff changeset	465	self defaultStyleSheet
a4b9d283ca40 Themes: use stylesheet to define color and style for modified buffer label Jan Vrany <jan.vrany@labware.com> parents: 19606 diff changeset	466	at: 'emphasisForModifiedBuffer'
a4b9d283ca40 Themes: use stylesheet to define color and style for modified buffer label Jan Vrany <jan.vrany@labware.com> parents: 19606 diff changeset	467	default: [UserPreferences current emphasisForModifiedBuffer].
a4b9d283ca40 Themes: use stylesheet to define color and style for modified buffer label Jan Vrany <jan.vrany@labware.com> parents: 19606 diff changeset	468	].
a4b9d283ca40 Themes: use stylesheet to define color and style for modified buffer label Jan Vrany <jan.vrany@labware.com> parents: 19606 diff changeset	469	^ EmphasisForModifiedBuffer
a4b9d283ca40 Themes: use stylesheet to define color and style for modified buffer label Jan Vrany <jan.vrany@labware.com> parents: 19606 diff changeset	470
a4b9d283ca40 Themes: use stylesheet to define color and style for modified buffer label Jan Vrany <jan.vrany@labware.com> parents: 19606 diff changeset	471	"Modified: / 17-09-2021 / 15:00:46 / Jan Vrany <jan.vrany@labware.com>"
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	472	!
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	473
3241 caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	474	emphasisForModifiedBuffer:anEmphasis
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	475	EmphasisForModifiedBuffer := anEmphasis
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	476	!
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	477
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	478	emphasisForObsoleteCode
4499 395d7282b2f0 emphasis stuff Claus Gittinger <cg@exept.de> parents: 4490 diff changeset	479	^ 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	480	!
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	481
3241 caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	482	emphasisForObsoleteCode:anEmphasis
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	483	EmphasisForObsoleteCode := anEmphasis
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	484	!
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	485
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	486	emphasisForReadVariable
4499 395d7282b2f0 emphasis stuff Claus Gittinger <cg@exept.de> parents: 4490 diff changeset	487	^ 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	488
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	489	"
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	490	EmphasisForReadVariable := #underline
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	491	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	492	"
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	493	!
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	494
3241 caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	495	emphasisForReadVariable:anEmphasis
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	496	EmphasisForReadVariable := anEmphasis
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	497
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	498	"
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	499	self emphasisForReadVariable:#underline
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	500	self emphasisForReadVariable:(Array with:#underline with:#underlineColor->Color yellow)
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	501	"
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	502	!
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	503
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	504	emphasisForWrittenVariable
4499 395d7282b2f0 emphasis stuff Claus Gittinger <cg@exept.de> parents: 4490 diff changeset	505	^ 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	506
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	507	"
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	508	EmphasisForWrittenVariable := #underline
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	509	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	510	"
3241 caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	511	!
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	512
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	513	emphasisForWrittenVariable:anEmphasis
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	514	EmphasisForWrittenVariable := anEmphasis
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	515
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	516	"
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	517	self emphasisForWrittenVariable:#underline
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	518	self emphasisForWrittenVariable:(Array with:#underline with:#underlineColor->Color red lightened)
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	519	"
6901 34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	520	!
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	521
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	522	iconForClass:aClass
14103 288c15c69753 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13947 diff changeset	523	"ask the class for its browser symbol;
288c15c69753 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13947 diff changeset	524	that's a key/selector in the ToolbarIconLibrary"
6901 34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	525
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	526	aClass withAllSuperclassesDo:[:eachCls \|
15540 49f2e8662059 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15513 diff changeset	527	\|icon iconSymbol \|
49f2e8662059 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15513 diff changeset	528
15565 e6512d88f1ab class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15540 diff changeset	529	icon := [ eachCls toolListIcon ] on:Error do:[].
15540 49f2e8662059 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15513 diff changeset	530	icon notNil ifTrue:[^ icon ].
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	531
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	532	iconSymbol := eachCls iconInBrowserSymbol.
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	533	iconSymbol notNil ifTrue:[
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	534	^ ToolbarIconLibrary perform:iconSymbol
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	535	].
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	536	].
15944 a70fb091c054 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15940 diff changeset	537	(aClass isUtilityClass) ifTrue:[
a70fb091c054 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15940 diff changeset	538	^ ToolbarIconLibrary utilityClassIcon
a70fb091c054 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15940 diff changeset	539	].
a70fb091c054 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15940 diff changeset	540	(aClass isAbstract) ifTrue:[
a70fb091c054 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15940 diff changeset	541	^ ToolbarIconLibrary abstractClassIcon
a70fb091c054 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15940 diff changeset	542	].
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	543
6901 34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	544	^ nil
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	545
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	546	"Created: / 17-08-2006 / 09:11:27 / cg"
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	547	"Modified: / 20-07-2007 / 09:01:43 / cg"
6901 34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	548	!
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	549
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	550	resourceIconForMethod:aMethod
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	551	\|resources\|
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	552
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	553	(resources := aMethod resources) isNil ifTrue:[^ nil].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	554
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	555	(resources includesKey:#obsolete) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	556	^ self deprecatedMethodIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	557	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	558	(resources includesKey:#canvas) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	559	^ self canvasIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	560	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	561	(resources includesKey:#menu) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	562	^ self menuIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	563	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	564	(resources includesKey:#image) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	565	^ self imageIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	566	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	567	(resources includesKey:#fileImage) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	568	^ self fileImageIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	569	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	570	(resources includesKey:#programImage) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	571	^ self programImageIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	572	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	573	(resources includesKey:#help) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	574	^ self helpIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	575	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	576	(resources includesKey:#programMenu) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	577	^ self programMenuIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	578	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	579	(resources includesKey:#tableColumns) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	580	^ self tableColumnsIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	581	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	582	(resources includesKey:#tabList) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	583	^ self tabListIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	584	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	585	(resources includesKey:#hierarchicalList) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	586	^ self hierarchicalListIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	587	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	588	(resources includesKey:#programImage) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	589	^ self programImageIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	590	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	591	^ nil
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	592
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	593	"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	594	! !
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	595
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	596	!SystemBrowser class methodsFor:'dialogs'!
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	597
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	598	askForClassNameMatching:matchStringArg inEnvironment:anEnvironmentOrClassOrNil for:aBrowserOrNil
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	599	"open a dialog to ask for a class name.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	600	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	601
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	602	\|classNames caselessMatchingNames
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	603	substringMatchingNames caselessSubstringMatchingNames
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	604	caselessWithoutPrefixSubstringMatchingNames
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	605	lcMatchString subMatch lcSubMatch box className
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	606	needSearch cls env searchBlock searchBlock2
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	607	idx pref aMatchString allNames sortedBySpellingDistance msg resources\|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	608
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	609	resources := self classResources.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	610	env := anEnvironmentOrClassOrNil ? Smalltalk.
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	aMatchString := matchStringArg.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	613
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	614	"/ 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	615
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	616	(aMatchString includesString:'::') ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	617	"/ pref := aMatchString upTo:$:.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	618	idx := aMatchString lastIndexOf:$:.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	619	pref := aMatchString copyTo:idx-2.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	620	pref includesMatchCharacters ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	621	"/ search all in Smalltalk
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	622	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	623	cls := Smalltalk at:pref asSymbol ifAbsent:nil.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	624	(cls notNil and:[cls isBehavior]) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	625	env := cls.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	626	aMatchString := aMatchString copyFrom:pref size + 1 + 2.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	627	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	628	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	629	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	630
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	631	classNames := Set new.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	632	caselessMatchingNames := Set new.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	633	substringMatchingNames := Set new.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	634	caselessSubstringMatchingNames := Set new.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	635	caselessWithoutPrefixSubstringMatchingNames := Set new.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	636
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	637	lcMatchString := aMatchString asLowercase.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	638	needSearch := true.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	639	aMatchString includesMatchCharacters ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	640	subMatch := '' , aMatchString , ''.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	641	lcSubMatch := subMatch asLowercase.
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	"/ 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	644	className := aMatchString asSymbolIfInterned.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	645	className notNil ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	646	env isNameSpace ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	647	cls := env at:className ifAbsent:nil.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	648	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	649	cls := env privateClassesAt:className.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	650	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	651	(cls notNil and:[cls isBehavior]) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	652	needSearch := false.
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	needSearch ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	658	searchBlock := [:aClass \|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	659	\|thisName\|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	660
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	661	"/ use dotted names for java
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	662	aClass isJavaClass ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	663	thisName := aClass displayString. "/ fullName copyReplaceAll:$/ with:$.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	664	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	665	thisName := aClass name
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	(lcMatchString match:aClass name asLowercase) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	668	caselessWithoutPrefixSubstringMatchingNames add:thisName
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	669	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	670	aClass nameWithoutPrefix ~= aClass name ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	671	(lcMatchString match:aClass nameWithoutPrefix asLowercase) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	672	caselessWithoutPrefixSubstringMatchingNames add:thisName
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	673	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	674	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	675
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	676	(aMatchString match:thisName) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	677	classNames add:thisName
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	678	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	679	(lcMatchString match:thisName asLowercase) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	680	caselessMatchingNames add:thisName
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	681	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	682	subMatch notNil ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	683	(subMatch match:thisName) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	684	substringMatchingNames add:thisName
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	685	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	686	(lcSubMatch match:thisName asLowercase) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	687	caselessSubstringMatchingNames add:thisName
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	688	]
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	689	]
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	690	]
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	691	]
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	692	]
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	693	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	694
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	695	(env == Smalltalk or:[env isNameSpace]) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	696	env allClassesDo:searchBlock
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	697	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	698	env allPrivateClasses do:searchBlock
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	699	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	700
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	701	sortedBySpellingDistance := false.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	702	"/ if nothing matched - try caseless matches
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	703	classNames size == 0 ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	704	classNames := caselessMatchingNames.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	705
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	706	"/ if nothing matched - try substring matches
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	707	classNames size == 0 ifTrue:[
8704 f5b8ba75a158 some code cleanup Claus Gittinger <cg@exept.de> parents: 8702 diff changeset	708	aMatchString isUppercaseFirst ifTrue:[
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	709	classNames := substringMatchingNames.
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	"/ if nothing matched - try caseless substring matches
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	712	classNames size == 0 ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	713	classNames := caselessSubstringMatchingNames.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	714
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	715	"/ if nothing matched - try best fitting
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	716	classNames size == 0 ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	717	aMatchString includesMatchCharacters ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	718	allNames := SortedCollection sortBlock:[:a :b \| a value > b value].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	719	searchBlock2 :=
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	720	[:aClass \|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	721	\|thisName dist\|
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	aClass isJavaClass ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	724	thisName := aClass displayString. "/ fullName copyReplaceAll:$/ with:$.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	725	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	726	thisName := aClass name
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	727	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	728	dist := thisName asLowercase spellAgainst:lcMatchString.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	729	(thisName asLowercase startsWith:lcMatchString) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	730	dist := dist + (thisName size * 10).
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	731	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	732	allNames add:(thisName -> dist).
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	733	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	734	(env == Smalltalk or:[env isNameSpace]) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	735	env allClassesDo:searchBlock2
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	736	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	737	env allPrivateClasses do:searchBlock2
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	738	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	739	classNames := (allNames copyTo:(allNames size min:40)) collect:[:each \| each key].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	740	sortedBySpellingDistance := true.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	741	]
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	742	]
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	743	]
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	744	]
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	745	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	746
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	747	(classNames size == 0) ifTrue:[^ nil].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	748	(classNames size == 1) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	749	className := classNames first
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	750	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	751	\|browseButton\|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	752
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	753	sortedBySpellingDistance ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	754	classNames := classNames asArray sort.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	755	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	756
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	757	aMatchString includesMatchCharacters ifTrue:[
9065 efb483eb10a8 changed: #askForClassNameMatching:inEnvironment:for: Claus Gittinger <cg@exept.de> parents: 9010 diff changeset	758	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	759	] ifFalse:[
9065 efb483eb10a8 changed: #askForClassNameMatching:inEnvironment:for: Claus Gittinger <cg@exept.de> parents: 9010 diff changeset	760	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	761	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	762
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	763	box := self listBoxTitle:(resources string:msg with:matchStringArg) withCRs
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	764	okText:'OK'
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	765	list:classNames.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	766	caselessWithoutPrefixSubstringMatchingNames notEmpty ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	767	box initialText:(caselessWithoutPrefixSubstringMatchingNames first).
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	768	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	769	box action:[:aString \| className := aString].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	770
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	771	browseButton := Button label:(resources string:'Browse All').
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	772	browseButton action:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	773	\|classes title\|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	774
9065 efb483eb10a8 changed: #askForClassNameMatching:inEnvironment:for: Claus Gittinger <cg@exept.de> parents: 9010 diff changeset	775	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	776	classes := classNames collect:[:nm \| Smalltalk classNamed:nm].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	777	aBrowserOrNil isNil ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	778	SystemBrowser
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	779	browseClasses:classes
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	780	label:title.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	781	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	782	aBrowserOrNil
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	783	spawnClassBrowserFor:classes
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	784	label:title
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	785	in:#newBrowser
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	786	select:false.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	787	].
13365 58156ff25996 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13319 diff changeset	788	box hide.
58156ff25996 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13319 diff changeset	789	box closeRequest
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	790	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	791	box addButton:browseButton before:box okButton.
14502 a5b6646c2db1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14413 diff changeset	792
a5b6646c2db1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14413 diff changeset	793	aMatchString isLowercaseFirst ifTrue:[
a5b6646c2db1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14413 diff changeset	794	\|browseImplementorsButton\|
a5b6646c2db1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14413 diff changeset	795
a5b6646c2db1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14413 diff changeset	796	browseImplementorsButton := Button label:(resources string:'Implementors').
a5b6646c2db1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14413 diff changeset	797	browseImplementorsButton
a5b6646c2db1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14413 diff changeset	798	action:[
a5b6646c2db1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14413 diff changeset	799	aBrowserOrNil isNil ifTrue:[
a5b6646c2db1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14413 diff changeset	800	SystemBrowser browseImplementorsMatching:aMatchString
a5b6646c2db1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14413 diff changeset	801	] ifFalse:[
a5b6646c2db1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14413 diff changeset	802	aBrowserOrNil
a5b6646c2db1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14413 diff changeset	803	spawnMethodImplementorsBrowserFor:{ aMatchString } match:true in:#newBrowser.
a5b6646c2db1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14413 diff changeset	804	].
a5b6646c2db1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14413 diff changeset	805	box hide.
a5b6646c2db1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14413 diff changeset	806	box closeRequest
a5b6646c2db1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14413 diff changeset	807	].
a5b6646c2db1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14413 diff changeset	808	box addButton:browseImplementorsButton before:box okButton.
a5b6646c2db1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14413 diff changeset	809	].
a5b6646c2db1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14413 diff changeset	810
9157 c8166dbf5a5a changed: #askForClassNameMatching:inEnvironment:for: Claus Gittinger <cg@exept.de> parents: 9065 diff changeset	811	box minExtent:300@250.
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	812
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	813	box open.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	814	(box accepted not or:[className isNil]) ifTrue:[ "/ cancel
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	815	^ nil
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	816	]
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	817	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	818	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	819
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	820	className notNil ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	821	"/ use slashed javaName for search.
14653 0ca0460ee16b class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14587 diff changeset	822	className := className copyReplaceAll:$. with:$/ ifNone:className.
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	823	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	824
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	825	"/ pref notNil ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	826	"/ ^ pref , '::' , className
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	827	"/ ].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	828	^ className
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	829
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	830	"Modified: / 16-10-2006 / 11:36:20 / cg"
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	831	!
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	832
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	833	listBoxTitle:title okText:okText list:aList
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	834	"convenient method: setup a listBox & return it"
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	835
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	836	\|box resources\|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	837
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	838	resources := self classResources.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	839
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	840	box := ListSelectionBox
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	841	title:(resources string:title)
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	842	okText:(resources string:okText)
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	843	action:nil.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	844	box list:aList.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	845	^ box
13365 58156ff25996 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13319 diff changeset	846
58156ff25996 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13319 diff changeset	847	"
58156ff25996 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13319 diff changeset	848	(self listBoxTitle:'hello world' okText:'aaa' list:#(1 2 3 4)) open
58156ff25996 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13319 diff changeset	849	"
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	850	! !
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	851
2692 652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	852	!SystemBrowser class methodsFor:'image specs'!
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	853
2748 80829f5a575d * empty log message * Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	854	abstractMethodIcon
80829f5a575d * empty log message * Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	855	<resource: #programImage>
80829f5a575d * empty log message * Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	856
80829f5a575d * empty log message * Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	857	^ self padLockGrayMiniIcon
80829f5a575d * empty log message * Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	858	!
80829f5a575d * empty log message * Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	859
3813 7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	860	addBreakPointIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	861	<resource: #image>
3813 7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	862	"This resource specification was automatically generated
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	863	by the ImageEditor of ST/X."
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	864	"Do not manually edit this!! If it is corrupted,
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	865	the ImageEditor may not be able to read the specification."
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	866	"
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	867	self addBreakPointIcon inspect
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	868	ImageEditor openOnClass:self andSelector:#addBreakPointIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	869	Icon flushCachedIcons"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	870
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	871	^ Icon constantNamed:'SystemBrowser class addBreakPointIcon'
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	872	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	873	(Depth1Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	874	width:16;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	875	height:16;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	876	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	877	bitsPerSample:(#( 1 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	878	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	879	bits:(ByteArray
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	880	fromPackedString:'@@@@@@@@@8@C @N@@8@A@@@@@P@C @D@@@@@@@@@@@@b');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	881	colorMapFromArray:#[ 255 0 0 255 255 255 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	882	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	883	width:16;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	884	height:16;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	885	bits:(ByteArray
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	886	fromPackedString:'@@@O8A?0O?!!??G?<_?1??G?<_?1??C?8G?@O8@@@@@@b');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	887	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	888	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	889	]
3813 7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	890	!
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	891
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	892	addBreakPointIcon2
6115 43cde28a3209 * empty log message * Claus Gittinger <cg@exept.de> parents: 6052 diff changeset	893	^ XPToolbarIconLibrary addBreakPointIcon2
3813 7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	894	!
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	895
4341 7bb51f44dca7 Icon for autoloaded classes Stefan Vogel <sv@exept.de> parents: 4332 diff changeset	896	autoloadedClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	897	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	898
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	899	^ ToolbarIconLibrary autoloadedClassBrowserIcon
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	"Modified: / 20-07-2007 / 09:15:37 / cg"
4341 7bb51f44dca7 Icon for autoloaded classes Stefan Vogel <sv@exept.de> parents: 4332 diff changeset	902	!
7bb51f44dca7 Icon for autoloaded classes Stefan Vogel <sv@exept.de> parents: 4332 diff changeset	903
12040 5f2202d6fbec class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 11964 diff changeset	904	breakPointedIcon
14106 c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	905	<resource: #obsolete>
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	906
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	907	^ self lineBreakPointedIcon
12504 abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	908	"/ ^ self breakPointedIcon2
14106 c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	909
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	910	"Modified: / 05-03-2014 / 10:26:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12504 abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	911	!
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	912
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	913	canvasIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	914	<resource: #image>
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	915	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	916	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	917	"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	918	the ImageEditor may not be able to read the specification."
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	919	"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	920	ImageEditor openOnClass:self andSelector:#canvasIcon"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	921
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	922	^ Icon constantNamed:'SystemBrowser class canvasIcon'
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	923	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	924	(Depth4Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	925	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	926	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	927	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	928	bitsPerSample:(#( 4 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	929	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	930	bits:(ByteArray
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	931	fromPackedString:'@@@@@@@@@@.;.;.;.0@@@@@@@@@@C.;/C.;/@@9&XP9&XP@NY&DNY&D@C&Y!!C&Y!!@@9&XP9&XP@NY&DNY&D@C1DQC1DQ@@@@@@@@@@@b');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	932	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 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	933	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	934	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	935	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	936	bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	937	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	938	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	939	]
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	940	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	941
4143 abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	942	containerClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	943	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	944
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	945	^ ToolbarIconLibrary containerClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	946
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	947	"Modified: / 20-07-2007 / 09:14:54 / cg"
4143 abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	948	!
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	949
2692 652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	950	defaultIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	951	<resource: #image>
2692 652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	952	"This resource specification was automatically generated
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	953	by the ImageEditor of ST/X."
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	954	"Do not manually edit this!! If it is corrupted,
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	955	the ImageEditor may not be able to read the specification."
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	956	"
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	957	self defaultIcon inspect
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	958	ImageEditor openOnClass:self andSelector:#defaultIcon"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	959
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	960	^ Icon constantNamed:'SystemBrowser class defaultIcon'
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	961	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	962	(Depth4Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	963	width:28;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	964	height:28;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	965	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	966	bitsPerSample:(#( 4 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	967	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	968	bits:(ByteArray
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	969	fromPackedString:'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	970	@@@@@@@@@@@@@@@@@@@FY&Y&Y&X0@@@@@@@@@@YDQDQDQB@@@@@@@@@@A$QDQDQDH@@@@@@@@@@CH"H"H"H @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@
3794 8e0c2bab6856 icon Claus Gittinger <cg@exept.de> parents: 3780 diff changeset	971	@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@A&Y&Y&Y#@@@@@F@"H"HFDQDQDQH@@@@@@@@@@@L"H"H"
8e0c2bab6856 icon Claus Gittinger <cg@exept.de> parents: 3780 diff changeset	972	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	973	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@B@B@ @@H@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	974	@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@H@@ @@@@Hb');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	975	colorMapFromArray:#[ 0 0 0 0 255 0 127 127 127 170 170 170 255 0 0 255 255 0 255 255 255 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	976	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	977	width:28;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	978	height:28;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	979	bits:(ByteArray
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	980	fromPackedString:'
3794 8e0c2bab6856 icon Claus Gittinger <cg@exept.de> parents: 3780 diff changeset	981	??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
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	982	QDBD%DQ@!!OH''HHRQEABT$QPP99]7\@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	983	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	984	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	985	]
2846 b332c41c3daa allCallsOn fix Claus Gittinger <cg@exept.de> parents: 2830 diff changeset	986	!
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	987
5761 b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	988	deprecatedMethodIcon
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	989	^ self doNotEnterIcon
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	990	!
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	991
16893 9e4bc0a230d0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16863 diff changeset	992	disabledBreakpointIcon
9e4bc0a230d0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16863 diff changeset	993	<resource: #programImage>
9e4bc0a230d0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16863 diff changeset	994
9e4bc0a230d0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16863 diff changeset	995	^ ToolbarIconLibrary breakpointDisabled9x9
9e4bc0a230d0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16863 diff changeset	996	!
9e4bc0a230d0 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16863 diff changeset	997
5761 b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	998	doNotEnterIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	999	<resource: #image>
5761 b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1000	"This resource specification was automatically generated
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1001	by the ImageEditor of ST/X."
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1002	"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	1003	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	1004	"
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1005	self doNotEnterIcon inspect
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1006	ImageEditor openOnClass:self andSelector:#doNotEnterIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1007	Icon flushCachedIcons"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1008
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1009	^ Icon constantNamed:'SystemBrowser class doNotEnterIcon'
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1010	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1011	(Depth1Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1012	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1013	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1014	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1015	bitsPerSample:(#( 1 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1016	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1017	bits:(ByteArray fromPackedString:'??C0<NA00CB@EY>P''9B@DL@08GC0<@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1018	colorMapFromArray:#[ 255 0 0 255 255 255 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1019	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1020	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1021	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1022	bits:(ByteArray fromPackedString:'@@@O@A>@O<A?8G? _>A?8C?@G8@O@@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1023	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1024	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1025	]
5761 b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1026	!
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1027
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1028	emptyIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1029	<resource: #image>
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1030	"This resource specification was automatically generated
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1031	by the ImageEditor of ST/X."
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1032	"Do not manually edit this!! If it is corrupted,
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1033	the ImageEditor may not be able to read the specification."
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1034	"
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1035	self emptyIcon inspect
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1036	ImageEditor openOnClass:self andSelector:#emptyIcon"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1037
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1038	^ Icon constantNamed:'SystemBrowser class emptyIcon'
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1039	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1040	(Depth4Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1041	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1042	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1043	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1044	bitsPerSample:(#( 4 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1045	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1046	bits:(ByteArray
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1047	fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1048	colorMapFromArray:#[ 0 0 0 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1049	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1050	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1051	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1052	bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1053	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1054	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1055	]
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1056
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1057	"Created: / 5.11.2001 / 09:39:54 / cg"
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1058	!
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1059
4143 abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	1060	errorClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1061	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1062
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1063	^ ToolbarIconLibrary errorClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1064
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1065	"Modified: / 20-07-2007 / 09:14:06 / cg"
4143 abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	1066	!
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	1067
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	1068	exceptionClassIcon
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	1069	"This resource specification was automatically generated
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	1070	by the ImageEditor of ST/X."
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	1071
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	1072	"Do not manually edit this!! If it is corrupted,
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	1073	the ImageEditor may not be able to read the specification."
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	1074
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	1075	"
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	1076	self exceptionClassIcon inspect
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	1077	ImageEditor openOnClass:self andSelector:#exceptionClassIcon
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	1078	Icon flushCachedIcons
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	1079	"
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	1080
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1081	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1082
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1083	^ ToolbarIconLibrary exceptionClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1084
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1085	"Modified: / 20-07-2007 / 09:13:18 / cg"
4143 abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	1086	!
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	1087
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1088	fileImageIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1089	<resource: #image>
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1090	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1091	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1092	"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	1093	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	1094	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1095	self fileImageIcon inspect
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1096	ImageEditor openOnClass:self andSelector:#fileImageIcon"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1097
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1098	^ Icon constantNamed:'SystemBrowser class fileImageIcon'
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1099	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1100	(Depth4Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1101	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1102	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1103	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1104	bitsPerSample:(#( 4 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1105	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1106	bits:(ByteArray
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1107	fromPackedString:'@@@@@@@@@@H"H"H"@@@BQBH!!D"@@@$P"HQH"@@H"H"DQH @BH"HQDRH@@"H"DQH"@@L3L3DSL0@CL3L1D3L@@3L3L3L3@@@@@@@@@@@b');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1108	colorMapFromArray:#[ 0 0 0 51 153 153 51 255 255 255 153 0 255 255 0 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1109	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1110	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1111	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1112	bits:(ByteArray fromPackedString:'?<C?8O?0??#?>O?8??#?>O?8??#?>@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1113	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1114	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1115	]
2846 b332c41c3daa allCallsOn fix Claus Gittinger <cg@exept.de> parents: 2830 diff changeset	1116	!
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1117
14106 c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1118	fullBreakPointedIcon
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1119	<resource: #programImage>
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1120
15305 4ba4b14f6039 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15206 diff changeset	1121	^ ToolbarIconLibrary fullBreakPoint9x9Icon
14106 c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1122	"/ ^ self fullBreakPointedIcon2
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1123
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1124	"Created: / 05-03-2014 / 10:27:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1125	!
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1126
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1127	fullBreakPointedIcon1
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1128	<resource: #image>
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1129	"This resource specification was automatically generated
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1130	by the ImageEditor of ST/X."
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1131	"Do not manually edit this!! If it is corrupted,
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1132	the ImageEditor may not be able to read the specification."
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1133	"
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1134	self stopIcon1 inspect
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1135	ImageEditor openOnClass:self andSelector:#stopIcon1
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1136	Icon flushCachedIcons"
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1137
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1138	^ Icon constantNamed:'SystemBrowser stopIcon1'
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1139	ifAbsentPut:[
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1140	(Depth4Image new)
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1141	width:13;
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1142	height:11;
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1143	photometric:(#palette);
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1144	bitsPerSample:(#[ 4 ]);
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1145	samplesPerPixel:(1);
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1146	bits:(ByteArray
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1147	fromPackedString:'DQH"H!!DQDAD!!DAD!!DQ@RDP@AD!!DPHQD@@QD!!DBDQ@@DQHQ@!!DQ@QDRDZHQDQDQD!!FBDQDADQHQ@RDP@AD!!DPDRDPDRDQDADRH"HQDQ@b');
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1148	colorMapFromArray:#[ 255 255 255 255 0 0 128 0 0 ];
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1149	mask:((ImageMask new)
14106 c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1150	width:13;
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1151	height:11;
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1152	bits:(ByteArray fromPackedString:'G0@? G?@?>C?8O? ?>C?8G?@O8@_@@@a');
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1153	yourself);
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1154	yourself
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1155	]
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1156	!
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1157
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1158	fullBreakPointedIcon2
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1159	<resource: #image>
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1160	"This resource specification was automatically generated
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1161	by the ImageEditor of ST/X."
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1162	"Do not manually edit this!! If it is corrupted,
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1163	the ImageEditor may not be able to read the specification."
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1164	"
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1165	self stopIcon2 inspect
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1166	ImageEditor openOnClass:self andSelector:#stopIcon2
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1167	Icon flushCachedIcons"
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1168
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1169	^ Icon constantNamed:'SystemBrowser stopIcon2'
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1170	ifAbsentPut:[
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1171	(Depth4Image new)
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1172	width:13;
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1173	height:11;
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1174	photometric:(#palette);
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1175	bitsPerSample:(#[ 4 ]);
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1176	samplesPerPixel:(1);
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1177	bits:(ByteArray
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1178	fromPackedString:'DQH"H!!DQDAD!!DQD!!DQ@RDQDQD!!DPHQDQDQD!!DBDSL3LQHQ@!!D@@@DRDZHQL3L1D!!FBDQDQDQHQ@RDQDQD!!DPDRDQDRDQDADRH"HQDQ@b');
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1179	colorMapFromArray:#[ 255 255 255 255 0 0 128 0 0 255 163 163 ];
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1180	mask:((ImageMask new)
14106 c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1181	width:13;
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1182	height:11;
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1183	bits:(ByteArray fromPackedString:'G0@? G?@?>C?8O? ?>C?8G?@O8@_@@@a');
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1184	yourself);
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1185	yourself
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1186	]
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1187	!
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1188
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1189	greenCheckIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1190	<resource: #image>
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1191	"This resource specification was automatically generated
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1192	by the ImageEditor of ST/X."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1193	"Do not manually edit this!! If it is corrupted,
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1194	the ImageEditor may not be able to read the specification."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1195	"
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1196	self greenCheckIcon inspect
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1197	ImageEditor openOnClass:self andSelector:#greenCheckIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1198	Icon flushCachedIcons"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1199
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1200	^ Icon constantNamed:'SystemBrowser class greenCheckIcon'
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1201	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1202	(Depth4Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1203	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1204	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1205	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1206	bitsPerSample:(#( 4 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1207	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1208	bits:(ByteArray
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1209	fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@H @@@@@@@"@@@@@@@@H@@@@@@ @"@@@@@@H H@@@@@@@H"@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@b');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1210	colorMapFromArray:#[ 0 0 0 255 255 255 0 127 0 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1211	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1212	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1213	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1214	bits:(ByteArray fromPackedString:'@@@@@@C@@X@A@AL@F @N@@P@@@@@@@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1215	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1216	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1217	]
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1218	!
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1219
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1220	greenLockIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1221	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1222	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1223
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1224	"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	1225	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	1226
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1227	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1228	self greenLockIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1229	ImageEditor openOnClass:self andSelector:#greenLockIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1230	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1231
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1232	<resource: #programImage>
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1233
2892 1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1234	^ self padLockGreenMiniIcon
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1235
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1236	"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	1237	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1238
4165 5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1239	greenThumbUpIcon
10327 1273d6c94564 changed:5 methods Claus Gittinger <cg@exept.de> parents: 10188 diff changeset	1240	^ ToolbarIconLibrary greenThumbUpIcon
1273d6c94564 changed:5 methods Claus Gittinger <cg@exept.de> parents: 10188 diff changeset	1241
1273d6c94564 changed:5 methods Claus Gittinger <cg@exept.de> parents: 10188 diff changeset	1242	"Modified: / 17-07-2011 / 10:03:34 / cg"
4165 5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1243	!
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1244
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1245	greenThumbUpSmallIcon
10327 1273d6c94564 changed:5 methods Claus Gittinger <cg@exept.de> parents: 10188 diff changeset	1246	^ ToolbarIconLibrary greenThumbUpSmallIcon
1273d6c94564 changed:5 methods Claus Gittinger <cg@exept.de> parents: 10188 diff changeset	1247
1273d6c94564 changed:5 methods Claus Gittinger <cg@exept.de> parents: 10188 diff changeset	1248	"Modified: / 17-07-2011 / 10:03:43 / cg"
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1249	!
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1250
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1251	greyCheckIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1252	<resource: #image>
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1253	"This resource specification was automatically generated
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1254	by the ImageEditor of ST/X."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1255	"Do not manually edit this!! If it is corrupted,
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1256	the ImageEditor may not be able to read the specification."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1257	"
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1258	self greyCheckIcon inspect
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1259	ImageEditor openOnClass:self andSelector:#greyCheckIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1260	Icon flushCachedIcons"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1261
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1262	^ Icon constantNamed:'SystemBrowser class greyCheckIcon'
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1263	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1264	(Depth4Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1265	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1266	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1267	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1268	bitsPerSample:(#( 4 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1269	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1270	bits:(ByteArray
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1271	fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@H @@@@@@@"@@@@@@@@H@@@@@@ @"@@@@@@H H@@@@@@@H"@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@b');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1272	colorMapFromArray:#[ 0 0 0 255 255 255 127 127 127 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1273	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1274	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1275	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1276	bits:(ByteArray fromPackedString:'@@@@@@C@@X@A@AL@F @N@@P@@@@@@@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1277	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1278	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1279	]
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1280	!
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1281
4165 5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1282	greyThumbUpIcon
10327 1273d6c94564 changed:5 methods Claus Gittinger <cg@exept.de> parents: 10188 diff changeset	1283	^ ToolbarIconLibrary greyThumbUpIcon
1273d6c94564 changed:5 methods Claus Gittinger <cg@exept.de> parents: 10188 diff changeset	1284
1273d6c94564 changed:5 methods Claus Gittinger <cg@exept.de> parents: 10188 diff changeset	1285	"Modified: / 17-07-2011 / 10:04:06 / cg"
4165 5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1286	!
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1287
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1288	helpIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1289	<resource: #image>
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1290	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1291	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1292	"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	1293	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	1294	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1295	self helpIcon inspect
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1296	ImageEditor openOnClass:self andSelector:#helpIcon"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1297
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1298	^ Icon constantNamed:'SystemBrowser class helpIcon'
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1299	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1300	(Depth1Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1301	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1302	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1303	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1304	bitsPerSample:(#( 1 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1305	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1306	bits:(ByteArray fromPackedString:'@@A?<G#0]7A?\G;0__A?<G72_?@@@@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1307	colorMapFromArray:#[ 0 0 0 255 255 255 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1308	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1309	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1310	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1311	bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1312	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1313	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1314	]
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1315	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1316
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1317	hierarchicalListIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1318	<resource: #image>
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1319	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1320	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1321	"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	1322	the ImageEditor may not be able to read the specification."
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1323	"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1324	ImageEditor openOnClass:self andSelector:#hierarchicalListIcon"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1325
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1326	^ Icon constantNamed:'SystemBrowser class hierarchicalListIcon'
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1327	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1328	(Depth2Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1329	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1330	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1331	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1332	bitsPerSample:(#( 2 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1333	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1334	bits:(ByteArray
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1335	fromPackedString:'@@@@NAUUU0@R??8@GO?>@A0@C @\??88G@@N@A3?? @^@@8@N***@@@@@C b');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1336	colorMapFromArray:#[ 0 0 0 255 255 255 127 127 127 170 170 170 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1337	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1338	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1339	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1340	bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1341	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1342	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1343	]
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1344	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1345
5997 a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1346	ignoredMethodIcon
a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1347	<resource: #programImage>
a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1348
a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1349	^ self padLockBlackMiniIcon
a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1350	!
a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1351
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1352	imageIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1353	<resource: #image>
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1354	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1355	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1356	"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	1357	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	1358	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1359	self imageIcon inspect
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1360	ImageEditor openOnClass:self andSelector:#imageIcon"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1361
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1362	^ Icon constantNamed:'SystemBrowser class imageIcon'
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1363	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1364	(Depth4Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1365	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1366	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1367	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1368	bitsPerSample:(#( 4 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1369	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1370	bits:(ByteArray
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1371	fromPackedString:'@@@@@@@@@@H"H"H"H @BQBH!!D"H@@$P"HQH"@@H"H"DQH @BH"HQDRH@@"H"DQH"@@L3L3DSL0@CL3L1D3L@@3L3L3L3@@@@@@@@@@@b');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1372	colorMapFromArray:#[ 0 0 0 51 153 153 51 255 255 255 153 0 255 255 0 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1373	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1374	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1375	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1376	bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1377	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1378	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1379	]
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1380	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1381
10048 9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1382	instVarOverlayXmlSpec
14390 05d5e002f60d Change images to use ImageMask instances instead of Depth1Image instances as Stefan Vogel <sv@exept.de> parents: 14355 diff changeset	1383	<resource: #image>
10048 9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1384	"This resource specification was automatically generated
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1385	by the ImageEditor of ST/X."
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1386	"Do not manually edit this!! If it is corrupted,
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1387	the ImageEditor may not be able to read the specification."
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1388	"
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1389	self instVarOverlayXmlSpec inspect
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1390	ImageEditor openOnClass:self andSelector:#instVarOverlayXmlSpec
14390 05d5e002f60d Change images to use ImageMask instances instead of Depth1Image instances as Stefan Vogel <sv@exept.de> parents: 14355 diff changeset	1391	Icon flushCachedIcons"
05d5e002f60d Change images to use ImageMask instances instead of Depth1Image instances as Stefan Vogel <sv@exept.de> parents: 14355 diff changeset	1392
05d5e002f60d Change images to use ImageMask instances instead of Depth1Image instances as Stefan Vogel <sv@exept.de> parents: 14355 diff changeset	1393	^ Icon constantNamed:'SystemBrowser class instVarOverlayXmlSpec'
05d5e002f60d Change images to use ImageMask instances instead of Depth1Image instances as Stefan Vogel <sv@exept.de> parents: 14355 diff changeset	1394	ifAbsentPut:[
05d5e002f60d Change images to use ImageMask instances instead of Depth1Image instances as Stefan Vogel <sv@exept.de> parents: 14355 diff changeset	1395	(Depth2Image new)
05d5e002f60d Change images to use ImageMask instances instead of Depth1Image instances as Stefan Vogel <sv@exept.de> parents: 14355 diff changeset	1396	width:16;
05d5e002f60d Change images to use ImageMask instances instead of Depth1Image instances as Stefan Vogel <sv@exept.de> parents: 14355 diff changeset	1397	height:16;
05d5e002f60d Change images to use ImageMask instances instead of Depth1Image instances as Stefan Vogel <sv@exept.de> parents: 14355 diff changeset	1398	photometric:(#palette);
05d5e002f60d Change images to use ImageMask instances instead of Depth1Image instances as Stefan Vogel <sv@exept.de> parents: 14355 diff changeset	1399	bitsPerSample:(#[ 2 ]);
05d5e002f60d Change images to use ImageMask instances instead of Depth1Image instances as Stefan Vogel <sv@exept.de> parents: 14355 diff changeset	1400	samplesPerPixel:(1);
05d5e002f60d Change images to use ImageMask instances instead of Depth1Image instances as Stefan Vogel <sv@exept.de> parents: 14355 diff changeset	1401	bits:(ByteArray
05d5e002f60d Change images to use ImageMask instances instead of Depth1Image instances as Stefan Vogel <sv@exept.de> parents: 14355 diff changeset	1402	fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BDP@@BID@@@"Q@@@BDP@@@@@@@@@@@@@@@@@@@a');
05d5e002f60d Change images to use ImageMask instances instead of Depth1Image instances as Stefan Vogel <sv@exept.de> parents: 14355 diff changeset	1403	colorMapFromArray:#[ 0 0 0 84 84 84 170 170 170 255 255 255 ];
05d5e002f60d Change images to use ImageMask instances instead of Depth1Image instances as Stefan Vogel <sv@exept.de> parents: 14355 diff changeset	1404	mask:((ImageMask new)
05d5e002f60d Change images to use ImageMask instances instead of Depth1Image instances as Stefan Vogel <sv@exept.de> parents: 14355 diff changeset	1405	width:16;
05d5e002f60d Change images to use ImageMask instances instead of Depth1Image instances as Stefan Vogel <sv@exept.de> parents: 14355 diff changeset	1406	height:16;
05d5e002f60d Change images to use ImageMask instances instead of Depth1Image instances as Stefan Vogel <sv@exept.de> parents: 14355 diff changeset	1407	bits:(ByteArray
05d5e002f60d Change images to use ImageMask instances instead of Depth1Image instances as Stefan Vogel <sv@exept.de> parents: 14355 diff changeset	1408	fromPackedString:'
10048 9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1409	@@@@@@@@@@@@@@@@BA@XFC@L[>[O8<=#[7X0CA XBA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1410	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
14390 05d5e002f60d Change images to use ImageMask instances instead of Depth1Image instances as Stefan Vogel <sv@exept.de> parents: 14355 diff changeset	1411	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a');
05d5e002f60d Change images to use ImageMask instances instead of Depth1Image instances as Stefan Vogel <sv@exept.de> parents: 14355 diff changeset	1412	yourself);
05d5e002f60d Change images to use ImageMask instances instead of Depth1Image instances as Stefan Vogel <sv@exept.de> parents: 14355 diff changeset	1413	yourself
05d5e002f60d Change images to use ImageMask instances instead of Depth1Image instances as Stefan Vogel <sv@exept.de> parents: 14355 diff changeset	1414	]
10048 9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1415	!
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1416
7992 425aa862d872 * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	1417	instrumentationIcon
425aa862d872 * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	1418	<resource: #programImage>
425aa862d872 * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	1419
425aa862d872 * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	1420	^ ToolbarIconLibrary pipette16x16Icon
425aa862d872 * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	1421	!
425aa862d872 * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	1422
14106 c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1423	lineBreakPointedIcon
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1424	<resource: #programImage>
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1425
15305 4ba4b14f6039 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15206 diff changeset	1426	^ ToolbarIconLibrary lineBreakPoint9x9Icon
14106 c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1427	"/ ^ self lineBreakPointedIcon2
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1428
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1429	"Created: / 05-03-2014 / 10:20:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1430	!
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1431
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1432	lineBreakPointedIcon1
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1433	<resource: #image>
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1434	"This resource specification was automatically generated
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1435	by the ImageEditor of ST/X."
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1436	"Do not manually edit this!! If it is corrupted,
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1437	the ImageEditor may not be able to read the specification."
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1438	"
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1439	self breakPointedIcon1 inspect
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1440	ImageEditor openOnClass:self andSelector:#breakPointedIcon1
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1441	Icon flushCachedIcons"
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1442
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1443	^ Icon constantNamed:'SystemBrowser breakPointedIcon1'
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1444	ifAbsentPut:[
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1445	(Depth4Image new)
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1446	width:13;
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1447	height:11;
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1448	photometric:(#palette);
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1449	bitsPerSample:(#[ 4 ]);
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1450	samplesPerPixel:(1);
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1451	bits:(ByteArray
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1452	fromPackedString:'@@@@@@@@@P@@L3@@@@$@L@@@L@@H@@@C@@@@APL@DQ@C@@@C@1DS@0@B@0@QD@L@@@@@@0@@@@@@L@@@L@@@@@@3L@@@@ @@@@@@@@ b');
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1453	colorMapFromArray:#[ 255 0 0 255 255 255 0 0 0 255 199 199 ];
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1454	mask:((ImageMask new)
14106 c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1455	width:13;
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1456	height:11;
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1457	bits:(ByteArray fromPackedString:'@@@N@C>@O8A?0G?@_<@? C>@C @@@@@a');
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1458	yourself);
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1459	yourself
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1460	]
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1461	!
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1462
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1463	lineBreakPointedIcon2
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1464	<resource: #image>
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1465	"This resource specification was automatically generated
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1466	by the ImageEditor of ST/X."
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1467	"Do not manually edit this!! If it is corrupted,
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1468	the ImageEditor may not be able to read the specification."
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1469	"
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1470	self breakPointedIcon2 inspect
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1471	ImageEditor openOnClass:self andSelector:#breakPointedIcon2
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1472	Icon flushCachedIcons"
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1473
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1474	^ Icon constantNamed:'SystemBrowser breakPointedIcon2'
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1475	ifAbsentPut:[
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1476	(Depth4Image new)
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1477	width:13;
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1478	height:11;
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1479	photometric:(#palette);
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1480	bitsPerSample:(#[ 4 ]);
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1481	samplesPerPixel:(1);
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1482	bits:(ByteArray
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1483	fromPackedString:'DQH"H!!DQDAD!!DQD!!DQ@RDQDQD!!DPHQDQDQD!!DBDQDQDQHQ@!!DQDQDRDZHQDQDQD!!FBDQDQDQHQ@RDQDQD!!DPDRDQDRDQDADRH"HQDQ@b');
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1484	colorMapFromArray:#[ 255 255 255 255 0 0 128 0 0 ];
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1485	mask:((ImageMask new)
14106 c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1486	width:13;
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1487	height:11;
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1488	bits:(ByteArray fromPackedString:'G0@? G?@?>C?8O? ?>C?8G?@O8@_@@@a');
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1489	yourself);
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1490	yourself
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1491	]
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1492	!
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	1493
16027 36719009525a #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16016 diff changeset	1494	lineTracePointedIcon
36719009525a #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16016 diff changeset	1495	<resource: #programImage>
36719009525a #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16016 diff changeset	1496
36719009525a #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16016 diff changeset	1497	^ ToolbarIconLibrary lineTracePoint9x9Icon
36719009525a #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16016 diff changeset	1498	!
36719009525a #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16016 diff changeset	1499
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1500	medium_methodEmptyInheritedIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1501	<resource: #image>
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1502	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1503	by the ImageEditor of ST/X."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1504	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1505	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1506	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1507	self medium_methodEmptyInheritedIcon inspect
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1508	ImageEditor openOnClass:self andSelector:#medium_methodEmptyInheritedIcon"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1509
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1510	^ Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1511	constantNamed:'SystemBrowser class medium_methodEmptyInheritedIcon'
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1512	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1513	(Depth4Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1514	width:9;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1515	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1516	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1517	bitsPerSample:(#( 4 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1518	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1519	bits:(ByteArray
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1520	fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1521	colorMapFromArray:#[ 0 0 0 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1522	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1523	width:9;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1524	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1525	bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1526	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1527	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1528	]
3675 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	medium_methodInheritedFromAboveAndRedefinedBelowIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1532	<resource: #image>
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1533	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1534	by the ImageEditor of ST/X."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1535	"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	self medium_methodInheritedFromAboveAndRedefinedBelowIcon inspect
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1539	ImageEditor openOnClass:self andSelector:#medium_methodInheritedFromAboveAndRedefinedBelowIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1540	Icon flushCachedIcons"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1541
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1542	^ Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1543	constantNamed:'SystemBrowser class medium_methodInheritedFromAboveAndRedefinedBelowIcon'
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1544	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1545	(Depth2Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1546	width:9;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1547	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1548	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1549	bitsPerSample:(#( 2 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1550	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1551	bits:(ByteArray
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1552	fromPackedString:'@@@@@@@@@B()@B(@A@ @A@ @A@ (EP@HEP@@@@@@@@@@');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1553	colorMapFromArray:#[ 0 0 0 255 255 127 255 127 127 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1554	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1555	width:9;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1556	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1557	bits:(ByteArray fromPackedString:'@@@/ B>@K8A7@G\@]0C:@O(@> @@@@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1558	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1559	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1560	]
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1561	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1562
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1563	medium_methodInheritedFromAboveIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1564	<resource: #image>
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1565	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1566	by the ImageEditor of ST/X."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1567	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1568	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1569	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1570	self medium_methodInheritedFromAboveIcon inspect
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1571	ImageEditor openOnClass:self andSelector:#medium_methodInheritedFromAboveIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1572	Icon flushCachedIcons"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1573
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1574	^ Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1575	constantNamed:'SystemBrowser class medium_methodInheritedFromAboveIcon'
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1576	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1577	(Depth1Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1578	width:9;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1579	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1580	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1581	bitsPerSample:(#( 1 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1582	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1583	bits:(ByteArray fromPackedString:'@@@@@@@A@@@ @B@@HA=0LG@@@@@@@@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1584	colorMapFromArray:#[ 0 0 0 255 255 127 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1585	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1586	width:9;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1587	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1588	bits:(ByteArray fromPackedString:'@@@ @B@@H@A0@G@@\@C8@O @>@@@@@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1589	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1590	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1591	]
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1592	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1593
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1594	medium_methodRedefinedBelowIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1595	<resource: #image>
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1596	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1597	by the ImageEditor of ST/X."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1598	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1599	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1600	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1601	self medium_methodRedefinedBelowIcon inspect
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1602	ImageEditor openOnClass:self andSelector:#medium_methodRedefinedBelowIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1603	Icon flushCachedIcons"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1604
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1605	^ Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1606	constantNamed:'SystemBrowser class medium_methodRedefinedBelowIcon'
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1607	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1608	(Depth1Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1609	width:9;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1610	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1611	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1612	bitsPerSample:(#( 1 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1613	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1614	bits:(ByteArray fromPackedString:'@ED@L@\@A0@B@@H@@"8@P@@@@@@@@@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1615	colorMapFromArray:#[ 0 0 0 255 127 127 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1616	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1617	width:9;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1618	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1619	bits:(ByteArray fromPackedString:'@@@O @>@C8@G@@\@A0@B@@H@@ @@@@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1620	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1621	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1622	]
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1623	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1624
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1625	menuIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1626	<resource: #image>
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1627	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1628	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1629	"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	1630	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	1631	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1632	self menuIcon inspect
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1633	ImageEditor openOnClass:self andSelector:#menuIcon"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1634
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1635	^ Icon constantNamed:'SystemBrowser class menuIcon'
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1636	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1637	(Depth2Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1638	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1639	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1640	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1641	bitsPerSample:(#( 2 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1642	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1643	bits:(ByteArray
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1644	fromPackedString:'@@@@@B*P@%UUT@@@@@@BP@%UUT@@@@@@B**P@%UUT@@@@@@@@@@@@b');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1645	colorMapFromArray:#[ 0 0 0 170 170 170 255 255 255 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1646	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1647	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1648	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1649	bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8?? @@@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1650	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1651	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1652	]
2743 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
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1655	methodEmptyInheritedIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1656	^ self small_methodEmptyInheritedIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1657	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1658
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1659	methodInheritedFromAboveAndRedefinedBelowIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1660	^ self small_methodInheritedFromAboveAndRedefinedBelowIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1661	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1662
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1663	methodInheritedFromAboveIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1664	^ self small_methodInheritedFromAboveIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1665	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1666
5761 b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1667	methodIsSubclassResponsibilityAndRedefinedBelowIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1668	<resource: #image>
5761 b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1669	"This resource specification was automatically generated
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1670	by the ImageEditor of ST/X."
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1671	"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	1672	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	1673	"
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1674	self methodIsSubclassResponsibilityAndRedefinedBelowIcon inspect
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1675	ImageEditor openOnClass:self andSelector:#methodIsSubclassResponsibilityAndRedefinedBelowIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1676	Icon flushCachedIcons"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1677
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1678	^ Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1679	constantNamed:'SystemBrowser class methodIsSubclassResponsibilityAndRedefinedBelowIcon'
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1680	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1681	(Depth2Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1682	width:5;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1683	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1684	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1685	bitsPerSample:(#( 2 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1686	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1687	bits:(ByteArray fromPackedString:' @D@@H@@@@@B@@@@@@4UBHR@A@@"@@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1688	colorMapFromArray:#[ 0 0 0 255 127 127 127 127 127 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1689	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1690	width:5;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1691	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1692	bits:(ByteArray fromPackedString:'<HC DO@@>O#8\G@b');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1693	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1694	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1695	]
5761 b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1696	!
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1697
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1698	methodIsSubclassResponsibilityIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1699	<resource: #image>
5761 b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1700	"This resource specification was automatically generated
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1701	by the ImageEditor of ST/X."
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1702	"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	1703	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	1704	"
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1705	self methodIsSubclassResponsibilityIcon inspect
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1706	ImageEditor openOnClass:self andSelector:#methodIsSubclassResponsibilityIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1707	Icon flushCachedIcons"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1708
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1709	^ Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1710	constantNamed:'SystemBrowser class methodIsSubclassResponsibilityIcon'
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1711	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1712	(Depth2Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1713	width:5;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1714	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1715	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1716	bitsPerSample:(#( 2 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1717	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1718	bits:(ByteArray fromPackedString:' @D@@H@@@@@B@@@@@ 4@B@H@@@@@@@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1719	colorMapFromArray:#[ 0 0 0 255 127 127 127 127 127 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1720	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1721	width:5;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1722	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1723	bits:(ByteArray fromPackedString:'<HC DO@@<IC0(I@b');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1724	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1725	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1726	]
5761 b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1727	!
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1728
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1729	methodRedefinedBelowIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1730	^ self small_methodRedefinedBelowIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1731	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1732
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1733	nameSpaceIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1734	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1735
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1736	^ ToolbarIconLibrary nameSpaceBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1737
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1738	"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	1739	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1740
4308 9957b7ab92e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4275 diff changeset	1741	notificationClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1742	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1743
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1744	^ ToolbarIconLibrary notificationClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1745
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1746	"Modified: / 20-07-2007 / 09:11:21 / cg"
4308 9957b7ab92e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4275 diff changeset	1747	!
9957b7ab92e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4275 diff changeset	1748
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1749	packageIcon
8853 a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1750	<resource: #programImage>
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1751
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1752	^ ToolbarIconLibrary smallYellowPackageIcon
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1753	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1754
6954 b10a2c15fee5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6944 diff changeset	1755	packageIconGraySmall
8853 a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1756	<resource: #programImage>
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1757
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1758	^ ToolbarIconLibrary smallGrayPackageIcon
6954 b10a2c15fee5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6944 diff changeset	1759	!
b10a2c15fee5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6944 diff changeset	1760
6925 388067acd009 * empty log message * Claus Gittinger <cg@exept.de> parents: 6913 diff changeset	1761	packageIconGreenSmall
8853 a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1762	<resource: #programImage>
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1763
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1764	^ ToolbarIconLibrary smallGreenPackageIcon
6925 388067acd009 * empty log message * Claus Gittinger <cg@exept.de> parents: 6913 diff changeset	1765	!
388067acd009 * empty log message * Claus Gittinger <cg@exept.de> parents: 6913 diff changeset	1766
388067acd009 * empty log message * Claus Gittinger <cg@exept.de> parents: 6913 diff changeset	1767	packageIconOrangeSmall
8853 a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1768	<resource: #programImage>
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1769
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1770	^ ToolbarIconLibrary smallOrangePackageIcon
6925 388067acd009 * empty log message * Claus Gittinger <cg@exept.de> parents: 6913 diff changeset	1771	!
388067acd009 * empty log message * Claus Gittinger <cg@exept.de> parents: 6913 diff changeset	1772
6901 34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	1773	packageIconSmall
8853 a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1774	<resource: #programImage>
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1775
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1776	^ ToolbarIconLibrary smallYellowPackageIcon
6901 34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	1777	!
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	1778
5997 a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1779	padLockBlackMiniIcon
6333 d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1780	<resource: #programImage>
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1781
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1782	^ XPToolbarIconLibrary padLockBlackMiniIcon
5997 a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1783	!
a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1784
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1785	padLockBlueMiniIcon
6333 d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1786	<resource: #programImage>
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1787
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1788	^ XPToolbarIconLibrary padLockBlueMiniIcon
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1789	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1790
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1791	padLockGrayMiniIcon
6333 d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1792	<resource: #programImage>
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1793
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1794	^ GenericToolbarIconLibrary padLockGrayMiniIcon
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1795	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1796
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1797	padLockGreenMiniIcon
6333 d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1798	<resource: #programImage>
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1799
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1800	^ GenericToolbarIconLibrary padLockGreenMiniIcon
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1801	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1802
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1803	padLockRedMiniIcon
6333 d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1804	<resource: #programImage>
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1805
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1806	^ GenericToolbarIconLibrary padLockRedMiniIcon
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1807	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1808
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1809	privateMethodIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1810	<resource: #programImage>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1811
2748 80829f5a575d * empty log message * Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	1812	^ self padLockRedMiniIcon
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1813	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1814
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1815	programImageIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1816	<resource: #image>
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1817	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1818	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1819	"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	1820	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	1821	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1822	self programImageIcon inspect
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1823	ImageEditor openOnClass:self andSelector:#programImageIcon"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1824
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1825	^ Icon constantNamed:#'SystemBrowser class programImageIcon'
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1826	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1827	(Depth4Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1828	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1829	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1830	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1831	bitsPerSample:(#( 4 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1832	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1833	bits:(ByteArray
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1834	fromPackedString:'@@@@@@@@@@H"H"H"H @BQBH!!D"H@@$P"HQH"@@H"H"DQH @BH"HQDRH@@"H"DQH"@@L3L3DSL0@CL3L1D3L@@3L3L3L3@@@@@@@@@@@b');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1835	colorMapFromArray:#[ 0 0 0 25 77 77 51 255 255 128 128 0 128 77 0 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1836	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1837	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1838	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1839	bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1840	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1841	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1842	]
2846 b332c41c3daa allCallsOn fix Claus Gittinger <cg@exept.de> parents: 2830 diff changeset	1843	!
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1844
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1845	programMenuIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1846	<resource: #image>
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1847	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1848	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1849	"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	1850	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	1851	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1852	self programMenuIcon inspect
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1853	ImageEditor openOnClass:self andSelector:#programMenuIcon"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1854
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1855	^ Icon constantNamed:#'SystemBrowser class programMenuIcon'
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1856	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1857	(Depth1Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1858	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1859	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1860	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1861	bitsPerSample:(#( 1 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1862	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1863	bits:(ByteArray fromPackedString:'@@A?<G?0@@A?<G?0@@A?<G?3@@@@@@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1864	colorMapFromArray:#[ 0 0 0 170 170 170 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1865	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1866	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1867	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1868	bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8?? @@@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1869	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1870	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1871	]
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1872	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1873
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1874	protectedMethodIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1875	<resource: #programImage>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1876
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1877	^ self padLockGreenMiniIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1878	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1879
4308 9957b7ab92e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4275 diff changeset	1880	queryClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1881	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1882
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1883	^ ToolbarIconLibrary queryClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1884
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1885	"Modified: / 20-07-2007 / 09:10:32 / cg"
4308 9957b7ab92e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4275 diff changeset	1886	!
9957b7ab92e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4275 diff changeset	1887
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1888	redCheckIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1889	<resource: #image>
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1890	"This resource specification was automatically generated
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1891	by the ImageEditor of ST/X."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1892	"Do not manually edit this!! If it is corrupted,
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1893	the ImageEditor may not be able to read the specification."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1894	"
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1895	self redCheckIcon inspect
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1896	ImageEditor openOnClass:self andSelector:#redCheckIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1897	Icon flushCachedIcons"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1898
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1899	^ Icon constantNamed:#'SystemBrowser class redCheckIcon'
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1900	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1901	(Depth4Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1902	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1903	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1904	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1905	bitsPerSample:(#( 4 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1906	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1907	bits:(ByteArray
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1908	fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@"@@@@@@@BH@@@@ @@H @@@BH @"@@@@@BH"H @@@@@BH"@@@@@@@BH @@@@@@@B@@@@@@@@@@@@@@@b');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1909	colorMapFromArray:#[ 0 0 0 255 255 255 255 0 0 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1910	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1911	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1912	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1913	bits:(ByteArray fromPackedString:'@@@@@@A @L@!! GL@O0@^@@8@A@@@@@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1914	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1915	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1916	]
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1917	!
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1918
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1919	redLockIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1920	<resource: #image>
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1921	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1922	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1923	"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	1924	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	1925	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1926	self redLockIcon inspect
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1927	ImageEditor openOnClass:self andSelector:#redLockIcon"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1928
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1929	^ Icon constantNamed:#'SystemBrowser class redLockIcon'
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1930	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1931	(Depth2Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1932	width:9;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1933	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1934	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1935	bitsPerSample:(#( 2 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1936	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1937	bits:(ByteArray
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1938	fromPackedString:'@T@@AA@@AA@@EUP@EUP@EQP@EQP@EQP@EAP@AU@@@@@@');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1939	colorMapFromArray:#[ 0 0 0 255 0 0 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1940	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1941	width:9;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1942	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1943	bits:(ByteArray fromPackedString:'F@@$@BP@_ A>@G8@_ A>@G8@O@@@@@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1944	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1945	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1946	]
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1947	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1948
4165 5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1949	redThumbDownIcon
10327 1273d6c94564 changed:5 methods Claus Gittinger <cg@exept.de> parents: 10188 diff changeset	1950	^ ToolbarIconLibrary redThumbDownIcon
1273d6c94564 changed:5 methods Claus Gittinger <cg@exept.de> parents: 10188 diff changeset	1951
1273d6c94564 changed:5 methods Claus Gittinger <cg@exept.de> parents: 10188 diff changeset	1952	"Modified: / 17-07-2011 / 10:04:37 / cg"
4165 5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1953	!
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1954
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1955	redThumbDownSmallIcon
10327 1273d6c94564 changed:5 methods Claus Gittinger <cg@exept.de> parents: 10188 diff changeset	1956	^ ToolbarIconLibrary redThumbDownSmallIcon
1273d6c94564 changed:5 methods Claus Gittinger <cg@exept.de> parents: 10188 diff changeset	1957
1273d6c94564 changed:5 methods Claus Gittinger <cg@exept.de> parents: 10188 diff changeset	1958	"Modified: / 17-07-2011 / 10:05:09 / cg"
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1959	!
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1960
3813 7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	1961	removeBreakPointIcon2
15362 1bb59c7b3817 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15334 diff changeset	1962	UserPreferences current useColorsForColorBlindness ifTrue:[
1bb59c7b3817 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15334 diff changeset	1963	^ ToolbarIconLibrary removeBreakPointBlueIcon2
1bb59c7b3817 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15334 diff changeset	1964	].
1bb59c7b3817 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15334 diff changeset	1965	^ ToolbarIconLibrary removeBreakPointIcon2
3813 7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	1966	!
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	1967
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1968	small_methodEmptyInheritedIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1969	<resource: #image>
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1970	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1971	by the ImageEditor of ST/X."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1972	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1973	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1974	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1975	self small_methodEmptyInheritedIcon inspect
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1976	ImageEditor openOnClass:self andSelector:#small_methodEmptyInheritedIcon"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1977
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1978	^ Icon
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1979	constantNamed:#'SystemBrowser class small_methodEmptyInheritedIcon'
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1980	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1981	(Depth4Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1982	width:5;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1983	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1984	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1985	bitsPerSample:(#( 4 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1986	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1987	bits:(ByteArray
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1988	fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1989	colorMapFromArray:#[ 0 0 0 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1990	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1991	width:5;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1992	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1993	bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@b');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1994	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1995	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	1996	]
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1997	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1998
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1999	small_methodInheritedFromAboveAndRedefinedBelowIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2000	<resource: #image>
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2001	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2002	by the ImageEditor of ST/X."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2003	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2004	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2005	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2006	self small_methodInheritedFromAboveAndRedefinedBelowIcon inspect
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2007	ImageEditor openOnClass:self andSelector:#small_methodInheritedFromAboveAndRedefinedBelowIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2008	Icon flushCachedIcons"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2009
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2010	^ Icon
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2011	constantNamed:#'SystemBrowser class small_methodInheritedFromAboveAndRedefinedBelowIcon'
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2012	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2013	(Depth2Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2014	width:5;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2015	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2016	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2017	bitsPerSample:(#( 2 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2018	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2019	bits:(ByteArray fromPackedString:'L1@DLLS,ES@@@@@0@@@*@L#@B@@3@@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2020	colorMapFromArray:#[ 0 0 0 255 255 127 255 127 127 127 127 127 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2021	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2022	width:5;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2023	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2024	bits:(ByteArray fromPackedString:'\GC8>O @>O#8\G@b');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2025	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2026	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2027	]
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2028	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2029
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2030	small_methodInheritedFromAboveIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2031	<resource: #image>
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2032	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2033	by the ImageEditor of ST/X."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2034	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2035	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2036	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2037	self small_methodInheritedFromAboveIcon inspect
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2038	ImageEditor openOnClass:self andSelector:#small_methodInheritedFromAboveIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2039	Icon flushCachedIcons"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2040
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2041	^ Icon
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2042	constantNamed:#'SystemBrowser class small_methodInheritedFromAboveIcon'
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2043	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2044	(Depth2Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2045	width:5;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2046	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2047	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2048	bitsPerSample:(#( 2 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2049	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2050	bits:(ByteArray fromPackedString:'H#HDLHR@EP@@@@@@@BD@IP@!!@B@@IP@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2051	colorMapFromArray:#[ 0 0 0 255 255 127 127 127 127 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2052	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2053	width:5;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2054	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2055	bits:(ByteArray fromPackedString:'\GC8>O @@@@@@@@b');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2056	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2057	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2058	]
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2059	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2060
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2061	small_methodRedefinedBelowIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2062	<resource: #image>
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2063	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2064	by the ImageEditor of ST/X."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2065	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2066	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2067	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2068	self small_methodRedefinedBelowIcon inspect
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2069	ImageEditor openOnClass:self andSelector:#small_methodRedefinedBelowIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2070	Icon flushCachedIcons"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2071
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2072	^ Icon
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2073	constantNamed:#'SystemBrowser class small_methodRedefinedBelowIcon'
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2074	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2075	(Depth2Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2076	width:5;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2077	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2078	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2079	bitsPerSample:(#( 2 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2080	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2081	bits:(ByteArray fromPackedString:'@@D@@@@@@@@@@@@@@@4UBHR@A@@"@@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2082	colorMapFromArray:#[ 0 0 0 255 127 127 127 127 127 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2083	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2084	width:5;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2085	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2086	bits:(ByteArray fromPackedString:'@@@@@@@@>O#8\G@b');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2087	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2088	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2089	]
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2090	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	2091
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	2092	startableClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	2093	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	2094
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	2095	^ ToolbarIconLibrary startableClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	2096
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	2097	"Created: / 05-11-2001 / 09:50:16 / cg"
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	2098	"Modified: / 20-07-2007 / 09:09:40 / cg"
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	2099	!
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	2100
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	2101	startableVisualAppIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	2102	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	2103
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	2104	^ ToolbarIconLibrary visualStartableClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	2105
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	2106	"Created: / 05-11-2001 / 09:49:00 / cg"
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	2107	"Modified: / 20-07-2007 / 09:08:34 / cg"
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	2108	!
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	2109
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2110	stopIcon
14106 c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	2111	<resource: #obsolete>
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	2112
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	2113	^ self fullBreakPointedIcon
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	2114
c042bb7e4cee Added icons fullBreakPointedIcon and lineBreakPointedIcon. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14103 diff changeset	2115	"Modified: / 05-03-2014 / 10:27:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2116	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2117
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2118	tabListIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2119	<resource: #image>
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2120	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2121	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2122	"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	2123	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	2124	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2125	self tabListIcon inspect
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2126	ImageEditor openOnClass:self andSelector:#tabListIcon"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2127
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2128	^ Icon constantNamed:#'SystemBrowser class tabListIcon'
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2129	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2130	(Depth2Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2131	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2132	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2133	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2134	bitsPerSample:(#( 2 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2135	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2136	bits:(ByteArray
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2137	fromPackedString:'@@@@D3!!QP@@8TT@@N@@J@C*P@:$AN)@CP@:*$@IUUUB @@@@@b');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2138	colorMapFromArray:#[ 0 0 0 127 127 127 170 170 170 255 255 255 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2139	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2140	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2141	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2142	bits:(ByteArray fromPackedString:'?8C?0O?0??#?>O?8??#?>O?8??#?>@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2143	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2144	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2145	]
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2146	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2147
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2148	tableColumnsIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2149	<resource: #image>
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2150	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2151	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2152	"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	2153	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	2154	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2155	self tableColumnsIcon inspect
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2156	ImageEditor openOnClass:self andSelector:#tableColumnsIcon"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2157
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2158	^ Icon constantNamed:#'SystemBrowser class tableColumnsIcon'
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2159	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2160	(Depth2Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2161	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2162	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2163	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2164	bitsPerSample:(#( 2 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2165	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2166	bits:(ByteArray
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2167	fromPackedString:'@@@@@C??? @8(($@L@@AHC"""R@0@@D@NJJI@C@@@P@8(($@IUUU@@@@@@@b');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2168	colorMapFromArray:#[ 0 0 0 127 127 127 170 170 170 255 255 255 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2169	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2170	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2171	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2172	bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2173	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2174	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2175	]
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2176	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2177
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	2178	testCaseClassIcon
8862 dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	2179	<resource: #programImage>
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	2180
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	2181	"/ only left here for backward compatibility...
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	2182	^ ToolbarIconLibrary testCaseClassIcon
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	2183	!
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	2184
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	2185	testCaseClassIconFor:cls
4167 588e05d2124d * empty log message * Claus Gittinger <cg@exept.de> parents: 4166 diff changeset	2186	<resource: #programImage>
588e05d2124d * empty log message * Claus Gittinger <cg@exept.de> parents: 4166 diff changeset	2187
8862 dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	2188	"/ decision moved to TestCase - see there.
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	2189	"/ only left here for backward compatibility...
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	2190
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	2191	\|lastResult\|
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	2192
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	2193	lastResult := cls lastTestRunResultOrNil.
12729 8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	2194	lastResult notNil ifTrue:[
8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	2195	lastResult == TestResult statePass ifTrue:[
8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	2196	^ self testCasePassedIcon
8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	2197	].
8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	2198	lastResult == TestResult stateFail ifTrue:[
8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	2199	^ self testCaseFailedIcon
8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	2200	].
8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	2201	lastResult == TestResult stateError ifTrue:[
8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	2202	^ self testCaseErrorIcon
8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	2203	].
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	2204	].
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	2205	^ self testCaseUnknownResultIcon
6848 27b76bc54f22 * empty log message * Claus Gittinger <cg@exept.de> parents: 6776 diff changeset	2206
27b76bc54f22 * empty log message * Claus Gittinger <cg@exept.de> parents: 6776 diff changeset	2207	"Modified: / 06-08-2006 / 11:14:12 / cg"
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	2208	!
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	2209
12729 8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	2210	testCaseErrorIcon
8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	2211	<resource: #programImage>
8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	2212
8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	2213	"/ only left here for backward compatibility...
8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	2214	^ ToolbarIconLibrary testCaseErrorIcon
8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	2215	!
8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	2216
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	2217	testCaseFailedIcon
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	2218	<resource: #programImage>
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	2219
8862 dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	2220	"/ only left here for backward compatibility...
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	2221	^ ToolbarIconLibrary testCaseFailedIcon
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	2222	!
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	2223
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	2224	testCasePassedIcon
8862 dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	2225	<resource: #programImage>
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	2226
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	2227	"/ only left here for backward compatibility...
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	2228	^ ToolbarIconLibrary testCasePassedIcon
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	2229	!
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	2230
12631 94d188b87901 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12621 diff changeset	2231	testCaseSkippedIcon
94d188b87901 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12621 diff changeset	2232	<resource: #programImage>
94d188b87901 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12621 diff changeset	2233
94d188b87901 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12621 diff changeset	2234	"/ only left here for backward compatibility...
94d188b87901 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12621 diff changeset	2235	^ ToolbarIconLibrary testCaseSkippedIcon
94d188b87901 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12621 diff changeset	2236	!
94d188b87901 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12621 diff changeset	2237
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	2238	testCaseUnknownResultIcon
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	2239	<resource: #programImage>
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	2240
8862 dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	2241	"/ only left here for backward compatibility...
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	2242	^ ToolbarIconLibrary testCaseClassIcon
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	2243	!
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	2244
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2245	timeIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2246	<resource: #image>
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2247	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2248	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2249	"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	2250	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	2251	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2252	self timeIcon inspect
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2253	ImageEditor openOnClass:self andSelector:#timeIcon"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2254
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2255	^ Icon constantNamed:#'SystemBrowser class timeIcon'
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2256	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2257	(Depth1Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2258	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2259	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2260	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2261	bitsPerSample:(#( 1 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2262	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2263	bits:(ByteArray fromPackedString:'@@@G@A7@G\@=8C0 O>@_0A?@A0@@@@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2264	colorMapFromArray:#[ 0 0 0 255 255 255 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2265	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2266	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2267	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2268	bits:(ByteArray fromPackedString:'A0@_0C? O>A?<G?0_?@?8C? G<@G@@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2269	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2270	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2271	]
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2272	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2273
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2274	traceIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2275	<resource: #image>
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2276	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2277	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2278	"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	2279	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	2280	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2281	self traceIcon inspect
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2282	ImageEditor openOnClass:self andSelector:#traceIcon"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2283
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2284	^ Icon constantNamed:#'SystemBrowser class traceIcon'
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2285	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2286	(Depth1Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2287	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2288	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2289	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2290	bitsPerSample:(#( 1 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2291	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2292	bits:(ByteArray fromPackedString:'@@@@@@>@C8@G@@\@@ @B@@@@@@@@@@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2293	colorMapFromArray:#[ 255 0 0 255 255 255 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2294	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2295	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2296	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2297	bits:(ByteArray fromPackedString:'_?A?<C? O>@_0A?@C8@O @\@A0@B@@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2298	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2299	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2300	]
2830 36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	2301	!
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	2302
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	2303	visualStartableClassIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2304	<resource: #image>
2830 36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	2305	"This resource specification was automatically generated
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	2306	by the ImageEditor of ST/X."
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	2307	"Do not manually edit this!! If it is corrupted,
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	2308	the ImageEditor may not be able to read the specification."
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	2309	"
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	2310	self visualStartableClassIcon inspect
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2311	ImageEditor openOnClass:self andSelector:#visualStartableClassIcon"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2312
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2313	^ Icon constantNamed:#'SystemBrowser class visualStartableClassIcon'
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2314	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2315	(Depth2Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2316	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2317	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2318	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2319	bitsPerSample:(#( 2 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2320	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2321	bits:(ByteArray
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2322	fromPackedString:'*JNJ"#"!!J(@!!T@J(DJ BDR(@!!TNJ(J BO2(@+.@J*** @b');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2323	colorMapFromArray:#[ 0 0 0 127 127 127 255 0 0 255 255 0 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2324	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2325	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2326	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2327	bits:(ByteArray fromPackedString:'@ @B@@\@C8@O @>@C8@H @>@A0@G@@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2328	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2329	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2330	]
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	2331
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	2332	"Modified: / 5.11.2001 / 09:49:30 / cg"
2892 1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	2333	!
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	2334
4275 aeaf7c245b7a * empty log message * Claus Gittinger <cg@exept.de> parents: 4270 diff changeset	2335	warningClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	2336	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	2337
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	2338	^ ToolbarIconLibrary warningClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	2339
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	2340	"Modified: / 20-07-2007 / 09:04:39 / cg"
4275 aeaf7c245b7a * empty log message * Claus Gittinger <cg@exept.de> parents: 4270 diff changeset	2341	!
aeaf7c245b7a * empty log message * Claus Gittinger <cg@exept.de> parents: 4270 diff changeset	2342
2892 1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	2343	watchIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2344	<resource: #image>
2892 1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	2345	"This resource specification was automatically generated
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	2346	by the ImageEditor of ST/X."
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	2347	"Do not manually edit this!! If it is corrupted,
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	2348	the ImageEditor may not be able to read the specification."
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	2349	"
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	2350	self watchIcon inspect
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2351	ImageEditor openOnClass:self andSelector:#watchIcon"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2352
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2353	^ Icon constantNamed:#'SystemBrowser class watchIcon'
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2354	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2355	(Depth4Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2356	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2357	height:12;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2358	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2359	bitsPerSample:(#( 4 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2360	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2361	bits:(ByteArray
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2362	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@');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2363	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 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2364	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2365	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2366	height:12;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2367	bits:(ByteArray fromPackedString:'FL@]0C7 O>A?<G?0??#=>O78?_#8>GA0');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2368	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2369	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2370	]
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	2371	!
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	2372
4143 abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	2373	windowClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	2374	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	2375
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	2376	^ ToolbarIconLibrary windowClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	2377
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	2378	"Modified: / 20-07-2007 / 09:05:57 / cg"
4143 abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	2379	!
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	2380
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	2381	windowIcon
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2382	<resource: #image>
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	2383	"This resource specification was automatically generated
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	2384	by the ImageEditor of ST/X."
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	2385	"Do not manually edit this!! If it is corrupted,
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	2386	the ImageEditor may not be able to read the specification."
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	2387	"
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	2388	self windowIcon inspect
14413 cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2389	ImageEditor openOnClass:self andSelector:#windowIcon"
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2390
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2391	^ Icon constantNamed:#'SystemBrowser class windowIcon'
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2392	ifAbsentPut:[
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2393	(Depth4Image new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2394	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2395	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2396	photometric:(#palette);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2397	bitsPerSample:(#( 4 ));
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2398	samplesPerPixel:(1);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2399	bits:(ByteArray
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2400	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');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2401	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 ];
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2402	mask:((ImageMask new)
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2403	width:13;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2404	height:11;
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2405	bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a');
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2406	yourself);
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2407	yourself
cdd8eaf8a5e3 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14390 diff changeset	2408	]
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	2409
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	2410	"Created: / 5.11.2001 / 09:39:03 / cg"
2846 b332c41c3daa allCallsOn fix Claus Gittinger <cg@exept.de> parents: 2830 diff changeset	2411	! !
2692 652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	2412
1203 ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	2413	!SystemBrowser class methodsFor:'interface specs'!
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	2414
1367 80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2415	metaSpec
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2416	"UIPainter new openOnClass: self andSelector: #metaSpec"
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2417
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2418	<resource: #canvas>
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2419	^#(#FullSpec
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2420	#window:
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2421	#(#WindowSpec
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2422	#label: 'Unlabeled Canvas'
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2423	#bounds: #(#Rectangle 27 249 325 334 ) )
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2424	#component:
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2425	#(#SpecCollection
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2426	#collection: #(
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2427	#(#RadioButtonSpec
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2428	#layout: #(#LayoutFrame 0 0 4 0 -1 0.575 20 0 )
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2429	#name: #instanceSwitch
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2430	#model: #metaHolder
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2431	#callbacksSpec:
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2432	#(#UIEventCallbackSubSpec
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2433	#requestValueChangeSelector: #changeRequest )
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2434	#label: 'instance'
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2435	#select: false )
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2436	#(#RadioButtonSpec
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2437	#layout: #(#LayoutFrame 1 0.575 4 0 -1 1 20 0 )
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2438	#name: #classSwitch
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2439	#model: #metaHolder
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2440	#callbacksSpec:
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2441	#(#UIEventCallbackSubSpec
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2442	#requestValueChangeSelector: #changeRequest )
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2443	#label: 'class'
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2444	#select: true ) ) ) )
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2445
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2446	"Created: / 30.10.1997 / 19:07:29 / cg"
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2447	!
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	2448
1203 ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	2449	methodMoveDialogSpec
16847 b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2450	"This resource specification was automatically generated
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2451	by the UIPainter of ST/X."
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2452
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2453	"Do not manually edit this!! If it is corrupted,
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2454	the UIPainter may not be able to read the specification."
1203 ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	2455
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	2456	"
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	2457	UIPainter new openOnClass:SystemBrowser andSelector:#methodMoveDialogSpec
16847 b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2458	SystemBrowser new openInterface:#methodMoveDialogSpec
1203 ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	2459	"
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	2460
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	2461	<resource: #canvas>
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	2462
16847 b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2463	^
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2464	#(FullSpec
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2465	name: methodMoveDialogSpec
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2466	window:
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2467	(WindowSpec
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2468	label: 'move method'
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2469	name: 'move method'
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2470	bounds: (Rectangle 0 0 387 118)
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2471	)
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2472	component:
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2473	(SpecCollection
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2474	collection: (
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2475	(HorizontalPanelViewSpec
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2476	name: 'horizontalPanelView'
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2477	layout: (LayoutFrame 0 0.0 -35 1.0 0 1.0 -2 1.0)
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2478	level: 0
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2479	horizontalLayout: fitSpace
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2480	verticalLayout: center
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2481	horizontalSpace: 4
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2482	verticalSpace: 4
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2483	component:
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2484	(SpecCollection
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2485	collection: (
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2486	(ActionButtonSpec
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2487	label: 'cancel'
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2488	name: 'actionButton2'
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2489	translateLabel: true
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2490	tabable: true
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2491	model: cancel
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2492	extent: (Point 187 27)
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2493	)
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2494	(ActionButtonSpec
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2495	label: 'move'
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2496	name: 'actionButton1'
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2497	translateLabel: true
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2498	tabable: true
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2499	model: accept
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2500	isDefault: true
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2501	extent: (Point 188 27)
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2502	)
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2503	)
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2504
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2505	)
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2506	)
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2507	(LabelSpec
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2508	label: 'move current method to which class:'
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2509	name: 'label'
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2510	layout: (LayoutFrame 2 0 2 0 -2 1.0 25 0)
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2511	style: largeLabelFont
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2512	foregroundColor: (Color 0.0 0.0 0.0)
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2513	backgroundColor: (Color 67.0 67.0 67.0)
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2514	translateLabel: true
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2515	adjust: left
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2516	)
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2517	(ComboBoxSpec
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2518	name: 'comboBox1'
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2519	layout: (LayoutFrame 2 0 29 0 -2 1.0 51 0)
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2520	tabable: true
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2521	model: className
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2522	comboList: classList
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2523	)
1203 ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	2524	)
16847 b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2525
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2526	)
b4eddbe34078 #UI_ENHANCEMENT by stefan Stefan Vogel <sv@exept.de> parents: 16691 diff changeset	2527	)
1203 ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	2528	! !
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	2529
19606 77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	2530	!SystemBrowser class methodsFor:'private'!
77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	2531
77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	2532	flushDefaultStyleSheet
77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	2533	EmphasisForChangedCode := EmphasisForDifferentPackage :=
77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	2534	EmphasisForModifiedBuffer := EmphasisForObsoleteCode :=
77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	2535	EmphasisForReadVariable := EmphasisForWrittenVariable := nil.
77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	2536
77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	2537	super flushDefaultStyleSheet
77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	2538	"
77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	2539	ApplicationModel flushDefaultStyleSheet
77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	2540	Tools::NewSystemBrowser initializeDefaultStyleSheet
77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	2541
77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	2542	"
77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	2543
77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	2544	"Created: / 15-09-2021 / 13:36:10 / Jan Vrany <jan.vrany@labware.com>"
77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	2545	! !
77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	2546
4860 8e1a4b990512 method category rename Claus Gittinger <cg@exept.de> parents: 4852 diff changeset	2547	!SystemBrowser class methodsFor:'private-helpers'!
36 ccde5a941840 * empty log message * claus parents: diff changeset	2548
2880 ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2549	askForPackageChangeFrom:oldPkg to:newPkg
3626 abf84bdbfdb2 Remove unused method vars Stefan Vogel <sv@exept.de> parents: 3621 diff changeset	2550	\|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	2551
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2552	box := OptionBox
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2553	title:
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2554	('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	2555	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	2556	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	2557	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	2558	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	2559	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	2560	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	2561
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2562	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	2563	bindWith:(oldPkg allBold)
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2564	with:(newPkg allBold))
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2565	numberOfOptions:3.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2566
3476 685f67f7e818 * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	2567	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	2568	box defaultButtonIndex:3.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2569	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	2570	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	2571	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	2572	box addVerticalSpace:10.
17043 6185cc2147c2 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16893 diff changeset	2573	chk := box addCheckBoxAtBottom:'Don''t show this dialog again (never keep)' on:(notAgain := false asValue).
8158 f7b891e7fb75 added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 8139 diff changeset	2574	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	2575	box resize.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2576	box showAtPointer.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2577	box destroy.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2578
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2579	(answer ~~ #cancel) ifTrue:[
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2580	notAgain value ifTrue:[
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2581	Class catchMethodRedefinitions:false.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2582	].
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2583	].
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2584	^ answer.
11291 d4d27edd6ab4 changed: #askForPackageChangeFrom:to: Claus Gittinger <cg@exept.de> parents: 11271 diff changeset	2585
d4d27edd6ab4 changed: #askForPackageChangeFrom:to: Claus Gittinger <cg@exept.de> parents: 11271 diff changeset	2586	"Modified: / 28-02-2012 / 10:41:52 / cg"
2880 ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2587	!
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2588
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2589	showNoneFound
3244 1e41eccb08b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	2590	self warn:(self classResources string:'None found.').
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2591	!
36 ccde5a941840 * empty log message * claus parents: diff changeset	2592
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2593	showNoneFound:what
1620 51341ec8360b checkin from browser Claus Gittinger <cg@exept.de> parents: 1573 diff changeset	2594	\|rs\|
51341ec8360b checkin from browser Claus Gittinger <cg@exept.de> parents: 1573 diff changeset	2595
51341ec8360b checkin from browser Claus Gittinger <cg@exept.de> parents: 1573 diff changeset	2596	rs := self classResources.
3244 1e41eccb08b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	2597	self information:((rs string:what) , (rs string:'...\\... none found.')) withCRs.
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2598	! !
36 ccde5a941840 * empty log message * claus parents: diff changeset	2599
4860 8e1a4b990512 method category rename Claus Gittinger <cg@exept.de> parents: 4852 diff changeset	2600	!SystemBrowser class methodsFor:'private-instance creation'!
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2601
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2602	newWithLabel:aString setupBlock:aBlock
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2603	"common helper method for all creation methods"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2604
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2605	^ self newWithLabel:aString setupBlock:aBlock onDevice:Screen current
36 ccde5a941840 * empty log message * claus parents: diff changeset	2606	!
ccde5a941840 * empty log message * claus parents: diff changeset	2607
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2608	newWithLabel:aString setupBlock:aBlock onDevice:aWorkstation
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2609	"common helper method for all creation methods"
36 ccde5a941840 * empty log message * claus parents: diff changeset	2610
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2611	\|newBrowser\|
45 950b84ba89e6 * empty log message * claus parents: 41 diff changeset	2612
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2613	newBrowser := BrowserView onDevice:aWorkstation.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2614	newBrowser title:aString.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2615	aBlock value:newBrowser.
45 950b84ba89e6 * empty log message * claus parents: 41 diff changeset	2616
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2617	newBrowser open.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2618	^ newBrowser
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2619	!
45 950b84ba89e6 * empty log message * claus parents: 41 diff changeset	2620
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2621	newWithLabel:aString setupSelector:aSymbol arg:arg
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2622	"common helper method for all creation methods"
36 ccde5a941840 * empty log message * claus parents: diff changeset	2623
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2624	^ self newWithLabel:aString setupSelector:aSymbol arg:arg onDevice:Screen current
36 ccde5a941840 * empty log message * claus parents: diff changeset	2625	!
ccde5a941840 * empty log message * claus parents: diff changeset	2626
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2627	newWithLabel:aString setupSelector:aSymbol arg:arg onDevice:aWorkstation
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2628	"common helper method for all creation methods"
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	\|newBrowser\|
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2631
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2632	newBrowser := BrowserView onDevice:aWorkstation.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2633	newBrowser title:aString.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2634	newBrowser perform:aSymbol with:arg.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2635	newBrowser open.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2636	^ newBrowser
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2637	! !
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2638
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2639	!SystemBrowser class methodsFor:'special search startup'!
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2640
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2641	allCallsOn:aSelectorString
16449 d4471f0310b6 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16443 diff changeset	2642	"return a collection of methods which send aSelector.
d4471f0310b6 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16443 diff changeset	2643	This takes some time, because source code is parsed to see
d4471f0310b6 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16443 diff changeset	2644	if there is really a message send inside (and not just a symbol reference)"
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2645
9007 7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2646	^ self
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2647	allCallsOn:aSelectorString
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2648	in:(Smalltalk allClasses)
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2649	ignoreCase:false
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2650	match:false
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2651
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2652	"
16449 d4471f0310b6 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16443 diff changeset	2653	Time millisecondsToRun:[
d4471f0310b6 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16443 diff changeset	2654	SystemBrowser allCallsOn:#at:put:
d4471f0310b6 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16443 diff changeset	2655	].
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2656	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2657
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2658	"Created: 24.1.1997 / 19:42:57 / cg"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2659	!
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2660
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2661	allCallsOn:aSelectorString in:aCollectionOfClasses
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2662	"return a collection of methods which send aSelector.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2663	Methods from classes in aCollectionOfClasses are searched only."
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2664
9007 7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2665	^ self
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2666	allCallsOn:aSelectorString
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2667	in:aCollectionOfClasses
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2668	ignoreCase:false
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2669	match:false
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2670	!
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2671
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2672	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	2673	"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	2674	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	2675
9007 7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2676	^ self
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2677	allCallsOn:aSelectorString
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2678	in:aCollectionOfClasses
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2679	ignoreCase:ignoreCase
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2680	match:true
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2681
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2682	"
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2683	SystemBrowser allCallsOn:#at:put: in:(Smalltalk allClasses)
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2684	"
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2685
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2686	"Modified: 18.4.1997 / 10:32:50 / cg"
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2687	!
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2688
16395 cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	2689	allCallsOn:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatchArg
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2690	"return a collection of methods which send aSelector.
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2691	Methods from classes in aCollectionOfClasses are searched only."
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2692
16395 cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	2693	\|doMatch sel searchBlock classesSearched\|
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	2694
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	2695	doMatch := doMatchArg.
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	2696	(doMatch and:[aSelectorString includesMatchCharacters not]) ifTrue:[
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	2697	doMatch := false.
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	2698	].
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	2699
3471 4c4b41516d96 care for empty selector in allCallsOn. Claus Gittinger <cg@exept.de> parents: 3470 diff changeset	2700	aSelectorString size == 0 ifTrue:[ ^ #() ].
16395 cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	2701	(doMatch or:[ignoreCase]) ifFalse:[
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	2702	"/ no need to search, if there is no such symbol in the system
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	2703	sel := aSelectorString asSymbolIfInterned.
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	2704	sel isNil ifTrue:[ ^ #() ]. "/ none (no such selector)
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2705	].
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	2706
2901 8d162dedd271 * empty log message * Claus Gittinger <cg@exept.de> parents: 2892 diff changeset	2707	classesSearched := aCollectionOfClasses.
16395 cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	2708	doMatch ifFalse:[
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	2709	"/ exclude all javaClasses, if the selector cannot be a valid java-selector
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2710	(aSelectorString includes:$() ifFalse:[
12831 f7fe86345bc4 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12822 diff changeset	2711	classesSearched := classesSearched reject:[:eachClass \| eachClass theNonMetaclass isJavaClass ].
2846 b332c41c3daa allCallsOn fix Claus Gittinger <cg@exept.de> parents: 2830 diff changeset	2712	].
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2713	].
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	2714
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2715	searchBlock := self searchBlockForAllCallsOn:aSelectorString ignoreCase:ignoreCase match:doMatch.
4332 c8efd47b1a1c * empty log message * Claus Gittinger <cg@exept.de> parents: 4308 diff changeset	2716	searchBlock isNil ifTrue:[
c8efd47b1a1c * empty log message * Claus Gittinger <cg@exept.de> parents: 4308 diff changeset	2717	^ #() "/ none (no such selector)
c8efd47b1a1c * empty log message * Claus Gittinger <cg@exept.de> parents: 4308 diff changeset	2718	].
2901 8d162dedd271 * empty log message * Claus Gittinger <cg@exept.de> parents: 2892 diff changeset	2719	^ self allMethodsIn:classesSearched where:searchBlock
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2720
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2721	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2722	SystemBrowser allCallsOn:#at:put: in:(Smalltalk allClasses)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2723	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2724
1143 0707461e582a avoid compilation of lazy methods when searching for senders Claus Gittinger <cg@exept.de> parents: 1059 diff changeset	2725	"Modified: 18.4.1997 / 10:32:50 / cg"
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2726	!
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2727
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2728	allMethodsIn:aCollectionOfClasses inst:wantInst class:wantClass where:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2729	"return a collection of methods which pass the given test.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2730	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	2731	considered.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2732	Only classes in aCollectionOfClasses are inspected in the search"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2733
2769 768b6aa2fb5f eliminated a message Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	2734	\|list activePriority\|
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2735
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2736	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2737	since this may take a long time, lower my priority ...
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2738	"
2769 768b6aa2fb5f eliminated a message Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	2739	activePriority := Processor activePriority.
2295 4e05198e7dd8 execute BG tasks at a prio range, to ensure progress. Claus Gittinger <cg@exept.de> parents: 2208 diff changeset	2740	Processor activeProcess
2769 768b6aa2fb5f eliminated a message Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	2741	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	2742	do:[
2484 afd8d8dbd9e2 care vor methods being found in multiple classes Claus Gittinger <cg@exept.de> parents: 2439 diff changeset	2743	\|checkedClasses checkBlock detectedMethods\|
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2744
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2745	checkedClasses := IdentitySet new.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2746	list := OrderedCollection new.
2484 afd8d8dbd9e2 care vor methods being found in multiple classes Claus Gittinger <cg@exept.de> parents: 2439 diff changeset	2747	detectedMethods := IdentitySet new.
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2748
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2749	checkBlock := [:cls \|
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2750	(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	2751	(cls isObsolete and:[cls isLoaded]) ifTrue:[
2882 2a12342fef79 * empty log message * Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	2752	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	2753	] ifFalse:[
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2754	cls methodDictionary keysAndValuesDo:[:sel :method \|
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2755	(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	2756	"/ 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	2757	(detectedMethods includes:method) ifFalse:[
afd8d8dbd9e2 care vor methods being found in multiple classes Claus Gittinger <cg@exept.de> parents: 2439 diff changeset	2758	list add:method.
afd8d8dbd9e2 care vor methods being found in multiple classes Claus Gittinger <cg@exept.de> parents: 2439 diff changeset	2759	detectedMethods add:method
afd8d8dbd9e2 care vor methods being found in multiple classes Claus Gittinger <cg@exept.de> parents: 2439 diff changeset	2760	]
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2761	]
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2762	].
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2763	checkedClasses add:cls.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2764	]
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2765	]
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2766	].
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2767
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2768	aCollectionOfClasses do:[:aClass \|
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2769	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2770	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	2771	implementors or senders)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2772	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2773	wantInst ifTrue:[
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2774	"/ Transcript show:'searching '; show:aClass name; showCR:' ...'; endEntry.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2775	checkBlock value:aClass
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2776	].
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2777	wantClass ifTrue:[
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2778	"/ Transcript show:'searching '; show:aClass class name; showCR:' ...'; endEntry.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2779	checkBlock value:(aClass class)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2780	].
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2781	Processor yield
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2782	]
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2783	].
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2784	^ list
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2785
2484 afd8d8dbd9e2 care vor methods being found in multiple classes Claus Gittinger <cg@exept.de> parents: 2439 diff changeset	2786	"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	2787	"Modified: / 14.12.1999 / 14:59:02 / cg"
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2788	!
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2789
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2790	allMethodsIn:aCollectionOfClasses where:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2791	"return a collection of methods which pass the given test.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2792	Only classes in aCollectionOfClasses are inspected in the search"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2793
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2794	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2795	allMethodsIn:aCollectionOfClasses
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2796	inst:true
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2797	class:true
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2798	where:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2799
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2800	"Created: 24.1.1997 / 19:41:49 / cg"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2801	!
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2802
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2803	aproposSearch:aString
2655 9e90bbd1eb18 apropos search is now: selectors containing Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2804	"browse all methods, which have aString in their selector."
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2805
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2806	^ self aproposSearch:aString in:(Smalltalk allClasses)
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	2807
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2808	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2809
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2810	aproposSearch:aString in:aCollectionOfClasses
2655 9e90bbd1eb18 apropos search is now: selectors containing Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2811	"browse all methods, which have aString.
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2812	This is relatively slow, since all source must be processed."
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2813
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2814	\|matchString list s searchBlock browser\|
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2815
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2816	matchString := '' , aString , ''.
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2817
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2818	list := OrderedCollection new.
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2819
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2820	(aString includesMatchCharacters) ifTrue:[
2655 9e90bbd1eb18 apropos search is now: selectors containing Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2821	s := '' , aString asLowercase , ''.
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2822	"a matchString"
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2823	searchBlock := [:text \| (text asCollectionOfLinesfindFirst:[:line \| s match:line]) ~~ 0].
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2824	] ifFalse:[
2655 9e90bbd1eb18 apropos search is now: selectors containing Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2825	searchBlock := [:source \| (source findString:aString asLowercase) ~~ 0]
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2826	].
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2827
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2828	browser := self browseMethodsIn:aCollectionOfClasses
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2829	where:[:class :method :sel \|
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2830	\|comment\|
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2831
2655 9e90bbd1eb18 apropos search is now: selectors containing Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2832	(searchBlock value:sel asLowercase)
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2833	]
2729 9af04074a4bb no direct access to super-class-instvars Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	2834	title:(self classResources string:'selectors containing: %1' with:aString).
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2835
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2836	browser notNil ifTrue:[
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2837	browser autoSearch:aString
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2838	].
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2839	^ browser
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2840
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2841	"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2842	SystemBrowser aproposSearch:'append' in:(Collection withAllSubclasses)
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2843	SystemBrowser aproposSearch:'add' in:(Collection withAllSubclasses)
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2844	SystemBrowser aproposSearch:'sort' in:(Collection withAllSubclasses)
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2845	SystemBrowser aproposSearch:'[Aa]bsent' in:(Collection withAllSubclasses)
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2846	"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2847
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2848	"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	2849	!
6f4460d5a09d added supersend searches; offer comparing the current version with the Claus Gittinger <cg@exept.de> parents: 203 diff changeset	2850
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2851	browseAllCallsOn:aSelectorString
4490 de7216d4a28a * empty log message * Claus Gittinger <cg@exept.de> parents: 4350 diff changeset	2852	"launch a browser for all senders of aSelector.
de7216d4a28a * empty log message * Claus Gittinger <cg@exept.de> parents: 4350 diff changeset	2853	Notice: better go via Smalltalk browseAllCallsOn:, which honors the tool-preferences"
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2854
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2855	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2856	browseAllCallsOn:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2857	in:(Smalltalk allClasses)
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2858
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2859	"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2860	SystemBrowser browseAllCallsOn:#+
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2861	"
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2862
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2863	"Created: 9.12.1995 / 18:00:41 / cg"
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2864	"Modified: 10.7.1996 / 10:26:15 / cg"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2865	!
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2866
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2867	browseAllCallsOn:aSelectorString in:aSetOfClasses
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2868	"launch a browser for all senders of aSelector"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2869
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2870	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2871	browseAllCallsOn:aSelectorString
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2872	in:aSetOfClasses
4200 3859a6fee797 show none found Claus Gittinger <cg@exept.de> parents: 4198 diff changeset	2873	title:(self classResources string:'Senders of: %1' with:aSelectorString)
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2874
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2875	"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2876	SystemBrowser browseAllCallsOn:#+ in:(Number withAllSubclasses)
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2877	"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2878
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2879	"Created: 10.7.1996 / 10:25:49 / cg"
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2880	"Modified: 24.1.1997 / 19:49:34 / cg"
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2881	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2882
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2883	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	2884	"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	2885
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2886	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2887	browseAllCallsOn:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2888	in:aSetOfClasses
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2889	ignoreCase:ignoreCase
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	2890	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	2891
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2892	"
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2893	SystemBrowser browseAllCallsOn:#+ in:(Number withAllSubclasses)
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2894	"
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2895
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2896	"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	2897	"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	2898	!
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2899
11271 efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2900	browseAllCallsOn:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase match:match title:titleArg
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2901	"launch a browser for all senders of aSelector in aCollectionOfClasses"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2902
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2903	\|list list2 browser selWithColon title rs\|
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2904
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2905	title := titleArg.
4200 3859a6fee797 show none found Claus Gittinger <cg@exept.de> parents: 4198 diff changeset	2906
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2907	list := self allCallsOn:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase match:true.
4200 3859a6fee797 show none found Claus Gittinger <cg@exept.de> parents: 4198 diff changeset	2908	list isEmpty ifTrue:[
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2909	aSelectorString numArgs == 0 ifTrue:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2910	selWithColon := aSelectorString , ':'.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2911	selWithColon knownAsSymbol ifTrue:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2912	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	2913	].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2914	].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2915	list2 size == 0 ifTrue:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2916	self showNoneFound:title.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2917	^ nil
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2918	].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2919	rs := self classResources.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2920	(Dialog confirm:((rs string:title) ,
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2921	(rs string:'...\\... none found.') ,
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2922	(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	2923	with:list2 size
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2924	with:selWithColon allBold)) withCRs) ifFalse:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2925	^ nil
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2926	].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2927	list := list2.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2928	title := title , ':'.
4200 3859a6fee797 show none found Claus Gittinger <cg@exept.de> parents: 4198 diff changeset	2929	].
3859a6fee797 show none found Claus Gittinger <cg@exept.de> parents: 4198 diff changeset	2930
3859a6fee797 show none found Claus Gittinger <cg@exept.de> parents: 4198 diff changeset	2931	browser := self browseMethods:list title:title.
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2932	browser notNil ifTrue:[
648 6ec086b7972c Move method's literals form literalArray to indexed instvars. Stefan Vogel <sv@exept.de> parents: 634 diff changeset	2933	\|s\|
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2934
8139 acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2935	"/ "
acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2936	"/ 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	2937	"/ 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	2938	"/ "
acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2939	"/ s := aSelectorString.
acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2940	"/ (s includes:$:) ifTrue:[
acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2941	"/ s := s copyTo:(s indexOf:$:)
acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2942	"/ ].
acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2943	"/ browser autoSearch:s
16471 ad521c8abbbb #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16468 diff changeset	2944	browser setSearchSelector:aSelectorString ignoreCase:ignoreCase doMatch:true.
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2945	].
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2946	^ browser
648 6ec086b7972c Move method's literals form literalArray to indexed instvars. Stefan Vogel <sv@exept.de> parents: 634 diff changeset	2947
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2948	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2949	SystemBrowser
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2950	browseAllCallsOn:#+
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2951	in:(Number withAllSubclasses)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2952	title:'just a test'
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2953	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2954
11271 efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2955	"Modified: / 24-01-1997 / 19:48:54 / cg"
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2956	"Created: / 14-02-2012 / 14:19:51 / cg"
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2957	!
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2958
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2959	browseAllCallsOn:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase title:titleArg
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2960	"launch a browser for all senders of aSelector in aCollectionOfClasses"
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2961
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2962	^ self
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2963	browseAllCallsOn:aSelectorString
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2964	in:aCollectionOfClasses
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2965	ignoreCase:ignoreCase
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2966	match:true
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2967	title:titleArg
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2968
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2969	"
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2970	SystemBrowser
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2971	browseAllCallsOn:#+
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2972	in:(Number withAllSubclasses)
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2973	title:'just a test'
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2974	"
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2975
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2976	"Modified: / 14-02-2012 / 14:20:17 / cg"
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2977	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2978
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2979	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	2980	"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	2981
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2982	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2983	browseAllCallsOn:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2984	in:aCollectionOfClasses
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2985	ignoreCase:false
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2986	title:title
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2987
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2988	"
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2989	SystemBrowser
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2990	browseAllCallsOn:#+
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2991	in:(Number withAllSubclasses)
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2992	title:'just a test'
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2993	"
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2994
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2995	"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	2996	!
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2997
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2998	browseCallsOn:aSelectorString under:aClass
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2999	"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	3000
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	3001	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	3002	browseAllCallsOn:aSelectorString
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	3003	in:(aClass withAllSubclasses)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	3004	title:(self classResources
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	3005	string:'Senders of: %1 (in and below %2)'
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	3006	with:aSelectorString
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	3007	with:aClass name)
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3008
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3009	"
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3010	SystemBrowser browseCallsOn:#+ under:Number
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3011	"
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3012
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3013	"Created: 9.12.1995 / 17:59:57 / cg"
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	3014	"Modified: 24.1.1997 / 19:50:33 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3015	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3016
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3017	browseClassRefsTo:aString in:aCollectionOfClasses modificationsOnly:modsOnly
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3018	"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	3019	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	3020	classvar is modified"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3021
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3022	^ self browseRefsTo:aString classVars:true in:aCollectionOfClasses modificationsOnly:modsOnly
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3023	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3024
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3025	browseClassRefsTo:varName in:aCollectionOfClasses modificationsOnly:modsOnly title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3026	"launch a browser for all methods in aCollectionOfClasses,
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3027	where the classVar named aString is referenced;
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3028	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	3029
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3030	^ self browseRefsTo:varName classVars:true in:aCollectionOfClasses modificationsOnly:modsOnly title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3031	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3032
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3033	browseClassRefsTo:aString under:aClass modificationsOnly:modsOnly
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3034	"launch a browser for all methods in aClass and subclasses
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3035	where the classVar named aString is referenced;
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3036	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	3037
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3038	^ self browseClassRefsTo:aString in:(aClass withAllSubclasses) modificationsOnly:modsOnly
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3039
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3040	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3041
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3042	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	3043	"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	3044	resource in aCollectionOfClasses.
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3045	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	3046	are parsed.
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3047	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	3048	browseForResource:#style containing:nil in:... title:...
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3049	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	3050	browseForResource:#style containing:'arrowButtonDownForm' in:... title:..."
573 e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	3051
742 2ef5e22d8983 code cleanup (unused vars eliminated) Claus Gittinger <cg@exept.de> parents: 675 diff changeset	3052	\|browser searchBlock\|
573 e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	3053
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	3054	"/ search for any resource can be done without looking
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	3055	"/ at the source ...
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	3056	(aResourceSymbol isNil and:[item isNil]) ifTrue:[
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	3057	searchBlock := [:class :method :s \| method hasResource]
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	3058	] ifFalse:[
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	3059	searchBlock := [:class :method :s \|
1573 4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3060	\|rsrc val found\|
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3061
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	3062	found := false.
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	3063	method hasResource ifTrue:[
1573 4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3064	rsrc := method resources.
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3065	rsrc notNil ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3066	aResourceSymbol isNil ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3067	item isNil ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3068	found := true
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3069	] ifFalse:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3070	rsrc isCollection ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3071	rsrc keysAndValuesDo:[:rsrc :val \|
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3072	val isCollection ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3073	val do:[:v \|
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3074	found := item match:v printString
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3075	]
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3076	] ifFalse:[
1573 4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3077	found := item match:val printString
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3078	]
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3079	]
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	3080	] ifFalse:[
1573 4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3081	found := item match:rsrc printString
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3082	]
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3083	]
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3084	] ifFalse:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3085	(rsrc includesKey:aResourceSymbol) ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3086	item isNil ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3087	found := true
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3088	] ifFalse:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3089	rsrc isCollection ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3090	val := rsrc at:aResourceSymbol.
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3091	val isCollection ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3092	val do:[:v \|
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3093	found := item match:v printString
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3094	]
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	3095	] ifFalse:[
1573 4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3096	found := item match:val printString
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	3097	]
1573 4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3098	] ifFalse:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3099	found := item match:rsrc printString
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	3100	]
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3101	]
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3102	]
573 e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	3103	]
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	3104	].
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3105	].
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	3106	found
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	3107	].
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	3108	].
573 e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	3109
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	3110	browser := self browseMethodsIn:aCollectionOfClasses
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	3111	where:searchBlock
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	3112	title:title.
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	3113	browser notNil ifTrue:[
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	3114	browser autoSearch:'resource:'
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	3115	].
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	3116	^ browser
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	3117
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	3118	"
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	3119	SystemBrowser
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3120	browseForResource:nil
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3121	in:Smalltalk allClasses
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3122	title:'methods with a resource'
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3123	"
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3124	"
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3125	SystemBrowser
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3126	browseForResource:#style
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3127	containing:nil
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3128	in:Smalltalk allClasses
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3129	title:'methods with a #style resource'
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3130	"
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3131	"
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3132	SystemBrowser
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3133	browseForResource:#style
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3134	containing:'arrowButton*'
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3135	in:Smalltalk allClasses
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3136	title:'methods with a #style resource'
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3137	"
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3138
1573 4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	3139	"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	3140	!
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3141
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3142	browseForResource:aResourceSymbol in:aCollectionOfClasses title:title
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3143	"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	3144	resource in aCollectionOfClasses"
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3145
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3146	^ self
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3147	browseForResource:aResourceSymbol
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3148	containing:nil
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3149	in:aCollectionOfClasses
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3150	title:title
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3151
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3152	"
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3153	SystemBrowser
573 e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	3154	browseForResource:#style
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	3155	in:Smalltalk allClasses
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3156	title:'methods accessing styleSheet values'
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3157	"
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3158	"
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3159	SystemBrowser
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3160	browseForResource:#keyboard
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3161	in:Smalltalk allClasses
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3162	title:'methods handling keyboard events'
573 e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	3163	"
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	3164	"
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	3165	SystemBrowser
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	3166	browseForResource:nil
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	3167	in:Smalltalk allClasses
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	3168	title:'methods with a resource'
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	3169	"
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	3170
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	3171	"Modified: 9.1.1997 / 12:44:38 / cg"
573 e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	3172	!
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	3173
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3174	browseForString:aString
16471 ad521c8abbbb #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16468 diff changeset	3175	<resource: #obsolete>
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3176	"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	3177	This may be slow, since source-code has to be scanned."
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3178
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3179	^ self browseForString:aString in:(Smalltalk allClasses) ignoreCase:false
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3180
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3181	"Modified: / 18.6.1998 / 16:42:39 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3182	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3183
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3184	browseForString:aString in:aCollectionOfClasses
16471 ad521c8abbbb #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16468 diff changeset	3185	<resource: #obsolete>
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3186	"launch a browser for all methods in aCollectionOfClasses
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3187	containing a string in their source.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3188	This may be slow, since source-code has to be scanned."
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3189
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3190	^ self
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3191	browseForString:aString
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3192	in:aCollectionOfClasses
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3193	ignoreCase:false
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3194
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3195	"
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3196	SystemBrowser browseForString:'all' in:(Array with:Object)
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3197	SystemBrowser browseForString:'should' in:(Array with:Object)
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3198	SystemBrowser browseForString:'[eE]rror' in:(Array with:Object)
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3199	"
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3200
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3201	"Created: / 9.12.1995 / 18:03:12 / cg"
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3202	"Modified: / 18.6.1998 / 16:43:27 / cg"
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3203	!
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3204
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3205	browseForString:aString in:aCollectionOfClasses ignoreCase:ignoreCase
16471 ad521c8abbbb #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16468 diff changeset	3206	<resource: #obsolete>
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3207	"launch a browser for all methods in aCollectionOfClasses
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3208	containing a string in their source.
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3209	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	3210
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3211	\|browser searchBlock title s\|
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3212
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	3213	title := self classResources string:'Methods containing: %1' with:aString displayString.
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3214
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3215	(aString includesMatchCharacters
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3216	or:[ignoreCase]) ifTrue:[
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3217	s := '' , aString , ''.
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3218	"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	3219	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	3220	\|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	3221	src := m source.
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3222	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	3223	('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	3224	false
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3225	] ifFalse:[
13438 06f6d5fc73ef class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13365 diff changeset	3226	s match:src caseSensitive:ignoreCase not
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3227	]
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	3228	]
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3229	] 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	3230	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	3231	\|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	3232
b14b3ab39af6 dont crash if searching a string in a method which has no accessable source Claus Gittinger <cg@exept.de> parents: 436 diff changeset	3233	src := m source.
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3234	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	3235	('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	3236	false
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3237	] ifFalse:[
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3238	(src findString:aString) ~~ 0
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3239	]
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	3240	]
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3241	].
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3242	browser := self browseMethodsIn:aCollectionOfClasses where:searchBlock title:title.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3243
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3244	browser notNil ifTrue:[
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3245	browser autoSearch:aString ignoreCase:ignoreCase
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3246	].
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3247	^ browser
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3248
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3249	"
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3250	SystemBrowser browseForString:'all' in:(Array with:Object)
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3251	SystemBrowser browseForString:'should' in:(Array with:Object)
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3252	SystemBrowser browseForString:'[eE]rror' in:(Array with:Object)
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3253	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3254
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3255	"Created: / 18.6.1998 / 16:42:50 / cg"
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	3256	"Modified: / 18.6.1998 / 16:51:25 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3257	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3258
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3259	browseForSymbol:aSymbol
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3260	"launch a browser for all methods referencing aSymbol"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3261
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3262	^ self
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3263	browseForSymbol:aSymbol
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	3264	title:(self classResources string:'Users of: %1' with:aSymbol)
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3265	warnIfNone:true
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3266
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3267	"Created: 9.12.1995 / 18:04:34 / cg"
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3268	"Modified: 10.7.1996 / 10:35:34 / cg"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3269	!
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3270
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3271	browseForSymbol:aSymbol in:aSetOfClasses title:title warnIfNone:doWarn
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3272	"launch a browser for all methods referencing aSymbol"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3273
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3274	^ self
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3275	browseForSymbol:aSymbol
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3276	in:aSetOfClasses
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3277	title:title
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3278	warnIfNone:doWarn
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3279	searchFor:aSymbol
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3280	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3281
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3282	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	3283	"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	3284
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3285	\|browser searchBlock sym\|
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3286
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3287	(aSymbol includesMatchCharacters) ifTrue:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3288	"a matchString"
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3289	searchBlock := [:c :m :s \|
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3290	(m literalsDetect:[:aLiteral\|
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3291	(aLiteral isMemberOf:Symbol)
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3292	and:[aSymbol match:aLiteral]
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3293	] ifNone:nil) notNil
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3294	].
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3295	] ifFalse:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3296	"
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3297	can do a faster search
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3298	"
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3299	sym := aSymbol asSymbolIfInterned.
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3300	sym isNil ifTrue:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3301	self showNoneFound:title.
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3302	^ nil
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3303	].
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3304
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3305	searchBlock := [:c :m :s \|
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3306	(m literalsDetect:[:aLiteral\|
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3307	(sym == aLiteral)
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3308	] ifNone:nil) notNil
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3309	].
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3310	].
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3311	doWarn ifFalse:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3312	WarningSignal ignoreIn:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3313	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	3314	]
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3315	] ifTrue:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3316	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	3317	].
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3318
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3319	(browser notNil
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3320	and:[searchString notNil]) ifTrue:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3321	browser autoSearch:searchString
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3322	].
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3323	^ browser
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3324
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3325	"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	3326	"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	3327	"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	3328	!
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3329
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3330	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	3331	"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	3332
11452 09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	3333	\|browser searchBlock\|
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	3334
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	3335	searchBlock := self searchBlockForSymbol:aSymbol.
12866 dfc55f180f52 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12844 diff changeset	3336	searchBlock == false ifTrue:[
dfc55f180f52 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12844 diff changeset	3337	actionIfNoneFound value.
dfc55f180f52 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12844 diff changeset	3338	^ nil
dfc55f180f52 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12844 diff changeset	3339	].
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3340
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3341	WarningSignal ignoreIn:[
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3342	InformationSignal ignoreIn:[
375 a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	3343	browser := self browseMethodsWhere:searchBlock title:title.
a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	3344	]
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3345	].
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3346	browser isNil ifTrue:[
12866 dfc55f180f52 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12844 diff changeset	3347	actionIfNoneFound value.
dfc55f180f52 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12844 diff changeset	3348	^ nil
215 244f3a9b2a60 check for existing class in rename; avoid warnbox if no refs are found after rename Claus Gittinger <cg@exept.de> parents: 204 diff changeset	3349	].
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3350
11452 09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	3351	(browser notNil and:[searchString notNil]) ifTrue:[
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3352	browser autoSearch:searchString
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3353	].
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3354	^ browser
375 a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	3355
11452 09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	3356	"Modified: / 24-06-1996 / 14:39:07 / stefan"
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	3357	"Created: / 31-10-1996 / 14:45:08 / cg"
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	3358	"Modified: / 22-03-2012 / 06:58:07 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3359	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3360
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3361	browseForSymbol:aSymbol title:title warnIfNone:doWarn
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3362	"launch a browser for all methods referencing aSymbol"
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3363
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3364	^ self
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3365	browseForSymbol:aSymbol
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3366	title:title
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3367	warnIfNone:doWarn
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3368	searchFor:aSymbol
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3369
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3370	"Modified: 31.10.1996 / 14:45:38 / cg"
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3371	!
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3372
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3373	browseForSymbol:aSymbol title:title warnIfNone:doWarn searchFor:searchString
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3374	"launch a browser for all methods referencing aSymbol"
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3375
2414 a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	3376	\|b\|
a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	3377
a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	3378	doWarn ifTrue: [
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3379	b := [self showNoneFound:title]
2414 a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	3380	].
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3381	^ self
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3382	browseForSymbol:aSymbol
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3383	title:title
2414 a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	3384	ifNone:b
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3385	searchFor:searchString
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3386	!
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3387
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3388	browseImplementorsMatching:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3389	"launch a browser for all implementors of aSelector"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3390
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3391	^ self
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3392	browseImplementorsMatching:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3393	in:(Smalltalk allClasses)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3394
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3395	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3396	SystemBrowser browseImplementorsOf:#+
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3397	NewSystemBrowser browseImplementorsOf:#+
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3398	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3399
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3400	"Created: / 9.12.1995 / 18:01:18 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3401	"Modified: / 5.11.2001 / 17:31:11 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3402	!
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3403
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3404	browseImplementorsMatching:aSelectorString in:aSetOfClasses
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3405	"launch a browser for all implementors of aSelector"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3406
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3407	^ self
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3408	browseImplementorsMatching:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3409	in:aSetOfClasses
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3410	title:(self classResources string:'implementors of: %1' with:aSelectorString)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3411
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3412	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3413	SystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3414	NewSystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3415	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3416
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3417	"Created: / 10.7.1996 / 10:20:59 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3418	"Modified: / 5.11.2001 / 17:30:57 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3419	!
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3420
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3421	browseImplementorsMatching:aSelectorString in:aSetOfClasses ignoreCase:ignoreCase
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3422	"launch a browser for all implementors of aSelector"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3423
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3424	^ self
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3425	browseImplementorsMatching:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3426	in:aSetOfClasses
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3427	ignoreCase:ignoreCase
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3428	title:(self classResources string:'implementors of: %1' with:aSelectorString)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3429
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3430	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3431	SystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3432	NewSystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3433	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3434
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3435	"Created: / 10.7.1996 / 10:20:59 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3436	"Modified: / 5.11.2001 / 17:30:43 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3437	!
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3438
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3439	browseImplementorsMatching:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase title:title
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3440	"launch a browser for all implementors of aSelector in
16586 60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	3441	the classes contained in aCollectionOfClasses and their metaclasses"
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3442
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3443	\|list\|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3444
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3445	list := self
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3446	findImplementorsMatching:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3447	in:aCollectionOfClasses
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3448	ignoreCase:ignoreCase.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3449
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3450	list size == 0 ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3451	self showNoneFound:title.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3452	^ nil
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3453	].
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3454
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3455	^ self browseMethods:list asOrderedCollection title:title
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3456
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3457	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3458	SystemBrowser browseImplementorsOf:#+
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3459	in:(Array with:Number
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3460	with:Float
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3461	with:SmallInteger)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3462	title:'some implementors of +'
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3463
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3464	NewSystemBrowser browseImplementorsOf:#+
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3465	in:(Array with:Number
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3466	with:Float
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3467	with:SmallInteger)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3468	title:'some implementors of +'
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3469	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3470
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3471	"Modified: / 4.9.1995 / 17:33:39 / claus"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3472	"Modified: / 19.6.1996 / 14:19:02 / stefan"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3473	"Modified: / 5.11.2001 / 17:30:38 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3474	!
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3475
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3476	browseImplementorsMatching:aSelectorString in:aCollectionOfClasses title:title
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3477	"launch a browser for all implementors of aSelector in
16586 60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	3478	the classes contained in aCollectionOfClasses and their metaclasses"
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3479
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3480	^ self
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3481	browseImplementorsMatching:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3482	in:aCollectionOfClasses
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3483	ignoreCase:false
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3484	title:title
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3485	!
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3486
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3487	browseImplementorsMatching:aSelectorString under:aClass
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3488	"launch a browser for all implementors of aSelector in aClass
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3489	and its subclasses"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3490
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3491	^ self
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3492	browseImplementorsMatching:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3493	in:(aClass withAllSubclasses)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3494	title:(self classResources
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3495	string:'implementors of: %1 (in and below %2)'
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3496	with:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3497	with:aClass name)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3498
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3499	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3500	SystemBrowser browseImplementorsOf:#+ under:Integer
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3501	NewSystemBrowser browseImplementorsOf:#+ under:Integer
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3502	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3503
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3504	"Created: / 9.12.1995 / 18:06:09 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3505	"Modified: / 5.11.2001 / 17:30:15 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3506	!
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3507
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3508	browseImplementorsOf:aSelectorString
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3509	"launch a browser for all implementors of aSelector"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3510
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3511	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3512	browseImplementorsOf:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3513	in:(Smalltalk allClasses)
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3514
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3515	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3516	SystemBrowser browseImplementorsOf:#+
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3517	NewSystemBrowser browseImplementorsOf:#+
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3518	"
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3519
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3520	"Created: / 9.12.1995 / 18:01:18 / cg"
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3521	"Modified: / 5.11.2001 / 17:31:11 / cg"
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3522	!
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3523
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3524	browseImplementorsOf:aSelectorString in:aSetOfClasses
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3525	"launch a browser for all implementors of aSelector"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3526
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3527	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3528	browseImplementorsOf:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3529	in:aSetOfClasses
8704 f5b8ba75a158 some code cleanup Claus Gittinger <cg@exept.de> parents: 8702 diff changeset	3530	title:(self classResources string:'Implementors of: %1' with:aSelectorString allBold)
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3531
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3532	"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3533	SystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3534	NewSystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3535	"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3536
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3537	"Created: / 10.7.1996 / 10:20:59 / cg"
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3538	"Modified: / 5.11.2001 / 17:30:57 / cg"
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3539	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3540
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3541	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	3542	"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	3543
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3544	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3545	browseImplementorsOf:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3546	in:aSetOfClasses
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3547	ignoreCase:ignoreCase
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	3548	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	3549
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3550	"
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3551	SystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3552	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	3553	"
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3554
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3555	"Created: / 10.7.1996 / 10:20:59 / cg"
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3556	"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	3557	!
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3558
11271 efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	3559	browseImplementorsOf:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch title:titleArg
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	3560	"launch a browser for all implementors of aSelector in
16586 60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	3561	the classes contained in aCollectionOfClasses and their metaclasses"
11271 efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	3562
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	3563	doMatch ifTrue:[
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	3564	self browseImplementorsOf:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase title:titleArg
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	3565	] ifFalse:[
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	3566	self browseImplementorsMatching:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase title:titleArg
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	3567	].
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	3568
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	3569	"Created: / 14-02-2012 / 13:55:23 / cg"
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	3570	!
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	3571
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3572	browseImplementorsOf:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase title:titleArg
36 ccde5a941840 * empty log message * claus parents: diff changeset	3573	"launch a browser for all implementors of aSelector in
16586 60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	3574	the classes contained in aCollectionOfClasses and their metaclasses"
36 ccde5a941840 * empty log message * claus parents: diff changeset	3575
17180 4ac997b21c39 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17056 diff changeset	3576	\|list list2 rs selWithColon title top20 allSelectors choice but globalClass global globalName lcSelector\|
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3577
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3578	title := titleArg.
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	3579	list := self
15206 988be4fe570b class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15075 diff changeset	3580	findImplementors:aSelectorString
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	3581	in:aCollectionOfClasses
15206 988be4fe570b class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15075 diff changeset	3582	ignoreCase:ignoreCase
988be4fe570b class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15075 diff changeset	3583	match:(aSelectorString includesMatchCharacters and:[aSelectorString ~= '*']).
45 950b84ba89e6 * empty log message * claus parents: 41 diff changeset	3584
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	3585	list size == 0 ifTrue:[
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3586	aSelectorString numArgs == 0 ifTrue:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3587	selWithColon := aSelectorString , ':'.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3588	selWithColon knownAsSymbol ifTrue:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3589	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	3590	].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3591	].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3592	list2 size == 0 ifTrue:[
8678 7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3593	"/ self showNoneFound:title.
7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3594	"/ ^ self
17180 4ac997b21c39 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17056 diff changeset	3595	lcSelector := aSelectorString asLowercase.
4ac997b21c39 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17056 diff changeset	3596
8688 71d973fdd817 * empty log message * Claus Gittinger <cg@exept.de> parents: 8685 diff changeset	3597	allSelectors := Set new.
8678 7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3598	top20 := SortedCollection new.
17180 4ac997b21c39 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17056 diff changeset	3599	top20
4ac997b21c39 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17056 diff changeset	3600	sortBlock:[:a :b \|
4ac997b21c39 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17056 diff changeset	3601	\|isPrefixOfA isPrefixOfB aDist bDist\|
4ac997b21c39 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17056 diff changeset	3602
4ac997b21c39 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17056 diff changeset	3603	isPrefixOfA := (a asLowercase startsWith:lcSelector).
4ac997b21c39 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17056 diff changeset	3604	isPrefixOfB := (b asLowercase startsWith:lcSelector).
4ac997b21c39 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17056 diff changeset	3605	(isPrefixOfA and:[isPrefixOfB not])
4ac997b21c39 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17056 diff changeset	3606	or:[
4ac997b21c39 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17056 diff changeset	3607	aDist := (a spellAgainst:aSelectorString).
4ac997b21c39 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17056 diff changeset	3608	bDist := (b spellAgainst:aSelectorString).
4ac997b21c39 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17056 diff changeset	3609	(isPrefixOfA and:[isPrefixOfB and:[aDist > bDist]])
4ac997b21c39 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17056 diff changeset	3610	or:[ isPrefixOfB not and:[ aDist > bDist ]]]
4ac997b21c39 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17056 diff changeset	3611	].
8759 1ef143757126 * empty log message * Claus Gittinger <cg@exept.de> parents: 8704 diff changeset	3612	Smalltalk allMethodsWithSelectorDo:[:eachMethod :eachSelector \|
17180 4ac997b21c39 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17056 diff changeset	3613	((eachSelector asLowercase startsWith:lcSelector) or:[(eachSelector spellAgainst:aSelectorString) > 50]) ifTrue:[
8759 1ef143757126 * empty log message * Claus Gittinger <cg@exept.de> parents: 8704 diff changeset	3614	(allSelectors includes:eachSelector) ifFalse:[
1ef143757126 * empty log message * Claus Gittinger <cg@exept.de> parents: 8704 diff changeset	3615	allSelectors add:eachSelector.
1ef143757126 * empty log message * Claus Gittinger <cg@exept.de> parents: 8704 diff changeset	3616	top20 add:eachSelector.
1ef143757126 * empty log message * Claus Gittinger <cg@exept.de> parents: 8704 diff changeset	3617	top20 size > 20 ifTrue:[ top20 removeLast. allSelectors := top20 asSet ].
1ef143757126 * empty log message * Claus Gittinger <cg@exept.de> parents: 8704 diff changeset	3618	]
8678 7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3619	]
7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3620	].
9685 629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3621	top20 isEmpty ifTrue:[
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3622	Smalltalk allMethodsWithSelectorDo:[:eachMethod :eachSelector \|
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3623	(eachSelector asLowercase spellAgainst:lcSelector) > 50 ifTrue:[
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3624	(allSelectors includes:eachSelector) ifFalse:[
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3625	allSelectors add:eachSelector.
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3626	top20 add:eachSelector.
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3627	top20 size > 20 ifTrue:[ top20 removeLast. allSelectors := top20 asSet ].
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3628	]
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3629	]
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3630	].
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3631	].
15499 387151a8648c class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15362 diff changeset	3632
387151a8648c class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15362 diff changeset	3633	"/ for your convenience: look for a global class by that name, and offer browsing the class
12621 a0af9112b051 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12575 diff changeset	3634	but := ''.
13128 6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3635	(globalClass := Smalltalk classNamed:aSelectorString) notNil ifTrue:[
12575 7fd56ce01f68 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12504 diff changeset	3636	top20 := (OrderedCollection withAll:top20) addFirst:('>> Browse class ',aSelectorString,' <<'); yourself.
12621 a0af9112b051 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12575 diff changeset	3637	but := '\But there exists a class by that name.'.
13128 6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3638	] ifFalse:[
6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3639	(aSelectorString knownAsSymbol
6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3640	and:[ (global := Smalltalk at:aSelectorString asSymbol) notNil ])
6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3641	ifTrue:[
6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3642	global isBehavior ifTrue:[
6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3643	top20 := (OrderedCollection withAll:top20) addFirst:('>> Browse alias ',aSelectorString,' <<'); yourself.
6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3644	but := '\But there exists a global alias by that name.'.
6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3645	globalClass := global
6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3646	] ifFalse:[
6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3647	top20 := (OrderedCollection withAll:top20) addFirst:('>> Browse class of ',aSelectorString,' <<'); yourself.
6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3648	but := '\But there exists a global by that name.'.
6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3649	globalClass := global class.
6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3650	]
6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3651	].
12575 7fd56ce01f68 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12504 diff changeset	3652	].
15499 387151a8648c class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15362 diff changeset	3653	"/ for your convenience: look for any namespace class by that name, and offer browsing the class
387151a8648c class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15362 diff changeset	3654	but isEmpty ifTrue:[
387151a8648c class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15362 diff changeset	3655	globalName := Smalltalk keys
387151a8648c class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15362 diff changeset	3656	detect:[:nm \| (nm includesString:'::')
387151a8648c class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15362 diff changeset	3657	and:[ (nm includesString:aSelectorString)
387151a8648c class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15362 diff changeset	3658	and:[ (nm endsWith:('::',aSelectorString)) ]]]
387151a8648c class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15362 diff changeset	3659	ifNone:nil.
387151a8648c class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15362 diff changeset	3660	globalName notNil ifTrue:[
387151a8648c class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15362 diff changeset	3661	globalClass := Smalltalk at:globalName.
387151a8648c class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15362 diff changeset	3662	globalClass isBehavior ifTrue:[
387151a8648c class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15362 diff changeset	3663	top20 := (OrderedCollection withAll:top20) addFirst:('>> Browse class ',globalClass name,' <<'); yourself.
387151a8648c class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15362 diff changeset	3664	but := '\But there exists a class in some namespace by that name.'.
387151a8648c class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15362 diff changeset	3665	].
387151a8648c class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15362 diff changeset	3666	].
387151a8648c class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15362 diff changeset	3667	].
387151a8648c class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15362 diff changeset	3668
8678 7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3669	choice := Dialog
12621 a0af9112b051 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12575 diff changeset	3670	choose:(title,(' - none found.',but,'\\Browse implementors of a similar selector or cancel:') withCRs)
8678 7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3671	fromList:top20
7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3672	lines:10.
13128 6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3673
8678 7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3674	choice notEmptyOrNil ifTrue:[
12575 7fd56ce01f68 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12504 diff changeset	3675	(choice startsWith:'>>') ifTrue:[
13128 6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3676	self openInClass:globalClass selector:nil.
12575 7fd56ce01f68 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12504 diff changeset	3677	] ifFalse:[
7fd56ce01f68 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12504 diff changeset	3678	self browseImplementorsOf:choice in:aCollectionOfClasses ignoreCase:ignoreCase title:'Implementors of ',choice.
7fd56ce01f68 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12504 diff changeset	3679	]
8678 7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3680	].
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3681	^ nil
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3682	].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3683	rs := self classResources.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3684	(Dialog confirm:((rs string:title) ,
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3685	(rs string:'...\\... none found.') ,
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3686	(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	3687	with:list2 size
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3688	with:selWithColon allBold)) withCRs) ifFalse:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3689	^ nil
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3690	].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3691	list := list2.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3692	title := title , ':'.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3693
36 ccde5a941840 * empty log message * claus parents: diff changeset	3694	].
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3695
270 f97a37f5df7a checkin from browser Claus Gittinger <cg@exept.de> parents: 256 diff changeset	3696	^ self browseMethods:list asOrderedCollection title:title
36 ccde5a941840 * empty log message * claus parents: diff changeset	3697
ccde5a941840 * empty log message * claus parents: diff changeset	3698	"
ccde5a941840 * empty log message * claus parents: diff changeset	3699	SystemBrowser browseImplementorsOf:#+
270 f97a37f5df7a checkin from browser Claus Gittinger <cg@exept.de> parents: 256 diff changeset	3700	in:(Array with:Number
f97a37f5df7a checkin from browser Claus Gittinger <cg@exept.de> parents: 256 diff changeset	3701	with:Float
f97a37f5df7a checkin from browser Claus Gittinger <cg@exept.de> parents: 256 diff changeset	3702	with:SmallInteger)
f97a37f5df7a checkin from browser Claus Gittinger <cg@exept.de> parents: 256 diff changeset	3703	title:'some implementors of +'
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3704
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3705	NewSystemBrowser browseImplementorsOf:#+
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3706	in:(Array with:Number
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3707	with:Float
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3708	with:SmallInteger)
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3709	title:'some implementors of +'
36 ccde5a941840 * empty log message * claus parents: diff changeset	3710	"
132 9bf0c15113f2 . claus parents: 118 diff changeset	3711
9685 629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3712	"Modified: / 04-09-1995 / 17:33:39 / claus"
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3713	"Modified: / 19-06-1996 / 14:19:02 / stefan"
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3714	"Modified: / 15-01-2011 / 14:35:56 / cg"
36 ccde5a941840 * empty log message * claus parents: diff changeset	3715	!
ccde5a941840 * empty log message * claus parents: diff changeset	3716
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3717	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	3718	"launch a browser for all implementors of aSelector in
16586 60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	3719	the classes contained in aCollectionOfClasses and their metaclasses"
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3720
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3721	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3722	browseImplementorsOf:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3723	in:aCollectionOfClasses
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3724	ignoreCase:false
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3725	title:title
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3726	!
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3727
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3728	browseImplementorsOf:aSelectorString under:aClass
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3729	"launch a browser for all implementors of aSelector in aClass
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3730	and its subclasses"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3731
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3732	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3733	browseImplementorsOf:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3734	in:(aClass withAllSubclasses)
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3735	title:(self classResources
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	3736	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	3737	with:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3738	with:aClass name)
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3739
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3740	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3741	SystemBrowser browseImplementorsOf:#+ under:Integer
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3742	NewSystemBrowser browseImplementorsOf:#+ under:Integer
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3743	"
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3744
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3745	"Created: / 9.12.1995 / 18:06:09 / cg"
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3746	"Modified: / 5.11.2001 / 17:30:15 / cg"
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3747	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3748
3663 5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3749	browseImplementorsOfAny:setOfSelectors
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3750	"launch a browser for all implementors of aSelector"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3751
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3752	^ self
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3753	browseImplementorsOfAny:setOfSelectors
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3754	in:(Smalltalk allClasses)
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3755
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3756	"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3757	SystemBrowser browseImplementorsOfAny:#( #+ #- )
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3758	NewSystemBrowser browseImplementorsOfAny:#( #+ #- )
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3759	"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3760
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3761	"Created: / 9.12.1995 / 18:01:18 / cg"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3762	"Modified: / 5.11.2001 / 17:31:11 / cg"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3763	!
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3764
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3765	browseImplementorsOfAny:setOfSelectors in:aSetOfClasses
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3766	"launch a browser for all implementors of aSelector"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3767
8047 8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3768	\|title\|
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3769
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3770	setOfSelectors size == 1 ifTrue:[
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3771	title := self classResources
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3772	string:'Implementors of %1'
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3773	with:(setOfSelectors asOrderedCollection first).
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3774	] ifFalse:[
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3775	setOfSelectors size == 2 ifTrue:[
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3776	title := self classResources
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3777	string:'Implementors of %1 or %2'
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3778	with:(setOfSelectors asOrderedCollection first)
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3779	with:(setOfSelectors asOrderedCollection second).
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3780	] ifFalse:[
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3781	title := self classResources string:'Implementors of some'.
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3782	].
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3783	].
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3784
3663 5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3785	^ self
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3786	browseImplementorsOfAny:setOfSelectors
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3787	in:aSetOfClasses
8047 8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3788	title:title
3663 5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3789
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3790	"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3791	SystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3792	NewSystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3793	"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3794
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3795	"Created: / 10.7.1996 / 10:20:59 / cg"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3796	"Modified: / 5.11.2001 / 17:30:57 / cg"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3797	!
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3798
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3799	browseImplementorsOfAny:setOfSelectors in:aCollectionOfClasses ignoreCase:ignoreCase title:title
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3800	"launch a browser for all implementors of aSelector in
16586 60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	3801	the classes contained in aCollectionOfClasses and their metaclasses"
3663 5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3802
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3803	\|list\|
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3804
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3805	list := self
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3806	findImplementorsOfAny:setOfSelectors
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3807	in:aCollectionOfClasses
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3808	ignoreCase:ignoreCase.
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3809
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3810	list size == 0 ifTrue:[
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3811	self showNoneFound:title.
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3812	^ nil
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3813	].
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3814
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3815	^ self browseMethods:list asOrderedCollection title:title
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3816
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3817	"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3818	SystemBrowser browseImplementorsOf:#+
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3819	in:(Array with:Number
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3820	with:Float
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3821	with:SmallInteger)
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3822	title:'some implementors of +'
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3823
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3824	NewSystemBrowser browseImplementorsOf:#+
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3825	in:(Array with:Number
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3826	with:Float
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3827	with:SmallInteger)
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3828	title:'some implementors of +'
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3829	"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3830
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3831	"Modified: / 4.9.1995 / 17:33:39 / claus"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3832	"Modified: / 19.6.1996 / 14:19:02 / stefan"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3833	"Modified: / 5.11.2001 / 17:30:38 / cg"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3834	!
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3835
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3836	browseImplementorsOfAny:setOfSelectors in:aCollectionOfClasses title:title
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3837	"launch a browser for all implementors of aSelector in
16586 60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	3838	the classes contained in aCollectionOfClasses and their metaclasses"
3663 5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3839
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3840	^ self
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3841	browseImplementorsOfAny:setOfSelectors
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3842	in:aCollectionOfClasses
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3843	ignoreCase:false
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3844	title:title
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3845	!
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3846
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3847	browseInstRefsTo:aString in:aCollectionOfClasses modificationsOnly:modsOnly
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3848	"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	3849	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	3850	instvar is modified"
45 950b84ba89e6 * empty log message * claus parents: 41 diff changeset	3851
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3852	^ self browseRefsTo:aString classVars:false in:aCollectionOfClasses modificationsOnly:modsOnly
36 ccde5a941840 * empty log message * claus parents: diff changeset	3853	!
ccde5a941840 * empty log message * claus parents: diff changeset	3854
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3855	browseInstRefsTo:varName in:aCollectionOfClasses modificationsOnly:modsOnly title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3856	"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	3857	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	3858	instvar is modified"
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3859
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3860	^ self browseRefsTo:varName classVars:false in:aCollectionOfClasses modificationsOnly:modsOnly title:title
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3861	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3862
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3863	browseInstRefsTo:aString under:aClass modificationsOnly:modsOnly
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3864	"launch a browser for all methods in aClass and subclasses
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3865	where the instVar named aString is referenced;
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3866	if modsOnly is true, browse only methods where the instvar is modified"
36 ccde5a941840 * empty log message * claus parents: diff changeset	3867
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3868	^ self browseInstRefsTo:aString in:(aClass withAllSubclasses) modificationsOnly:modsOnly
36 ccde5a941840 * empty log message * claus parents: diff changeset	3869	!
ccde5a941840 * empty log message * claus parents: diff changeset	3870
ccde5a941840 * empty log message * claus parents: diff changeset	3871	browseReferendsOf:aGlobalName
ccde5a941840 * empty log message * claus parents: diff changeset	3872	"launch a browser for all methods referencing a global
1367 80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3873	named aGlobalName. The argument may be a symbol, a string or
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3874	a matchPattern.
36 ccde5a941840 * empty log message * claus parents: diff changeset	3875	"
ccde5a941840 * empty log message * claus parents: diff changeset	3876
ccde5a941840 * empty log message * claus parents: diff changeset	3877	^ self browseReferendsOf:aGlobalName warnIfNone:true
ccde5a941840 * empty log message * claus parents: diff changeset	3878
ccde5a941840 * empty log message * claus parents: diff changeset	3879	"
14944 5893ae3af14b class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14653 diff changeset	3880	UserPreferences current systemBrowserClass browseReferendsOf:#Transcript
5893ae3af14b class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14653 diff changeset	3881	UserPreferences current systemBrowserClass browseReferendsOf:'Tr*'
36 ccde5a941840 * empty log message * claus parents: diff changeset	3882	"
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	3883
1367 80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3884	"Modified: / 30.10.1997 / 23:45:52 / cg"
36 ccde5a941840 * empty log message * claus parents: diff changeset	3885	!
ccde5a941840 * empty log message * claus parents: diff changeset	3886
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3887	browseReferendsOf:aGlobalName ifNone:actionIfNone
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3888	"launch a browser for all methods referencing a global
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3889	named aGlobalName.
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3890	"
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3891
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3892	^ self
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3893	browseReferendsOf:aGlobalName
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	3894	title:(self classResources string:'Users of: %1' with:aGlobalName)
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3895	ifNone:actionIfNone
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3896
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3897	"Modified: / 31.10.1997 / 15:42:05 / cg"
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3898	!
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3899
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3900	browseReferendsOf:aGlobalName in:aSetOfClasses
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3901	"launch a browser for all methods referencing a global
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3902	named aGlobalName.
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3903	"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3904
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3905	^ self browseReferendsOf:aGlobalName in:aSetOfClasses warnIfNone:true
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3906
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3907	"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3908	Browser browseReferendsOf:#Transcript
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3909	"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3910
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3911	"Created: 10.7.1996 / 10:37:30 / cg"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3912	!
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3913
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3914	browseReferendsOf:aGlobalName in:aSetOfClasses warnIfNone:doWarn
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3915	"launch a browser for all methods referencing a global
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3916	named aGlobalName.
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3917	"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3918
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3919	\|globalsPlainName idx\|
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3920
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3921	globalsPlainName := aGlobalName.
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3922	(idx := globalsPlainName lastIndexOf:$:) ~~ 0 ifTrue:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3923	globalsPlainName := globalsPlainName copyFrom:idx+1
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3924	].
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3925
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3926	^ self browseForSymbol:aGlobalName
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3927	in:aSetOfClasses
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	3928	title:(self classResources string:'Users of: %1' with:aGlobalName)
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3929	warnIfNone:doWarn
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3930	searchFor:globalsPlainName
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3931
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3932	"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	3933	"Modified: 31.10.1996 / 14:56:38 / cg"
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3934	!
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3935
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3936	browseReferendsOf:aGlobalName title:title ifNone:actionIfNone
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3937	"launch a browser for all methods referencing a global named aGlobalName."
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3938
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3939	\|searchBlock browser\|
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3940
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3941	searchBlock := self searchBlockForReferendsOf:aGlobalName.
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3942	browser := self
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3943	browseMethodsWhere:searchBlock
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3944	title:title
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3945	ifNone:[
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3946	actionIfNone value.
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3947	^ nil
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3948	].
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3949
2828 6e54ebb9b75e * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	3950	browser isNil ifTrue:[
6e54ebb9b75e * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	3951	actionIfNone value
6e54ebb9b75e * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	3952	] ifFalse:[
9010 fa5c1fef4aef changed: #browseReferendsOf:title:ifNone: Claus Gittinger <cg@exept.de> parents: 9007 diff changeset	3953	browser autoSearchVariable:aGlobalName.
2828 6e54ebb9b75e * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	3954	].
6e54ebb9b75e * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	3955	^ browser
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3956
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3957	"
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3958	Tools::NewSystemBrowser browseReferendsOf:'SortedCollection' title:'foo' ifNone:[ self halt ]
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3959	"
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3960	!
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3961
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3962	browseReferendsOf:aGlobalName title:title warnIfNone:doWarn
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3963	"launch a browser for all methods referencing a global
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3964	named aGlobalName.
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3965	"
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3966
2414 a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	3967	\|b\|
a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	3968
a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	3969	doWarn ifTrue: [
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3970	b := [self showNoneFound:title]
2414 a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	3971	].
a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	3972
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3973	^ self
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3974	browseReferendsOf:aGlobalName
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3975	title:title
2414 a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	3976	ifNone:b
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3977
1367 80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3978	!
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3979
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3980	browseReferendsOf:aGlobalName warnIfNone:doWarn
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3981	"launch a browser for all methods referencing a global
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3982	named aGlobalName.
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3983	"
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3984
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3985	^ self
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3986	browseReferendsOf:aGlobalName
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	3987	title:(self classResources string:'Users of: %1' with:aGlobalName)
1367 80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3988	warnIfNone:doWarn
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3989
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3990	"Modified: / 31.10.1997 / 15:42:05 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3991	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3992
4198 de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3993	browseReferendsOfUnboundGlobalsWithTitle:title ifNone:actionIfNone
12844 2a189ba77e75 Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 12837 diff changeset	3994	"launch a browser for all methods referencing an unbound global."
2a189ba77e75 Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 12837 diff changeset	3995
2a189ba77e75 Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 12837 diff changeset	3996	\|searchBlock browser\|
4198 de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3997
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3998	searchBlock := [:cls :mthd :sel \|
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3999
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4000	\|mSource globals potentialNames\|
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4001
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4002	"/ 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	4003	mthd isLazyMethod ifTrue:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4004	mSource := mthd source.
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4005	mSource notNil ifTrue:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4006	globals := mthd usedGlobals.
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4007	].
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4008	] ifFalse:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4009	"/ try hard to avoid the usedGlobals - its expensive
6640 326360e94271 * empty log message * Claus Gittinger <cg@exept.de> parents: 6581 diff changeset	4010	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	4011	potentialNames notEmpty ifTrue:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4012	potentialNames := potentialNames select:[:lit \| (Smalltalk at:lit) isNil].
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4013	potentialNames notEmpty ifTrue:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4014	globals := mthd usedGlobals.
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4015	]
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4016	]
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4017	].
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4018	globals notNil ifTrue:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4019	globals contains:[:aGlobalKey \| (Smalltalk at:aGlobalKey asSymbol) isNil].
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4020	] ifFalse:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4021	false
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4022	]
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4023	].
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4024
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4025	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	4026	browser isNil ifTrue:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4027	actionIfNone value
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4028	].
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4029	^ browser
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4030	!
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4031
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4032	browseReferendsOfUnboundGlobalsWithTitle:title warnIfNone:doWarn
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4033	"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	4034	"
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4035
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4036	\|b\|
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4037
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4038	doWarn ifTrue: [
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4039	b := [self showNoneFound:title]
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4040	].
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4041
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4042	^ self
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4043	browseReferendsOfUnboundGlobalsWithTitle:title
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4044	ifNone:b
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4045	!
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	4046
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4047	browseRefsTo:aString classVars:classVars in:aCollectionOfClasses modificationsOnly:modsOnly
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4048	"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	4049	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	4050	instvar is modified"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4051
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4052	\|title\|
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4053
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4054	modsOnly ifTrue:[
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	4055	title := 'Modifications of: %1'
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4056	] ifFalse:[
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	4057	title := 'References to: %1 '
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4058	].
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4059	^ self
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4060	browseRefsTo:aString
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4061	classVars:classVars
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4062	in:aCollectionOfClasses
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4063	modificationsOnly:modsOnly
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4064	title:(self classResources string:title with:aString)
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4065
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4066	"Created: 9.12.1995 / 18:07:05 / cg"
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4067	"Modified: 9.12.1995 / 18:11:49 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4068	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4069
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4070	browseRefsTo:varName classVars:classVars in:aCollectionOfClasses modificationsOnly:modsOnly title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4071	"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	4072	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	4073	instvar is modified"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4074
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4075	\|filter browser pattern\|
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4076
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4077	filter := self filterToSearchRefsTo:varName classVars:classVars modificationsOnly:modsOnly.
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4078	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	4079
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4080	browser notNil ifTrue:[
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4081	modsOnly ifTrue:[
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4082	pattern := varName , ' :='
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4083	] ifFalse:[
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4084	pattern := varName
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4085	].
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4086	browser autoSearch:pattern
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4087	].
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4088	^ browser
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4089	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4090
3407 7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4091	browseSendersOf:aSelectorString
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4092	"launch a browser for all senders of aSelector"
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4093
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4094	^ self browseAllCallsOn:aSelectorString
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4095
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4096	"
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4097	SystemBrowser browseSendersOf:#+
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	4098	UserPreferences current systemBrowserClass browseSendersOf:#+
3407 7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4099	"
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4100
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4101	"Modified: / 10.7.1996 / 10:26:15 / cg"
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4102	"Created: / 13.11.2001 / 13:52:12 / cg"
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4103	!
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	4104
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4105	browseSuperCallsIn:aCollectionOfClasses title:title
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4106	"launch a browser for all super sends in aCollectionOfClasses"
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4107
742 2ef5e22d8983 code cleanup (unused vars eliminated) Claus Gittinger <cg@exept.de> parents: 675 diff changeset	4108	\|browser searchBlock\|
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4109
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4110	searchBlock := [:class :method :s \|
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	4111	\|src parser\|
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4112
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	4113	src := method source.
15334 8a75c5cb07b1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15327 diff changeset	4114	(src notNil and:[ (src findString:'super') ~~ 0 ]) ifTrue:[
8a75c5cb07b1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15327 diff changeset	4115	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	4116	parseMethod:src
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	4117	in:class
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	4118	ignoreErrors:true
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	4119	ignoreWarnings:true.
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	4120
7711 7e8881bccf72 * empty log message * Claus Gittinger <cg@exept.de> parents: 7524 diff changeset	4121	(parser notNil and:[parser ~~ #Error and:[parser usesSuper]])
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	4122	] ifFalse:[
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	4123	false
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	4124	]
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4125	].
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4126
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4127	browser := self browseMethodsIn:aCollectionOfClasses
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	4128	where:searchBlock
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	4129	title:title.
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4130
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4131	browser notNil ifTrue:[
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	4132	browser autoSearch:'super'
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4133	].
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4134	^ browser
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4135
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	4136	"
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	4137	SystemBrowser
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	4138	browseSuperCallsIn:(Array with:SortedCollection)
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	4139	title:'superSends in SortedCollection'
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	4140	"
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	4141
7711 7e8881bccf72 * empty log message * Claus Gittinger <cg@exept.de> parents: 7524 diff changeset	4142	"Created: / 23-11-1995 / 14:08:55 / cg"
7e8881bccf72 * empty log message * Claus Gittinger <cg@exept.de> parents: 7524 diff changeset	4143	"Modified: / 06-03-2007 / 14:00:12 / cg"
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4144	!
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4145
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4146	browseSuperCallsUnder:aClass
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4147	"launch a browser for all supersends in aClass and subclasses"
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4148
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4149	^ self browseSuperCallsIn:(aClass withAllSubclasses)
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	4150	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	4151
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4152	"
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4153	SystemBrowser browseSuperCallsUnder:Number
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4154	"
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4155
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4156	"Created: 23.11.1995 / 12:06:06 / cg"
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4157	"Modified: 9.12.1995 / 18:11:59 / cg"
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4158	!
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	4159
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	4160	browseUsesOf:aClass
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4161	\|dict owners offsets
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4162	sz "{ Class: SmallInteger }"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4163	n "{ Class: SmallInteger }"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4164	removeSet newDict\|
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4165
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4166	owners := ObjectMemory whoReferencesInstancesOf:aClass.
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4167
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4168	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4169	collect set of offsets in dict; key is class
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4170	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4171	dict := IdentityDictionary new.
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4172	owners do:[:someObject \|
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4173	\|cls create\|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4174
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4175	someObject isContext ifFalse:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4176	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4177	someObject refers to an instance of aClass;
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4178	find out, which instVar(s)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4179	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4180	cls := someObject class.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4181	cls ~~ Array ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4182	n := cls instSize.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4183	create := [\|s\| s := Set new. dict at:cls put:s. s].
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4184
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4185	1 to:n do:[:i \|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4186	\|ref\|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4187
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4188	ref := someObject instVarAt:i.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4189	(ref isMemberOf:aClass) ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4190	offsets := dict at:cls ifAbsent:create.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4191	offsets add:i.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4192	]
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4193	].
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4194	cls isVariable ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4195	cls isPointers ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4196	\| idx "{ Class: SmallInteger }" \|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4197
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4198	sz := someObject basicSize.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4199	idx := 1.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4200	[idx <= sz] whileTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4201	\|ref\|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4202
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4203	ref := someObject basicAt:idx.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4204	(ref isMemberOf:aClass) ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4205	offsets := dict at:cls ifAbsent:create.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4206	offsets add:0.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4207	idx := sz
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4208	].
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4209	idx := idx + 1
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4210	]
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4211	]
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4212	]
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4213	]
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4214	]
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	4215	].
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4216
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4217	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4218	merge with superclass refs
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4219	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4220	dict keysAndValuesDo:[:cls :set \|
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4221	cls allSuperclasses do:[:aSuperclass \|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4222	\|superSet\|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4223
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4224	superSet := dict at:aSuperclass ifAbsent:[].
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4225	superSet notNil ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4226	superSet := dict at:aSuperclass.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4227	removeSet := Set new.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4228	set do:[:offset \|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4229	(superSet includes:offset) ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4230	removeSet add:offset
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4231	]
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4232	].
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4233	set removeAll:removeSet
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4234	]
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4235	]
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	4236	].
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4237
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4238	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4239	remove empty ones
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4240	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4241	removeSet := Set new.
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4242	dict keysAndValuesDo:[:cls :set \|
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4243	set isEmpty ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4244	removeSet add:cls
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4245	]
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	4246	].
9334 ed9742f1a717 changed: #browseUsesOf: Claus Gittinger <cg@exept.de> parents: 9313 diff changeset	4247	dict removeAllKeys:removeSet.
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	4248
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4249	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4250	replace the indices by real names
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4251	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4252	newDict := IdentityDictionary new.
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4253	dict keysAndValuesDo:[:cls :set \|
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4254	\|newSet names\|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4255
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4256	names := cls allInstVarNames.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4257	newSet := set collect:[:index \|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4258	index == 0 ifTrue:['indexed'] ifFalse:[names at:index].
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4259	].
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	4260	newDict at:cls put:newSet
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	4261	].
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4262
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4263	newDict inspect
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4264	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	4265
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4266	filterToSearchRefsTo:varName classVars:classVars access:accessType
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	4267	"return a searchblock for variable references (obsolete)"
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	4268
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	4269	^ self
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	4270	filterToSearchRefsTo:varName
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	4271	instVars:(classVars not)
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	4272	classVars:classVars
11934 ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4273	globals:false
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4274	poolVars:false
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	4275	access:accessType
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	4276	!
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	4277
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	4278	filterToSearchRefsTo:varName classVars:classVars modificationsOnly:modsOnly
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	4279	"return a searchblock for variable references"
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	4280
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	4281	^ self
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	4282	filterToSearchRefsTo:varName
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	4283	classVars:classVars
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	4284	access:(modsOnly ifTrue:#write ifFalse:#readWrite)
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	4285	!
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	4286
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	4287	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	4288	"return a searchblock for variable references"
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4289
11934 ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4290	^ self
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4291	filterToSearchRefsTo:varName instVars:doInstVars classVars:doClassVars globals:doGlobals
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4292	poolVars:false access:accessType
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4293	!
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4294
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4295	filterToSearchRefsTo:varName instVars:doInstVars classVars:doClassVars globals:doGlobals poolVars:doPoolVars access:accessType
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4296	"return a searchblock for variable references"
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4297
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4298	\|searchBlock needMatch baseVarName\|
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4299
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4300	needMatch := varName includesMatchCharacters.
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4301	(varName includes:$:) ifTrue:[
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4302	baseVarName := varName copyFrom:(varName lastIndexOf:$:)+1
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4303	] ifFalse:[
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4304	baseVarName := varName
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4305	].
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4306
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4307	searchBlock := [:c :m :s \|
11934 ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4308	\|src result parser vars instVars classVars poolVars globals\|
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4309
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	4310	result := false.
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	4311
13525 a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4312	"/ JV Following code is bad. It assumes that method is a Smalltalk method.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4313	"/ But it may not, it could be JavaScript method, Java method or whatever fancy language
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4314	"/ method. Should be actually delegated to the method itself.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4315
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4316	m programmingLanguage isSmalltalk ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4317	"/ For Smalltalk, use parser...
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4318	src := m source.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4319	src notNil ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4320	needMatch ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4321	"
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4322	before doing a slow parse, quickly scan the
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4323	method's source for the variable's name ...
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4324	"
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4325	result := (src findString:baseVarName) ~~ 0.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4326	] ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4327	result := true.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4328	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4329	result ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4330	result := false.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4331	parser := Parser
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4332	parseMethod:src
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4333	in:c
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4334	ignoreErrors:true
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4335	ignoreWarnings:true.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4336
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4337	(parser notNil and:[parser ~~ #Error]) ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4338	vars := Set new.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4339	doInstVars ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4340	accessType == #read ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4341	instVars := parser readInstVars
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4342	] ifFalse:[
13525 a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4343	accessType == #write ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4344	instVars := parser modifiedInstVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4345	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4346	instVars := parser usedInstVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4347	]
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4348	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4349	vars addAll:instVars.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4350	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4351	doClassVars ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4352	accessType == #read ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4353	classVars := parser readClassVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4354	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4355	accessType == #write ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4356	classVars := parser modifiedClassVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4357	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4358	classVars := parser usedClassVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4359	]
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4360	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4361	vars addAll:classVars.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4362	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4363	doPoolVars ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4364	accessType == #read ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4365	poolVars := parser readPoolVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4366	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4367	accessType == #write ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4368	poolVars := parser modifiedPoolVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4369	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4370	poolVars := parser usedPoolVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4371	]
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4372	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4373	vars addAll:poolVars.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4374	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4375	doGlobals ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4376	accessType == #read ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4377	globals := parser readGlobals
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4378	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4379	accessType == #write ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4380	globals := parser modifiedGlobals
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4381	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4382	globals := parser usedGlobals
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4383	]
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4384	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4385	vars addAll:globals.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4386	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4387	vars size > 0 ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4388	needMatch ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4389	result := vars contains:[:cv \| (varName match:cv)]
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4390	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4391	result := vars includes:varName
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4392	]
13525 a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4393	]
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	4394	].
13525 a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4395	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4396	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4397	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4398	"/ For all other languages, ask method.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4399	vars := Set new.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4400	doInstVars ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4401	accessType == #read ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4402	instVars := m readInstVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4403	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4404	accessType == #write ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4405	instVars := m modifiedInstVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4406	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4407	instVars := m usedInstVars
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	4408	]
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	4409	].
13525 a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4410	vars addAll:instVars.
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	4411	].
13525 a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4412	doClassVars ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4413	accessType == #read ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4414	classVars := m readClassVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4415	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4416	accessType == #write ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4417	classVars := m modifiedClassVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4418	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4419	classVars := m usedClassVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4420	]
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4421	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4422	vars addAll:classVars.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4423	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4424	doPoolVars ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4425	accessType == #read ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4426	poolVars := m readPoolVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4427	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4428	accessType == #write ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4429	poolVars := m modifiedPoolVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4430	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4431	poolVars := m usedPoolVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4432	]
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4433	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4434	vars addAll:poolVars.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4435	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4436	doGlobals ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4437	accessType == #read ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4438	globals := m readGlobals
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4439	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4440	accessType == #write ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4441	globals := m modifiedGlobals
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4442	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4443	globals := m usedGlobals
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4444	]
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4445	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4446	vars addAll:globals.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4447	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4448	vars size > 0 ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4449	needMatch ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4450	result := vars contains:[:cv \| (varName match:cv)]
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4451	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4452	result := vars includes:varName
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4453	]
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4454	]
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	4455	].
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	4456	Processor yield.
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	4457	result
36 ccde5a941840 * empty log message * claus parents: diff changeset	4458	].
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	4459	^ searchBlock
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	4460
10897 77388222c40e comment: #filterToSearchRefsTo:instVars:classVars:globals:access: Claus Gittinger <cg@exept.de> parents: 10546 diff changeset	4461	"Modified: / 19-06-1997 / 18:27:57 / cg"
77388222c40e comment: #filterToSearchRefsTo:instVars:classVars:globals:access: Claus Gittinger <cg@exept.de> parents: 10546 diff changeset	4462	"Modified (format): / 25-11-2011 / 14:00:44 / cg"
13525 a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	4463	"Modified: / 06-09-2013 / 18:02:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4464	!
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4465
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	4466	findAnyResourceIn:aCollectionOfClasses
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	4467	"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	4468
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	4469	^ 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	4470
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	4471	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	4472	SystemBrowser findAnyResourceIn:(ApplicationModel withAllSubclasses)
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	4473	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	4474	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	4475
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4476	findClassRefsTo:aString in:aCollectionOfClasses access:accessType
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4477	"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	4478	aString is referenced;
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4479	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	4480
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4481	^ 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	4482	!
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4483
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4484	findClassRefsTo:aString in:aCollectionOfClasses modificationsOnly:modsOnly
2728 5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4485	"return all methods in aCollectionOfClasses where the classVar named
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4486	aString is referenced;
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4487	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	4488
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4489	^ self findRefsTo:aString classVars:true in:aCollectionOfClasses modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4490	!
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4491
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4492	findClassRefsTo:aString inClass:aClass access:accessType
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4493	"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	4494	aString is referenced;
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4495	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	4496
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4497	^ 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	4498	!
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4499
2728 5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4500	findClassRefsTo:aString inClass:aClass modificationsOnly:modsOnly
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4501	"return all methods in aClass where the classVar named
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4502	aString is referenced;
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4503	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	4504
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4505	^ self findRefsTo:aString classVars:true in:(Array with:aClass) modificationsOnly:modsOnly
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4506	!
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4507
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4508	findClassRefsTo:aString under:aClass access:accessType
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4509	"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	4510	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	4511	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	4512
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4513	^ 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	4514	!
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4515
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4516	findClassRefsTo:aString under:aClass modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4517	"return all methods in aClass and subclasses
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4518	where the classVar named aString is referenced;
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4519	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	4520
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4521	^ self findClassRefsTo:aString in:(aClass withAllSubclasses) modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4522
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4523	!
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4524
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4525	findCode:aCodeString in:aCollectionOfClasses isMethod:isMethod
5243 6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	4526	"return a collection of all methods in aCollectionOfClasses
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4527	containing a matching piece of code.
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4528	This may be slow, since source-code has to be scanned."
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4529
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4530	\|searchBlock\|
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4531
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4532	searchBlock := self searchBlockForCode:aCodeString in:aCollectionOfClasses isMethod:isMethod.
5226 35a9709e73ee code search Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	4533	searchBlock isNil ifTrue:[ ^ nil].
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4534	^ self findMethodsIn:aCollectionOfClasses where:searchBlock.
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4535
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4536	"Modified: / 02-05-2011 / 13:25:15 / sr"
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4537	!
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4538
5243 6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	4539	findCode:aCodeString inMethods:aCollectionOfMethods isMethod:isMethod
6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	4540	"return a collection of all methods in aCollectionOfMethods
6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	4541	containing a matching piece of code."
6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	4542
6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	4543	\|searchBlock\|
6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	4544
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4545	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	4546	searchBlock isNil ifTrue:[ ^ nil].
6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	4547	^ aCollectionOfMethods select:[:m \| searchBlock value:m mclass value:m value:m selector].
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4548
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4549	"Modified: / 02-05-2011 / 13:25:39 / sr"
5243 6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	4550	!
6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	4551
9482 542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4552	findExceptionHandlersIn:aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4553	"return a collection of all methods in aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4554	containing an exception raiser.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4555	This may be slow, since source-code has to be scanned."
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4556
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4557	^ self findUsingParseTreeSearcher:(ParseTreeSearcher handlesException) in:aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4558
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4559	"Modified: / 11-05-2010 / 16:18:55 / cg"
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4560	!
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4561
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4562	findExceptionHandlersInMethods:aCollectionOfMethods
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4563	"return a collection of all methods in aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4564	containing an exception raiser.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4565	This may be slow, since source-code has to be scanned."
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4566
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4567	^ self findUsingParseTreeSearcher:(ParseTreeSearcher handlesException) inMethods:aCollectionOfMethods
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4568
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4569	"Created: / 11-05-2010 / 16:20:48 / cg"
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4570	!
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4571
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4572	findExceptionRaisersIn:aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4573	"return a collection of all methods in aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4574	containing an exception raiser.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4575	This may be slow, since source-code has to be scanned."
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4576
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4577	^ self findUsingParseTreeSearcher:(ParseTreeSearcher raisesException) in:aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4578
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4579	"Modified: / 11-05-2010 / 16:18:48 / cg"
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4580	!
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4581
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4582	findExceptionRaisersInMethods:aCollectionOfMethods
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4583	"return a collection of all methods in aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4584	containing an exception raiser.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4585	This may be slow, since source-code has to be scanned."
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4586
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4587	^ self findUsingParseTreeSearcher:(ParseTreeSearcher raisesException) inMethods:aCollectionOfMethods
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4588
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4589	"Created: / 11-05-2010 / 16:20:36 / cg"
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4590	!
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4591
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4592	findHelpSpecMethodsWithString:aString in:aCollectionOfClasses ignoreCase:ignoreCase
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4593	"return a collection of all help-spec methods in aCollectionOfClasses
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4594	containing a string in their source.
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4595	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	4596
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4597	^ self
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4598	findSpecMethodsFor:#help
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4599	withString:aString
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4600	in:aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4601	ignoreCase:ignoreCase
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4602	!
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4603
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4604	findHelpSpecMethodsWithString:aString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4605	"return a collection of all help-spec methods in aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4606	containing a string in their source.
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4607	This may be slow, since source-code has to be scanned."
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4608
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4609	^ self
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4610	findSpecMethodsFor:#help
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4611	withString:aString
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4612	in:aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4613	ignoreCase:ignoreCase
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4614	match:doMatch
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4615	!
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4616
4152 92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4617	findImplementors:aSelectorMatchString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4618	"search for all implementors of aSelector in
16586 60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	4619	the classes contained in aCollectionOfClasses and their metaclasses.
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4620	Return a collection of methods"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4621
16597 fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	4622	\|lcSelector list compare testST testJava srchBlockST srchBlockJava collectionOfClasses\|
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4623
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4624	list := IdentitySet new.
6051 adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4625	aSelectorMatchString size == 0 ifTrue:[ ^ list ].
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4626
16395 cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	4627	(doMatch and:[aSelectorMatchString includesMatchCharacters]) ifTrue:[
4152 92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4628	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	4629	] ifFalse:[
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4630	compare := [:sel :search \| sel = search].
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4631	].
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4632
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4633	ignoreCase == true ifTrue:[
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4634	lcSelector := aSelectorMatchString asLowercase.
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4635
15075 8ee8b91f6c69 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14944 diff changeset	4636	testST := [:mthdSelector :aMethod \| (compare value:lcSelector value:mthdSelector asLowercase) ].
8ee8b91f6c69 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14944 diff changeset	4637	testJava := [:mthdSelector :aMethod \| (compare value:lcSelector value:aMethod name asLowercase) ].
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4638	] ifFalse:[
15075 8ee8b91f6c69 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14944 diff changeset	4639	testST := [:mthdSelector :aMethod \| (compare value:aSelectorMatchString value:mthdSelector) ].
8ee8b91f6c69 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14944 diff changeset	4640	testJava := [:mthdSelector :aMethod \| (compare value:aSelectorMatchString value:aMethod name) ].
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4641	].
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4642
15075 8ee8b91f6c69 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14944 diff changeset	4643	srchBlockST := [:mthdSelector :mthd \| (testST value:mthdSelector value:mthd) ifTrue:[ list add:mthd]].
8ee8b91f6c69 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14944 diff changeset	4644	srchBlockJava := [:mthdSelector :mthd \| (testJava value:mthdSelector value:mthd) ifTrue:[ list add:mthd]].
11452 09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4645
16597 fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	4646	(collectionOfClasses := aCollectionOfClasses) isNil ifTrue:[
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	4647	collectionOfClasses := Smalltalk allClasses
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	4648	].
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	4649	collectionOfClasses do:[:aClass \|
11452 09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4650	\|srchBlock\|
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4651
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4652	aClass isObsolete ifFalse:[
11452 09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4653	srchBlock := aClass isJavaClass
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4654	ifTrue:[ srchBlockJava ]
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4655	ifFalse:[ srchBlockST ].
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4656
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4657	aClass methodDictionary keysAndValuesDo:srchBlock.
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4658	aClass isMeta ifFalse:[
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4659	aClass class methodDictionary keysAndValuesDo:srchBlock
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4660	]
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4661	]
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4662	].
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4663
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4664	^ list
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4665
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4666	"
11452 09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4667	SystemBrowser
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4668	findImplementorsOf:#+
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4669	in: { Number . Float . SmallInteger }
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4670	ignoreCase: false
16395 cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	4671
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	4672	Time millisecondsToRun:[
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	4673	SystemBrowser
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	4674	findImplementorsOf:#add:
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	4675	in: (Smalltalk allClasses)
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	4676	ignoreCase: false
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	4677	]
11452 09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4678	"
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4679
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4680	"Modified (format): / 22-03-2012 / 07:28:50 / cg"
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4681	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4682
6776 5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4683	findImplementors:aSelectorMatchString inMethods:aCollectionOfMethods ignoreCase:ignoreCase match:doMatch
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4684	"search for all implementors of aSelector in
16395 cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	4685	the classes contained in aCollectionOfClasses and their metaclasses.
6776 5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4686	Return a collection of methods"
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4687
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4688	\|list compare testST testJava lcSelector\|
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4689
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4690	list := IdentitySet new.
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4691	aSelectorMatchString size == 0 ifTrue:[ ^ list ].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4692
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4693	doMatch ifTrue:[
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4694	compare := [:sel :search \| sel match:search].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4695	] ifFalse:[
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4696	compare := [:sel :search \| sel = search].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4697	].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4698
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4699	ignoreCase == true ifTrue:[
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4700	lcSelector := aSelectorMatchString asLowercase.
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4701
15075 8ee8b91f6c69 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14944 diff changeset	4702	testST := [:mthdSelector :aMethod \| (compare value:lcSelector value:mthdSelector asLowercase) ].
8ee8b91f6c69 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14944 diff changeset	4703	testJava := [:mthdSelector :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	4704	] ifFalse:[
15075 8ee8b91f6c69 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14944 diff changeset	4705	testST := [:mthdSelector :aMethod \| (compare value:aSelectorMatchString value:mthdSelector) ].
8ee8b91f6c69 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 14944 diff changeset	4706	testJava := [:mthdSelector :aMethod \| (compare value:aSelectorMatchString value:aMethod name) ].
6776 5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4707	].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4708
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4709	aCollectionOfMethods do:[:eachMethod \|
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4710	\|cls sel testBlock\|
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4711
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4712	cls := eachMethod mclass.
7066 43640ba63db6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6955 diff changeset	4713	(cls isNil or:[cls isObsolete]) ifFalse:[
6776 5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4714	cls isJavaClass ifTrue:[
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4715	testBlock := testJava
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4716	] ifFalse:[
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4717	testBlock := testST
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4718	].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4719	sel := eachMethod selector.
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4720	(testBlock value:sel value:eachMethod) ifTrue:[
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4721	list add:eachMethod
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4722	].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4723	]
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4724	].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4725
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4726	^ list
7066 43640ba63db6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6955 diff changeset	4727
43640ba63db6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6955 diff changeset	4728	"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	4729	!
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4730
4152 92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4731	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	4732	"search for all implementors of aSelector in
16586 60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	4733	the classes contained in aCollectionOfClasses and their metaclasses.
4152 92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4734	Return a collection of methods"
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4735
11452 09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4736	^ self
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4737	findImplementors:aSelectorMatchString
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4738	in:aCollectionOfClasses
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4739	ignoreCase:ignoreCase
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4740	match:true
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4741
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4742	"
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4743	SystemBrowser
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4744	findImplementorsOf:#+
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4745	in:{ Number . Float . SmallInteger }
16443 7ce9ab5ce5e2 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16395 diff changeset	4746	ignoreCase:false
11452 09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4747	"
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4748
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4749	"Modified (comment): / 22-03-2012 / 07:20:42 / cg"
4152 92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4750	!
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4751
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4752	findImplementorsMatchingAny:aCollectionOfSelectors in:aCollectionOfClasses ignoreCase:ignoreCase
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4753	"search for all implementors of any in aCollectionOfSelectors in
16586 60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	4754	the classes contained in aCollectionOfClasses and their metaclasses.
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4755	Return a collection of methods.
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4756	CAVEAT: searches multiple times (could be tuned alot if heavily used)"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4757
6052 e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4758	^ aCollectionOfSelectors
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4759	collectAll:[:eachSelector \|
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4760	self findImplementorsMatching:eachSelector
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4761	in:aCollectionOfClasses
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4762	ignoreCase:ignoreCase.
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4763	].
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4764
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4765	"/ \|implementors\|
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4766	"/
6051 adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4767	"/ implementors := IdentitySet new.
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4768	"/ aCollectionOfSelectors do:[:eachSelector \|
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4769	"/ implementors addAll:(self findImplementorsMatching:eachSelector in:aCollectionOfClasses ignoreCase:ignoreCase).
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4770	"/ ].
6052 e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4771	"/ ^ implementors
6051 adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4772
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4773	"
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4774	self
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4775	findImplementorsMatchingAny:#( 'at:' 'size')
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4776	in:(Smalltalk allClasses)
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4777	ignoreCase:true
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4778	"
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4779	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4780
4152 92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4781	findImplementorsOf:aSelectorMatchString in:aCollectionOfClasses ignoreCase:ignoreCase
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4782	"search for all implementors of aSelector in
16586 60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	4783	the classes contained in aCollectionOfClasses and their metaclasses.
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4784	Return a collection of methods"
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4785
6480 a84b7a241f0a * empty log message * Claus Gittinger <cg@exept.de> parents: 6476 diff changeset	4786	^ self
a84b7a241f0a * empty log message * Claus Gittinger <cg@exept.de> parents: 6476 diff changeset	4787	findImplementors:aSelectorMatchString
a84b7a241f0a * empty log message * Claus Gittinger <cg@exept.de> parents: 6476 diff changeset	4788	in:aCollectionOfClasses
a84b7a241f0a * empty log message * Claus Gittinger <cg@exept.de> parents: 6476 diff changeset	4789	ignoreCase:ignoreCase
a84b7a241f0a * empty log message * Claus Gittinger <cg@exept.de> parents: 6476 diff changeset	4790	match:false
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4791
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4792	"
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4793	SystemBrowser findImplementorsOf:#+
4152 92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4794	in:(Array with:Number
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4795	with:Float
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4796	with:SmallInteger)
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4797	"
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4798	!
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4799
2811 85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4800	findImplementorsOfAny:aCollectionOfSelectors in:aCollectionOfClasses ignoreCase:ignoreCase
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4801	"search for all implementors of any in aCollectionOfSelectors in
16586 60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	4802	the classes contained in aCollectionOfClasses and their metaclasses.
2811 85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4803	Return a collection of methods.
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4804	CAVEAT: searches multiple times (could be tuned alot if heavily used)"
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4805
6052 e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4806	^ aCollectionOfSelectors
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4807	collectAll:[:eachSelector \|
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4808	self findImplementorsOf:eachSelector
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4809	in:aCollectionOfClasses
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4810	ignoreCase:ignoreCase.
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4811	].
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4812
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4813	"/ \|implementors\|
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4814	"/
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4815	"/ implementors := IdentitySet new.
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4816	"/ aCollectionOfSelectors do:[:eachSelector \|
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4817	"/ implementors addAll:(self findImplementorsOf:eachSelector in:aCollectionOfClasses ignoreCase:ignoreCase).
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4818	"/ ].
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4819	"/ ^ implementors
2811 85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4820	!
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4821
2741 aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4822	findInstRefsTo:aString in:aCollectionOfClasses access:accessType
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4823	"return all methods in aCollectionOfClasses where the instVar named
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4824	aString is referenced;
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4825	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	4826
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4827	^ self findRefsTo:aString classVars:false in:aCollectionOfClasses access:accessType
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4828	!
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4829
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4830	findInstRefsTo:aString in:aCollectionOfClasses modificationsOnly:modsOnly
2728 5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4831	"return all methods in aCollectionOfClasses where the instVar named
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4832	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	4833	instvar is modified"
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4834
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4835	^ self findRefsTo:aString classVars:false in:aCollectionOfClasses modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4836	!
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4837
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4838	findInstRefsTo:aString inClass:aClass access:accessType
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4839	"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	4840	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	4841	instvar is modified"
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4842
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4843	^ 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	4844	!
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4845
2728 5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4846	findInstRefsTo:aString inClass:aClass modificationsOnly:modsOnly
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4847	"return all methods in aClass where the instVar named
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4848	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	4849	instvar is modified"
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4850
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4851	^ self findRefsTo:aString classVars:false in:(Array with:aClass) modificationsOnly:modsOnly
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4852	!
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4853
2741 aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4854	findInstRefsTo:aString under:aClass access:accessType
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4855	"return all methods in aClass and subclasses
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4856	where the classVar named aString is referenced;
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4857	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	4858
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4859	^ self findInstRefsTo:aString in:(aClass withAllSubclasses) access:accessType
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4860	!
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4861
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4862	findInstRefsTo:aString under:aClass modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4863	"return all methods in aClass and subclasses
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4864	where the instVar named aString is referenced;
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4865	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	4866
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4867	^ self findInstRefsTo:aString in:(aClass withAllSubclasses) modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4868	!
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4869
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4870	findMenuSpecMethodsWithString:aString in:aCollectionOfClasses ignoreCase:ignoreCase
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4871	"return a collection of all menu-spec methods in aCollectionOfClasses
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4872	containing a string in their source.
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4873	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	4874
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4875	^ self
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4876	findSpecMethodsFor:#menu
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4877	withString:aString
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4878	in:aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4879	ignoreCase:ignoreCase
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4880	!
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4881
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4882	findMenuSpecMethodsWithString:aString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4883	"return a collection of all menu-spec methods in aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4884	containing a string in their source.
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4885	This may be slow, since source-code has to be scanned."
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4886
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4887	^ self
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4888	findSpecMethodsFor:#menu
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4889	withString:aString
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4890	in:aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4891	ignoreCase:ignoreCase
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4892	match:doMatch
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4893	!
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4894
11934 ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4895	findPoolVarRefsTo:aString inClass:aClass access:accessType
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4896	"return all methods in aClass where the pool variable named aString is referenced;
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4897	if modsOnly is true, browse only methods where the classvar is modified"
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4898
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4899	\|filter\|
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4900
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4901	filter := self
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4902	filterToSearchRefsTo:aString
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4903	instVars:false classVars:false globals:false poolVars:true
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4904	access:accessType.
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4905
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4906	^ self findMethodsIn:(Array with:aClass) inst:true class:true where:filter.
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4907	!
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4908
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4909	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	4910	"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	4911	varName is referenced;
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4912	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	4913
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4914	\|filter\|
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4915
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4916	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	4917	^ 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	4918
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4919	"
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4920	self
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4921	findRefsTo:'x'
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4922	classVars:false
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4923	in:(Array with:Point)
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4924	modificationsOnly:true
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4925	"
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4926	!
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4927
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4928	findRefsTo:varName classVars:classVars in:aCollectionOfClasses modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4929	"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	4930	varName is referenced;
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4931	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	4932
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4933	\|filter\|
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4934
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4935	filter := self filterToSearchRefsTo:varName classVars:classVars modificationsOnly:modsOnly.
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4936	^ self findMethodsIn:aCollectionOfClasses inst:true class:classVars where:filter.
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4937
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4938	"
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4939	self
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4940	findRefsTo:'x'
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4941	classVars:false
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4942	in:(Array with:Point)
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4943	modificationsOnly:true
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4944	"
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4945	!
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4946
2692 652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4947	findResource:aResourceSymbolOrCollectionOfSymbols in:aCollectionOfClasses
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4948	"return a collection of all methods in aCollectionOfClasses
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4949	containing a resource."
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4950
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4951	\|searchBlock\|
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4952
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4953	aResourceSymbolOrCollectionOfSymbols isSymbol ifTrue:[
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4954	searchBlock := [:c :m :sel \| \|resources\|
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4955	(resources := m resources) size > 0
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4956	and:[resources includesKey:aResourceSymbolOrCollectionOfSymbols]
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4957	].
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4958	] ifFalse:[
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4959	searchBlock := [:c :m :sel \| \|resources\|
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4960	(resources := m resources) size > 0
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4961	and:[resources keys includesAny:aResourceSymbolOrCollectionOfSymbols]
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4962	].
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4963	].
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4964
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4965	^ self findMethodsIn:aCollectionOfClasses where:searchBlock.
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4966
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4967	"
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4968	SystemBrowser findResource:#image in:(ApplicationModel withAllSubclasses)
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4969	SystemBrowser findResource:#menu in:(ApplicationModel withAllSubclasses)
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4970	SystemBrowser findResource:#(menu programMenu) in:(ApplicationModel withAllSubclasses)
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4971	"
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4972	!
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4973
10188 95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4974	findResource:aStringOrEmpty match:doMatch ignoreCase:ignoreCase in:aCollectionOfClasses
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4975	"return a collection of all methods in aCollectionOfClasses containing a matching resource."
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4976
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4977	\|matchCheck lcSearchString\|
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4978
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4979	aStringOrEmpty isEmptyOrNil ifTrue:[
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4980	matchCheck := [:aResourceName \| true ]
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4981	] ifFalse:[
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4982	doMatch ifTrue:[
13438 06f6d5fc73ef class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13365 diff changeset	4983	matchCheck := [:aResourceName \| aStringOrEmpty match:aResourceName caseSensitive:ignoreCase not]
10188 95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4984	] ifFalse:[
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4985	ignoreCase ifTrue:[
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4986	lcSearchString := aStringOrEmpty asLowercase.
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4987	matchCheck := [:aResourceName \| aResourceName asLowercase = lcSearchString]
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4988	] ifFalse:[
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4989	matchCheck := [:aResourceName \| aResourceName = aStringOrEmpty ]
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4990	]
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4991	].
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4992	].
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4993
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4994	^ self
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4995	findMethodsIn:aCollectionOfClasses
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4996	where:[:c :m :sel \|
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4997	m hasResource
12073 d63b17e5c9c8 class: SystemBrowser Stefan Vogel <sv@exept.de> parents: 12056 diff changeset	4998	and:[m resources notNil and:[m resources keys contains:matchCheck]]
10188 95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4999	].
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	5000
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	5001	"
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	5002	SystemBrowser findResource:'debug' match:true ignoreCase:true in:(GenericException withAllSubclasses)
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	5003	"
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	5004
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	5005	"Created: / 06-07-2011 / 12:14:24 / cg"
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	5006	!
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	5007
16586 60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	5008	findRespondersOfAll:aCollectionOfSelectors in:aCollectionOfClasses ignoreCase:ignoreCase
60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	5009	"search for all classes which respond to all of the selectors in aCollectionOfSelectors.
60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	5010	Search within the classes contained in aCollectionOfClasses and their metaclasses.
60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	5011	This will skip over unloaded classes.
60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	5012	Return a collection of classes."
60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	5013
60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	5014	^ Smalltalk allClasses
60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	5015	select:[:cls \|
60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	5016	cls isLoaded
60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	5017	and:[ aCollectionOfSelectors conform:[:sel \| cls canUnderstand:sel]]].
60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	5018
60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	5019	"
60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	5020	to find classes which respond to both indexOf: and replaceFromIndex:toIndex:,
60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	5021	use:
60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	5022	SystemBrowser
60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	5023	findRespondersOfAll:#( indexOf: removeFromIndex:toIndex: )
60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	5024	in:nil
60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	5025	ignoreCase:false
60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	5026	"
60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	5027	!
60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	5028
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	5029	findSendersOf:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	5030	"search for all senders of aSelector in
16586 60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	5031	the classes contained in aCollectionOfClasses and their metaclasses.
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	5032	Return a collection of methods"
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	5033
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	5034	^ self allCallsOn:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase match:true
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	5035
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	5036	"
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	5037	SystemBrowser findSendersOf:#+
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	5038	in:(Array with:Number
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	5039	with:Float
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	5040	with:SmallInteger)
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	5041	ignoreCase:false
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	5042	"
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	5043	!
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	5044
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	5045	findSendersOf:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	5046	"search for all senders of aSelector in
16586 60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	5047	the classes contained in aCollectionOfClasses and their metaclasses.
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	5048	Return a collection of methods"
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	5049
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	5050	^ self allCallsOn:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	5051
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	5052	"
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	5053	SystemBrowser findSendersOf:#+
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	5054	in:(Array with:Number
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	5055	with:Float
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	5056	with:SmallInteger)
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	5057	ignoreCase:false
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	5058	"
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5059	!
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5060
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5061	findSendersOf:aSelectorString inMethods:aCollectionOfMethods ignoreCase:ignoreCase
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5062	"search for all senders of aSelector in aCollectionOfMethods.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5063	Return a collection of methods"
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5064
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5065	\|searchBlock\|
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5066
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5067	searchBlock := self searchBlockForAllCallsOn:aSelectorString ignoreCase:ignoreCase.
9313 44795fcbf414 changed: #findSendersOf:inMethods:ignoreCase: Claus Gittinger <cg@exept.de> parents: 9312 diff changeset	5068	searchBlock isNil ifTrue:[^ #() ].
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5069	^ 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	5070	!
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5071
4350 0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5072	findSendersOf:aSelectorString inMethods:aCollectionOfMethods ignoreCase:ignoreCase match:doMatch
0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5073	"search for all senders of aSelector in aCollectionOfMethods.
0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5074	Return a collection of methods"
0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5075
0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5076	\|searchBlock\|
0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5077
0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5078	searchBlock := self searchBlockForAllCallsOn:aSelectorString ignoreCase:ignoreCase match:doMatch.
9312 71f84182390a changed: #findSendersOf:inMethods:ignoreCase:match: Claus Gittinger <cg@exept.de> parents: 9189 diff changeset	5079	searchBlock isNil ifTrue:[^ #() ].
4350 0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5080	^ 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	5081	!
0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	5082
2811 85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	5083	findSendersOfAny:aCollectionOfSelectors in:aCollectionOfClasses ignoreCase:ignoreCase
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	5084	"search for all senders of any selector in aCollectionOfSelectors in
16586 60dcd6ba7859 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16529 diff changeset	5085	the classes contained in aCollectionOfClasses and their metaclasses.
2811 85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	5086	Return a collection of methods.
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	5087	CAVEAT: searches multiple times (could be tuned alot if heavily used)"
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	5088
6052 e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	5089	^ aCollectionOfSelectors
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	5090	collectAll:[:eachSelector \|
6184 bcb22487bc67 senders of any - duplicates Claus Gittinger <cg@exept.de> parents: 6134 diff changeset	5091	(self allCallsOn:eachSelector
6052 e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	5092	in:aCollectionOfClasses
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	5093	ignoreCase:ignoreCase
6184 bcb22487bc67 senders of any - duplicates Claus Gittinger <cg@exept.de> parents: 6134 diff changeset	5094	match:false) asSet.
6052 e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	5095	].
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	5096
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	5097	"/ \|allSenders\|
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	5098	"/
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	5099	"/ allSenders := IdentitySet new.
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	5100	"/ aCollectionOfSelectors do:[:eachSelector \|
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	5101	"/ allSenders addAll:(self allCallsOn:eachSelector in:aCollectionOfClasses ignoreCase:ignoreCase match:true)
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	5102	"/ ].
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	5103	"/ ^ allSenders
2811 85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	5104
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	5105	"
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	5106	SystemBrowser findSendersOfAny:#(#'+' #'-')
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	5107	in:(Array with:Number
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	5108	with:Float
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	5109	with:SmallInteger)
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	5110	ignoreCase:false
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	5111	"
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	5112	!
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	5113
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	5114	findSpecMethodsFor:specSymbol withString:aString in:aCollectionOfClasses ignoreCase:ignoreCase
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	5115	"return a collection of all specSymbol-spec methods in aCollectionOfClasses
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	5116	containing a string in their source.
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	5117	This may be slow, since source-code has to be scanned."
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	5118
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5119	self
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5120	findSpecMethodsFor:specSymbol
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5121	withString:aString
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5122	in:aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5123	ignoreCase:ignoreCase
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5124	match:true
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5125	!
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5126
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5127	findSpecMethodsFor:specSymbol withString:aString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5128	"return a collection of all specSymbol-spec methods in aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5129	containing a string in their source.
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5130	This may be slow, since source-code has to be scanned."
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5131
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5132	\|searchBlock innerSearchBlock\|
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5133
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5134	innerSearchBlock := self searchBlockForString:aString ignoreCase:ignoreCase match:doMatch.
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5135
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5136	searchBlock := [:c :m :sel \|
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5137	\|resources\|
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	5138
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	5139	((resources := m resources) size > 0
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	5140	and:[resources includesKey:specSymbol]) ifTrue:[
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5141	innerSearchBlock value:c value:m value:sel
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	5142	]
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5143	].
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5144
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	5145	^ self findMethodsIn:aCollectionOfClasses where:searchBlock.
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	5146	!
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	5147
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5148	findString:aString in:aCollectionOfClasses ignoreCase:ignoreCase
5243 6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	5149	"return a collection of all methods in aCollectionOfClasses
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5150	containing a string in their source.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5151	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	5152
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5153	^ self
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5154	findString:aString
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5155	in:aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5156	ignoreCase:ignoreCase
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5157	match:true
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5158
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5159	"
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5160	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	5161	"
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	5162	!
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	5163
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	5164	findString:aString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
5243 6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	5165	"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	5166	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	5167	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	5168
16691 9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5169	^ self findString:aString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch fullWordsOnly:false
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5170
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5171	"
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5172	SystemBrowser
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5173	findString:'should'
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5174	in:(Array with:Object)
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5175	ignoreCase:false
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5176	"
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5177	!
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5178
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5179	findString:aString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch fullWordsOnly:fullWordsOnly
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5180	"return a collection of all methods in aCollectionOfClasses
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5181	containing a string in their source.
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5182	This may be slow, since source-code has to be scanned."
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5183
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5184	\|searchBlock\|
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5185
16691 9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5186	searchBlock :=
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5187	self
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5188	searchBlockForString:aString
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5189	ignoreCase:ignoreCase
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5190	match:doMatch
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5191	fullWordsOnly:fullWordsOnly.
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5192	^ self findMethodsIn:aCollectionOfClasses where:searchBlock.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5193
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5194	"
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5195	SystemBrowser findString:'should' in:(Array with:Object) ignoreCase:false
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5196	"
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5197	!
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5198
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5199	findString:aString inMethods:aCollectionOfMethods ignoreCase:ignoreCase match:doMatch
5243 6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	5200	"return a collection of all methods in aCollectionOfClasses
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5201	containing a string in their source.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5202	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	5203
16691 9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5204	^ self findString:aString inMethods:aCollectionOfMethods ignoreCase:ignoreCase match:doMatch fullWordsOnly:false
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5205	!
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5206
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5207	findString:aString inMethods:aCollectionOfMethods ignoreCase:ignoreCase match:doMatch fullWordsOnly:fullWordsOnly
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5208	"return a collection of all methods in aCollectionOfClasses
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5209	containing a string in their source.
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5210	This may be slow, since source-code has to be scanned."
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5211
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5212	\|searchBlock\|
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5213
16691 9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5214	searchBlock := self searchBlockForString:aString ignoreCase:ignoreCase match:doMatch fullWordsOnly:fullWordsOnly.
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5215	^ 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	5216	!
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5217
5877 c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5218	findStringLiteral:aString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5219	"return a collection of all methods in aCollectionOfClasses
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5220	containing a string in any of their string-literals."
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5221
16691 9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5222	^ self
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5223	findStringLiteral:aString in:aCollectionOfClasses
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5224	ignoreCase:ignoreCase match:doMatch fullWordsOnly:false
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5225
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5226	"
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5227	SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:true match:false
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5228	"
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5229	!
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5230
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5231	findStringLiteral:aString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch fullWordsOnly:fullWordsOnly
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5232	"return a collection of all methods in aCollectionOfClasses
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5233	containing a string in any of their string-literals."
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5234
5877 c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5235	\|searchBlock\|
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5236
16691 9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5237	searchBlock := self searchBlockForStringLiteral:aString ignoreCase:ignoreCase match:doMatch fullWordsOnly:fullWordsOnly.
5877 c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5238	^ self findMethodsIn:aCollectionOfClasses where:searchBlock.
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5239
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5240	"
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5241	SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:true match:false
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5242	"
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5243	!
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5244
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5245	findStringLiteral:aString inMethods:aCollectionOfMethods ignoreCase:ignoreCase match:doMatch
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5246	"return a collection of all methods in aCollectionOfClasses
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5247	containing a string in any of their string-literals."
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5248
16691 9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5249	^ self
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5250	findStringLiteral:aString inMethods:aCollectionOfMethods
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5251	ignoreCase:ignoreCase match:doMatch fullWordsOnly:false
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5252	!
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5253
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5254	findStringLiteral:aString inMethods:aCollectionOfMethods ignoreCase:ignoreCase match:doMatch fullWordsOnly:fullWordsOnly
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5255	"return a collection of all methods in aCollectionOfClasses
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5256	containing a string in any of their string-literals."
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5257
5877 c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5258	\|searchBlock\|
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5259
16691 9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5260	searchBlock := self searchBlockForStringLiteral:aString ignoreCase:ignoreCase match:doMatch fullWordsOnly:fullWordsOnly.
5877 c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5261	^ 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	5262	!
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5263
9482 542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5264	findUsingParseTreeSearcher:searcher in:aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5265	"return a collection of all methods in aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5266	containing an exception raiser.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5267	This may be slow, since source-code has to be scanned."
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5268
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5269	\|searchBlock\|
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5270
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5271	searchBlock := self searchBlockForParseTreeSearcher:searcher isMethod:false.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5272	searchBlock isNil ifTrue:[ ^ nil].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5273	^ self findMethodsIn:aCollectionOfClasses where:searchBlock.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5274
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5275	"Created: / 11-05-2010 / 16:18:36 / cg"
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5276	!
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5277
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5278	findUsingParseTreeSearcher:searcher inMethods:aCollectionOfMethods
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5279	"return a collection of all methods in aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5280	containing an exception raiser.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5281	This may be slow, since source-code has to be scanned."
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5282
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5283	\|searchBlock\|
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5284
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5285	searchBlock := self searchBlockForParseTreeSearcher:searcher isMethod:false.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5286	searchBlock isNil ifTrue:[ ^ nil].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5287	^ 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	5288
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5289	"Created: / 11-05-2010 / 16:20:12 / cg"
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5290	!
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5291
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5292	searchBlockForAllCallsOn:aSelectorString ignoreCase:ignoreCase
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	5293	^ self searchBlockForAllCallsOn:aSelectorString ignoreCase:ignoreCase match:true
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	5294	!
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	5295
16337 7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5296	searchBlockForAllCallsOn:aSelectorString ignoreCase:ignoreCase match:doMatchArg
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5297	"return an optimized search block for the senders search.
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5298	Because this highly affects the speed of the senders-search in the browser,
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5299	specialized blocks are returned, depending on whether a selector-match or casesensitive
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5300	search is wanted
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5301	(these operations are executed a zillion times in an inner loop,
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5302	therefore, the speedup is noticable)"
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5303
16462 b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5304	\|doMatch sel quickSearch idx\|
16337 7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5305
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5306	doMatch := doMatchArg.
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5307	(doMatch and:[aSelectorString = '*']) ifTrue:[
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5308	"a trivial block, which matches everything"
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5309	^ [:class :method :s \| true].
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5310	].
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5311
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5312	aSelectorString includesMatchCharacters ifFalse:[
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5313	doMatch := false
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5314	].
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5315
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5316	(doMatch 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	5317	"/ a matchString or ignoreCase - need string matching procedure
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5318
16337 7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5319	quickSearch := aSelectorString.
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5320	(quickSearch startsWith:'*') ifTrue:[
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5321	quickSearch := quickSearch copyButFirst
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5322	].
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5323	(quickSearch endsWith:'*') ifTrue:[
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5324	quickSearch := quickSearch copyButLast
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5325	].
16395 cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5326
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5327	"/ for keyword selector searches, only look for the first KW-part in the quicksearch
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5328	"/ for matches, only look for substrings up to the first match character
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5329	(idx := quickSearch indexOfAny:'*#[:') ~~ 0 ifTrue:[
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5330	quickSearch := quickSearch copyTo:idx-1.
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5331	].
16395 cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5332
16337 7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5333	(ignoreCase and:[quickSearch includesMatchCharacters not]) ifTrue:[
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5334	doMatch ifFalse:[
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5335	^ [:class :methodArg :s \|
16462 b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5336	\|method src inLiterals skip\|
16395 cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5337
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5338	inLiterals := skip := false.
16337 7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5339	method := methodArg originalMethodIfWrapped.
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5340	method isLazyMethod ifTrue:[
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5341	src := method source.
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5342	(src notNil and:[src includesString:aSelectorString caseSensitive:false]) ifTrue:[
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5343	method makeRealMethod.
16395 cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5344	] ifFalse:[
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5345	skip := true
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5346	].
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5347	].
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5348	skip ifFalse:[
16462 b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5349	inLiterals :=
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5350	(method
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5351	literalsDetect:[:aLiteral\|
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5352	(aLiteral isMemberOf:Symbol)
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5353	and:[(aLiteral sameAs:aSelectorString)]]
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5354	ifNone:nil) notNil
16337 7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5355	].
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5356
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5357	inLiterals
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5358	and:[
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5359	method messagesSent contains:[:msg \| msg sameAs:aSelectorString ]
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5360	]
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5361	].
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5362	].
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5363
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5364	^ [:class :methodArg :s \|
16462 b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5365	\|method src inLiterals skip\|
16395 cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5366
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5367	inLiterals := skip := false.
16337 7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5368	method := methodArg originalMethodIfWrapped.
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5369	method isLazyMethod ifTrue:[
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5370	src := method source.
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5371	(src notNil and:[src includesString:quickSearch caseSensitive:false]) ifTrue:[
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5372	method makeRealMethod.
16395 cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5373	] ifFalse:[
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5374	skip := true
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5375	].
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5376	].
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5377	skip ifFalse:[
16462 b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5378	inLiterals :=
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5379	(method
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5380	literalsDetect:[:aLiteral\|
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5381	(aLiteral isMemberOf:Symbol)
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5382	and:[(aLiteral includesString:quickSearch caseSensitive:false)
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5383	and:[(aSelectorString match:aLiteral caseSensitive:false)]]]
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5384	ifNone:nil) notNil
16337 7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5385	].
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5386
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5387	inLiterals
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5388	and:[
16462 b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5389	method messagesSent
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5390	contains:[:sel \| aSelectorString match:aSelectorString caseSensitive:false]
16337 7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5391	]
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5392	].
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5393	].
16337 7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5394
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5395	(ignoreCase or:[quickSearch includesMatchCharacters]) ifFalse:[
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5396	^ [:class :methodArg :s \|
16395 cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5397	\|method src inLiterals skip\|
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5398
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5399	inLiterals := skip := false.
16337 7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5400	method := methodArg originalMethodIfWrapped.
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5401	method isLazyMethod ifTrue:[
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5402	src := method source.
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5403	(src notNil and:[src includesString:quickSearch]) ifTrue:[
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5404	method makeRealMethod.
16395 cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5405	] ifFalse:[
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5406	skip := true
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5407	].
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5408	].
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5409	skip ifFalse:[
16462 b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5410	inLiterals :=
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5411	(method
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5412	literalsDetect:[:aLiteral\|
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5413	(aLiteral isMemberOf:Symbol)
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5414	and:[(aLiteral includesString:quickSearch)
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5415	and:[(aSelectorString match:aLiteral)]]]
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5416	ifNone:nil) notNil
16337 7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5417	].
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5418	inLiterals and:[ method messagesSent includes:aSelectorString]
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5419	].
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5420	].
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5421	^ [:class :methodArg :s \|
16395 cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5422	\|method src inLiterals skip\|
16337 7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5423
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5424	method := methodArg originalMethodIfWrapped.
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5425	"/ expensive search
16395 cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5426	inLiterals := skip := false.
16337 7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5427	method isLazyMethod ifTrue:[
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5428	src := method source.
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5429	(src notNil and:[src includesMatchString:aSelectorString]) ifTrue:[
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5430	method makeRealMethod.
16395 cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5431	] ifFalse:[
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5432	skip := true.
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5433	].
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5434	].
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5435	skip ifFalse:[
16462 b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5436	inLiterals :=
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5437	(method literalsDetect:[:aLiteral\|
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5438	(aLiteral isMemberOf:Symbol)
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5439	and:[ aSelectorString match:aLiteral asLowercase caseSensitive:ignoreCase not]
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5440	] ifNone:nil) notNil
16337 7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5441	].
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5442	inLiterals
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5443	and:[
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5444	method messagesSent
16395 cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5445	contains:[:anySelector \|
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5446	aSelectorString match:anySelector caseSensitive:ignoreCase not
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5447	]
16337 7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5448	]
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5449	].
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5450	].
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5451
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5452	"/ no matchString and not ignoring case - can do it much faster
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5453	sel := aSelectorString asSymbolIfInterned.
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5454	sel isNil ifTrue:[
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5455	^ nil "/ none
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5456	].
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5457
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5458	quickSearch := sel.
16395 cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5459	"/ for keyword selector searches, only look for the first KW-part in the quicksearch
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5460	(idx := quickSearch indexOf:$:) ~~ 0 ifTrue:[
cf67c42049ec #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16384 diff changeset	5461	quickSearch := quickSearch copyTo:idx-1.
16337 7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5462	].
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5463
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5464	^ [:class :methodArg :s \|
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5465	\|method src\|
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5466
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5467	method := methodArg originalMethodIfWrapped.
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5468	method isLazyMethod ifTrue:[
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5469	src := method source.
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5470	(src notNil and:[src includesString:quickSearch]) ifTrue:[
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5471	method makeRealMethod.
19600 4b1129981eb9 Replace `sends:` with `sendsSelector:` and `sendsAny:` with `sendsAnySelector:` Jan Vrany <jan.vrany@labware.com> parents: 18532 diff changeset	5472	method referencesLiteral: "sendsSelector:" sel.
16337 7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5473	] ifFalse:[
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5474	false
7a86c38773bd #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16238 diff changeset	5475	]
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5476	] ifFalse:[
19600 4b1129981eb9 Replace `sends:` with `sendsSelector:` and `sendsAny:` with `sendsAnySelector:` Jan Vrany <jan.vrany@labware.com> parents: 18532 diff changeset	5477	method sendsSelector:sel
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5478	]
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5479	].
10416 82d17ccb68ad changed: #searchBlockForAllCallsOn:ignoreCase:match: Claus Gittinger <cg@exept.de> parents: 10386 diff changeset	5480
82d17ccb68ad changed: #searchBlockForAllCallsOn:ignoreCase:match: Claus Gittinger <cg@exept.de> parents: 10386 diff changeset	5481	"Modified: / 28-07-2011 / 10:52:51 / cg"
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5482	!
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5483
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5484	searchBlockForCode:aCodeString in:aCollectionOfClasses isMethod:isMethod
10546 174df6f8a170 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	5485	"return a block to search for a piece of code.
174df6f8a170 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	5486	intelligent search: because parsing and the parseTree-match is a relatively
174df6f8a170 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	5487	expensive operation, we try hard to reduce the amount of searched methods by:
174df6f8a170 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	5488	- extracting sent messages from the pattern, and limiting the search to
174df6f8a170 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	5489	methods which also send all those messages,
174df6f8a170 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	5490	- extracting accessed globals from the pattern, and limiting the search to
174df6f8a170 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	5491	methods which also refer to those globals"
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	5492
11638 344d7d06f1d2 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 11506 diff changeset	5493	\|errAction searchTree searcher globalVariablesUsed usedSymbols usedStrings
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5494	sentMessages searchBlock foundMatch numMethodArgs methodSelector nameSpacesForGlobals\|
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	5495
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	5496	"/self halt.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	5497	"/rule := ParseTreeLintRule
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	5498	"/ createParseTreeRule: (Array with: aCodeString)
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	5499	"/ method: isMethod
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	5500	"/ name: 'Search for: ' , aCodeString.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	5501	"/self halt.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	5502	"/
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	5503	"/ searchBlock := [:c :m :sel \|
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	5504	"/ rslt := SmalllintChecker
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	5505	"/ runRule:rule
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	5506	"/ 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	5507	"/
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	5508	"/ self halt.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	5509	"/ ].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	5510	"/^ searchBlock.
5226 35a9709e73ee code search Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	5511
16597 fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5512	errAction :=
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5513	[:errMsg :pos \|
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5514	Dialog warn:('Error during pattern parse: %1 (position %2)'
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5515	bindWith:errMsg with:pos).
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5516	^ nil
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5517	].
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	5518
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	5519	isMethod ifTrue:[
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	5520	searchTree := RBParser
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	5521	parseRewriteMethod:aCodeString
5226 35a9709e73ee code search Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	5522	onError: errAction.
8281 67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	5523	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	5524	methodSelector := searchTree selector.
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	5525	] ifFalse:[
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	5526	searchTree := RBParser
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	5527	parseRewriteExpression:aCodeString
5226 35a9709e73ee code search Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	5528	onError: errAction.
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	5529	].
16529 0514cf8d290b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16471 diff changeset	5530
10546 174df6f8a170 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	5531	"/ extract messages sent by the pattern
6368 ef36274cbbf1 faster code-search Claus Gittinger <cg@exept.de> parents: 6353 diff changeset	5532	Error handle:[:ex \|
12837 80c40ce2cd56 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12831 diff changeset	5533	self halt:'check this, please'.
6368 ef36274cbbf1 faster code-search Claus Gittinger <cg@exept.de> parents: 6353 diff changeset	5534	] do:[
6549 cd47faed29f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6546 diff changeset	5535	sentMessages := searchTree sentMessages.
5135 d844ec803124 improved code search Claus Gittinger <cg@exept.de> parents: 5112 diff changeset	5536	].
6581 ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	5537
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5538	nameSpacesForGlobals := Set with:Smalltalk.
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5539	aCollectionOfClasses do:[:eachClass \|
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5540	nameSpacesForGlobals add:eachClass topNameSpace
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5541	].
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5542
10546 174df6f8a170 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	5543	"/ extract globals used by the pattern
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5544	globalVariablesUsed := OrderedCollection new.
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5545	searchTree referencedVariables do:[:node \|
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5546	\|nm ns alternatives\|
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5547
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5548	node isPatternNode ifFalse:[
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5549	nm := node name.
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5550	ns := nameSpacesForGlobals detect:[:ns \| ns includesKey: nm asSymbol] ifNone:nil.
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5551	ns notNil ifTrue:[
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5552	alternatives := OrderedCollection new.
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5553	nm asSymbolIfInterned notNil ifTrue:[ alternatives add: nm asSymbol ].
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5554	('Smalltalk::',nm) asSymbolIfInterned notNil ifTrue:[ alternatives add: ('Smalltalk::',nm) asSymbol ].
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5555	(ns name,'::',nm) asSymbolIfInterned notNil ifTrue:[ alternatives add: (ns name,'::',nm) asSymbol ].
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5556	nm asSymbolIfInterned notNil ifTrue:[ alternatives add: nm asSymbol ].
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5557	globalVariablesUsed add:alternatives
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5558	].
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5559	]
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5560	].
5135 d844ec803124 improved code search Claus Gittinger <cg@exept.de> parents: 5112 diff changeset	5561
10546 174df6f8a170 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	5562	"/ sorry:
174df6f8a170 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	5563	"/ cannot use literals to speedup the search, because stc does not store
12056 28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	5564	"/ constants in the literal-array. However, we can do a string search on
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	5565	"/ them, to avoid parsing.
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	5566	usedSymbols := searchTree usedSymbols.
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	5567	usedStrings := searchTree usedLiterals select:[:lit \| lit isString].
7395 4aa4c6b9a161 * empty log message * Claus Gittinger <cg@exept.de> parents: 7361 diff changeset	5568
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	5569	searcher := ParseTreeSearcher new.
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	5570	isMethod ifTrue:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	5571	searcher
8281 67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	5572	matchesMethod:aCodeString
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	5573	do:[:aNode :answer \| foundMatch := true].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	5574	] ifFalse:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	5575	searcher
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	5576	matchesTree:searchTree
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	5577	do:[:aNode :answer \| foundMatch := true].
6303 47c12063b000 Fix BC-Compile error Stefan Vogel <sv@exept.de> parents: 6184 diff changeset	5578	].
16529 0514cf8d290b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16471 diff changeset	5579	searcher computeQuickSearchStrings.
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	5580
16597 fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5581	searchBlock :=
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5582	[:c :m :sel \|
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5583	\|isSTCCompiled allSelectorsInLiteralArray allMessagesSent
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5584	allGlobalsReferenced allUsedSymbolsInLiteralArray allStringsInLiteralArray
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5585	allSent src rslt parseTree
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5586	literalsInMethod\|
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5587
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5588	foundMatch := false.
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5589
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5590	"/ can speedup the search, by filtering for number of message-args first...
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5591	(isMethod not
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5592	or:[ numMethodArgs isNil
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5593	or:[ numMethodArgs == m numArgs ]]) ifTrue:[
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5594	m isLazyMethod ifTrue:[
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5595	src := m source.
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5596	src notNil ifTrue:[
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5597	m makeRealMethod.
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5598	].
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5599	].
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5600	"/ can speedup the search, by quickly filtering for sent messages...
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5601	literalsInMethod := m literals.
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5602	allSelectorsInLiteralArray := sentMessages isEmptyOrNil or:[ literalsInMethod includesAll:sentMessages ].
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5603	allSelectorsInLiteralArray ifTrue:[
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5604	"/ and used symbols/globals first...
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5605	allUsedSymbolsInLiteralArray := usedSymbols isEmptyOrNil or:[ literalsInMethod includesAll:usedSymbols ].
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5606	allUsedSymbolsInLiteralArray ifTrue:[
16600 2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5607	"/ if ANY string is in match, ANY string must be in method (not true, but I am lazy)
16597 fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5608	"/ that does not work for stc compiled code, because it does not put strings into the literal array
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5609	isSTCCompiled := m byteCode isNil.
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5610	isSTCCompiled ifTrue:[
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5611	allStringsInLiteralArray := true. "/ stc-compiled: don't know
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5612	] ifFalse:[
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5613	allStringsInLiteralArray := usedStrings isEmptyOrNil
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5614	or:[ literalsInMethod includesAll:usedStrings "literalsInMethod contains:[:lit \| lit isString]" ].
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5615	].
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5616	allStringsInLiteralArray ifTrue:[
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5617	allGlobalsReferenced := globalVariablesUsed conform:[:varNames \| varNames contains:[:varName \| m referencesGlobal:varName]].
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5618	allGlobalsReferenced ifTrue:[
16600 2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5619	allMessagesSent := sentMessages isEmptyOrNil
2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5620	or:[ m messagesSent includesAll:sentMessages ].
16597 fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5621	allMessagesSent ifTrue:[
16600 2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5622	src := m source.
2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5623	src isNil ifTrue:[
2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5624	('Browser [info]: no source for ' , m printString) infoPrintCR.
2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5625	] ifFalse:[
2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5626	isSTCCompiled ifTrue:[
2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5627	usedStrings notEmptyOrNil ifTrue:[
2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5628	"/ now that we have the source, scan the source for the literal strings,
2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5629	"/ before doing a slow parse
2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5630	allStringsInLiteralArray := usedStrings conform:[:eachString \| src includesString:eachString].
2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5631	]
2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5632	].
2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5633	allStringsInLiteralArray ifTrue:[
2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5634	(searcher canQuicklyReject:src) ifTrue:[
2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5635	"/ Transcript show:'qReject: '; showCR:m whoString.
2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5636	] ifFalse:[
2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5637	"/ the rest is done by the slower RB-match process...
2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5638	parseTree :=
2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5639	RBParser
2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5640	parseSearchMethod:src
2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5641	onError: [:str :pos \|
2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5642	"/ self halt.
2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5643	Transcript show:'Error during search in '; showCR:m.
2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5644	Transcript showCR:str.
2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5645	Transcript showCR:pos.
2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5646	nil
2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5647	].
2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5648
2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5649	parseTree notNil ifTrue:[
2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5650	searcher executeTree:parseTree.
2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5651	"/ notice: searcher sets foundMatch !!
16597 fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5652	].
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5653	].
16600 2c71384ebdc4 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16597 diff changeset	5654	].
5251 847d633792ce tuned code search if global vars are involved Claus Gittinger <cg@exept.de> parents: 5243 diff changeset	5655	]
5135 d844ec803124 improved code search Claus Gittinger <cg@exept.de> parents: 5112 diff changeset	5656	]
6581 ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	5657	]
16597 fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5658	]
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5659	]
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5660	]
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5661	].
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5662	foundMatch.
fb8d01e7020f #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16586 diff changeset	5663	].
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	5664	^ searchBlock.
7395 4aa4c6b9a161 * empty log message * Claus Gittinger <cg@exept.de> parents: 7361 diff changeset	5665
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5666	"Created: / 02-05-2011 / 13:25:01 / sr"
11638 344d7d06f1d2 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 11506 diff changeset	5667	"Modified: / 20-07-2012 / 19:07:36 / cg"
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5668	!
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5669
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5670	searchBlockForCode:aCodeString isMethod:isMethod
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5671	"return a block to search for a piece of code (intelligent search)."
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5672
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5673	^ self searchBlockForCode:aCodeString in:#() isMethod:isMethod
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5674
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	5675	"Modified: / 02-05-2011 / 13:26:18 / sr"
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	5676	!
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	5677
9482 542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5678	searchBlockForParseTreeSearcher:searcher isMethod:isMethod
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5679	"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	5680
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5681	\|errAction searchBlock foundMatch\|
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5682
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5683	errAction := [:str :pos \|
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5684	Dialog warn:'Error during parse: ' , str , ' (position ' , pos printString , ')'.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5685	^ nil
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5686	].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5687
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5688	searchBlock := [:c :m :sel \|
9483 eead021c9729 changed: #searchBlockForParseTreeSearcher:isMethod: Claus Gittinger <cg@exept.de> parents: 9482 diff changeset	5689	\|src parseTree\|
9482 542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5690
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5691	foundMatch := false.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5692
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5693	m isLazyMethod ifTrue:[
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5694	src := m source.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5695	src notNil ifTrue:[
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5696	m makeRealMethod.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5697	].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5698	].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5699
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5700	src := m source.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5701	src isNil ifTrue:[
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5702	('Browser [info]: no source for ' , m printString) infoPrintCR.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5703	] ifFalse:[
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5704	parseTree := RBParser
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5705	parseSearchMethod:src
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5706	onError: [:str :pos \|
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5707	Transcript show:'Error in '; showCR:m.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5708	Transcript showCR:str.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5709	Transcript showCR:pos.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5710	nil].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5711
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5712	parseTree notNil ifTrue:[
9483 eead021c9729 changed: #searchBlockForParseTreeSearcher:isMethod: Claus Gittinger <cg@exept.de> parents: 9482 diff changeset	5713	foundMatch := searcher executeTree:parseTree initialAnswer:false.
9482 542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5714	]
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5715	].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5716	foundMatch.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5717	].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5718
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5719	^ searchBlock.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5720
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5721	"Created: / 11-05-2010 / 16:14:25 / cg"
9483 eead021c9729 changed: #searchBlockForParseTreeSearcher:isMethod: Claus Gittinger <cg@exept.de> parents: 9482 diff changeset	5722	"Modified: / 11-05-2010 / 22:05:09 / cg"
9482 542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5723	!
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	5724
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5725	searchBlockForReferendsOf:aGlobalName
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5726	"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	5727	which may be a matchpattern"
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5728
12844 2a189ba77e75 Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 12837 diff changeset	5729	\|globalsPlainName idx sym1 sym2\|
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5730
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5731	globalsPlainName := aGlobalName.
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5732	(idx := globalsPlainName lastIndexOf:$:) ~~ 0 ifTrue:[
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5733	globalsPlainName := globalsPlainName copyFrom:idx+1.
11964 8670bf08f225 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 11941 diff changeset	5734	(globalsPlainName size == 0 or:[globalsPlainName = '*']) ifTrue:[
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5735	globalsPlainName := aGlobalName
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5736	]
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5737	].
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5738
9660 e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	5739	"/ matchingGlobalNames := OrderedCollection new.
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5740
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5741	aGlobalName includesMatchCharacters ifFalse:[
10386 105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5742	sym1 := aGlobalName asSymbolIfInterned.
105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5743	sym2 := globalsPlainName asSymbolIfInterned.
105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5744	(sym1 isNil and:[ sym2 isNil ]) ifTrue:[
105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5745	^ [:cls :mthd :sel \| false ].
105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5746	].
11964 8670bf08f225 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 11941 diff changeset	5747	"/ if any is nil, search for the same
8670bf08f225 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 11941 diff changeset	5748	sym1 := sym1 ? sym2.
8670bf08f225 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 11941 diff changeset	5749	sym2 := sym2 ? sym1.
10386 105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5750
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5751	^ [:cls :mthd :sel \|
10386 105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5752	\|mSource ok m usedGlobals\|
105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5753
105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5754	ok := false.
105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5755	"/ kludge: Lazy methods do not include symbols in the literal array - sigh
105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5756	mthd isLazyMethod ifTrue:[
105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5757	mSource := mthd source.
105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5758	(mSource notNil) ifTrue:[
11964 8670bf08f225 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 11941 diff changeset	5759	(mSource includesString:(sym2)) ifTrue:[
8670bf08f225 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 11941 diff changeset	5760	usedGlobals := mthd usedGlobals.
8670bf08f225 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 11941 diff changeset	5761	(usedGlobals includes:sym1) ifTrue:[
10386 105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5762	ok := true
105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5763	] ifFalse:[
11964 8670bf08f225 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 11941 diff changeset	5764	(sym1 ~= sym2 and:[usedGlobals includes:sym2]) ifTrue:[
9660 e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	5765	ok := true
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	5766	]
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	5767	]
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	5768	]
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5769	]
10386 105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5770	] ifFalse:[
13071 33d05d455513 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13046 diff changeset	5771	m := mthd originalMethodIfWrapped.
11964 8670bf08f225 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 11941 diff changeset	5772	((m refersToLiteral:sym1) or:[ sym1 ~= sym2 and:[m refersToLiteral:sym2] ]) ifTrue:[
10386 105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5773	usedGlobals := m usedGlobals.
11964 8670bf08f225 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 11941 diff changeset	5774	ok := (usedGlobals includes:sym1) or:[ sym1 ~= sym2 and:[usedGlobals includes:sym2] ]
10386 105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5775	].
105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5776	].
105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5777	ok
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5778	].
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5779	].
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5780
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5781	^ [:cls :mthd :sel \|
9660 e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	5782	\|mSource usedGlobals global m\|
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5783
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5784	"/ kludge: Lazy methods do not include symbols in the literal array - sigh
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5785	mthd isLazyMethod ifTrue:[
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5786	mSource := mthd source.
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5787	mSource notNil ifTrue:[
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5788	usedGlobals := mthd usedGlobals
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5789	]
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5790	] ifFalse:[
13071 33d05d455513 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13046 diff changeset	5791	m := mthd originalMethodIfWrapped.
9660 e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	5792	(m literals contains:[:lit \| (aGlobalName match:lit) or:[globalsPlainName match:lit]]) ifTrue:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	5793	usedGlobals := m usedGlobals
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5794	].
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5795	].
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5796	usedGlobals notNil ifTrue:[
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5797	global := usedGlobals detect:[:lit \| aGlobalName match:lit] ifNone:nil.
9660 e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	5798	global isNil ifTrue:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	5799	global := usedGlobals detect:[:lit \| globalsPlainName match:lit] ifNone:nil.
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	5800	].
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	5801	"/ global notNil ifTrue:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	5802	"/ matchingGlobalNames add:global.
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	5803	"/ ]
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5804	].
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5805	global notNil
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5806	].
9660 e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	5807
10386 105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5808	"Modified: / 24-07-2011 / 09:50:30 / cg"
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5809	!
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5810
16451 50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5811	searchBlockForString:aString ignoreCase:ignoreCase match:doMatchArg
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	5812	"return a block to search for a string."
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5813
16691 9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5814	^ self
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5815	searchBlockForString:aString
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5816	ignoreCase:ignoreCase
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5817	match:doMatchArg
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5818	fullWordsOnly:false
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5819
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5820	"
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5821	SystemBrowser
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5822	findString:'should'
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5823	in:(Array with:Object)
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5824	ignoreCase:false
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5825	"
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5826	!
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5827
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5828	searchBlockForString:aString ignoreCase:ignoreCase match:doMatchArg fullWordsOnly:fullWordsOnly
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5829	"return a block to search for a string."
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5830
16468 3df3e4d3ea9d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16462 diff changeset	5831	\|checkBlock lineCheckBlock pattern doMatch
3df3e4d3ea9d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16462 diff changeset	5832	quickCheckString firstMatchIndex lastMatchIndex\|
16451 50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5833
50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5834	doMatch := doMatchArg.
50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5835	aString includesMatchCharacters ifFalse:[
50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5836	doMatch := false.
50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5837	].
50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5838	doMatch ifTrue:[
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5839	"a matchString"
16468 3df3e4d3ea9d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16462 diff changeset	5840	pattern := aString.
3df3e4d3ea9d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16462 diff changeset	5841
3df3e4d3ea9d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16462 diff changeset	5842	firstMatchIndex := aString indexOfAny:'*#['.
3df3e4d3ea9d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16462 diff changeset	5843	lastMatchIndex := aString lastIndexOfAny:'*#['.
3df3e4d3ea9d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16462 diff changeset	5844	"/ which is longer - left or right part
3df3e4d3ea9d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16462 diff changeset	5845	firstMatchIndex-1 "nleft" > (aString size-lastMatchIndex) "nright" ifTrue:[
3df3e4d3ea9d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16462 diff changeset	5846	"/ use left part as quickSearch
3df3e4d3ea9d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16462 diff changeset	5847	quickCheckString := aString copyTo:firstMatchIndex-1
3df3e4d3ea9d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16462 diff changeset	5848	] ifFalse:[
3df3e4d3ea9d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16462 diff changeset	5849	"/ use right part as quickSearch
3df3e4d3ea9d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16462 diff changeset	5850	quickCheckString := aString copyFrom:lastMatchIndex+1
3df3e4d3ea9d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16462 diff changeset	5851	].
3df3e4d3ea9d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16462 diff changeset	5852
16451 50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5853	aString first == $* ifFalse:[
50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5854	pattern := '*',pattern
50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5855	].
50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5856	aString last == $* ifFalse:[
50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5857	pattern := pattern,'*'
50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5858	].
16468 3df3e4d3ea9d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16462 diff changeset	5859	"/ when doing a match, be careful to not match acrosss lines
16691 9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5860	lineCheckBlock := [:line \| pattern match:line caseSensitive:ignoreCase not].
16468 3df3e4d3ea9d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16462 diff changeset	5861	quickCheckString size > 1 ifTrue:[
16691 9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5862	checkBlock := [:src \|
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5863	(src includesString:quickCheckString caseSensitive:ignoreCase not)
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5864	and:[ (lineCheckBlock value:src)
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5865	and:[ src asStringCollection contains:lineCheckBlock ]]].
16468 3df3e4d3ea9d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16462 diff changeset	5866	] ifFalse:[
3df3e4d3ea9d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16462 diff changeset	5867	checkBlock := [:src \|
3df3e4d3ea9d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16462 diff changeset	5868	(lineCheckBlock value:src)
3df3e4d3ea9d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16462 diff changeset	5869	and:[ src asStringCollection contains:lineCheckBlock ]].
3df3e4d3ea9d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16462 diff changeset	5870	].
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5871	] ifFalse:[
16691 9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5872	checkBlock := [:src \| src includesString:aString caseSensitive:ignoreCase not]
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5873	].
16691 9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5874
16451 50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5875	^ [:cls :mthd :sel \|
16691 9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5876	\|src found idx1 reallyFound ch1 ch2\|
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5877
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5878	found := false.
16451 50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5879	src := mthd source.
50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5880	src isNil ifTrue:[
50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5881	('Browser [info]: no source for ' , mthd printString) infoPrintCR.
50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5882	] ifFalse:[
16691 9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5883	found := checkBlock value:src.
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5884	(fullWordsOnly and:[found]) ifTrue:[
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5885	self halt.
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5886	doMatch ifTrue:[
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5887
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5888	] ifFalse:[
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5889	reallyFound := false.
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5890	idx1 := 0.
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5891	[
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5892	reallyFound not
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5893	and:[
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5894	idx1 := src indexOfSubCollection:aString startingAt:idx1+1 ifAbsent:0 caseSensitive:ignoreCase not.
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5895	idx1 ~~ 0]
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5896	] whileTrue:[
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5897	"/ see if it is a free-standing word
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5898	reallyFound := true.
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5899	idx1 > 1 ifTrue:[
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5900	ch1 := src at:idx1-1.
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5901	(ch1 isLetter or:[ch1 == $_]) ifTrue:[ reallyFound := false].
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5902	].
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5903	(idx1+aString size-1) < src size ifTrue:[
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5904	ch2 := src at:idx1+aString size.
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5905	(ch2 isLetter or:[ch2 == $_]) ifTrue:[ reallyFound := false].
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5906	].
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5907	].
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5908	found := reallyFound
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5909	].
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5910	].
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5911	].
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5912	found
16451 50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5913	]
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5914
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5915	"
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5916	SystemBrowser findString:'should' in:(Array with:Object) ignoreCase:false
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5917	"
4152 92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	5918	!
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	5919
16451 50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5920	searchBlockForStringLiteral:aString ignoreCase:ignoreCase match:doMatchArg
5877 c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5921	"return a block to search for a string-literal."
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5922
16691 9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5923	^ self
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5924	searchBlockForStringLiteral:aString ignoreCase:ignoreCase match:doMatchArg
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5925	fullWordsOnly:false
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5926
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5927	"
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5928	SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:true match:true
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5929	SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:true match:false
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5930	SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:false match:true
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5931	SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:false match:false
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5932	"
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5933	!
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5934
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5935	searchBlockForStringLiteral:aString ignoreCase:ignoreCase match:doMatchArg fullWordsOnly:fullWordsOnly
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5936	"return a block to search for a string-literal."
9998797358f3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16600 diff changeset	5937
16468 3df3e4d3ea9d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16462 diff changeset	5938	\|pattern doMatch checkLiteral checkSource
3df3e4d3ea9d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16462 diff changeset	5939	quickCheckString firstMatchIndex lastMatchIndex\|
16451 50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5940
50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5941	aString isEmpty ifTrue:[^ [:cls :mthd :sel \| true ]].
50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5942
50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5943	doMatch := doMatchArg.
50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5944	(aString includesMatchCharacters) ifFalse:[
50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5945	doMatch := false
50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5946	].
50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5947	doMatch ifTrue:[
5877 c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5948	"a matchString"
16451 50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5949	pattern := aString.
50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5950	aString first == $* ifFalse:[
50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5951	pattern := '*',pattern
50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5952	].
50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5953	aString last == $* ifFalse:[
50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5954	pattern := pattern,'*'
50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5955	].
16462 b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5956	checkLiteral := [:lit \| pattern match:lit caseSensitive:ignoreCase not].
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5957	firstMatchIndex := aString indexOfAny:'*#['.
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5958	lastMatchIndex := aString lastIndexOfAny:'*#['.
16468 3df3e4d3ea9d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16462 diff changeset	5959	"/ which is longer - left or right part?
16462 b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5960	firstMatchIndex-1 "nleft" > (aString size-lastMatchIndex) "nright" ifTrue:[
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5961	"/ use left part as quickSearch
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5962	quickCheckString := aString copyTo:firstMatchIndex-1
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5963	] ifFalse:[
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5964	"/ use right part as quickSearch
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5965	quickCheckString := aString copyFrom:lastMatchIndex+1
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5966	].
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5967	quickCheckString size > 1 ifTrue:[
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5968	checkSource := [:src \| src includesString:quickCheckString caseSensitive:ignoreCase not]
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5969	] ifFalse:[
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5970	checkSource := [:src \| true]. "/ not worth the effort
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5971	].
5877 c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5972	] ifFalse:[
5891 2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	5973	ignoreCase ifTrue:[
16462 b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5974	checkLiteral := [:lit \| lit includesString:aString caseSensitive:true].
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5975	checkSource := [:src \| src includesString:aString caseSensitive:true].
5891 2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	5976	] ifFalse:[
16462 b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5977	checkLiteral := [:lit \| lit includesString:aString].
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5978	checkSource := [:src \| src includesString:aString].
16451 50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5979	].
5877 c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5980	].
16451 50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	5981
16462 b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5982	^ [:cls :methodArg :sel \|
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5983	"/ sorry: the following does not work, because stc does not place string-constants
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5984	"/ into the literals.
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5985	"/ (mthd literalsDetect:[:lit \|
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5986	"/ lit isString
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5987	"/ and:[ lit isSymbol not
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5988	"/ and:[ checkLiteral value:lit ]]
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5989	"/ ] ifNone:[nil])
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5990	"/ notNil
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5991	"/ so we must parse here (sigh)
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5992
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5993	\|method src skip tree found\|
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5994
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5995	skip := found := false.
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5996	method := methodArg originalMethodIfWrapped.
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5997	method isLazyMethod ifTrue:[
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5998	src := method source.
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	5999	(src notNil) ifTrue:[
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	6000	method makeRealMethod.
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	6001	] ifFalse:[
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	6002	skip := true
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	6003	].
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	6004	].
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	6005	skip ifFalse:[
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	6006	src := method source.
17056 20e4c1abbbcf #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 17043 diff changeset	6007	src isNil ifTrue:[
20e4c1abbbcf #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 17043 diff changeset	6008	('SystemBrowser: [warning]: no source for method: ',methodArg printString) errorPrintCR.
20e4c1abbbcf #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 17043 diff changeset	6009	].
20e4c1abbbcf #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 17043 diff changeset	6010	(src notNil and:[src includes:$']) ifTrue:[ "/ eliminates many
16462 b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	6011	(checkSource value:src) ifTrue:[
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	6012	tree := cls parseTreeFor:sel.
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	6013	"/ walk
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	6014	found :=
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	6015	tree usedLiterals contains:[:lit \|
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	6016	lit isString
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	6017	and:[ lit isSymbol not
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	6018	and:[ checkLiteral value:lit ]]]
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	6019	].
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	6020	].
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	6021	].
b6190d4c7f4c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16451 diff changeset	6022	found
16451 50d4e491a50e #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16449 diff changeset	6023	]
5877 c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	6024
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	6025	"
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	6026	SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:true match:true
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	6027	SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:true match:false
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	6028	SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:false match:true
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	6029	SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:false match:false
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	6030	"
11452 09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	6031	!
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	6032
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	6033	searchBlockForSymbol:aSymbol
12866 dfc55f180f52 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12844 diff changeset	6034	"return a matchblock to search for all methods referencing aSymbol.
dfc55f180f52 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12844 diff changeset	6035	false if no such symbol exists"
11452 09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	6036
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	6037	(aSymbol includesMatchCharacters) ifTrue:[
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	6038	"a matchString"
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	6039	^ [:c :m :s \|
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	6040	(m literalsDetect:[:aLiteral\|
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	6041	(aLiteral isMemberOf:Symbol)
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	6042	and:[aSymbol match:aLiteral]
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	6043	]
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	6044	ifNone:nil
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	6045	) notNil
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	6046	].
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	6047	] ifFalse:[
12866 dfc55f180f52 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12844 diff changeset	6048	aSymbol asSymbolIfInterned isNil ifTrue:[
dfc55f180f52 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12844 diff changeset	6049	^ false
dfc55f180f52 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12844 diff changeset	6050	].
11452 09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	6051	^ [:c :m :s \|
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	6052	(m literalsDetect:[:aLiteral\|
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	6053	(aSymbol == aLiteral)
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	6054	]
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	6055	ifNone:nil
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	6056	) notNil
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	6057	].
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	6058	].
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	6059
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	6060	"Created: / 22-03-2012 / 06:56:51 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6061	! !
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6062
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	6063	!SystemBrowser class methodsFor:'startup'!
36 ccde5a941840 * empty log message * claus parents: diff changeset	6064
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6065	browseAllSelect:aBlock
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6066	"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	6067	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	6068
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6069	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6070	browseMethodsWhere:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6071	title:'selected messages'
36 ccde5a941840 * empty log message * claus parents: diff changeset	6072
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	6073	"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6074	SystemBrowser browseAllSelect:[:aClass :aMethod :selector \| selector numArgs == 3]
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	6075	"
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6076
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6077	"Modified: 24.1.1997 / 19:45:05 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6078	!
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	6079
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6080	browseClass:aClass
4490 de7216d4a28a * empty log message * Claus Gittinger <cg@exept.de> parents: 4350 diff changeset	6081	"launch a browser for aClass.
de7216d4a28a * empty log message * Claus Gittinger <cg@exept.de> parents: 4350 diff changeset	6082	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	6083
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6084	^ self
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6085	newWithLabel:aClass name
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6086	setupSelector:#setupForClass:
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6087	arg:aClass
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6088
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6089	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6090	SystemBrowser browseClass:Object
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6091	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6092
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6093	"Modified: 24.1.1997 / 19:45:16 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6094	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6095
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6096	browseClass:aClass methodCategory:aCategory
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6097	"launch a browser for all methods under aCategory in aClass"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6098
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6099	^ self newWithLabel:(aClass name , ' ' , aCategory)
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6100	setupBlock:[:browser \| browser setupForClass:aClass methodCategory:aCategory]
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6101
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6102	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6103	SystemBrowser browseClass:String methodCategory:'copying'
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6104	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6105
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6106	"Modified: 24.1.1997 / 19:45:23 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6107	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6108
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6109	browseClass:aClass selector:selector
4490 de7216d4a28a * empty log message * Claus Gittinger <cg@exept.de> parents: 4350 diff changeset	6110	"launch a browser for the method at selector in aClass."
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6111
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6112	^ self
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	6113	newWithLabel:(aClass name , ' ' , selector , ' ' , selector)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	6114	setupBlock:[:newBrowser \| newBrowser setupForClass:aClass selector:selector]
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6115
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6116	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6117	SystemBrowser browseClass:Object selector:#printString
16384 c8ad46b886c6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16337 diff changeset	6118	Tools::NewSystemBrowser openInClass:Object selector:#printString
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6119	"
36 ccde5a941840 * empty log message * claus parents: diff changeset	6120	!
ccde5a941840 * empty log message * claus parents: diff changeset	6121
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6122	browseClassCategory:aClassCategory
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6123	"launch a browser for all classes under aCategory"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6124
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6125	^ self
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6126	newWithLabel:aClassCategory
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6127	setupSelector:#setupForClassCategory:
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6128	arg:aClassCategory
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6129
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6130	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6131	SystemBrowser browseClassCategory:'Kernel-Objects'
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6132	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6133
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6134	"Modified: 24.1.1997 / 19:45:32 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6135	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6136
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6137	browseClassHierarchy:aClass
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6138	"launch a browser for aClass and all its superclasses.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6139	this is different from the fullProtocol browser."
36 ccde5a941840 * empty log message * claus parents: diff changeset	6140
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6141	^ self
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	6142	newWithLabel:(aClass name , '-' , 'hierarchy')
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	6143	setupSelector:#setupForClassHierarchy:
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	6144	arg:aClass
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6145
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6146	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6147	SystemBrowser browseClassHierarchy:Number
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6148	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6149	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6150
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	6151	browseClasses:aList label:title
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6152	"launch a browser for all classes in aList"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6153
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6154	^ self
576 62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	6155	newWithLabel:title
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	6156	setupBlock:[:b \| b setupForClassList:aList sort:true]
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6157
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6158	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6159	SystemBrowser browseClasses:(Array with:Object
576 62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	6160	with:Float)
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	6161	title:'two classes'
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6162	"
576 62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	6163
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	6164	"Modified: 28.5.1996 / 13:52:25 / cg"
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	6165	!
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	6166
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	6167	browseClasses:aList label:title sort:doSort
576 62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	6168	"launch a browser for all classes in aList"
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	6169
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	6170	^ self
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	6171	newWithLabel:title
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	6172	setupBlock:[:b \| b setupForClassList:aList sort:doSort]
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	6173
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	6174	"
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	6175	SystemBrowser browseClasses:(Array with:Object
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	6176	with:Float)
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	6177	title:'two classes'
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	6178	"
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	6179
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	6180	"Created: 28.5.1996 / 13:52:09 / cg"
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	6181	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	6182
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	6183	browseClasses:aList title:title
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	6184	<resource: #obsolete>
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	6185	"launch a browser for all classes in aList"
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	6186
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	6187	self obsoleteMethodWarning.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	6188	^ self browseClasses:aList label:title
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	6189	!
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	6190
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	6191	browseClasses:aList title:title sort:doSort
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	6192	<resource: #obsolete>
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	6193	"launch a browser for all classes in aList"
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	6194
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	6195	self obsoleteMethodWarning.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	6196	^ self browseClasses:aList label:title sort:doSort
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	6197
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	6198	"Created: 28.5.1996 / 13:52:09 / cg"
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	6199	!
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	6200
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6201	browseFullClassProtocol:aClass
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6202	"launch a browser for aClasses full protocol.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6203	This is different from hierarchy browsing."
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6204
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6205	^ self
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	6206	newWithLabel:(aClass name , '-' , 'full protocol')
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	6207	setupSelector:#setupForFullClassProtocol:
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	6208	arg:aClass
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6209
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6210	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6211	SystemBrowser browseFullClassProtocol:Number
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6212	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6213	!
36 ccde5a941840 * empty log message * claus parents: diff changeset	6214
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6215	browseFullClasses
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6216	"launch a browser showing all methods at once"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6217
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6218	^ self
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	6219	newWithLabel:'Full Class Browser'
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	6220	setupBlock:[:newBrowser \| newBrowser setupForFullClass]
36 ccde5a941840 * empty log message * claus parents: diff changeset	6221
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6222	"SystemBrowser browseFullClasses"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6223	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6224
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6225	browseInstMethodsFrom:aClass where:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6226	"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	6227	where aBlock evaluates to true"
36 ccde5a941840 * empty log message * claus parents: diff changeset	6228
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6229	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6230	browseMethodsIn:(aClass withAllSubclasses)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6231	inst:true
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6232	class:false
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6233	where:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6234	title:title
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6235
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6236	"Modified: 24.1.1997 / 19:44:45 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6237	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6238
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6239	browseInstMethodsIn:aCollectionOfClasses where:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6240	"launch a browser for all instance methods of all classes in
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6241	aCollectionOfClasses where aBlock evaluates to true"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6242
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6243	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6244	browseMethodsIn:aCollectionOfClasses
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6245	inst:true class:false
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6246	where:aBlock title:title
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6247
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6248	"Modified: 24.1.1997 / 19:43:41 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6249	!
36 ccde5a941840 * empty log message * claus parents: diff changeset	6250
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6251	browseInstMethodsOf:aClass where:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6252	"launch a browser for all instance methods in aClass
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6253	where aBlock evaluates to true"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6254
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6255	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6256	browseMethodsIn:(Array with:aClass)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6257	inst:true
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6258	class:false
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6259	where:aBlock title:title
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6260
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6261	"Modified: 24.1.1997 / 19:43:50 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6262	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6263
16384 c8ad46b886c6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16337 diff changeset	6264	browseMethod:aMethod
c8ad46b886c6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16337 diff changeset	6265	"launch a single-method browser."
c8ad46b886c6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16337 diff changeset	6266
c8ad46b886c6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16337 diff changeset	6267	^ self browseMethods:{ aMethod }
c8ad46b886c6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16337 diff changeset	6268
c8ad46b886c6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16337 diff changeset	6269	"
c8ad46b886c6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16337 diff changeset	6270	self browseMethod:(Array compiledMethodAt:#at:)
c8ad46b886c6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16337 diff changeset	6271	Tools::NewSystemBrowser browseMethod:(Array compiledMethodAt:#at:)
c8ad46b886c6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16337 diff changeset	6272	"
c8ad46b886c6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16337 diff changeset	6273	!
c8ad46b886c6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16337 diff changeset	6274
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6275	browseMethodCategory:aCategory
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6276	"launch a browser for all methods where category = aCategory"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6277
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6278	\|searchBlock\|
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6279
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6280	aCategory includesMatchCharacters ifTrue:[
2822 8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	6281	searchBlock := [:c :m :s \| aCategory match:m category].
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	6282	] ifFalse:[
2822 8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	6283	searchBlock := [:c :m :s \| m category = aCategory]
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	6284	].
2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	6285
2822 8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	6286	^ self browseMethodsWhere:searchBlock title:('all methods with category of ' , aCategory)
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6287
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6288	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6289	SystemBrowser browseMethodCategory:'printing & storing'
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6290	SystemBrowser browseMethodCategory:'print*'
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6291	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6292	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6293
3666 f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	6294	browseMethods:aListOfMethods
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	6295	"launch a multi-method browser."
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	6296
16384 c8ad46b886c6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16337 diff changeset	6297	\|title\|
c8ad46b886c6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16337 diff changeset	6298
c8ad46b886c6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16337 diff changeset	6299	aListOfMethods size == 1 ifTrue:[
c8ad46b886c6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16337 diff changeset	6300	title := aListOfMethods first whoString
c8ad46b886c6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16337 diff changeset	6301	] ifFalse:[
c8ad46b886c6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16337 diff changeset	6302	title := 'some methods'
c8ad46b886c6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16337 diff changeset	6303	].
c8ad46b886c6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16337 diff changeset	6304	^ self browseMethods:aListOfMethods title:title
c8ad46b886c6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16337 diff changeset	6305
c8ad46b886c6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16337 diff changeset	6306	"
c8ad46b886c6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16337 diff changeset	6307	self
c8ad46b886c6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16337 diff changeset	6308	browseMethods:(Array with:(Array compiledMethodAt:#at:))
c8ad46b886c6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16337 diff changeset	6309
3666 f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	6310	self
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	6311	browseMethods:(Array with:(Array compiledMethodAt:#at:)
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	6312	with:(OrderedCollection compiledMethodAt:#at:))
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	6313
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	6314	self
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	6315	browseMethods:(Array with:(Array compiledMethodAt:#at:)
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	6316	with:(Array compiledMethodAt:#at:put:))
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	6317	"
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	6318	!
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	6319
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6320	browseMethods:aList title:aString
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6321	"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	6322	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	6323	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	6324	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	6325
1919 0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	6326	^ self
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	6327	browseMethods:aList
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	6328	title:aString
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	6329	sort:true
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	6330
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	6331
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	6332	"
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	6333	SystemBrowser
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	6334	browseMethods:#('Object printOn:' 'Collection add:')
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	6335	title:'some methods'
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	6336
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	6337	SystemBrowser
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	6338	browseMethods:#('Behavior new:' 'Setclass new:')
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	6339	title:'some new: methods'
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	6340
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	6341	SystemBrowser
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	6342	browseMethods:(Array with:(Object compiledMethodAt:#printOn:)
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	6343	with:(Collection compiledMethodAt:#add:)
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	6344	with:(Object class compiledMethodAt:#initialize))
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	6345	title:'some methods'
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	6346
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	6347	"
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	6348
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	6349	"Modified: 1.11.1996 / 16:30:17 / cg"
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	6350	!
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	6351
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	6352	browseMethods:aList title:aString sort:doSort
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	6353	"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	6354	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	6355	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	6356	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	6357
279 062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	6358	\|l\|
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6359
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6360	(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	6361	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	6362	^ nil
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6363	].
279 062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	6364	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	6365	l := l collect:[:entry \|
15513 bbe70d563ae2 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15499 diff changeset	6366	\|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	6367
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	6368	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	6369	entry
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	6370	] ifFalse:[
2822 8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	6371	cls := entry mclass.
8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	6372	cls isNil ifTrue:[
1031 5d77c99b877e dont crash when unbound methods are passed ca parents: 1018 diff changeset	6373	'??? unbound'
5d77c99b877e dont crash when unbound methods are passed ca parents: 1018 diff changeset	6374	] ifFalse:[
2822 8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	6375	cls isJavaClass ifTrue:[
8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	6376	clsName := 'JAVA::' , cls fullName
1937 fc541342f2db more support for java code (implementors) Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	6377	] ifFalse:[
2822 8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	6378	clsName := cls name
8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	6379	].
7915 56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	6380	(cls selectorAtMethod:entry) isNil ifTrue:[
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	6381	clsName
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	6382	, ' '
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	6383	, '???'
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	6384	] ifFalse:[
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	6385	clsName
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	6386	, ' '
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	6387	, (entry printStringForBrowserWithSelector:(cls selectorAtMethod:entry) inClass:cls)
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	6388	]
1031 5d77c99b877e dont crash when unbound methods are passed ca parents: 1018 diff changeset	6389	]
279 062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	6390	]
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	6391	].
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	6392
1919 0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	6393	doSort ifTrue:[l sort].
1937 fc541342f2db more support for java code (implementors) Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	6394
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6395	^ 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	6396	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	6397	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	6398	arg:l
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	6399
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6400	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6401	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	6402	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	6403	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	6404
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	6405	SystemBrowser
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	6406	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	6407	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	6408
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	6409	SystemBrowser
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	6410	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	6411	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	6412	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	6413	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	6414
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6415	"
279 062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	6416
7711 7e8881bccf72 * empty log message * Claus Gittinger <cg@exept.de> parents: 7524 diff changeset	6417	"Modified: / 17-06-1996 / 17:07:46 / stefan"
7e8881bccf72 * empty log message * Claus Gittinger <cg@exept.de> parents: 7524 diff changeset	6418	"Modified: / 05-03-2007 / 16:25:25 / cg"
2826 9d7f11697806 * empty log message * Claus Gittinger <cg@exept.de> parents: 2824 diff changeset	6419	!
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	6420
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6421	browseMethodsFrom:aClass where:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6422	"launch a browser for all instance- and classmethods in aClass
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6423	and all its subclasses where aBlock evaluates to true.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6424	The block is called with 3 arguments, class, method and seelctor."
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6425
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6426	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6427	browseMethodsIn:(aClass withAllSubclasses)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6428	where:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6429	title:title
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6430
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6431	"Modified: 24.1.1997 / 19:44:00 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6432	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6433
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6434	browseMethodsIn:aCollectionOfClasses inst:wantInst class:wantClass where:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6435	"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	6436	classmethods (if wantClass is true) from classes in aCollectionOfClasses,
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6437	where aBlock evaluates to true.
270 f97a37f5df7a checkin from browser Claus Gittinger <cg@exept.de> parents: 256 diff changeset	6438	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	6439
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6440	\|list\|
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	6441
2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	6442	"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6443	since this may take a long time, lower my priority ...
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	6444	"
2295 4e05198e7dd8 execute BG tasks at a prio range, to ensure progress. Claus Gittinger <cg@exept.de> parents: 2208 diff changeset	6445	Processor activeProcess
4e05198e7dd8 execute BG tasks at a prio range, to ensure progress. Claus Gittinger <cg@exept.de> parents: 2208 diff changeset	6446	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	6447	do:[
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6448	list := self findMethodsIn:aCollectionOfClasses inst:wantInst class:wantClass where:aBlock
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6449	].
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6450	^ self browseMethods:list title:title
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	6451	!
2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	6452
3780 39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6453	browseMethodsIn:aCollectionOfClasses inst:wantInst class:wantClass where:aBlock title:title ifNone:warnBlock
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6454	"launch a browser for all instance- (if wantInst is true) and/or
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6455	classmethods (if wantClass is true) from classes in aCollectionOfClasses,
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6456	where aBlock evaluates to true.
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6457	The block is called with 3 arguments, class, method and selector."
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6458
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6459	\|list\|
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6460
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6461	"
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6462	since this may take a long time, lower my priority ...
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6463	"
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6464	Processor activeProcess
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6465	withPriority:Processor activePriority-1 to:Processor activePriority
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6466	do:[
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6467	list := self findMethodsIn:aCollectionOfClasses inst:wantInst class:wantClass where:aBlock.
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6468	list size == 0 ifTrue:[warnBlock value].
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6469	].
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6470	^ self browseMethods:list title:title
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6471	!
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6472
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6473	browseMethodsIn:aCollectionOfClasses where:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6474	"launch a browser for all instance- and classmethods from
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6475	all classes in aCollectionOfClasses where aBlock evaluates to true.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6476	The block is called with 3 arguments, class, method and seelctor."
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	6477
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6478	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6479	browseMethodsIn:aCollectionOfClasses
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6480	inst:true
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6481	class:true
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6482	where:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6483	title:title
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	6484
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6485	"Modified: 24.1.1997 / 19:44:17 / cg"
36 ccde5a941840 * empty log message * claus parents: diff changeset	6486	!
ccde5a941840 * empty log message * claus parents: diff changeset	6487
3780 39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6488	browseMethodsIn:aCollectionOfClasses where:aBlock title:title ifNone:warnBlock
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6489	"launch a browser for all instance- and classmethods from
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6490	all classes in aCollectionOfClasses where aBlock evaluates to true.
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6491	The block is called with 3 arguments, class, method and seelctor."
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6492
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6493	^ self
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6494	browseMethodsIn:aCollectionOfClasses
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6495	inst:true
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6496	class:true
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6497	where:aBlock
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6498	title:title
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6499	ifNone:warnBlock
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6500
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6501	"Modified: 24.1.1997 / 19:44:17 / cg"
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6502	!
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6503
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6504	browseMethodsOf:aClass where:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6505	"launch a browser for all instance- and classmethods in aClass
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6506	where aBlock evaluates to true.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6507	The block is called with 3 arguments, class, method and seelctor."
93 dda97353e775 . claus parents: 90 diff changeset	6508
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6509	^ self browseMethodsIn:(Array with:aClass) where:aBlock title:title
93 dda97353e775 . claus parents: 90 diff changeset	6510	!
dda97353e775 . claus parents: 90 diff changeset	6511
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6512	browseMethodsWhere:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6513	"launch a browser for all methods where aBlock returns true.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6514	The block is called with 3 arguments, class, method and seelctor."
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6515
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6516	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6517	browseMethodsIn:(Smalltalk allClasses)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6518	where:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6519	title:title
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6520
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	6521	"Modified: 24.1.1997 / 19:44:30 / cg"
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6522	!
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6523
3780 39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6524	browseMethodsWhere:aBlock title:title ifNone:warnBlock
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6525	"launch a browser for all methods where aBlock returns true.
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6526	The block is called with 3 arguments, class, method and seelctor."
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6527
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6528	^ self
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6529	browseMethodsIn:(Smalltalk allClasses)
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6530	where:aBlock
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6531	title:title
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6532	ifNone:warnBlock
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6533
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6534	"Modified: 24.1.1997 / 19:44:30 / cg"
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6535	!
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	6536
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6537	findMethodsIn:aCollectionOfClasses inst:wantInst class:wantClass where:aBlock
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6538	"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	6539	from classes in aCollectionOfClasses, where aBlock evaluates to true."
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6540
16449 d4471f0310b6 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16443 diff changeset	6541	\|list checkedClasses checkBlock nClasses
d4471f0310b6 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16443 diff changeset	6542	nClassesDone oldPercentage newPercentage nClassesSinceLastPercentage bulkSize\|
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6543
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6544	checkedClasses := IdentitySet new.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6545	list := OrderedCollection new.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6546
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6547	checkBlock := [:cls \|
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6548	(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	6549	(cls isObsolete and:[cls isLoaded]) ifTrue:[
2882 2a12342fef79 * empty log message * Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	6550	Transcript showCR:'Browser method search: skipping obsolete class: ' , cls displayString
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6551	] ifFalse:[
11941 55fec250ed02 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11934 diff changeset	6552	aBlock numArgs == 1 ifTrue:[
55fec250ed02 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11934 diff changeset	6553	cls methodDictionary keysAndValuesDo:[:sel :method \|
55fec250ed02 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11934 diff changeset	6554	(aBlock value:method) ifTrue:[
55fec250ed02 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11934 diff changeset	6555	list add:method "/ (cls name , ' ' , sel)
55fec250ed02 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11934 diff changeset	6556	]
55fec250ed02 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11934 diff changeset	6557	].
55fec250ed02 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11934 diff changeset	6558	] ifFalse:[
55fec250ed02 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11934 diff changeset	6559	cls methodDictionary keysAndValuesDo:[:sel :method \|
55fec250ed02 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11934 diff changeset	6560	(aBlock value:cls value:method value:sel) ifTrue:[
55fec250ed02 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11934 diff changeset	6561	list add:method "/ (cls name , ' ' , sel)
55fec250ed02 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11934 diff changeset	6562	]
55fec250ed02 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11934 diff changeset	6563	].
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6564	].
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6565	checkedClasses add:cls.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6566	]
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6567	]
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6568	].
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6569
11506 bc0fc32fd733 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11452 diff changeset	6570	nClasses := aCollectionOfClasses size.
bc0fc32fd733 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11452 diff changeset	6571	nClassesDone := 0.
16238 64ea19197d95 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16037 diff changeset	6572	oldPercentage := 0.
16449 d4471f0310b6 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16443 diff changeset	6573	nClassesSinceLastPercentage := 0.
d4471f0310b6 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16443 diff changeset	6574	bulkSize := (nClasses // 30) max:10. "/ roughly every 3%.
16238 64ea19197d95 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16037 diff changeset	6575
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6576	aCollectionOfClasses do:[:aClass \|
3008 1a45c272b13f * empty log message * Claus Gittinger <cg@exept.de> parents: 2901 diff changeset	6577	(aClass notNil and:[aClass isObsolete not]) ifTrue:[
16449 d4471f0310b6 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16443 diff changeset	6578	nClassesSinceLastPercentage := nClassesSinceLastPercentage + 1.
d4471f0310b6 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16443 diff changeset	6579
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6580	"
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6581	output disabled - it slows down things too much (when searching for
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6582	implementors or senders)
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6583	"
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6584	wantInst ifTrue:[
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6585	"/ Transcript show:'searching '; show:aClass name; showCR:' ...'; endEntry.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6586	checkBlock value:aClass
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6587	].
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6588	wantClass ifTrue:[
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6589	"/ Transcript show:'searching '; show:aClass class name; showCR:' ...'; endEntry.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6590	checkBlock value:(aClass class)
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6591	].
16449 d4471f0310b6 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16443 diff changeset	6592	nClassesSinceLastPercentage > bulkSize ifTrue:[
11506 bc0fc32fd733 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11452 diff changeset	6593	"/ Processor yield
16238 64ea19197d95 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16037 diff changeset	6594	newPercentage := nClassesDone * 100 // nClasses.
64ea19197d95 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16037 diff changeset	6595	newPercentage ~= oldPercentage ifTrue:[
64ea19197d95 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16037 diff changeset	6596	ProgressNotification progressPercentage:newPercentage.
64ea19197d95 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16037 diff changeset	6597	oldPercentage := newPercentage.
64ea19197d95 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16037 diff changeset	6598	].
16449 d4471f0310b6 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 16443 diff changeset	6599	nClassesSinceLastPercentage := 0.
11506 bc0fc32fd733 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11452 diff changeset	6600	].
bc0fc32fd733 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11452 diff changeset	6601	].
bc0fc32fd733 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11452 diff changeset	6602	nClassesDone := nClassesDone + 1.
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6603	].
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6604	^ list
11506 bc0fc32fd733 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11452 diff changeset	6605
bc0fc32fd733 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11452 diff changeset	6606	"Modified: / 15-05-2012 / 10:36:44 / cg"
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6607	!
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6608
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6609	findMethodsIn:aCollectionOfClasses where:aBlock
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6610	"return all instance- and classmethods
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6611	from classes in aCollectionOfClasses, where aBlock evaluates to true."
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6612
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6613	^ self
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6614	findMethodsIn:aCollectionOfClasses
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6615	inst:true
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6616	class:true
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6617	where:aBlock
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6618	! !
93 dda97353e775 . claus parents: 90 diff changeset	6619
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	6620	!SystemBrowser class methodsFor:'startup with query'!
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6621
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6622	askThenBrowseClass
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6623	self getClassThenPerform:#browseClass:
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6624
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6625	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6626	SystemBrowser askThenBrowseClass
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6627	Tools::NewSystemBrowser askThenBrowseClass
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6628	"
93 dda97353e775 . claus parents: 90 diff changeset	6629	!
dda97353e775 . claus parents: 90 diff changeset	6630
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6631	askThenBrowseClassHierarchy
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6632	self getClassThenPerform:#browseClassHierarchy:
36 ccde5a941840 * empty log message * claus parents: diff changeset	6633
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6634	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6635	SystemBrowser askThenBrowseClassHierarchy
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6636	Tools::NewSystemBrowser askThenBrowseClassHierarchy
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6637	"
36 ccde5a941840 * empty log message * claus parents: diff changeset	6638	!
ccde5a941840 * empty log message * claus parents: diff changeset	6639
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6640	askThenBrowseFullClassProtocol
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6641	self getClassThenPerform:#browseFullClassProtocol:
36 ccde5a941840 * empty log message * claus parents: diff changeset	6642
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6643	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6644	SystemBrowser askThenBrowseFullClassProtocol
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6645	Tools::NewSystemBrowser askThenBrowseFullClassProtocol
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6646	"
36 ccde5a941840 * empty log message * claus parents: diff changeset	6647	! !
ccde5a941840 * empty log message * claus parents: diff changeset	6648
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6649	!SystemBrowser class methodsFor:'utilities'!
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6650
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6651	askForClass
13032 b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6652	^ self askForClassWithFilter:nil
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6653
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6654	"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6655	Tools::NewSystemBrowser askForClass
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6656	"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6657	!
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6658
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6659	askForClassName
13032 b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6660	^ self askForClassNameWithFilter:nil
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6661
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6662	"
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6663	Tools::NewSystemBrowser askForClassName
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6664	"
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6665	!
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6666
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6667	askForClassNameWithFilter:filterOrNil
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6668	self
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6669	askForClassToSearch:nil
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6670	single:true
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6671	msgTail:''
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6672	resources:(self classResources)
13032 b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6673	filter:filterOrNil
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6674	forBrowser:nil
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6675	thenDo:[:className :single :doWhat \|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6676	^ className
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6677	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6678	^ nil
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6679
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6680	"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6681	Tools::NewSystemBrowser askForClassName
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6682	"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6683	!
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6684
13032 b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6685	askForClassToSearch:doWhatByDefault single:singleClass msgTail:msgTail resources:resourcesOrNil filter:filterOrNil forBrowser:aBrowserOrNil thenDo:aBlock
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6686	"utility common code for both opening a new browser on a class and
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6687	to search for a class in an existing browser.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6688	If singleClass is true, a single class will be asked for and browsed,
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6689	otherwise, a match pattern is allowed and a multi-class browser is opened.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6690	Moved from instance protocol for better reusability."
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6691
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6692	\|box boxLabel title okText className canFind doWhat classNameHolder updateList
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6693	allClasses classNamesInChangeSet
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6694	allNames allFullNames initialShortNames initialFullNames
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6695	colorizedFullNames colorizedShortNames
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6696	resources check showingWhatLabel showFullNameHolder genShortNameListEntry\|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6697
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6698	resources := resourcesOrNil ? self classResources.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6699	showFullNameHolder := (LastClassSearchBoxShowedFullName ? false) asValue.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6700
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6701	doWhat := doWhatByDefault.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6702	canFind := false.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6703
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6704	title := ''.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6705	boxLabel := (resources string:'Select a class').
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6706	okText := 'OK'.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6707
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6708	genShortNameListEntry :=
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6709	[:cls \|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6710	\|ns\|
13035 7139f82575c0 class: NewLauncher Claus Gittinger <cg@exept.de> parents: 13032 diff changeset	6711
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6712	cls isNil ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6713	nil
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6714	] ifFalse:[
13035 7139f82575c0 class: NewLauncher Claus Gittinger <cg@exept.de> parents: 13032 diff changeset	6715	(filterOrNil notNil and:[ (filterOrNil value:cls) not]) ifTrue:[
7139f82575c0 class: NewLauncher Claus Gittinger <cg@exept.de> parents: 13032 diff changeset	6716	nil
7139f82575c0 class: NewLauncher Claus Gittinger <cg@exept.de> parents: 13032 diff changeset	6717	] ifFalse:[
7139f82575c0 class: NewLauncher Claus Gittinger <cg@exept.de> parents: 13032 diff changeset	6718	ns := cls topNameSpace name.
7139f82575c0 class: NewLauncher Claus Gittinger <cg@exept.de> parents: 13032 diff changeset	6719	ns = 'Smalltalk'
7139f82575c0 class: NewLauncher Claus Gittinger <cg@exept.de> parents: 13032 diff changeset	6720	ifTrue:[ ns := '' ]
7139f82575c0 class: NewLauncher Claus Gittinger <cg@exept.de> parents: 13032 diff changeset	6721	ifFalse:[ns := ' (in ',ns,')'].
7139f82575c0 class: NewLauncher Claus Gittinger <cg@exept.de> parents: 13032 diff changeset	6722	cls nameWithoutNameSpacePrefix,ns
7139f82575c0 class: NewLauncher Claus Gittinger <cg@exept.de> parents: 13032 diff changeset	6723	]
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6724	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6725	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6726
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6727	classNamesInChangeSet := ChangeSet current changedClasses
13035 7139f82575c0 class: NewLauncher Claus Gittinger <cg@exept.de> parents: 13032 diff changeset	6728	select: (filterOrNil ? [:cls \| true])
7139f82575c0 class: NewLauncher Claus Gittinger <cg@exept.de> parents: 13032 diff changeset	6729	thenCollect:[:each \| each theNonMetaclass name].
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6730
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6731	initialFullNames := self visitedClassNamesHistory.
13035 7139f82575c0 class: NewLauncher Claus Gittinger <cg@exept.de> parents: 13032 diff changeset	6732	(filterOrNil notNil) ifTrue:[
7139f82575c0 class: NewLauncher Claus Gittinger <cg@exept.de> parents: 13032 diff changeset	6733	initialFullNames := initialFullNames select:[:nm \| filterOrNil value:(Smalltalk at:nm)].
7139f82575c0 class: NewLauncher Claus Gittinger <cg@exept.de> parents: 13032 diff changeset	6734	].
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6735	initialShortNames := initialFullNames collect:[:nm \| genShortNameListEntry value:(Smalltalk at:nm)] thenSelect:[:nm \| nm notNil].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6736
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6737	colorizedFullNames := initialFullNames collect:[:clsName \|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6738	(classNamesInChangeSet includes:clsName) ifTrue:[
19606 77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	6739	clsName asText emphasisAllAdd:(SystemBrowser emphasisForChangedCode)
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6740	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6741	clsName
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6742	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6743	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6744
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6745	colorizedShortNames := initialShortNames with:initialFullNames collect:[:shortName :clsName \|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6746	(classNamesInChangeSet includes:clsName) ifTrue:[
19606 77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	6747	shortName asText emphasisAllAdd:(SystemBrowser emphasisForChangedCode)
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6748	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6749	shortName
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6750	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6751	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6752
13046 f3c72a68d92a title of class search box Claus Gittinger <cg@exept.de> parents: 13037 diff changeset	6753	title := (resources string:title) , msgTail , '.\' , (resources string:'(TAB to complete; matchPattern allowed - "*" for all):').
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6754
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6755	box := self
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6756	enterBoxForClassWithCodeSelectionTitle:title withCRs
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6757	withList:(showFullNameHolder value ifTrue:[colorizedFullNames] ifFalse:[colorizedShortNames])
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6758	okText:okText
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6759	forBrowser:nil.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6760
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6761	box label:boxLabel.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6762
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6763	allClasses := Smalltalk allClasses copyAsOrderedCollection.
13032 b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6764	filterOrNil notNil ifTrue:[
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6765	allClasses := allClasses select: filterOrNil
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6766	].
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6767
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6768	allNames := (allClasses
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6769	collect:[:cls \|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6770	\|ns nm\|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6771
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6772	ns := cls topNameSpace name.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6773	ns = 'Smalltalk'
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6774	ifTrue:[ ns := '' ]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6775	ifFalse:[ns := ' (in ',ns,')'].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6776	cls isNameSpace ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6777	nm := cls nameWithoutNameSpacePrefix,ns,' (Namespace)'
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6778	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6779	nm := cls nameWithoutNameSpacePrefix,ns
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6780	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6781	(classNamesInChangeSet includes:cls name) ifTrue:[
19606 77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	6782	nm asText emphasisAllAdd:(SystemBrowser emphasisForChangedCode)
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6783	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6784	nm
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6785	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6786	]) sortWith:allClasses; yourself.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6787
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6788	allFullNames := (allClasses
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6789	collect:[:cls \|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6790	\|nm\|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6791
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6792	nm := cls name.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6793	(classNamesInChangeSet includes:cls name) ifTrue:[
19606 77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	6794	nm asText emphasisAllAdd:(SystemBrowser emphasisForChangedCode)
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6795	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6796	nm
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6797	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6798	]) sortWith:allClasses; yourself.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6799
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6800	updateList := [
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6801	\|nameToSearch list namesStarting namesIncluding lcName nameList\|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6802
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6803	(nameToSearch := classNameHolder value withoutSeparators) isEmpty ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6804	showingWhatLabel label:(resources string:'Recently visited:').
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6805	list := (showFullNameHolder value ifTrue:[colorizedFullNames] ifFalse:[colorizedShortNames]).
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6806	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6807	showingWhatLabel label:(resources string:'Matching classes:').
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6808	nameList := showFullNameHolder value
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6809	ifTrue:[ allFullNames ]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6810	ifFalse:[ allNames ].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6811
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6812	lcName := nameToSearch asLowercase.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6813	(lcName includesString:'::') ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6814	list := OrderedCollection new.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6815	allClasses doWithIndex:[:cls :idx \|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6816	\|isIncluded\|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6817
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6818	(nameToSearch includesMatchCharacters) ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6819	isIncluded := (lcName match:cls name asLowercase)
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6820	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6821	isIncluded := (cls name includesString:lcName caseSensitive:false)
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6822	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6823	isIncluded ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6824	list add:(nameList at:idx)
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6825	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6826	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6827	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6828	(nameToSearch includesMatchCharacters) ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6829	list := nameList select:[:nm \| lcName match:nm asLowercase]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6830	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6831	namesIncluding := nameList
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6832	select:[:nm \|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6833	"/ nm asLowercase startsWith:lcName
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6834	nm asLowercase includesString:lcName caseSensitive:false
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6835	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6836	namesStarting := namesIncluding select:[:nm \| nm asLowercase startsWith:lcName].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6837	list := namesStarting , {nil} , (namesIncluding \ namesStarting).
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6838	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6839	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6840	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6841	box listView
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6842	list:list;
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6843	scrollToLine:((list findFirst:[:line \| (line ? '') startsWith:lcName]) max:1)
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6844	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6845
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6846	classNameHolder := '' asValue.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6847	box enterField
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6848	model:classNameHolder;
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6849	immediateAccept:true.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6850	classNameHolder onChangeEvaluate:updateList.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6851
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6852	box entryCompletionBlock:(DoWhatIMeanSupport classNameEntryCompletionBlock).
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6853	box action:[:aString \| className := aString].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6854
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6855	box panelView
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6856	addSubView:(showingWhatLabel := (Label label:(resources string:'Recently visited:')) adjust:#left) before:nil;
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6857	addSubView:(check := CheckBox label:(resources string:'Show Full Name (do not strip off Namespace)') model:showFullNameHolder) before:nil.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6858	showFullNameHolder onChangeEvaluate:updateList.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6859	box enterField origin:(0 @ check corner y).
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6860	box listView origin:(0 @ check corner y).
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6861
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6862	box extent:(400 @ 350).
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6863	box open.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6864
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6865	className isEmptyOrNil ifTrue:[^ nil "cancel"].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6866
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6867	LastClassSearchBoxShowedFullName := showFullNameHolder value.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6868
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6869	(className endsWith:$) ) ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6870	(className indexOfSubCollection:'(in ') == 0 ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6871	"/ a namespace
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6872	className := (className copyTo:(className indexOfSubCollection:'(Name')-1) withoutSeparators
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6873	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6874	className := ((className copyFrom:(className indexOfSubCollection:'(in ')+4)
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6875	copyButLast:1)
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6876	, '::' , className asCollectionOfWords first
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6877	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6878	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6879
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6880	aBlock notNil ifTrue:[aBlock value:className optionalArgument:singleClass and:doWhat].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6881	^ className
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6882
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6883	"Modified: / 23-07-2012 / 11:00:22 / cg"
19606 77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	6884	"Modified: / 15-09-2021 / 13:45:34 / Jan Vrany <jan.vrany@labware.com>"
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6885	!
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6886
13032 b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6887	askForClassWithFilter:filterOrNil
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6888	\|className\|
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6889
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6890	className := self askForClassNameWithFilter:filterOrNil.
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6891	className notEmptyOrNil ifTrue:[
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6892	^ Smalltalk classNamed:className
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6893	].
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6894	^ nil
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6895
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6896	"
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6897	Tools::NewSystemBrowser askForClass
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6898	"
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6899	!
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6900
3833 89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	6901	classWithNameSimilarTo:className
89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	6902	"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	6903
4924 0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6904	\|allMatchingClasses\|
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6905
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6906	allMatchingClasses := self classesWithNameSimilarTo:className.
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6907	^ allMatchingClasses firstIfEmpty:nil
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6908	!
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6909
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6910	classesWithNameSimilarTo:className
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6911	"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	6912
6944 1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6913	^ self classesWithNameSimilarTo:className from:nil
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6914
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6915	"Modified: / 22-08-2006 / 13:22:41 / cg"
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6916	!
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6917
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6918	classesWithNameSimilarTo:className from:aNameSpaceOrNil
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6919	"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	6920
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6921	\|nm lcName class allClasses triedDetectors triedMatchers allMatchingClasses
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6922	prefNameSpaceOrNil prefLcNameSpace\|
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6923
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6924	prefNameSpaceOrNil := (aNameSpaceOrNil == Smalltalk) ifTrue:[ nil ] ifFalse:[aNameSpaceOrNil].
3833 89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	6925
12747 b59676921d61 refactored Claus Gittinger <cg@exept.de> parents: 12729 diff changeset	6926	nm := className withoutPrefix:'Smalltalk::'.
3833 89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	6927
6944 1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6928	prefNameSpaceOrNil notNil ifTrue:[
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6929	class := prefNameSpaceOrNil at:nm asSymbol.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6930	class isBehavior ifTrue:[^ Array with:class]. "/ a direct hit
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6931	prefLcNameSpace := prefNameSpaceOrNil name asLowercase.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6932	].
3833 89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	6933	class := Smalltalk at:nm asSymbol.
4924 0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6934	class isBehavior ifTrue:[^ Array with:class]. "/ a direct hit
3833 89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	6935
89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	6936	lcName := className asLowercase.
4924 0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6937
3833 89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	6938	allClasses := Smalltalk allClasses.
4806 439bed9def3a code cleanup Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	6939
6134 024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	6940	triedDetectors := OrderedCollection new.
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	6941	triedDetectors add:[:cls \| cls name asLowercase = lcName].
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	6942
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	6943	triedDetectors do:[:eachTry \|
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	6944	\|class\|
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	6945
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	6946	class := allClasses detect:eachTry ifNone:nil.
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	6947	class notNil ifTrue:[^ Array with:class].
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	6948	].
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	6949
4806 439bed9def3a code cleanup Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	6950	triedMatchers := OrderedCollection new.
5018 2fe02eac49c5 better classesWithNameSimilarTo Claus Gittinger <cg@exept.de> parents: 4924 diff changeset	6951	triedMatchers add:[:cls \| cls nameWithoutPrefix asLowercase = lcName].
2fe02eac49c5 better classesWithNameSimilarTo Claus Gittinger <cg@exept.de> parents: 4924 diff changeset	6952	triedMatchers add:[:cls \| cls nameWithoutNameSpacePrefix asLowercase = lcName].
4924 0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6953
4806 439bed9def3a code cleanup Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	6954	triedMatchers add:[:cls \| cls name asLowercase startsWith:lcName].
439bed9def3a code cleanup Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	6955	triedMatchers add:[:cls \| cls nameWithoutNameSpacePrefix asLowercase startsWith:lcName].
439bed9def3a code cleanup Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	6956	triedMatchers add:[:cls \| cls nameWithoutPrefix asLowercase startsWith:lcName].
439bed9def3a code cleanup Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	6957	triedMatchers add:[:cls \| cls nameWithoutPrefix asLowercase includesString:lcName].
6134 024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	6958	triedMatchers add:[:cls \| cls name asLowercase includesString:lcName].
4924 0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6959
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6960	allMatchingClasses := IdentitySet new.
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6961	triedMatchers do:[:eachTry \|
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6962	\|matchingClasses\|
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6963
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6964	matchingClasses := allClasses select:eachTry.
6944 1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6965	"/ matchingClasses size == 1 ifTrue:[^ matchingClasses].
4924 0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6966	allMatchingClasses addAll:matchingClasses.
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6967	].
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6968	allMatchingClasses isEmpty ifTrue:[^ #()].
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6969
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6970	allMatchingClasses := allMatchingClasses asOrderedCollection.
6944 1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6971	allMatchingClasses
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6972	sort:[:a :b \|
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6973	\|lcNameA lcNameB da db distA distB \|
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6974
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6975	lcNameA := a name asLowercase.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6976	lcNameB := b name asLowercase.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6977	prefNameSpaceOrNil notNil ifTrue:[
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6978	a nameSpace == prefNameSpaceOrNil ifTrue:[
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6979	lcNameA := a nameWithoutNameSpacePrefix asLowercase.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6980	].
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6981	b nameSpace == prefNameSpaceOrNil ifTrue:[
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6982	lcNameB := b nameWithoutNameSpacePrefix asLowercase.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6983	].
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6984	].
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6985
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6986	distA := da := lcName levenshteinTo:lcNameA.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6987	distB := db := lcName levenshteinTo:lcNameB.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6988	"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	6989
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6990	(lcNameA startsWith:lcName) ifTrue:[
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6991	distB := distB * 2
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6992	].
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6993	(lcNameB startsWith:lcName) ifTrue:[
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6994	distA := distA * 2
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6995	].
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6996	distA < distB
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6997	].
4924 0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6998	^ allMatchingClasses.
6546 1b809ef4658b comment Stefan Vogel <sv@exept.de> parents: 6480 diff changeset	6999
1b809ef4658b comment Stefan Vogel <sv@exept.de> parents: 6480 diff changeset	7000	"
6678 aa5572677e17 * empty log message * Claus Gittinger <cg@exept.de> parents: 6640 diff changeset	7001	self classesWithNameSimilarTo:'NewSystemBrowser'
aa5572677e17 * empty log message * Claus Gittinger <cg@exept.de> parents: 6640 diff changeset	7002	self classesWithNameSimilarTo:'Moose::MSEAbstractOperator'
6546 1b809ef4658b comment Stefan Vogel <sv@exept.de> parents: 6480 diff changeset	7003	"
6944 1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	7004
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	7005	"Created: / 22-08-2006 / 13:22:48 / cg"
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	7006	"Modified: / 22-08-2006 / 14:53:38 / cg"
3833 89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	7007	!
89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	7008
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7009	enterBoxForClassWithCodeSelectionTitle:title withList:listOrNil okText:okText forBrowser:aBrowserOrNil
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7010	"convenient method: setup an enterBox with initial text taken
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7011	from the codeviews selection."
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7012
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7013	\|sel box initialText superclass currentClass
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7014	methods someMethod offeredClass anyClose closeName s usedGlobals list\|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7015
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7016	list := listOrNil.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7017
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7018	aBrowserOrNil notNil ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7019	currentClass := aBrowserOrNil theSingleSelectedClass.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7020
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7021	sel := aBrowserOrNil selectionInCodeView.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7022	sel notNil ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7023	aBrowserOrNil selectedNamespacesValue doWithExit:[:eachNs :exit \|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7024	s := eachNs , '::' , sel asSymbol.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7025	(s knownAsSymbol
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7026	and:[(Smalltalk at:s asSymbol) isBehavior]) ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7027	"/ a private class of current ...
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7028	sel := eachNs , '::' , sel asSymbol.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7029	exit value:nil.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7030	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7031	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7032	(sel knownAsSymbol and:[currentClass notNil
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7033	and:[(currentClass theNonMetaclass privateClassesAt:sel asSymbol) notNil]]) ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7034	"/ a private class of current ...
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7035	sel := (currentClass theNonMetaclass privateClassesAt:sel asSymbol) name
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7036	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7037	(sel knownAsSymbol and:[(Smalltalk at:sel asSymbol) isBehavior]) ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7038	"/ ignore it, if there is no class-name which comes close.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7039	anyClose := false.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7040	Smalltalk keysAndValuesDo:[:aGlobalName :aGlobal\|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7041	aGlobal isBehavior ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7042	aGlobal isMeta ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7043	aGlobal name == aGlobalName ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7044	((aGlobalName startsWith:sel)
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7045	or:[(sel startsWith:aGlobalName)]) ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7046	closeName isNil ifTrue:[closeName := aGlobalName].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7047	anyClose := true.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7048	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7049	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7050	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7051	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7052	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7053	anyClose ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7054	sel := nil
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7055	] ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7056	sel := closeName
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7057	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7058	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7059	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7060	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7061
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7062	sel notNil ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7063	initialText := sel asString withoutSeparators
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7064	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7065	aBrowserOrNil codeAspect == SyntaxHighlighter codeAspectMethod ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7066	methods := aBrowserOrNil selectedMethodsValue.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7067	methods size > 0 ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7068	someMethod := methods first.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7069	usedGlobals := someMethod usedGlobals collect:[:eachVar \| eachVar asSymbol].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7070	usedGlobals := usedGlobals select:[:eachVar \| (Smalltalk at:eachVar) isBehavior].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7071	usedGlobals size > 0 ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7072	list := list reject:[:each \| usedGlobals includes:each ].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7073	list := usedGlobals asOrderedCollection sort , list.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7074	offeredClass := Smalltalk at:usedGlobals first
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7075	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7076	offeredClass := someMethod mclass
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7077	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7078	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7079	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7080	(aBrowserOrNil navigationState isVersionDiffBrowser
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7081	or:[aBrowserOrNil navigationState isClassDocumentationBrowser]) ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7082	offeredClass := currentClass.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7083	(offeredClass notNil and:[offeredClass isPrivate]) ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7084	offeredClass := offeredClass owningClass
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7085	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7086	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7087	(currentClass notNil
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7088	and:[(superclass := currentClass superclass) notNil]) ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7089	offeredClass := superclass
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7090	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7091	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7092	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7093	offeredClass notNil ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7094	initialText := offeredClass theNonMetaclass name
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7095	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7096	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7097	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7098
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7099	box := self
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7100	enterBoxTitle:(self classResources string:title)
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7101	withList:list
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7102	okText:(self classResources string:okText).
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7103
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7104	initialText notNil ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7105	box initialText:initialText
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7106	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7107	^ box
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7108
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7109	"Created: / 13-02-2000 / 20:56:18 / cg"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7110	"Modified: / 27-07-2012 / 22:18:34 / cg"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7111	!
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7112
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7113	enterBoxTitle:title withList:aListOrNil okText:okText
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7114	"convenient method: setup enterBox"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7115
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7116	\|box rsrcs\|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7117
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7118	aListOrNil notNil ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7119	box := ListSelectionBox new.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7120	"/ box := EnterBoxWithList new.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7121	box list:aListOrNil.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7122	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7123	box := EnterBox new.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7124	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7125	rsrcs := self classResources.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7126	box title:(rsrcs string:title) okText:(rsrcs string:okText).
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7127	^ box
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7128
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7129	"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7130	self enterBoxTitle:'bla' withList:#('a' 'b' 'c') okText:'gaga'
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7131	"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7132
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7133	"Created: / 13.2.2000 / 20:53:53 / cg"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7134	"Modified: / 1.3.2000 / 11:15:09 / cg"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7135	!
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7136
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7137	extractClassAndSelectorFrom:aString into:aBlock
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7138	"given a string which can be either 'class>>sel' or
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7139	'class sel', extract className and selector, and call aBlock with
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7140	the result.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7141	Useful to open browser on a method as selected in some documentation."
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7142
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7143	\|sel clsName isMeta sep s\|
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7144
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7145	sel := aString.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7146	sel notNil ifTrue:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7147	sel := sel asString withoutSeparators.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7148	('>>' match:sel) ifTrue:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7149	sep := $>
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7150	] ifFalse:[
19606 77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	7151	('�' match:sel) ifTrue:[
77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	7152	sep := $�
16529 0514cf8d290b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16471 diff changeset	7153	] ifFalse:[
0514cf8d290b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16471 diff changeset	7154	('* *' match:sel) ifTrue:[
0514cf8d290b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16471 diff changeset	7155	sep := Character space
0514cf8d290b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16471 diff changeset	7156	]
0514cf8d290b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16471 diff changeset	7157	].
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7158	].
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7159	sep notNil ifTrue:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7160	"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7161	extract class/sel from selection
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7162	"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7163	s := ReadStream on:sel.
16529 0514cf8d290b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16471 diff changeset	7164	clsName := (s upTo:sep) withoutSeparators.
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7165	[s peek == sep] whileTrue:[s next].
16529 0514cf8d290b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16471 diff changeset	7166	sel := (s upToEnd) withoutSeparators.
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7167
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7168	(clsName endsWith:' class') ifTrue:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7169	isMeta := true.
12713 7cccc4a7733c Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 12631 diff changeset	7170	clsName := clsName copyButLast:6 "copyTo:(clsName size - 5)"
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7171	] ifFalse:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7172	isMeta := false
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7173	].
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7174	]
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7175	].
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7176	aBlock value:clsName value:sel value:isMeta
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7177
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7178	"Modified: / 17.6.1996 / 16:52:14 / stefan"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7179	"Created: / 6.2.2000 / 00:51:51 / cg"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7180	"Modified: / 6.2.2000 / 00:56:43 / cg"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7181	!
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7182
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7183	extractSelectorFrom:aString
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7184	"given an arbitrary string, try to extract a useful selector.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7185	Useful to open browser on a selected code fragment."
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7186
16529 0514cf8d290b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16471 diff changeset	7187	\|s sel sel2 t idx\|
0514cf8d290b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16471 diff changeset	7188
0514cf8d290b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16471 diff changeset	7189	aString isEmptyOrNil ifTrue:[^ nil].
0514cf8d290b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16471 diff changeset	7190
19606 77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	7191	(idx := aString indexOf:$�) ~~ 0 ifTrue:[
16529 0514cf8d290b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16471 diff changeset	7192	s := (aString copyFrom:idx+1) withoutSeparators.
0514cf8d290b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16471 diff changeset	7193	s isEmpty ifTrue:[^ nil].
0514cf8d290b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16471 diff changeset	7194	] ifFalse:[
0514cf8d290b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16471 diff changeset	7195	s := aString asString string withoutSeparators.
0514cf8d290b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16471 diff changeset	7196	].
15976 a9ca5b4f4369 #REFACTORING Stefan Vogel <sv@exept.de> parents: 15944 diff changeset	7197	sel := s asSymbolIfInterned.
a9ca5b4f4369 #REFACTORING Stefan Vogel <sv@exept.de> parents: 15944 diff changeset	7198	sel isNil ifTrue:[
a9ca5b4f4369 #REFACTORING Stefan Vogel <sv@exept.de> parents: 15944 diff changeset	7199	sel := s.
a9ca5b4f4369 #REFACTORING Stefan Vogel <sv@exept.de> parents: 15944 diff changeset	7200	] ifFalse:[
a9ca5b4f4369 #REFACTORING Stefan Vogel <sv@exept.de> parents: 15944 diff changeset	7201	(sel endsWith:$:) ifTrue:[
a9ca5b4f4369 #REFACTORING Stefan Vogel <sv@exept.de> parents: 15944 diff changeset	7202	^ sel.
a9ca5b4f4369 #REFACTORING Stefan Vogel <sv@exept.de> parents: 15944 diff changeset	7203	].
6705 b78bea6fd220 * empty log message * Claus Gittinger <cg@exept.de> parents: 6678 diff changeset	7204	].
b78bea6fd220 * empty log message * Claus Gittinger <cg@exept.de> parents: 6678 diff changeset	7205
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7206	t := Parser selectorInExpression:sel.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7207	t notNil ifTrue:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7208	sel := t
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7209	].
16529 0514cf8d290b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16471 diff changeset	7210	(sel = s or:[sel isNil or:[t == #'>>']]) ifTrue:[
16863 d9e632f16155 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16847 diff changeset	7211	"oops - that's probably not what we want here ..."
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7212	self extractClassAndSelectorFrom:s into:[:c :s :m \|
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7213	sel := s
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7214	]
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7215	].
15976 a9ca5b4f4369 #REFACTORING Stefan Vogel <sv@exept.de> parents: 15944 diff changeset	7216	s := sel asSymbolIfInterned.
a9ca5b4f4369 #REFACTORING Stefan Vogel <sv@exept.de> parents: 15944 diff changeset	7217	s notNil ifTrue:[
a9ca5b4f4369 #REFACTORING Stefan Vogel <sv@exept.de> parents: 15944 diff changeset	7218	^ s.
a9ca5b4f4369 #REFACTORING Stefan Vogel <sv@exept.de> parents: 15944 diff changeset	7219	].
a9ca5b4f4369 #REFACTORING Stefan Vogel <sv@exept.de> parents: 15944 diff changeset	7220
a9ca5b4f4369 #REFACTORING Stefan Vogel <sv@exept.de> parents: 15944 diff changeset	7221	(sel startsWith:$#) ifTrue:[
a9ca5b4f4369 #REFACTORING Stefan Vogel <sv@exept.de> parents: 15944 diff changeset	7222	sel2 := sel copyFrom:2.
a9ca5b4f4369 #REFACTORING Stefan Vogel <sv@exept.de> parents: 15944 diff changeset	7223	((sel2 startsWith:$') and:[(sel2 endsWith:$')]) ifTrue:[
a9ca5b4f4369 #REFACTORING Stefan Vogel <sv@exept.de> parents: 15944 diff changeset	7224	sel2 := (sel2 copyFrom:2) copyButLast:1
a9ca5b4f4369 #REFACTORING Stefan Vogel <sv@exept.de> parents: 15944 diff changeset	7225	].
a9ca5b4f4369 #REFACTORING Stefan Vogel <sv@exept.de> parents: 15944 diff changeset	7226	(sel2 := sel2 asSymbolIfInterned) notNil ifTrue:[
a9ca5b4f4369 #REFACTORING Stefan Vogel <sv@exept.de> parents: 15944 diff changeset	7227	^ sel2.
8047 8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	7228	].
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	7229	].
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	7230
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7231	^ sel
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7232
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7233	"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7234	self extractSelectorFrom:'at:put:'
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7235	self extractSelectorFrom:'#at:put:'
15976 a9ca5b4f4369 #REFACTORING Stefan Vogel <sv@exept.de> parents: 15944 diff changeset	7236	self extractSelectorFrom:'#''at:put:'''
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7237	self extractSelectorFrom:'at:something put:someValue'
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7238	self extractSelectorFrom:'self at:something put:someValue'
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7239	self extractSelectorFrom:'(self at:something put:someValue)'
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7240	self extractSelectorFrom:'[self at:something put:someValue] value'
19606 77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	7241	self extractSelectorFrom:'Array � at:put:'
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7242	self extractSelectorFrom:'Array>>at:put:'
15976 a9ca5b4f4369 #REFACTORING Stefan Vogel <sv@exept.de> parents: 15944 diff changeset	7243	self extractSelectorFrom:'Array>>#at:put:'
a9ca5b4f4369 #REFACTORING Stefan Vogel <sv@exept.de> parents: 15944 diff changeset	7244	self extractSelectorFrom:'Array>>#''at:put:'''
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7245	"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7246
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7247	"Created: / 6.2.2000 / 00:49:44 / cg"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7248	"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	7249	!
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7250
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7251	getClassThenPerform:aSelector
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7252	\|classNameEntered classEntered enterBox resources\|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7253
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7254	"/ new Code:
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7255	classNameEntered := self askForClassName.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7256
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7257	"/ old Code:
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7258	"/ resources := self classResources.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7259	"/
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7260	"/ enterBox := EnterBox title:(self classResources stringWithCRs:'Browse which class:').
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7261	"/ enterBox okText:(resources string:'Browse').
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7262	"/ enterBox entryCompletionBlock:(DoWhatIMeanSupport classNameEntryCompletionBlock).
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7263	"/ enterBox action:[:className \| classNameEntered := className].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7264	"/ enterBox showAtPointer.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7265	"/
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7266	classNameEntered notEmptyOrNil ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7267	classEntered := Smalltalk classNamed:classNameEntered.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7268	classEntered isNil ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7269	self warn:(resources string:'No such class').
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7270	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7271	self perform:aSelector with:classEntered
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7272	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7273	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7274
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7275	"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7276	SystemBrowser getClassThenPerform:#browseClass:
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7277	"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7278
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7279	"Modified: / 10-08-2006 / 12:54:20 / cg"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7280	!
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	7281
6560 80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7282	resourceEditorClassFor:aResource
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7283	"resources are from a methods resource-info;
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7284	return an appropriate editor class."
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7285
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7286	(aResource == #canvas) ifTrue:[
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7287	^ UIPainter
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7288	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7289	(aResource == #menu) ifTrue:[
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7290	^ MenuEditor
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7291	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7292	((aResource == #image) or:[aResource == #fileImage]) ifTrue:[
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7293	^ ImageEditor
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7294	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7295	(aResource == #help) ifTrue:[
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7296	^ UIHelpTool
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7297	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7298	(aResource == #tableColumns) ifTrue:[
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7299	^ DataSetBuilder
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7300	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7301	(aResource == #tabList) ifTrue:[
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7302	^ TabListEditor
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7303	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7304	(aResource == #hierarchicalList) ifTrue:[
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7305	^ HierarchicalListEditor
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7306	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7307	^ nil
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7308	!
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7309
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7310	resourceEditorClassForResources:resources
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7311	"resources are from a methods resource-info;
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7312	return an appropriate editor class."
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7313
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7314	resources keysDo:[:eachResource \|
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7315	\|editor\|
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7316
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7317	editor := self resourceEditorClassFor:eachResource.
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7318	editor notNil ifTrue:[ ^ editor].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7319	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	7320	^ nil
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7321	! !
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	7322
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7323	!SystemBrowser::BrowserHistoryEntry methodsFor:'accessing'!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7324
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7325	className
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7326	"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	7327
13947 dd203de7c75a class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13921 diff changeset	7328	^ className ? 'anonymous'
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7329	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7330
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7331	className:something
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7332	"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	7333
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7334	className := something.
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7335	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7336
3151 910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	7337	className:classNameArg meta:metaArg selector:selectorArg
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	7338	className := classNameArg.
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	7339	meta := metaArg.
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	7340	selector := selectorArg.
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	7341	!
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	7342
10048 9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	7343	icon
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	7344
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	7345	^nil
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	7346
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	7347	"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	7348	!
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	7349
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	7350	label
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	7351
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	7352	^self displayString
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	7353
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	7354	"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	7355	!
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	7356
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7357	meta
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7358	"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	7359
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7360	^ meta
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7361	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7362
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7363	meta:something
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7364	"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	7365
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7366	meta := something.
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7367	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7368
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7369	selector
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7370	"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	7371
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7372	^ selector
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7373	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7374
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7375	selector:something
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7376	"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	7377
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7378	selector := something.
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7379	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7380
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7381	theClass
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7382	^ Smalltalk at:className asSymbol
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7383	! !
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7384
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7385	!SystemBrowser::BrowserHistoryEntry methodsFor:'comparing'!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7386
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7387	= anEntry
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7388	^ className = anEntry className
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7389	and:[meta = anEntry meta
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7390	and:[selector = anEntry selector]]
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7391	! !
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	7392
10048 9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	7393	!SystemBrowser::BrowserHistoryEntry methodsFor:'displaying'!
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	7394
13319 93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	7395	displayOn:aGCOrStream
13820 4a9bc4698533 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13552 diff changeset	7396	\| cls name \|
13319 93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	7397
93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	7398	"/ what a kludge - Dolphin and Squeak mean: printOn: a stream;
93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	7399	"/ ST/X (and some old ST80's) mean: draw-yourself on a GC.
93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	7400	(aGCOrStream isStream) ifFalse:[
93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	7401	^ super displayOn:aGCOrStream
93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	7402	].
93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	7403
13820 4a9bc4698533 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13552 diff changeset	7404	cls := self theClass.
4a9bc4698533 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13552 diff changeset	7405	name := cls notNil ifTrue:[cls nameInBrowser] ifFalse:[className].
4a9bc4698533 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13552 diff changeset	7406	name printOn:aGCOrStream.
13319 93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	7407	meta ifTrue:[
16037 3393fbb61d79 #REFACTORING Claus Gittinger <cg@exept.de> parents: 16027 diff changeset	7408	"/ aGCOrStream emphasis:#bold.
3393fbb61d79 #REFACTORING Claus Gittinger <cg@exept.de> parents: 16027 diff changeset	7409	aGCOrStream nextPutAll:' class'.
3393fbb61d79 #REFACTORING Claus Gittinger <cg@exept.de> parents: 16027 diff changeset	7410	"/ aGCOrStream emphasis:nil.
13319 93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	7411	].
93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	7412	selector notNil ifTrue:[
93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	7413	aGCOrStream
19606 77274bbcd92b Theming: use `SystemBrowser emphasisForChangesCode` Jan Vrany <jan.vrany@labware.com> parents: 19600 diff changeset	7414	nextPutAll:' � ';
16037 3393fbb61d79 #REFACTORING Claus Gittinger <cg@exept.de> parents: 16027 diff changeset	7415	emphasis:#bold;
3393fbb61d79 #REFACTORING Claus Gittinger <cg@exept.de> parents: 16027 diff changeset	7416	nextPutAll:selector;
3393fbb61d79 #REFACTORING Claus Gittinger <cg@exept.de> parents: 16027 diff changeset	7417	emphasis:nil.
13319 93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	7418	].
10048 9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	7419
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	7420	"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	7421	"Modified: / 03-07-2011 / 13:44:32 / cg"
13820 4a9bc4698533 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13552 diff changeset	7422	"Modified: / 14-10-2013 / 12:18:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10048 9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	7423	! !
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	7424
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	7425	!SystemBrowser class methodsFor:'documentation'!
93 dda97353e775 . claus parents: 90 diff changeset	7426
12822 cda365756f93 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12785 diff changeset	7427	version
15831 36652445494b class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15565 diff changeset	7428	^ '$Header$'
12822 cda365756f93 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12785 diff changeset	7429	!
cda365756f93 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12785 diff changeset	7430
8851 287f3e03a645 changed: #iconForClass: Claus Gittinger <cg@exept.de> parents: 8759 diff changeset	7431	version_CVS
15831 36652445494b class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15565 diff changeset	7432	^ '$Header$'
10048 9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	7433	!
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	7434
19611 a4b9d283ca40 Themes: use stylesheet to define color and style for modified buffer label Jan Vrany <jan.vrany@labware.com> parents: 19606 diff changeset	7435	version_HG
a4b9d283ca40 Themes: use stylesheet to define color and style for modified buffer label Jan Vrany <jan.vrany@labware.com> parents: 19606 diff changeset	7436
a4b9d283ca40 Themes: use stylesheet to define color and style for modified buffer label Jan Vrany <jan.vrany@labware.com> parents: 19606 diff changeset	7437	^ '$Changeset: <not expanded> $'
a4b9d283ca40 Themes: use stylesheet to define color and style for modified buffer label Jan Vrany <jan.vrany@labware.com> parents: 19606 diff changeset	7438	!
a4b9d283ca40 Themes: use stylesheet to define color and style for modified buffer label Jan Vrany <jan.vrany@labware.com> parents: 19606 diff changeset	7439
10048 9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	7440	version_SVN
15831 36652445494b class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 15565 diff changeset	7441	^ '$Id$'
36 ccde5a941840 * empty log message * claus parents: diff changeset	7442	! !
4112 ed7af6707ad7 emphasisForChangedCode tm parents: 3834 diff changeset	7443
12475 469fd10da830 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12073 diff changeset	7444
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	7445	SystemBrowser initialize!

author	Jan Vrany <jan.vrany@labware.com>
	Wed, 05 Oct 2022 11:57:26 +0100
branch	jv
changeset 19637	28f5bfaa093d
parent 19611	a4b9d283ca40
permissions	-rw-r--r--