hg/stx-libtool: Tools__SearchDialog.st@6cb2bfca401e (annotated)

14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1	"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	2	COPYRIGHT (c) 2000 by eXept Software AG
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	3	All Rights Reserved
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	4
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	5	This software is furnished under a license and may be used
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	6	only in accordance with the terms of that license and with the
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	7	inclusion of the above copyright notice. This software may not
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	8	be provided or otherwise made available to, or used by, any
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	9	other person. No title to or ownership of the software is
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	10	hereby transferred.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	11	"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	12	"{ Package: 'stx:libtool' }"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	13
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	14	"{ NameSpace: Tools }"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	15
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	16	DialogBox subclass:#SearchDialog
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	17	instanceVariableNames:'openHow classes methods selectedClasses selectedCategories
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	18	selectedMethods selectedPackages currentClass currentNamespace
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	19	currentClassCategory currentPackage browser whereRadioGroup
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	20	currentPanel searchAreas caseHolder matchHolder isMethodHolder
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	21	codeField selectorHolder defaultOpenHow withTextEntry allowFind
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	22	allowBuffer allowBrowser searchWhat searchClassProtocolHolder
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	23	searchInstanceProtocolHolder selectorOrCode selectionList
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	24	listHolder matchProcess inputField showMetaFilter
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	25	metaclassesOnlyHolder classesOnlyHolder initialText
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	26	withSearchStringInLiterals searchStringInLiteralsHolder'
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	27	classVariableNames:'LastCodeSearched LastCodeSearchWasMethod LastGlobalSearched
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	28	LastStringSearched LastSearchWasMatch LastSearchWasCaseSensitive
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	29	LastStringSearchArea LastCodeSearchArea AREA_LISTOFMETHODS
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	30	LastResourceSearched'
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	31	poolDictionaries:''
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	32	category:'Interface-Browsers-New'
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	33	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	34
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	35	!SearchDialog class methodsFor:'documentation'!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	36
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	37	copyright
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	38	"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	39	COPYRIGHT (c) 2000 by eXept Software AG
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	40	All Rights Reserved
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	41
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	42	This software is furnished under a license and may be used
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	43	only in accordance with the terms of that license and with the
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	44	inclusion of the above copyright notice. This software may not
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	45	be provided or otherwise made available to, or used by, any
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	46	other person. No title to or ownership of the software is
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	47	hereby transferred.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	48	"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	49	! !
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	50
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	51	!SearchDialog class methodsFor:'initialization'!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	52
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	53	initialize
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	54	AREA_LISTOFMETHODS := #listOfMethods
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	55
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	56	"Created: / 19-11-2010 / 12:00:18 / cg"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	57	! !
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	58
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	59	!SearchDialog class methodsFor:'constants'!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	60
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	61	constantForListOfMethodsArea
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	62	^ AREA_LISTOFMETHODS
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	63
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	64	"Created: / 19-11-2010 / 12:11:50 / cg"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	65	! !
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	66
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	67	!SearchDialog class methodsFor:'help'!
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	68
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	69	helpSpec
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	70	^ Dictionary new addPairsFrom:#(
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	71	#listOfChangedClasses
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	72	'Search only in changed classes'
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	73
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	74	#listOfChangedMethods
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	75	'Search only in changed methods'
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	76
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	77	#currentClassesNameSpace
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	78	'Search in the namespace(s) of the selected class(es)'
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	79
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	80	#currentClassesPackage
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	81	'Search in the package(s) of the selected class(es)'
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	82
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	83	#currentNameSpace
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	84	'Search in the current selected or selected classes namespace'
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	85
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	86	#currentPackage
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	87	'Search in the current selected or selected classes package'
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	88
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	89	#currentClassesPackage
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	90	'Search in the current selected classes package'
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	91
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	92	#currentPackageAndSubPackages
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	93	'Search in the current (selected) package and subpackages.\(disabled if there are no subpackages)'
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	94
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	95	#everywhere
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	96	'Search everywhere (all loaded classes)'
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	97
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	98	#listOfMethods
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	99	'Search only in the list of (shown) methods'
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	100
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	101	#ownersWithPrivateClasses
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	102	'Search in class and the owning and private classes.\(disabled if there are none)'
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	103
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	104	#ownersHierarchiesWithPrivateClasses
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	105	'Search in class, owners, private classes and all subclasses.\(disabled if there are none)'
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	106
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	107	#classes
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	108	'Search in selected class(es) only'
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	109
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	110	#classesWithPrivateClasses
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	111	'Search in selected class(es) and any private classes.\(disabled if there are no private classes)'
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	112
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	113	#classHierarchies
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	114	'Search in selected class(es) and down all subclasses.\(disabled if there are no subclasses)'
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	115
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	116	#classHierarchiesWithPrivateClasses
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	117	'Search in selected class(es), down all subclasses and all of their private classes.\(disabled if there are none)'
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	118
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	119	#classesAndSuperclasses
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	120	'Search in selected class(es) and up all super classes.\(disabled if there are none)'
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	121
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	122	#classCategories
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	123	'Search in selected class category(s)'
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	124
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	125	#listOfSelectedMethodClasses
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	126	'Search in class(es) of selected method(s)'
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	127
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	128	#listOfSelectedMethodPackages
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	129	'Search in package(es) of selected method(s)'
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	130
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	131	#listOfSelectedMethods
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	132	'Search in selected method(s)'
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	133
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	134	#selectedPackages
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	135	'Search in selected package(s)'
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	136
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	137	#searchPatternField
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	138	'The searched string or name. Does completion on TAB-key'
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	139
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	140	#codeEntryField
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	141	'Code fragment to match against in the search.\Press "pattern-help" to learn more about code searches'
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	142
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	143	#nonMetaClassesOnly
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	144	'Search only in instance methods (non-meta classes)'
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	145
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	146	#metaClassesOnly
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	147	'Search only in class methods (meta classes)'
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	148
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	149	#searchStringInLiterals
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	150	'Search string in literal constants; not in source code'
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	151
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	152	#match
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	153	'Perform a pattern match search, as oposed to an exact string search.\Pattern is a simple GLOB pattern (as in filenames)'
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	154
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	155	#caseSensitive
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	156	'Perform a case sensitive search (default is to ignore case differences)'
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	157	)
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	158	! !
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	159
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	160	!SearchDialog class methodsFor:'queries'!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	161
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	162	lastCodeSearchArea
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	163	^ LastCodeSearchArea
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	164	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	165
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	166	lastStringSearchArea
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	167	^ LastStringSearchArea
15987 0acdc2c63c1b #BUGFIX Stefan Vogel <sv@exept.de> parents: 15585 diff changeset	168	!
0acdc2c63c1b #BUGFIX Stefan Vogel <sv@exept.de> parents: 15585 diff changeset	169
0acdc2c63c1b #BUGFIX Stefan Vogel <sv@exept.de> parents: 15585 diff changeset	170	lastStringSearchArea:aSymbol
0acdc2c63c1b #BUGFIX Stefan Vogel <sv@exept.de> parents: 15585 diff changeset	171	LastStringSearchArea := aSymbol
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	172	! !
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	173
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	174	!SearchDialog methodsFor:'accessing'!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	175
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	176	currentPackage
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	177	^ currentPackage
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	178	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	179
15128 2fed9a05632c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15068 diff changeset	180	initialText:aString
2fed9a05632c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15068 diff changeset	181	initialText := aString.
2fed9a05632c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15068 diff changeset	182	!
2fed9a05632c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15068 diff changeset	183
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	184	showMetaFilter:aBoolean
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	185	"enable another checkbox, to allow searching in meta/non-meta"
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	186
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	187	showMetaFilter := aBoolean.
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	188	!
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	189
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	190	withSearchStringInLiterals:aBoolean
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	191	"enable another checkbox, to allow searching for a string
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	192	in the literals only"
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	193
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	194	withSearchStringInLiterals := aBoolean.
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	195	! !
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	196
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	197	!SearchDialog methodsFor:'accessing-entered values'!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	198
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	199	classesOnly
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	200	"the value of the corresponding check toggle;
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	201	if on, only search in non-metaclasses"
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	202
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	203	^ (classesOnlyHolder ? false) value
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	204
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	205	"Created: / 20-08-2012 / 13:25:26 / cg"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	206	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	207
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	208	classesToSearch
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	209	^ classes.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	210	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	211
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	212	codeToSearch
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	213	^ selectorOrCode.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	214	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	215
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	216	matchMethods
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	217	^ isMethodHolder value ? false.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	218	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	219
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	220	metaclassesOnly
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	221	"the value of the corresponding check toggle;
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	222	if on, only search in metaclasses"
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	223
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	224	^ (metaclassesOnlyHolder ? false) value
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	225
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	226	"Created: / 20-08-2012 / 13:17:12 / cg"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	227	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	228
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	229	methodsToSearch
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	230	^ methods.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	231	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	232
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	233	openHow
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	234	"the value of the corresponding button pressed to close the dialog;
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	235	a symbol describing what to do (newBrowser/newBuffer/find)"
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	236
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	237	^ openHow.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	238	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	239
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	240	searchAreaSelected
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	241	"the value of the corresponding radio button;
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	242	a symbol describing where to search"
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	243
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	244	^ whereRadioGroup value.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	245	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	246
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	247	searchIgnoringCase
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	248	^ self searchIsCaseSensitive not
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	249	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	250
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	251	searchIsCaseSensitive
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	252	"the value of the corresponding check toggle;
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	253	if on, search is case sensitive; otherwise ignore case"
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	254
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	255	^ (caseHolder value ? false)
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	256	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	257
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	258	searchStringInLiterals
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	259	"the value of the corresponding check toggle;
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	260	if on, only literal strings should be searched;
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	261	otherwise, the sourcecode is searched"
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	262
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	263	^ searchStringInLiteralsHolder value ? false.
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	264	!
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	265
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	266	searchWithMatch
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	267	"the value of the corresponding check toggle;
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	268	if on, do a GLOB match; otherwise an exact search"
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	269
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	270	^ matchHolder value ? false.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	271	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	272
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	273	selectorToSearch
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	274	^ selectorOrCode.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	275	! !
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	276
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	277	!SearchDialog methodsFor:'help'!
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	278
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	279	flyByHelpTextFor:aComponent
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	280	\|symbolicHelpKey text\|
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	281
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	282	(symbolicHelpKey := aComponent helpKey) notNil ifTrue:[
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	283	Transcript showCR:symbolicHelpKey.
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	284	text := self class helpSpec at:symbolicHelpKey ifAbsent:[ nil ].
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	285	text notNil ifTrue:[
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	286	^ NewSystemBrowser classResources stringWithCRs:text.
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	287	].
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	288	].
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	289	^ nil
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	290	! !
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	291
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	292	!SearchDialog methodsFor:'obsolete'!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	293
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	294	addCheckBoxForClassMethodSearch
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	295	\|b\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	296
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	297	b := CheckBox label:(resources string:'Class Protocol').
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	298	b model:(self searchClassProtocolHolder).
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	299	currentPanel add:b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	300	^ b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	301	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	302
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	303	addCheckBoxForInstanceMethodSearch
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	304	\|b\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	305
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	306	b := CheckBox label:(resources string:'Instance Protocol').
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	307	b model:(self searchInstanceProtocolHolder).
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	308	currentPanel add:b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	309	^ b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	310	! !
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	311
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	312	!SearchDialog methodsFor:'private'!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	313
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	314	searchClassProtocolHolder
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	315	searchClassProtocolHolder isNil ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	316	searchClassProtocolHolder := true asValue
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	317	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	318	^ searchClassProtocolHolder
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	319	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	320
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	321	searchInstanceProtocolHolder
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	322	searchInstanceProtocolHolder isNil ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	323	searchInstanceProtocolHolder := true asValue
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	324	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	325	^ searchInstanceProtocolHolder
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	326	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	327
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	328	showHelpOnCodePatterns
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	329	HTMLDocumentView openFullOnHelpFile:'Browser/RBSearchPatterns.html'
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	330	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	331
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	332	updateListOfMatchingSelectorsFor:s
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	333	\|p\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	334
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	335	(p := matchProcess) notNil ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	336	p terminate.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	337	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	338	listHolder isNil ifTrue:[^ self].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	339
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	340	matchProcess :=
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	341	[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	342	\|what matching\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	343
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	344	[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	345	searchWhat == #globalName ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	346	what := DoWhatIMeanSupport selectorCompletion:s inEnvironment:Smalltalk match:(matchHolder value) ignoreCase:(caseHolder value not)
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	347	] ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	348	what := DoWhatIMeanSupport globalNameCompletion:s inEnvironment:Smalltalk match:(matchHolder value).
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	349	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	350	"/ best := what first.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	351	matching := what second.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	352	self sensor pushAction:[ listHolder contents:matching ].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	353	] ensure:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	354	matchProcess := nil.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	355	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	356	] fork.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	357
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	358	"Modified: / 26-10-2010 / 20:33:05 / cg"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	359	! !
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	360
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	361	!SearchDialog methodsFor:'public'!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	362
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	363	addTextEntryWithCaseIgnore:withCaseIgnore withMatch:withMatch
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	364	\|initialMatch initialCaseSensitive\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	365
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	366	matchHolder := caseHolder := nil.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	367
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	368	searchWhat == #code ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	369	self addTextEntryFieldForCode.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	370	^ self.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	371	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	372
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	373	self addInputFieldForSelectorOrNameOrString.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	374	withCaseIgnore ifTrue:[
14112 81034684fda4 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14111 diff changeset	375	initialCaseSensitive := false.
81034684fda4 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14111 diff changeset	376	(searchWhat ~~ #resource) ifTrue:[
81034684fda4 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14111 diff changeset	377	initialCaseSensitive := (LastSearchWasCaseSensitive ? false)
81034684fda4 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14111 diff changeset	378	].
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	379	(self
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	380	addCheckBox:(resources string:'Case Sensitive')
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	381	on:(caseHolder := initialCaseSensitive asValue))
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	382	helpKey:#caseSensitive.
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	383	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	384	withMatch ifTrue:[
14112 81034684fda4 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14111 diff changeset	385	initialMatch := true.
81034684fda4 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14111 diff changeset	386	(searchWhat ~~ #resource) ifTrue:[
81034684fda4 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14111 diff changeset	387	initialMatch := (LastSearchWasMatch ? true)
81034684fda4 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14111 diff changeset	388	].
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	389	(self
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	390	addCheckBox:(resources string:'Match')
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	391	on:(matchHolder := initialMatch asValue))
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	392	helpKey:#match.
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	393	"/ (isSelector and:[ sel notNil. ]) ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	394	"/ sel includesMatchCharacters ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	395	"/ matchHolder value:false.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	396	"/ ].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	397	"/ ].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	398	]
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	399
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	400	"Modified (format): / 06-07-2011 / 11:56:31 / cg"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	401	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	402
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	403	askThenDo:aBlock
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	404	\|where code sel matchHolderValue caseHolderValue\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	405
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	406	self beScreenDialog. "raise it above all windows"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	407	self open.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	408	self accepted ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	409	^ self.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	410	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	411
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	412	openHow isNil ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	413	openHow := defaultOpenHow.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	414	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	415	where := whereRadioGroup value.
16342 0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	416
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	417	withTextEntry ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	418	searchWhat == #code ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	419	code := codeField contentsAsString.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	420	LastCodeSearched := code.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	421	LastCodeSearchArea := where.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	422	] ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	423	(selectionList notNil and:[selectionList hasSelection]) ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	424	sel := selectionList selectionValue.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	425	] ifFalse:[
15190 2ab33126b6f7 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15128 diff changeset	426	sel := selectorHolder value.
2ab33126b6f7 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15128 diff changeset	427	searchWhat ~~ #string ifTrue:[
2ab33126b6f7 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15128 diff changeset	428	sel := sel withoutSeparators.
2ab33126b6f7 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15128 diff changeset	429	].
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	430	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	431	sel isEmptyOrNil ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	432	browser warn:((searchWhat == #selector)
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	433	ifTrue:[ 'No selector entered for search'. ]
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	434	ifFalse:[ 'Nothing entered for search'. ]).
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	435	^ self.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	436	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	437	sel := sel string.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	438
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	439	(browser ? SystemBrowser) rememberSearchPattern:sel.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	440	searchWhat == #globalName ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	441	LastGlobalSearched := sel.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	442	] ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	443	searchWhat == #string ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	444	LastStringSearched := sel.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	445	LastStringSearchArea := where.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	446	] ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	447	(sel startsWith:'#''') ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	448	sel := sel copyFrom:3.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	449	(sel endsWith:$') ifTrue:[
14582 66eb95a62527 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14112 diff changeset	450	sel := sel copyButLast.
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	451	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	452	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	453	]
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	454	]
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	455	].
16342 0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	456	] ifFalse:[
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	457	sel := initialText
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	458	].
16342 0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	459
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	460	where isNil ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	461	(browser ? Dialog) warn:'No class(es) for search'.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	462	^ self.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	463	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	464	self getClassesAndMethodsFor:where.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	465
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	466	(#(#classesWithPrivateClasses #classHierarchiesWithPrivateClasses #ownersWithPrivateClasses #ownersHierarchiesWithPrivateClasses)
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	467	includes:where)
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	468	ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	469	\|toSearch\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	470
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	471	toSearch := IdentitySet withAll:classes.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	472	classes := IdentitySet withAll:toSearch.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	473	[ toSearch notEmpty ] whileTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	474	\|cls\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	475
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	476	cls := toSearch removeFirst.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	477	classes addAll:cls allPrivateClasses.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	478	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	479	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	480
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	481	classes size == 0 ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	482	classes := nil.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	483	methods size == 0 ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	484	(browser ? Dialog) warn:'No class(es) given for search.'.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	485	^ self.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	486	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	487	] ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	488	classes := classes asOrderedCollection.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	489	methods size ~~ 0 ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	490	(browser ? Dialog) warn:'oops'.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	491	methods := nil.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	492	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	493	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	494
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	495	matchHolderValue := matchHolder value.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	496	matchHolderValue notNil ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	497	LastSearchWasMatch := matchHolderValue
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	498	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	499	caseHolderValue := caseHolder value.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	500	caseHolderValue notNil ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	501	LastSearchWasCaseSensitive := caseHolderValue
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	502	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	503
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	504	selectorOrCode := sel ? code.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	505
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	506	aBlock numArgs == 7 ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	507	"/ old style
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	508	aBlock
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	509	value:classes
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	510	value:(sel ? code)
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	511	value:(self searchIgnoringCase)
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	512	value:openHow
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	513	value:(matchHolderValue ? false)
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	514	value:methods
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	515	value:(isMethodHolder value ? false).
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	516	] ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	517	aBlock value.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	518	]
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	519
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	520	"Modified: / 26-09-2012 / 11:50:45 / cg"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	521	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	522
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	523	setupToAskForMethodSearchTitle:title forBrowser:brwsrArg searchWhat:searchWhatArg
14948 f53b88a7b381 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14582 diff changeset	524	searchArea:whereDefault withCaseIgnore:withCaseIgnore withMatch:withMatch
f53b88a7b381 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14582 diff changeset	525	withMethodList:withMethodList allowFind:allowFindArg allowBuffer:allowBufferArg
f53b88a7b381 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14582 diff changeset	526	allowBrowser:allowBrowserArg withTextEntry:withTextEntryArg
f53b88a7b381 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14582 diff changeset	527
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	528	"the real construction of the box is done here.
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	529	Any additional parameters (metaOnly, searchLiterals etc. must have been done
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	530	already."
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	531
14948 f53b88a7b381 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14582 diff changeset	532	"searchWhat:
f53b88a7b381 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14582 diff changeset	533	one of:#selector
f53b88a7b381 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14582 diff changeset	534	searchArea:
16342 0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	535	one of: #everywhere #currentNameSpace
14948 f53b88a7b381 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14582 diff changeset	536	"
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	537
15480 91b5095ad0a1 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15190 diff changeset	538	\|where ns methodNameSpaces methodPackages hPanel
91b5095ad0a1 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15190 diff changeset	539	leftVerticalPanel rightVerticalPanel updateListAction\|
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	540
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	541	allowFind := allowFindArg.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	542	allowBuffer := allowBufferArg.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	543	allowBrowser := allowBrowserArg.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	544	searchWhat := searchWhatArg.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	545
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	546	withTextEntry := withTextEntryArg.
16342 0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	547	resources := NewSystemBrowser classResources.
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	548
16342 0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	549	(browser := brwsrArg) notNil ifTrue:[
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	550	selectedClasses := browser selectedClasses value.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	551	selectedCategories := browser selectedCategoriesValue.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	552	selectedCategories := selectedCategories reject:[:cat \| NavigatorModel isPseudoCategory:cat].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	553	selectedMethods := browser selectedMethods value.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	554	currentClass := browser theSingleSelectedClass.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	555	currentClassCategory := browser theSingleSelectedCategory.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	556	currentPackage := browser theSingleSelectedProject.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	557	currentClass isNil ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	558	browser hasMethodSelected ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	559	currentClass := selectedMethods first mclass.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	560	"/ selectedClasses := (selectedMethods collect:[:each \| each mclass ]) asIdentitySet.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	561	"/ selectedClasses := selectedClasses select:[:each \| each notNil ].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	562	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	563	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	564	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	565
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	566	(self addTextLabel:(resources stringWithCRs:title)) adjust:#left.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	567
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	568	currentClass notNil ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	569	currentClass := currentClass theNonMetaclass.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	570	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	571	withTextEntry ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	572	self addTextEntryWithCaseIgnore:withCaseIgnore withMatch:withMatch.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	573	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	574
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	575	(showMetaFilter ? false) ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	576	currentPanel := self.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	577	self addCheckBoxForMetaClassesOnly.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	578	].
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	579	(withSearchStringInLiterals ? false) ifTrue:[
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	580	currentPanel := self.
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	581	self addCheckBoxForSearchInLiteralsOnly
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	582	].
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	583
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	584	self addHorizontalLine.
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	585
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	586	hPanel := HorizontalPanelView "SimpleView" new.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	587	hPanel verticalLayout:#top.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	588	hPanel horizontalLayout:#left.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	589
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	590	leftVerticalPanel := currentPanel := VerticalPanelView new.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	591	leftVerticalPanel verticalLayout:#topSpace.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	592	leftVerticalPanel horizontalLayout:#fitSpace.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	593
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	594	(self addTextLabel:(resources string:'Search in:')) adjust:#left.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	595
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	596	searchAreas := OrderedCollection new.
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	597	whereRadioGroup := RadioButtonGroup new.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	598
16364 95c0134ba16f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16353 diff changeset	599	self addCheckBoxForEverywhere.
14948 f53b88a7b381 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14582 diff changeset	600	(selectedCategories notEmptyOrNil or:[ selectedClasses notEmptyOrNil ]) ifTrue:[
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	601	"/ classMethodListView notNil ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	602	"/ b := CheckBox label:(resources string:'Shown Methods').
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	603	"/ panel add:b. whereChannel add:b value:#currentMethodList.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	604	"/ areas add:#currentMethodList.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	605	"/ self makeTabable:b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	606	"/ ].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	607	browser isMethodListBrowser ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	608	methods := browser selectedMethods value ? #().
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	609	methodNameSpaces := methods
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	610	select:[:eachMethod \| eachMethod mclass notNil]
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	611	thenCollect:[:eachMethod \| eachMethod mclass topNameSpace ].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	612	methodPackages := methods
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	613	collect:[:eachMethod \| eachMethod package ].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	614	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	615	methodNameSpaces size == 1 ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	616	currentNamespace := methodNameSpaces first.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	617	] ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	618	currentNamespace := browser currentNamespace.
14948 f53b88a7b381 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14582 diff changeset	619	selectedClasses isEmptyOrNil ifTrue:[
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	620	\|classesInAllSelectedCategories nameSpacesOfAllClassesInAllSelectedCategories\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	621	classesInAllSelectedCategories := Smalltalk allClasses select:[:cls \| selectedCategories includes:cls category].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	622	nameSpacesOfAllClassesInAllSelectedCategories := classesInAllSelectedCategories collect:[:eachClass \| eachClass topNameSpace].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	623	nameSpacesOfAllClassesInAllSelectedCategories size == 1 ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	624	currentNamespace := nameSpacesOfAllClassesInAllSelectedCategories first.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	625	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	626	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	627	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	628
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	629	(currentNamespace notNil
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	630	and:[ currentNamespace ~= (browser nameListEntryForALL) ])
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	631	ifTrue:[ self addCheckBoxForCurrentNamespace ]
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	632	ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	633	(currentClass notNil
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	634	and:[ (ns := currentClass nameSpace) notNil and:[ ns ~~ Smalltalk ] ])
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	635	ifTrue:[ self addCheckBoxForClassesNamespace:ns ].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	636	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	637
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	638	methodPackages size == 1 ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	639	currentPackage := methodPackages first.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	640	] ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	641	currentPackage := browser currentProject.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	642	"/ selectedClasses size == 0 ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	643	"/ \|classesInAllSelectedCategories packagesOfAllClassesInAllSelectedCategories\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	644	"/ classesInAllSelectedCategories := Smalltalk allClasses select:[:cls \| selectedCategories includes:cls category].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	645	"/ packagesOfAllClassesInAllSelectedCategories := classesInAllSelectedCategories collect:[:eachClass \| eachClass package].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	646	"/ packagesOfAllClassesInAllSelectedCategories size == 1 ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	647	"/ currentPackage := packagesOfAllClassesInAllSelectedCategories first.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	648	"/ ].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	649	"/ ].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	650	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	651
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	652	(currentPackage notNil
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	653	and:[ currentPackage ~= (browser nameListEntryForALL) ])
15585 7e78350c918a class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15480 diff changeset	654	ifTrue:[
7e78350c918a class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15480 diff changeset	655	self addCheckBoxForCurrentPackage.
7e78350c918a class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15480 diff changeset	656	self addCheckBoxForCurrentPackageAndSubPackages.
7e78350c918a class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15480 diff changeset	657	]
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	658	ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	659	(currentClass notNil) ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	660	self addCheckBoxForClassesPackage:(currentClass package)
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	661	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	662	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	663
14948 f53b88a7b381 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14582 diff changeset	664	selectedCategories notEmptyOrNil ifTrue:[
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	665	self addCheckBoxForSelectedClassCategory.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	666	].
14948 f53b88a7b381 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14582 diff changeset	667	(selectedClasses notEmptyOrNil or:[ selectedMethods notEmptyOrNil ]) ifTrue:[
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	668	self addCheckBoxForSelectedClass.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	669	self addCheckBoxForSelectedClassAndSuperclasses.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	670	self addCheckBoxForSelectedClassAndSubclasses.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	671	self addCheckBoxForSelectedClassAndPrivateClasses.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	672	self addCheckBoxForSelectedClassAndSubclassesAndPrivateClasses.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	673	self addCheckBoxForOwnerAndItsPrivateClasses.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	674	self addCheckBoxForOwnerAndItsSubclassesAndItsPrivateClasses.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	675	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	676	] ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	677	(browser notNil and:[browser currentNamespace ~~ Smalltalk]) ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	678	self addCheckBoxForEverywhere.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	679	currentNamespace := browser currentNamespace.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	680	currentNamespace ~= (browser nameListEntryForALL) ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	681	self addCheckBoxForCurrentNamespace.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	682	] ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	683	(currentClass notNil
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	684	and:[ (ns := currentClass nameSpace) notNil
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	685	and:[ ns ~~ Smalltalk ] ])
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	686	ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	687	self addCheckBoxForClassesNamespace:ns
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	688	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	689	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	690	].
16342 0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	691	(currentPackage notNil and:[ currentPackage ~= (browser nameListEntryForALL) ])
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	692	ifTrue:[
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	693	self addCheckBoxForCurrentPackage.
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	694	self addCheckBoxForCurrentPackageAndSubPackages.
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	695	] ifFalse:[
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	696	(currentClass notNil) ifTrue:[
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	697	self addCheckBoxForClassesPackage:(currentClass package)
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	698	].
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	699	].
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	700	].
14948 f53b88a7b381 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14582 diff changeset	701	searchAreas isEmptyOrNil ifTrue:[
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	702	self addCheckBoxForEverywhere.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	703	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	704	self addCheckBoxForChangedClassesList.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	705
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	706	withMethodList ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	707	browser isMethodListBrowser ifTrue:[
14948 f53b88a7b381 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14582 diff changeset	708	searchAreas isEmptyOrNil ifTrue:[
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	709	self addCheckBoxForEverywhere.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	710	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	711	self addCheckBoxForMethodList.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	712	self addCheckBoxForSelectedMethods.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	713	self addCheckBoxForSelectedMethodClasses.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	714	self addCheckBoxForSelectedMethodPackages.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	715	] ifFalse:[
14948 f53b88a7b381 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14582 diff changeset	716	searchAreas isEmptyOrNil ifTrue:[
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	717	self addCheckBoxForEverywhere.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	718	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	719	self addCheckBoxForChangedMethodList.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	720	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	721	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	722
14948 f53b88a7b381 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14582 diff changeset	723	searchAreas isEmptyOrNil ifTrue:[
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	724	whereRadioGroup := #everywhere asValue.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	725	self addDummyCheckBoxForEverywhere.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	726	] ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	727	whereDefault notNil ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	728	(searchAreas includes:whereDefault) ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	729	where := whereDefault asSymbol.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	730	] ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	731	where := searchAreas first.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	732	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	733	] ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	734	where := #everywhere.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	735	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	736	whereRadioGroup value:where.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	737	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	738
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	739	hPanel add:leftVerticalPanel.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	740
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	741	false ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	742	"/ noone liked the right panel...
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	743	rightVerticalPanel := currentPanel := VerticalPanelView new.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	744	rightVerticalPanel verticalLayout:#topSpace.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	745	rightVerticalPanel horizontalLayout:#fitSpace.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	746
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	747	self addCheckBoxForClassMethodSearch.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	748	self addCheckBoxForInstanceMethodSearch.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	749	"/ rightVerticalPanel origin:0.75@0.0 corner:1.0@1.0.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	750	hPanel
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	751	preferredExtent:(leftVerticalPanel preferredWidth + rightVerticalPanel preferredWidth)
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	752	@
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	753	(leftVerticalPanel preferredHeight max:rightVerticalPanel preferredHeight).
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	754	hPanel add:rightVerticalPanel.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	755	] ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	756
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	757	"/ rightVerticalPanel origin:0.75@0.0 corner:1.0@1.0.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	758	hPanel
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	759	preferredExtent:(leftVerticalPanel preferredWidth) @ (leftVerticalPanel preferredHeight).
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	760	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	761
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	762	self addComponent:hPanel indent:0.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	763
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	764	"/ panel has its own idea of indenting
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	765	"/ self addVerticalSpace.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	766	searchWhat == #selector ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	767	"/ not yet implemented
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	768	"/ self addHorizontalLine.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	769	"/ self addCheckBoxesForClassAndMetaSearch.
15480 91b5095ad0a1 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15190 diff changeset	770	updateListAction := [ self updateListOfMatchingSelectorsFor:inputField contents ].
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	771
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	772	selectionList := self addFilteredListOfMatchingSelectors.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	773	self stickAtBottomWithVariableHeight:selectionList.
15480 91b5095ad0a1 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15190 diff changeset	774	matchHolder notNil ifTrue:[ matchHolder onChangeEvaluate:updateListAction ].
91b5095ad0a1 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15190 diff changeset	775	caseHolder notNil ifTrue:[ caseHolder onChangeEvaluate:updateListAction ].
91b5095ad0a1 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15190 diff changeset	776	inputField notNil ifTrue:updateListAction.
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	777	] ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	778	self addHorizontalLine.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	779	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	780	self addButtons.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	781
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	782	self label:(resources string:'Search').
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	783
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	784	"Modified: / 20-08-2012 / 13:25:03 / cg"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	785	! !
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	786
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	787	!SearchDialog methodsFor:'setup'!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	788
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	789	addCheckBox:b forSearchArea:area
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	790	self addCheckBox:b forSearchArea:area helpKey:area
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	791	!
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	792
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	793	addCheckBox:b forSearchArea:area helpKey:symbolicHelpKey
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	794	currentPanel add:b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	795	whereRadioGroup add:b value:area.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	796	searchAreas add:area.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	797	self makeTabable:b.
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	798	symbolicHelpKey notNil ifTrue:[ b helpKey:symbolicHelpKey ].
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	799	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	800
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	801	addCheckBoxForChangedClassesList
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	802	\|b\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	803
15068 2dba2b7a9aa0 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14977 diff changeset	804	b := RadioButton "CheckBox" label:(resources string:'Changed Classes').
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	805
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	806	self addCheckBox:b forSearchArea:#listOfChangedClasses.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	807	ChangeSet current changedClasses isEmpty ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	808	b disable
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	809	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	810	^ b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	811	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	812
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	813	addCheckBoxForChangedMethodList
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	814	\|b\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	815
15068 2dba2b7a9aa0 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14977 diff changeset	816	b := RadioButton "CheckBox" label:(resources string:'Changed Methods').
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	817
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	818	self addCheckBox:b forSearchArea:#listOfChangedMethods.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	819	ChangeSet current changeSelectors isEmpty ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	820	b disable
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	821	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	822	^ b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	823	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	824
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	825	addCheckBoxForClassesNamespace:ns
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	826	\|b\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	827
15068 2dba2b7a9aa0 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14977 diff changeset	828	b := RadioButton "CheckBox" label:(resources string:'Classes'' nameSpace ("%1")' with:ns name).
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	829	self addCheckBox:b forSearchArea:#currentClassesNameSpace.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	830	^ b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	831	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	832
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	833	addCheckBoxForClassesPackage:pkg
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	834	\|b\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	835
15068 2dba2b7a9aa0 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14977 diff changeset	836	b := RadioButton "CheckBox" label:(resources string:'Classes'' package ("%1")' with:pkg).
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	837	self addCheckBox:b forSearchArea:#currentClassesPackage.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	838	^ b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	839
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	840	"Created: / 21-09-2006 / 17:39:55 / cg"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	841	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	842
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	843	addCheckBoxForCurrentNamespace
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	844	\|b\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	845
15068 2dba2b7a9aa0 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14977 diff changeset	846	b := RadioButton "CheckBox" label:(resources string:'Current nameSpace ("%1")' with:currentNamespace name).
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	847	self addCheckBox:b forSearchArea:#currentNameSpace.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	848	^ b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	849
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	850	"Modified: / 10-10-2006 / 15:28:47 / cg"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	851	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	852
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	853	addCheckBoxForCurrentPackage
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	854	\|b\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	855
15068 2dba2b7a9aa0 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14977 diff changeset	856	b := RadioButton "CheckBox" label:(resources string:'Current package ("%1")' with:currentPackage).
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	857	self addCheckBox:b forSearchArea:#currentPackage.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	858	^ b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	859
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	860	"Modified: / 10-10-2006 / 15:28:51 / cg"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	861	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	862
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	863	addCheckBoxForCurrentPackage:pkg
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	864	\|b\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	865
15068 2dba2b7a9aa0 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14977 diff changeset	866	b := RadioButton "CheckBox" label:(resources string:'Classes'' package ("%1")' with:pkg).
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	867	self addCheckBox:b forSearchArea:#currentClassesPackage.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	868	^ b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	869
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	870	"Modified: / 10-10-2006 / 15:29:06 / cg"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	871	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	872
15585 7e78350c918a class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15480 diff changeset	873	addCheckBoxForCurrentPackageAndSubPackages
7e78350c918a class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15480 diff changeset	874	\|b any\|
7e78350c918a class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15480 diff changeset	875
7e78350c918a class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15480 diff changeset	876	b := RadioButton "CheckBox" label:(resources string:'Current package ("%1") and Subpackages' with:currentPackage).
7e78350c918a class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15480 diff changeset	877	self addCheckBox:b forSearchArea:#currentPackageAndSubPackages.
16208 8b9148b8d5bf #REFACTORING Claus Gittinger <cg@exept.de> parents: 15987 diff changeset	878	any := Smalltalk allPackageIDs contains:[:p \| p startsWith:currentPackage,'/'].
15585 7e78350c918a class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15480 diff changeset	879	any ifFalse:[
7e78350c918a class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15480 diff changeset	880	b disable
7e78350c918a class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15480 diff changeset	881	].
7e78350c918a class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15480 diff changeset	882	^ b.
7e78350c918a class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15480 diff changeset	883	!
7e78350c918a class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15480 diff changeset	884
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	885	addCheckBoxForEverywhere
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	886	\|b\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	887
15068 2dba2b7a9aa0 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14977 diff changeset	888	b := RadioButton "CheckBox" label:(resources string:'Everywhere').
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	889	self addCheckBox:b forSearchArea:#everywhere.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	890	^ b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	891	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	892
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	893	addCheckBoxForMetaClassesOnly
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	894	\|p b\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	895
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	896	p := View new.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	897
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	898	b := CheckBox label:(resources string:'Metaclasses Only') in:p.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	899	b model:(metaclassesOnlyHolder := false asValue).
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	900	b helpKey:#metaClassesOnly.
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	901	metaclassesOnlyHolder onChangeEvaluate:[metaclassesOnlyHolder value ifTrue:[classesOnlyHolder value:false]].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	902	self makeTabable:b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	903
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	904	b := CheckBox label:(resources string:'Classes Only') in:p.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	905	b left:0.5.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	906	b model:(classesOnlyHolder := false asValue).
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	907	b helpKey:#nonMetaClassesOnly.
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	908	classesOnlyHolder onChangeEvaluate:[classesOnlyHolder value ifTrue:[metaclassesOnlyHolder value:false]].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	909	self makeTabable:b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	910
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	911	currentPanel add:p.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	912	^ nil.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	913
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	914	"Created: / 20-08-2012 / 11:32:15 / cg"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	915	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	916
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	917	addCheckBoxForMethodList
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	918	\|b\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	919
15068 2dba2b7a9aa0 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14977 diff changeset	920	b := RadioButton "CheckBox" label:(resources string:'Methodlist').
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	921	self addCheckBox:b forSearchArea:AREA_LISTOFMETHODS.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	922	^ b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	923
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	924	"Modified: / 19-11-2010 / 12:00:52 / cg"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	925	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	926
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	927	addCheckBoxForOwnerAndItsPrivateClasses
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	928	\|b lbl arg\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	929
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	930	(currentClass notNil and:[ currentClass isPrivate. ]) ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	931	lbl := 'Owner (%1) & all its private classes'.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	932	arg := currentClass owningClass name.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	933	] ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	934	lbl := 'Owners & all their private classes'.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	935	].
15068 2dba2b7a9aa0 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14977 diff changeset	936	b := RadioButton "CheckBox" label:(resources string:lbl with:arg).
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	937	self addCheckBox:b forSearchArea:#ownersWithPrivateClasses.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	938	(selectedClasses contains:[ :cls \| cls isPrivate. ]) ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	939	b disable.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	940	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	941	^ b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	942	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	943
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	944	addCheckBoxForOwnerAndItsSubclassesAndItsPrivateClasses
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	945	\|b lbl arg\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	946
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	947	(currentClass notNil and:[ currentClass isPrivate. ]) ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	948	lbl := 'Owner (%1) & its subclasses & all its private classes'.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	949	arg := currentClass owningClass name.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	950	] ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	951	lbl := 'Owners & their subclasses & all their private classes'.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	952	].
15068 2dba2b7a9aa0 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14977 diff changeset	953	b := RadioButton "CheckBox" label:(resources string:lbl with:arg).
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	954	self addCheckBox:b forSearchArea:#ownersHierarchiesWithPrivateClasses.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	955	(selectedClasses contains:[ :cls \| cls isPrivate. ]) ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	956	b disable.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	957	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	958	^ b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	959	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	960
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	961	addCheckBoxForSearchInLiteralsOnly
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	962	\|p b\|
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	963
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	964	p := View new.
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	965
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	966	b := CheckBox label:(resources string:'Search Literals Only') in:p.
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	967	b model:(searchStringInLiteralsHolder := false asValue).
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	968	p helpKey:#searchStringInLiterals.
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	969	self makeTabable:b.
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	970
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	971	currentPanel add:p.
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	972	^ nil.
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	973	!
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	974
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	975	addCheckBoxForSelectedClass
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	976	\|b lbl arg\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	977
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	978	(browser isMethodListBrowser
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	979	or:[ currentClass isNil
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	980	or:[ selectedClasses size > 1] ]) ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	981	selectedClasses size == 1 ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	982	lbl := 'Selected class ("%1")'.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	983	arg := selectedClasses first theNonMetaclass name.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	984	] ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	985	lbl := 'Selected classes (%1)'.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	986	arg := selectedClasses size.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	987	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	988	] ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	989	lbl := 'Class ("%1")'.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	990	arg := currentClass name.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	991	].
15068 2dba2b7a9aa0 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14977 diff changeset	992	b := RadioButton "CheckBox" label:(resources string:lbl with:arg).
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	993	self addCheckBox:b forSearchArea:#classes.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	994	^ b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	995	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	996
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	997	addCheckBoxForSelectedClassAndPrivateClasses
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	998	\|b lbl\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	999
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1000	(browser isMethodListBrowser
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1001	or:[ currentClass isNil
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1002	or:[ selectedClasses size > 1] ]) ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1003	lbl := 'Selected classes & all private classes'.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1004	] ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1005	lbl := 'Class & private classes'.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1006	].
15068 2dba2b7a9aa0 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14977 diff changeset	1007	b := RadioButton "CheckBox" label:(resources string:lbl).
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1008	self addCheckBox:b forSearchArea:#classesWithPrivateClasses.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1009	(selectedClasses
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1010	contains:[ :cls \| cls theNonMetaclass privateClasses size > 0. ])
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1011	ifFalse:[ b disable. ].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1012	^ b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1013	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1014
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1015	addCheckBoxForSelectedClassAndSubclasses
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1016	\|b lbl\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1017
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1018	(browser isMethodListBrowser
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1019	or:[ currentClass isNil
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1020	or:[ selectedClasses size > 1] ]) ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1021	lbl := 'Selected classes & all subclasses'.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1022	] ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1023	lbl := 'Class & subclasses'.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1024	].
15068 2dba2b7a9aa0 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14977 diff changeset	1025	b := RadioButton "CheckBox" label:(resources string:lbl).
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1026	self addCheckBox:b forSearchArea:#classHierarchies.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1027	(selectedClasses
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1028	contains:[ :cls \| cls theNonMetaclass subclasses size > 0. ])
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1029	ifFalse:[ b disable. ].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1030	^ b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1031	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1032
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1033	addCheckBoxForSelectedClassAndSubclassesAndPrivateClasses
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1034	\|b lbl\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1035
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1036	(browser isMethodListBrowser
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1037	or:[ currentClass isNil
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1038	or:[ selectedClasses size > 1] ]) ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1039	lbl := 'Selected classes & all subclasses & all private classes'.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1040	] ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1041	lbl := 'Class & subclasses & all private classes'.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1042	].
15068 2dba2b7a9aa0 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14977 diff changeset	1043	b := RadioButton "CheckBox" label:(resources string:lbl).
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1044	self addCheckBox:b forSearchArea:#classHierarchiesWithPrivateClasses.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1045	(selectedClasses
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1046	contains:[ :cls \| cls theNonMetaclass privateClasses size > 0. ])
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1047	ifFalse:[ b disable. ].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1048	^ b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1049	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1050
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1051	addCheckBoxForSelectedClassAndSuperclasses
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1052	\|b lbl\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1053
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1054	(browser isMethodListBrowser
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1055	or:[ currentClass isNil
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1056	or:[ selectedClasses size > 1] ]) ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1057	lbl := 'Selected classes & all superclasses'.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1058	] ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1059	lbl := 'Class & superclasses'.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1060	].
15068 2dba2b7a9aa0 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14977 diff changeset	1061	b := RadioButton "CheckBox" label:(resources string:lbl).
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1062	self addCheckBox:b forSearchArea:#classesAndSuperclasses.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1063	(selectedClasses
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1064	contains:[ :cls \| cls theNonMetaclass superclass notNil. ])
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1065	ifFalse:[ b disable. ].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1066	^ b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1067	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1068
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1069	addCheckBoxForSelectedClassCategory
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1070	\|b lbl arg\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1071
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1072	currentClassCategory notNil ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1073	lbl := 'Class category ("%1")'.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1074	arg := currentClassCategory.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1075	] ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1076	lbl := 'Selected class categories (%1)'.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1077	arg := selectedCategories size.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1078	].
15068 2dba2b7a9aa0 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14977 diff changeset	1079	b := RadioButton "CheckBox" label:(resources string:lbl with:arg).
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1080	self addCheckBox:b forSearchArea:#classCategories.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1081	^ b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1082	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1083
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1084	addCheckBoxForSelectedMethodClasses
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1085	\|b classes numClasses\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1086
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1087	classes := ((browser selectedMethods value ? #())
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1088	select:[:m \| m mclass notNil]
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1089	thenCollect:[:m \| m mclass theNonMetaclass]) asSet.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1090	numClasses := classes size.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1091	numClasses == 0 ifTrue:[^ self]. "/ comment this to show, but disabled
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1092
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1093	numClasses == 1 ifTrue:[
15068 2dba2b7a9aa0 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14977 diff changeset	1094	b := RadioButton "CheckBox" label:(resources string:'Selected method''s class ("%1")'
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1095	with:classes first name).
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1096	] ifFalse:[
15068 2dba2b7a9aa0 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14977 diff changeset	1097	b := RadioButton "CheckBox" label:(resources string:'Selected methods'' classes (%1)'
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1098	with:numClasses).
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1099	numClasses == 0 ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1100	b disable
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1101	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1102	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1103	self addCheckBox:b forSearchArea:#listOfSelectedMethodClasses.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1104	^ b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1105
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1106	"Modified (comment): / 20-07-2012 / 11:40:44 / cg"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1107	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1108
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1109	addCheckBoxForSelectedMethodPackages
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1110	\|b packages numPackages\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1111
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1112	packages := ((browser selectedMethods value ? #())
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1113	collect:[:m \| m package] as:Set).
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1114	numPackages := packages size.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1115	numPackages size == 0 ifTrue:[^ self]. "/ comment this to show, but disabled
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1116
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1117	numPackages == 1 ifTrue:[
15068 2dba2b7a9aa0 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14977 diff changeset	1118	b := RadioButton "CheckBox" label:(resources string:'Selected method''s package ("%1")'
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1119	with:packages first).
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1120	] ifFalse:[
15068 2dba2b7a9aa0 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14977 diff changeset	1121	b := RadioButton "CheckBox" label:(resources string:'Selected methods'' packages (%1)'
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1122	with:numPackages).
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1123	numPackages == 0 ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1124	b disable
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1125	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1126	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1127	self addCheckBox:b forSearchArea:#listOfSelectedMethodPackages.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1128	^ b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1129
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1130	"Created: / 29-02-2012 / 19:42:26 / cg"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1131	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1132
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1133	addCheckBoxForSelectedMethods
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1134	\|b numSelected\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1135
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1136	numSelected := browser selectedMethods value size.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1137	numSelected == 0 ifTrue:[^ self]. "/ comment this to show, but disabled
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1138
15068 2dba2b7a9aa0 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14977 diff changeset	1139	b := RadioButton "CheckBox" label:(resources string:'Selected methods (%1)' with:numSelected).
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1140	self addCheckBox:b forSearchArea:#listOfSelectedMethods.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1141	numSelected == 0 ifTrue:[b disable].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1142	^ b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1143
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1144	"Modified (comment): / 20-07-2012 / 11:40:33 / cg"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1145	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1146
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1147	addCheckBoxForSelectedPackage
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1148	\|b lbl arg\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1149
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	1150	currentPackage notNil ifTrue:[
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	1151	lbl := 'Class package ("%1")'.
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	1152	arg := currentPackage.
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1153	] ifFalse:[
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	1154	lbl := 'Selected classes packages (%1)'.
6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	1155	arg := selectedPackages size.
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1156	].
15068 2dba2b7a9aa0 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14977 diff changeset	1157	b := RadioButton "CheckBox" label:(resources string:lbl with:arg).
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	1158	self addCheckBox:b forSearchArea:#selectedPackages.
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1159	^ b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1160	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1161
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1162	addCheckBoxesForClassAndMetaSearch
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1163	\|y b1 b2\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1164
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1165	y := self yPosition.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1166	b1 := self addCheckBox:(resources string:'Instance Protocol') on:(self searchInstanceProtocolHolder).
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	1167	b1 helpKey:#classesOnly.
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1168	"/ b1 width:0.5.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1169
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1170	"/ self yPosition:y.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1171	b2 := self addCheckBox:(resources string:'Class Protocol') on:(self searchClassProtocolHolder).
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	1172	b2 helpKey:#metaClassesOnly.
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1173	"/ b2 left:0.5; width:0.5.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1174
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1175	"Created: / 06-12-2011 / 11:24:11 / cg"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1176	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1177
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1178	addDummyCheckBoxForEverywhere
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1179	\|b\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1180
15068 2dba2b7a9aa0 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14977 diff changeset	1181	b := RadioButton "CheckBox" label:(resources string:'Everywhere').
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1182	b turnOn.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1183	b disable.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1184
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1185	currentPanel add:b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1186	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1187
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1188	addFilteredListOfMatchingSelectors
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1189	\|l\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1190
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1191	listHolder := List new.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1192
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1193	l := HVScrollableView for:SelectionInListView.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1194	l listHolder:listHolder.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1195	self addComponent:l.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1196	l doubleClickAction:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1197	selectorHolder value:(l selectionValue).
14977 3c0a1bc943f4 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14948 diff changeset	1198	matchHolder notNil ifTrue:[matchHolder value:false].
3c0a1bc943f4 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14948 diff changeset	1199	caseHolder notNil ifTrue:[caseHolder value:false].
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1200	self doAccept.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1201	self okPressed.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1202	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1203	^ l.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1204	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1205
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1206	addInputFieldForSelectorOrNameOrString
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1207	\|sel lastSearchPatterns\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1208
15128 2fed9a05632c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15068 diff changeset	1209	initialText notNil ifTrue:[
2fed9a05632c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15068 diff changeset	1210	sel := initialText
2fed9a05632c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15068 diff changeset	1211	] ifFalse:[
2fed9a05632c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15068 diff changeset	1212	browser notNil ifTrue:[
2fed9a05632c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15068 diff changeset	1213	searchWhat == #selector ifTrue:[
2fed9a05632c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15068 diff changeset	1214	sel := browser selectorToSearchFor.
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1215	] ifFalse:[
15128 2fed9a05632c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15068 diff changeset	1216	searchWhat == #globalName ifTrue:[
2fed9a05632c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15068 diff changeset	1217	sel := browser globalNameToSearchFor ? LastGlobalSearched.
2fed9a05632c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15068 diff changeset	1218	] ifFalse:[
2fed9a05632c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15068 diff changeset	1219	searchWhat == #string ifTrue:[
2fed9a05632c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15068 diff changeset	1220	sel := browser stringToSearchFor ? LastStringSearched.
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1221	] ifFalse:[
15128 2fed9a05632c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15068 diff changeset	1222	searchWhat == #resource ifTrue:[
2fed9a05632c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15068 diff changeset	1223	sel := browser stringToSearchFor ? LastResourceSearched.
2fed9a05632c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15068 diff changeset	1224	] ifFalse:[
2fed9a05632c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15068 diff changeset	1225	sel := browser selectorToSearchFor.
2fed9a05632c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15068 diff changeset	1226	]
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1227	]
15128 2fed9a05632c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15068 diff changeset	1228	].
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1229	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1230	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1231	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1232	lastSearchPatterns := (browser ? SystemBrowser) lastSearchPatterns.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1233
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1234	sel isEmptyOrNil ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1235	"/ use last searchString
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1236	lastSearchPatterns size > 0 ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1237	sel := lastSearchPatterns first.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1238	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1239	].
15190 2ab33126b6f7 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15128 diff changeset	1240	searchWhat == #string ifTrue:[
2ab33126b6f7 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15128 diff changeset	1241	selectorHolder := (sel ? '') asValue.
2ab33126b6f7 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15128 diff changeset	1242	] ifFalse:[
2ab33126b6f7 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15128 diff changeset	1243	selectorHolder := (sel ? '') withoutSeparators asValue.
2ab33126b6f7 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15128 diff changeset	1244	].
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1245
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1246	inputField := self addComboBoxOn:selectorHolder tabable:true.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1247	inputField list:lastSearchPatterns.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1248	inputField selectAllInitially.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1249	inputField immediateAccept:true.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1250	inputField takeFocus.
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	1251	inputField helpKey:#searchPatternField.
16342 0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	1252
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	1253	searchWhat == #string ifFalse:[
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	1254	inputField
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	1255	entryCompletionBlock:[ :contents \|
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	1256	\|s what\|
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	1257
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	1258	s := contents withoutSpaces.
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	1259	self topView
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	1260	withWaitCursorDo:[
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	1261	\|best matching\|
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1262
16342 0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	1263	searchWhat == #resource ifTrue:[
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	1264	what := DoWhatIMeanSupport resourceCompletion:s inEnvironment:Smalltalk match:true ignoreCase:false.
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	1265	] ifFalse:[
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	1266	searchWhat == #globalName ifFalse:[
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	1267	what := DoWhatIMeanSupport selectorCompletion:s inEnvironment:Smalltalk.
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	1268	] ifTrue:[
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	1269	what := DoWhatIMeanSupport globalNameCompletion:s inEnvironment:Smalltalk match:true.
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	1270	].
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	1271	].
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	1272	best := what first.
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	1273	matching := what second.
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	1274	inputField contents:best.
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	1275	"/ listHolder contents:matching.
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	1276	matching size ~~ 1 ifTrue:[
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	1277	(browser ? self) window beep.
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1278	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1279	].
16342 0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	1280	].
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1281
16342 0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	1282	selectorHolder onChangeEvaluate:[ self updateListOfMatchingSelectorsFor:inputField contents ].
0712815bf61d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16208 diff changeset	1283	].
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1284	"Modified: / 14-02-2012 / 14:13:52 / cg"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1285	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1286
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1287	addTextEntryFieldForCode
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1288	\|initial box panel patternInfoBox infoLabel helpButton errMessageField checkCodeAction
16353 ba08dd9f36ab #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16342 diff changeset	1289	metaBox buttonBox helpButtonBox b\|
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1290
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1291	box := View new.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1292	box extent:(600 @ 200).
16450 6cb2bfca401e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16364 diff changeset	1293	box helpKey:#codeEntryField.
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1294
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1295	panel := VariableHorizontalPanel in:box.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1296	panel origin:0.0@0.0 corner:(1.0@1.0).
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1297
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1298	codeField := CodeView in:panel.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1299	codeField canTab:true.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1300	"/ codeField origin:0.0@0.0 corner:(0.75@1.0).
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1301
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1302	patternInfoBox := View in:panel.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1303
16353 ba08dd9f36ab #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16342 diff changeset	1304	infoLabel := ScrollableView for:TextView in:patternInfoBox.
ba08dd9f36ab #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16342 diff changeset	1305	infoLabel origin:0.0@0.0 corner:1.0@1.0.
ba08dd9f36ab #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16342 diff changeset	1306	infoLabel level:0.
ba08dd9f36ab #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16342 diff changeset	1307	infoLabel readOnly:true.
ba08dd9f36ab #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16342 diff changeset	1308	infoLabel scrolledView backgroundColor:(patternInfoBox viewBackground).
ba08dd9f36ab #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16342 diff changeset	1309	infoLabel scrolledView viewBackground:(patternInfoBox viewBackground).
ba08dd9f36ab #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16342 diff changeset	1310	"/ infoLabel geometryLayout:(LayoutFrame bottomInset:30).
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1311
16353 ba08dd9f36ab #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16342 diff changeset	1312	infoLabel scrolledView font:(codeField font asSize:(codeField font size - 2)).
ba08dd9f36ab #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16342 diff changeset	1313	infoLabel scrolledView lineSpacing:0.
ba08dd9f36ab #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16342 diff changeset	1314	"/ infoLabel scrolledView font:(Label defaultFont asSize:(Label defaultFont size "- 2")).
ba08dd9f36ab #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16342 diff changeset	1315	"/ infoLabel adjust:#left.
ba08dd9f36ab #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16342 diff changeset	1316	"/ infoLabel label:(self helpTextForMetaPatterns).
ba08dd9f36ab #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16342 diff changeset	1317	infoLabel contents:(self helpTextForMetaPatterns).
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1318
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1319	panel relativeCorners:#(0.6 1.0).
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1320	panel showHandle:true.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1321
16353 ba08dd9f36ab #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16342 diff changeset	1322	buttonBox := HorizontalPanelView new.
ba08dd9f36ab #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16342 diff changeset	1323	buttonBox horizontalLayout:#rightFit.
ba08dd9f36ab #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16342 diff changeset	1324
ba08dd9f36ab #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16342 diff changeset	1325	helpButtonBox := HorizontalPanelView new.
ba08dd9f36ab #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16342 diff changeset	1326	helpButtonBox horizontalLayout:#right.
ba08dd9f36ab #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16342 diff changeset	1327
ba08dd9f36ab #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16342 diff changeset	1328	helpButton := Button label:(resources string:'Pattern Help') in:helpButtonBox.
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1329	helpButton layout:((AlignmentOrigin fractionalFromPoint:0.5@1.0)
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1330	leftOffset:2
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1331	topOffset:helpButton preferredHeight negated;
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1332	leftAlignmentFraction:0.5 topAlignmentFraction:0).
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1333	helpButton topInset:0.75@1.0.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1334	helpButton action:[self showHelpOnCodePatterns].
16353 ba08dd9f36ab #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16342 diff changeset	1335	helpButton helpKey:#showPatternHelp.
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1336
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1337
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1338	self addComponent:box tabable:true.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1339
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1340	metaBox := HorizontalPanelView new.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1341	metaBox horizontalLayout:#leftMax.
16353 ba08dd9f36ab #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16342 diff changeset	1342
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1343	b := Button label:'+Lit' action:[ codeField pasteOrReplace:'`#n' ] in:metaBox.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1344	b helpKey:#matchAnyLiteral.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1345	b := Button label:'+Var' action:[ codeField pasteOrReplace:'`v' ] in:metaBox.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1346	b helpKey:#matchAnyVariable.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1347	b := Button label:'+Expr' action:[ codeField pasteOrReplace:'`@e' ] in:metaBox.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1348	b helpKey:#matchAnyExpression.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1349	b := Button label:'+Msg' action:[ codeField pasteOrReplace:'`@m:' ] in:metaBox.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1350	b helpKey:#matchAnyMessage.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1351	b := Button label:'+Node' action:[ codeField pasteOrReplace:'`{:node \| node isLiteral and:[node value isSymbol] }' ] in:metaBox.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1352	b helpKey:#matchAnyNode.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1353	b := Button label:'+Stats' action:[ codeField pasteOrReplace:'`.@stats' ] in:metaBox.
16353 ba08dd9f36ab #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16342 diff changeset	1354	b helpKey:#matchAnyStats.
ba08dd9f36ab #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16342 diff changeset	1355	buttonBox addComponent:metaBox.
ba08dd9f36ab #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16342 diff changeset	1356	buttonBox addComponent:helpButtonBox.
ba08dd9f36ab #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16342 diff changeset	1357	buttonBox addComponent:(View new width:5).
ba08dd9f36ab #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16342 diff changeset	1358
ba08dd9f36ab #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16342 diff changeset	1359	self addComponent:buttonBox.
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1360
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1361	errMessageField := (self addTextLabel:'') adjust:#left.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1362	errMessageField level:-1.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1363	self addCheckBox:(resources string:'Method') on:self isMethodHolder.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1364
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1365	checkCodeAction := [ self checkCodeIn:codeField notifying:errMessageField. ].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1366
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1367	codeField modifiedChannel onChangeEvaluate:checkCodeAction.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1368	self isMethodHolder onChangeEvaluate:checkCodeAction.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1369
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1370	initial := browser selectionInCodeView.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1371	initial isEmptyOrNil ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1372	initial := LastCodeSearched ? ''
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1373	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1374	codeField contents:initial.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1375	checkCodeAction value.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1376
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1377	"Modified: / 23-07-2011 / 10:35:14 / cg"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1378	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1379
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1380	checkCodeIn:codeField notifying:errMessageField
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1381	\|codeString tree errAction\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1382
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1383	codeString := codeField contents asString string.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1384	errAction := [:str :pos \|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1385	\|line col badLine\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1386
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1387	line := codeField lineOfCharacterPosition:pos.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1388	col := (codeField colOfCharacterPosition:pos) max:1.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1389
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1390	badLine := (codeField listAt:line) ? ''.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1391	col <= badLine size size ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1392	codeField
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1393	listAt:line
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1394	put:(badLine asText
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1395	emphasisAt:col
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1396	put:(UserPreferences current unknownIdentifierEmphasis)).
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1397	"/ codeField selectFromCharacterPosition:pos to:pos.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1398	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1399	errMessageField label:('line: ',line printString,' ',str).
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1400	errMessageField backgroundColor:Color red.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1401	codeField requestFocus.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1402	nil.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1403	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1404
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1405	isMethodHolder value ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1406	tree := RBParser parseRewriteMethod:codeString onError: errAction.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1407	] ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1408	tree := RBParser parseRewriteExpression:codeString onError: errAction.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1409	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1410	tree notNil ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1411	errMessageField backgroundColor:View defaultViewBackgroundColor.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1412	errMessageField label:nil
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1413	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1414	codeField modifiedChannel setValue:false.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1415	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1416
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1417	getClassesAndMethodsFor:where
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1418	where == #everywhere ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1419	classes := Smalltalk allClasses.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1420	methods := nil.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1421	^ self.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1422	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1423	where == #currentNameSpace ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1424	classes := currentNamespace allClassesWithAllPrivateClasses.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1425	methods := nil.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1426	^ self.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1427	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1428	where == #currentClassesNameSpace ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1429	currentClass isPrivate ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1430	classes := currentClass topOwningClass nameSpace
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1431	allClassesWithAllPrivateClasses.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1432	] ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1433	classes := currentClass nameSpace allClassesWithAllPrivateClasses.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1434	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1435	methods := nil.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1436	^ self.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1437	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1438	where == #currentPackage ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1439	classes := Smalltalk allClassesInPackage:currentPackage.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1440	methods := nil.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1441	^ self.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1442	].
15585 7e78350c918a class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15480 diff changeset	1443	where == #currentPackageAndSubPackages ifTrue:[
7e78350c918a class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15480 diff changeset	1444	classes := Smalltalk
7e78350c918a class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15480 diff changeset	1445	allClassesForWhich:[:cls \|
7e78350c918a class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15480 diff changeset	1446	\|pkg\|
7e78350c918a class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15480 diff changeset	1447
7e78350c918a class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15480 diff changeset	1448	pkg := cls package ? PackageId noProjectID.
7e78350c918a class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15480 diff changeset	1449	pkg = currentPackage or:[ pkg startsWith:(currentPackage,'/') ]
7e78350c918a class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15480 diff changeset	1450	].
7e78350c918a class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15480 diff changeset	1451	methods := nil.
7e78350c918a class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15480 diff changeset	1452	^ self.
7e78350c918a class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 15480 diff changeset	1453	].
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1454	where == #currentClassesPackage ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1455	classes := Smalltalk allClassesInPackage:currentClass package.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1456	methods := nil.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1457	^ self.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1458	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1459	where == #classCategories ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1460	classes := Smalltalk allClasses
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1461	select:[ :cls \| selectedCategories includes:cls category. ].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1462	classes := classes collect:[ :each \| each theNonMetaclass. ].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1463	methods := nil.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1464	^ self.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1465	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1466	(where == #classes or:[ where == #classesWithPrivateClasses. ]) ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1467	classes := selectedClasses collect:[ :each \| each theNonMetaclass. ].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1468	methods := nil.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1469	^ self.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1470	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1471	(where == #classHierarchies or:[ where == #classHierarchiesWithPrivateClasses. ])
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1472	ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1473	classes := IdentitySet new.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1474	selectedClasses do:[ :cls \|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1475	classes addAll:cls theNonMetaclass withAllSubclasses.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1476	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1477	methods := nil.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1478	^ self.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1479	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1480	where == #ownersWithPrivateClasses ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1481	classes := IdentitySet new.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1482	selectedClasses do:[ :cls \|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1483	\|c\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1484
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1485	c := cls theNonMetaclass.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1486	classes add:(c owningClass ? c).
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1487	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1488	methods := nil.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1489	^ self.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1490	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1491	where == #ownersHierarchiesWithPrivateClasses ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1492	classes := IdentitySet new.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1493	selectedClasses do:[ :cls \|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1494	\|c\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1495
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1496	c := cls theNonMetaclass.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1497	classes addAll:(c owningClass ? c) withAllSubclasses.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1498	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1499	methods := nil.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1500	^ self.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1501	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1502	(where == #classesAndSuperclasses) ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1503	classes := IdentitySet new.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1504	selectedClasses do:[ :cls \|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1505	classes addAll:cls theNonMetaclass withAllSuperclasses.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1506	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1507	methods := nil.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1508	^ self.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1509	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1510	(where == AREA_LISTOFMETHODS) ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1511	classes := nil.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1512	methods := browser methodListApp methodList value.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1513	^ self.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1514	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1515	(where == #listOfSelectedMethods) ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1516	classes := nil.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1517	methods := browser selectedMethods value ? #().
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1518	^ self.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1519	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1520	(where == #listOfSelectedMethodClasses) ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1521	classes := ((browser selectedMethods value ? #()) collect:[:m \| m mclass theNonMetaclass] as:Set) asOrderedCollection.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1522	methods := nil.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1523	^ self.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1524	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1525	(where == #listOfSelectedMethodPackages) ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1526	classes := (((browser selectedMethods value ? #()) collect:[:m \| m package] as:Set)
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1527	collectAll:[:p \| Smalltalk allClassesInPackage:p ]) asOrderedCollection.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1528	methods := nil.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1529	^ self.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1530	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1531	(where == #listOfChangedClasses) ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1532	classes := ChangeSet current changedClasses.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1533	methods := nil.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1534	^ self.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1535	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1536	(where == #listOfChangedMethods) ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1537	classes := nil.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1538	methods := Set new.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1539	ChangeSet current do:[:chg \|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1540	\|mthd\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1541
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1542	chg notNil ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1543	chg isMethodChange ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1544	mthd := chg changeMethod.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1545	mthd notNil ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1546	methods add:mthd
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1547	]
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1548	]
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1549	]
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1550	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1551	methods := methods asOrderedCollection.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1552	^ self.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1553	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1554
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1555	self todo:'unimplemented search'.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1556
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1557	"Modified: / 05-10-2011 / 15:48:20 / az"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1558	"Modified: / 29-02-2012 / 19:47:42 / cg"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1559	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1560
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1561	helpTextForMetaPatterns
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1562	^ 'MetaPatterns:
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1563	' , '`' allBold , ' = meta
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1564	' , '@' allBold , ' = list/any
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1565	' , '.' allBold , ' = statement
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1566	' , '`' allBold , ' = recurse
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1567
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1568	' , '`#n' allBold , ' any lit
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1569	' , '`v' allBold , ' any var (`V => global)
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1570	' , '`@e' allBold , ' any expr
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1571	' , '`@m:' allBold , ' any message (`m => unary)
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1572	' , '`{:n\|...}' allBold , ' node pattern
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1573	' , '`''a.*''' allBold , ' regex on string const
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1574	'.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1575
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1576	"Modified: / 08-08-2011 / 20:33:03 / cg"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1577	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1578
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1579	isMethodHolder
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1580	isMethodHolder isNil ifTrue:[isMethodHolder := (LastCodeSearchWasMethod ? false) asValue].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1581	^ isMethodHolder
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1582	! !
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1583
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1584	!SearchDialog methodsFor:'setup-buttons'!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1585
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1586	addBrowseButton
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1587	\|b\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1588
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1589	b := Button label:(resources string:'Browse').
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1590	(DialogBox defaultOKButtonAtLeft) ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1591	self addButton:b before:nil.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1592	] ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1593	self addButton:b after:nil.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1594	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1595	b
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1596	action:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1597	openHow := #newBrowser.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1598	self doAccept.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1599	self okPressed.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1600	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1601	^ b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1602	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1603
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1604	addBufferButton
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1605	\|b\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1606
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1607	b := Button label:(resources string:'Add Buffer').
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1608	(DialogBox defaultOKButtonAtLeft) ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1609	self addButton:b before:nil.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1610	] ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1611	self addButton:b after:nil.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1612	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1613	b
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1614	action:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1615	openHow := #newBuffer.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1616	self doAccept.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1617	self okPressed.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1618	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1619	^ b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1620	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1621
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1622	addButtons
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1623	"add find/newBrowser/newBuffer buttons"
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1624
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1625	\|prevButton\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1626
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1627	allowFind ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1628	defaultOpenHow := #showHere.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1629	prevButton := self addFindButton.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1630	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1631	allowBrowser ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1632	defaultOpenHow := #newBrowser.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1633	prevButton := self addBrowseButton.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1634	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1635	allowBuffer ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1636	defaultOpenHow := #newBuffer.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1637	prevButton := self addBufferButton.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1638	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1639	prevButton notNil ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1640	prevButton isReturnButton:true.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1641	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1642	self addAbortButton.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1643	!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1644
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1645	addFindButton
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1646	\|b\|
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1647
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1648	b := Button label:(resources string:'Find').
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1649	(DialogBox defaultOKButtonAtLeft) ifTrue:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1650	self addButton:b before:nil.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1651	] ifFalse:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1652	self addButton:b after:nil.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1653	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1654	b
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1655	action:[
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1656	openHow := #showHere.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1657	self doAccept.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1658	self okPressed.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1659	].
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1660	^ b.
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1661	! !
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1662
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1663	!SearchDialog class methodsFor:'documentation'!
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1664
14112 81034684fda4 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14111 diff changeset	1665	version
15987 0acdc2c63c1b #BUGFIX Stefan Vogel <sv@exept.de> parents: 15585 diff changeset	1666	^ '$Header$'
14112 81034684fda4 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14111 diff changeset	1667	!
81034684fda4 class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: 14111 diff changeset	1668
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1669	version_CVS
15987 0acdc2c63c1b #BUGFIX Stefan Vogel <sv@exept.de> parents: 15585 diff changeset	1670	^ '$Header$'
14111 c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1671	! !
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1672
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1673
c9f199317b1c class: Tools::SearchDialog Claus Gittinger <cg@exept.de> parents: diff changeset	1674	SearchDialog initialize!

author	Claus Gittinger <cg@exept.de>
	Thu, 05 May 2016 20:48:18 +0200
changeset 16450	6cb2bfca401e
parent 16364	95c0134ba16f
child 16459	85d703589d34
child 16461	a3f5e981e592
permissions	-rw-r--r--