hg/stx-libtool: Tools__BrowserListWithFilter.st@78262bd89bea (annotated)

13826 78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	1	"
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	2	COPYRIGHT (c) 2006 by eXept Software AG
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	3	All Rights Reserved
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	4
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	5	This software is furnished under a license and may be used
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	6	only in accordance with the terms of that license and with the
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	7	inclusion of the above copyright notice. This software may not
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	8	be provided or otherwise made available to, or used by, any
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	9	other person. No title to or ownership of the software is
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	10	hereby transferred.
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	11	"
10924 84f8187806b0 initial checkin vrany parents: diff changeset	12	"{ Package: 'stx:libtool' }"
84f8187806b0 initial checkin vrany parents: diff changeset	13
84f8187806b0 initial checkin vrany parents: diff changeset	14	"{ NameSpace: Tools }"
84f8187806b0 initial checkin vrany parents: diff changeset	15
84f8187806b0 initial checkin vrany parents: diff changeset	16	BrowserList subclass:#BrowserListWithFilter
84f8187806b0 initial checkin vrany parents: diff changeset	17	instanceVariableNames:'listView filterView filterPatternHolder showFilterHolder'
84f8187806b0 initial checkin vrany parents: diff changeset	18	classVariableNames:''
84f8187806b0 initial checkin vrany parents: diff changeset	19	poolDictionaries:''
84f8187806b0 initial checkin vrany parents: diff changeset	20	category:'Interface-Browsers-New'
84f8187806b0 initial checkin vrany parents: diff changeset	21	!
84f8187806b0 initial checkin vrany parents: diff changeset	22
84f8187806b0 initial checkin vrany parents: diff changeset	23	!BrowserListWithFilter class methodsFor:'documentation'!
84f8187806b0 initial checkin vrany parents: diff changeset	24
13826 78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	25	copyright
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	26	"
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	27	COPYRIGHT (c) 2006 by eXept Software AG
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	28	All Rights Reserved
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	29
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	30	This software is furnished under a license and may be used
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	31	only in accordance with the terms of that license and with the
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	32	inclusion of the above copyright notice. This software may not
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	33	be provided or otherwise made available to, or used by, any
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	34	other person. No title to or ownership of the software is
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	35	hereby transferred.
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	36	"
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	37	!
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	38
10924 84f8187806b0 initial checkin vrany parents: diff changeset	39	documentation
84f8187806b0 initial checkin vrany parents: diff changeset	40	"
84f8187806b0 initial checkin vrany parents: diff changeset	41	Abstract superclass for a browser list with user filter.
84f8187806b0 initial checkin vrany parents: diff changeset	42	Currently used only ChangeList and ChangeSetDiffList, but
84f8187806b0 initial checkin vrany parents: diff changeset	43	user filter may be usefull for class/category lists as well.
84f8187806b0 initial checkin vrany parents: diff changeset	44
84f8187806b0 initial checkin vrany parents: diff changeset	45	[author:]
84f8187806b0 initial checkin vrany parents: diff changeset	46	Jan Vrany <jan.vrany@fit.cvut.cz>
84f8187806b0 initial checkin vrany parents: diff changeset	47
84f8187806b0 initial checkin vrany parents: diff changeset	48	[instance variables:]
84f8187806b0 initial checkin vrany parents: diff changeset	49
84f8187806b0 initial checkin vrany parents: diff changeset	50	[class variables:]
84f8187806b0 initial checkin vrany parents: diff changeset	51
84f8187806b0 initial checkin vrany parents: diff changeset	52	[see also:]
84f8187806b0 initial checkin vrany parents: diff changeset	53
84f8187806b0 initial checkin vrany parents: diff changeset	54	"
84f8187806b0 initial checkin vrany parents: diff changeset	55	! !
84f8187806b0 initial checkin vrany parents: diff changeset	56
13826 78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	57	!BrowserListWithFilter class methodsFor:'plugIn spec'!
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	58
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	59	aspectSelectors
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	60
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	61	^#(
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	62	showFilterHolder
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	63	)
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	64
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	65	"Created: / 11-02-2012 / 22:44:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	66	! !
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	67
10924 84f8187806b0 initial checkin vrany parents: diff changeset	68	!BrowserListWithFilter methodsFor:'accessing'!
84f8187806b0 initial checkin vrany parents: diff changeset	69
84f8187806b0 initial checkin vrany parents: diff changeset	70	filterPattern
84f8187806b0 initial checkin vrany parents: diff changeset	71
84f8187806b0 initial checkin vrany parents: diff changeset	72	\| p \|
84f8187806b0 initial checkin vrany parents: diff changeset	73	p := filterPatternHolder value.
10941 3ff94636780d changed: #filterPattern vrany parents: 10936 diff changeset	74	^p isEmptyOrNil ifTrue:[
10924 84f8187806b0 initial checkin vrany parents: diff changeset	75	nil
84f8187806b0 initial checkin vrany parents: diff changeset	76	] ifFalse:[
84f8187806b0 initial checkin vrany parents: diff changeset	77	StringPattern fromString: p
84f8187806b0 initial checkin vrany parents: diff changeset	78	]
84f8187806b0 initial checkin vrany parents: diff changeset	79
84f8187806b0 initial checkin vrany parents: diff changeset	80	"Created: / 29-11-2011 / 15:23:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
84f8187806b0 initial checkin vrany parents: diff changeset	81	!
84f8187806b0 initial checkin vrany parents: diff changeset	82
84f8187806b0 initial checkin vrany parents: diff changeset	83	showFilter
84f8187806b0 initial checkin vrany parents: diff changeset	84
84f8187806b0 initial checkin vrany parents: diff changeset	85	^self showFilterHolder value
84f8187806b0 initial checkin vrany parents: diff changeset	86
84f8187806b0 initial checkin vrany parents: diff changeset	87	"Created: / 29-11-2011 / 15:27:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
84f8187806b0 initial checkin vrany parents: diff changeset	88	! !
84f8187806b0 initial checkin vrany parents: diff changeset	89
84f8187806b0 initial checkin vrany parents: diff changeset	90	!BrowserListWithFilter methodsFor:'aspects'!
84f8187806b0 initial checkin vrany parents: diff changeset	91
84f8187806b0 initial checkin vrany parents: diff changeset	92	filterPatternHolder
84f8187806b0 initial checkin vrany parents: diff changeset	93	"return/create the 'filterPatternHolder' value holder (automatically generated)"
84f8187806b0 initial checkin vrany parents: diff changeset	94
84f8187806b0 initial checkin vrany parents: diff changeset	95	filterPatternHolder isNil ifTrue:[
84f8187806b0 initial checkin vrany parents: diff changeset	96	filterPatternHolder := ValueHolder new.
84f8187806b0 initial checkin vrany parents: diff changeset	97	filterPatternHolder addDependent:self.
84f8187806b0 initial checkin vrany parents: diff changeset	98	].
84f8187806b0 initial checkin vrany parents: diff changeset	99	^ filterPatternHolder
84f8187806b0 initial checkin vrany parents: diff changeset	100	!
84f8187806b0 initial checkin vrany parents: diff changeset	101
84f8187806b0 initial checkin vrany parents: diff changeset	102	menuHolderWithShowFilter
84f8187806b0 initial checkin vrany parents: diff changeset	103
84f8187806b0 initial checkin vrany parents: diff changeset	104	^[
84f8187806b0 initial checkin vrany parents: diff changeset	105	\| menu \|
10936 f08353f1e312 changed: #menuHolderWithShowFilter vrany parents: 10924 diff changeset	106	menu := self menuHolder value copy.
10924 84f8187806b0 initial checkin vrany parents: diff changeset	107	menu isArray ifTrue:[menu := Menu decodeFromLiteralArray: menu].
84f8187806b0 initial checkin vrany parents: diff changeset	108	menu addSeparator.
84f8187806b0 initial checkin vrany parents: diff changeset	109	menu addItem:
84f8187806b0 initial checkin vrany parents: diff changeset	110	((MenuItem label:(self resources at: 'Show filter'))
84f8187806b0 initial checkin vrany parents: diff changeset	111	indication: self showFilterHolder;
84f8187806b0 initial checkin vrany parents: diff changeset	112	yourself).
84f8187806b0 initial checkin vrany parents: diff changeset	113	menu
84f8187806b0 initial checkin vrany parents: diff changeset	114	]
84f8187806b0 initial checkin vrany parents: diff changeset	115
84f8187806b0 initial checkin vrany parents: diff changeset	116	"Created: / 29-11-2011 / 15:40:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
84f8187806b0 initial checkin vrany parents: diff changeset	117	!
84f8187806b0 initial checkin vrany parents: diff changeset	118
84f8187806b0 initial checkin vrany parents: diff changeset	119	showFilterHolder
84f8187806b0 initial checkin vrany parents: diff changeset	120	"return/create the 'showFilterHolder' value holder (automatically generated)"
84f8187806b0 initial checkin vrany parents: diff changeset	121
84f8187806b0 initial checkin vrany parents: diff changeset	122	showFilterHolder isNil ifTrue:[
84f8187806b0 initial checkin vrany parents: diff changeset	123	showFilterHolder := ValueHolder with: false.
84f8187806b0 initial checkin vrany parents: diff changeset	124	showFilterHolder addDependent:self.
84f8187806b0 initial checkin vrany parents: diff changeset	125	].
84f8187806b0 initial checkin vrany parents: diff changeset	126	^ showFilterHolder
84f8187806b0 initial checkin vrany parents: diff changeset	127
84f8187806b0 initial checkin vrany parents: diff changeset	128	"Modified: / 29-11-2011 / 15:43:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
84f8187806b0 initial checkin vrany parents: diff changeset	129	!
84f8187806b0 initial checkin vrany parents: diff changeset	130
84f8187806b0 initial checkin vrany parents: diff changeset	131	showFilterHolder:something
84f8187806b0 initial checkin vrany parents: diff changeset	132	"set the 'showFilterHolder' value holder (automatically generated)"
84f8187806b0 initial checkin vrany parents: diff changeset	133
84f8187806b0 initial checkin vrany parents: diff changeset	134	\|oldValue newValue\|
84f8187806b0 initial checkin vrany parents: diff changeset	135
84f8187806b0 initial checkin vrany parents: diff changeset	136	showFilterHolder notNil ifTrue:[
84f8187806b0 initial checkin vrany parents: diff changeset	137	oldValue := showFilterHolder value.
84f8187806b0 initial checkin vrany parents: diff changeset	138	showFilterHolder removeDependent:self.
84f8187806b0 initial checkin vrany parents: diff changeset	139	].
84f8187806b0 initial checkin vrany parents: diff changeset	140	showFilterHolder := something.
84f8187806b0 initial checkin vrany parents: diff changeset	141	showFilterHolder notNil ifTrue:[
84f8187806b0 initial checkin vrany parents: diff changeset	142	showFilterHolder addDependent:self.
84f8187806b0 initial checkin vrany parents: diff changeset	143	].
84f8187806b0 initial checkin vrany parents: diff changeset	144	newValue := showFilterHolder value.
84f8187806b0 initial checkin vrany parents: diff changeset	145	oldValue ~~ newValue ifTrue:[
84f8187806b0 initial checkin vrany parents: diff changeset	146	self update:#value with:newValue from:showFilterHolder.
84f8187806b0 initial checkin vrany parents: diff changeset	147	].
84f8187806b0 initial checkin vrany parents: diff changeset	148	! !
84f8187806b0 initial checkin vrany parents: diff changeset	149
84f8187806b0 initial checkin vrany parents: diff changeset	150	!BrowserListWithFilter methodsFor:'change & update'!
84f8187806b0 initial checkin vrany parents: diff changeset	151
84f8187806b0 initial checkin vrany parents: diff changeset	152	update:something with:aParameter from:changedObject
84f8187806b0 initial checkin vrany parents: diff changeset	153	"Invoked when an object that I depend upon sends a change notification."
84f8187806b0 initial checkin vrany parents: diff changeset	154
84f8187806b0 initial checkin vrany parents: diff changeset	155	changedObject == showFilterHolder ifTrue:[
84f8187806b0 initial checkin vrany parents: diff changeset	156	self showFilter: showFilterHolder value.
84f8187806b0 initial checkin vrany parents: diff changeset	157	^self.
84f8187806b0 initial checkin vrany parents: diff changeset	158	].
84f8187806b0 initial checkin vrany parents: diff changeset	159	changedObject == filterPatternHolder ifTrue:[
84f8187806b0 initial checkin vrany parents: diff changeset	160	self enqueueDelayedUpdateList.
84f8187806b0 initial checkin vrany parents: diff changeset	161	^self
84f8187806b0 initial checkin vrany parents: diff changeset	162	].
84f8187806b0 initial checkin vrany parents: diff changeset	163	super update:something with:aParameter from:changedObject
84f8187806b0 initial checkin vrany parents: diff changeset	164
84f8187806b0 initial checkin vrany parents: diff changeset	165	"Modified: / 29-11-2011 / 15:51:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11562 270c71f65f43 list invalidation Claus Gittinger <cg@exept.de> parents: 10941 diff changeset	166	"Modified (format): / 06-06-2012 / 00:01:37 / cg"
10924 84f8187806b0 initial checkin vrany parents: diff changeset	167	! !
84f8187806b0 initial checkin vrany parents: diff changeset	168
13826 78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	169	!BrowserListWithFilter methodsFor:'event handling-delegation'!
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	170
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	171	handlesKeyPress:key inView:aView
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	172	^ aView == filterView and:[key == #CursorDown]
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	173
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	174	"Created: / 06-02-2012 / 23:02:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	175	!
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	176
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	177	keyPress:key x:x y:y view:aView
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	178
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	179	(aView == filterView and:[key == #CursorDown]) ifTrue:[
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	180	listView scrolledView notNil ifTrue:[
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	181	listView scrolledView
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	182	takeFocus;
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	183	keyPress: key x:x y:y.
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	184	].
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	185	].
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	186
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	187	"Created: / 06-02-2012 / 23:06:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	188	"Modified: / 17-01-2013 / 21:28:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	189	! !
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	190
10924 84f8187806b0 initial checkin vrany parents: diff changeset	191	!BrowserListWithFilter methodsFor:'hooks'!
84f8187806b0 initial checkin vrany parents: diff changeset	192
84f8187806b0 initial checkin vrany parents: diff changeset	193	commonPostBuild
12398 eef1be6c07b7 class: Tools::BrowserListWithFilter Claus Gittinger <cg@exept.de> parents: 11562 diff changeset	194	super commonPostBuild.
10924 84f8187806b0 initial checkin vrany parents: diff changeset	195	listView isNil ifTrue:[listView := builder componentAt:#List].
84f8187806b0 initial checkin vrany parents: diff changeset	196	listView isNil ifTrue:[self breakPoint: #jv].
84f8187806b0 initial checkin vrany parents: diff changeset	197	filterView isNil ifTrue:[self breakPoint: #jv].
84f8187806b0 initial checkin vrany parents: diff changeset	198
13826 78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	199	filterView delegate: self.
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	200	self showFilter: showFilterHolder value.
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	201
10924 84f8187806b0 initial checkin vrany parents: diff changeset	202	"Created: / 29-11-2011 / 14:47:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
84f8187806b0 initial checkin vrany parents: diff changeset	203	!
84f8187806b0 initial checkin vrany parents: diff changeset	204
84f8187806b0 initial checkin vrany parents: diff changeset	205	postBuildFilterView: aView
84f8187806b0 initial checkin vrany parents: diff changeset	206
84f8187806b0 initial checkin vrany parents: diff changeset	207	filterView := aView
84f8187806b0 initial checkin vrany parents: diff changeset	208
84f8187806b0 initial checkin vrany parents: diff changeset	209	"Created: / 29-11-2011 / 14:47:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
84f8187806b0 initial checkin vrany parents: diff changeset	210	!
84f8187806b0 initial checkin vrany parents: diff changeset	211
84f8187806b0 initial checkin vrany parents: diff changeset	212	postBuildListView: aView
84f8187806b0 initial checkin vrany parents: diff changeset	213
84f8187806b0 initial checkin vrany parents: diff changeset	214	listView := aView
84f8187806b0 initial checkin vrany parents: diff changeset	215
84f8187806b0 initial checkin vrany parents: diff changeset	216	"Created: / 29-11-2011 / 14:47:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
84f8187806b0 initial checkin vrany parents: diff changeset	217	! !
84f8187806b0 initial checkin vrany parents: diff changeset	218
84f8187806b0 initial checkin vrany parents: diff changeset	219	!BrowserListWithFilter methodsFor:'private'!
84f8187806b0 initial checkin vrany parents: diff changeset	220
84f8187806b0 initial checkin vrany parents: diff changeset	221	filterList: list
84f8187806b0 initial checkin vrany parents: diff changeset	222	\| pattern filteredList \|
84f8187806b0 initial checkin vrany parents: diff changeset	223
84f8187806b0 initial checkin vrany parents: diff changeset	224	self showFilter ifFalse:[ ^ list ].
12659 f89af2fdbc11 class: Tools::BrowserListWithFilter Claus Gittinger <cg@exept.de> parents: 12398 diff changeset	225
10924 84f8187806b0 initial checkin vrany parents: diff changeset	226	pattern := self filterPattern.
84f8187806b0 initial checkin vrany parents: diff changeset	227	pattern isNil ifTrue:[ ^ list ].
84f8187806b0 initial checkin vrany parents: diff changeset	228	filteredList := list value select:[:each\|pattern matchObject: each relax: 1].
84f8187806b0 initial checkin vrany parents: diff changeset	229	filteredList isEmpty ifTrue:[
12659 f89af2fdbc11 class: Tools::BrowserListWithFilter Claus Gittinger <cg@exept.de> parents: 12398 diff changeset	230	filteredList := list value select:[:each\|pattern matchObject: each relax: 2].
f89af2fdbc11 class: Tools::BrowserListWithFilter Claus Gittinger <cg@exept.de> parents: 12398 diff changeset	231	filteredList isEmpty ifTrue:[
f89af2fdbc11 class: Tools::BrowserListWithFilter Claus Gittinger <cg@exept.de> parents: 12398 diff changeset	232	filteredList := list value select:[:each\|pattern matchObject: each relax: 3].
f89af2fdbc11 class: Tools::BrowserListWithFilter Claus Gittinger <cg@exept.de> parents: 12398 diff changeset	233	]
f89af2fdbc11 class: Tools::BrowserListWithFilter Claus Gittinger <cg@exept.de> parents: 12398 diff changeset	234	].
10924 84f8187806b0 initial checkin vrany parents: diff changeset	235	^filteredList
84f8187806b0 initial checkin vrany parents: diff changeset	236
84f8187806b0 initial checkin vrany parents: diff changeset	237	"Created: / 29-11-2011 / 15:31:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
84f8187806b0 initial checkin vrany parents: diff changeset	238	!
84f8187806b0 initial checkin vrany parents: diff changeset	239
84f8187806b0 initial checkin vrany parents: diff changeset	240	showFilter: aBoolean
84f8187806b0 initial checkin vrany parents: diff changeset	241	\| offset \|
84f8187806b0 initial checkin vrany parents: diff changeset	242
13826 78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	243	listView isNil ifTrue:[ ^ self ].
78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	244
10924 84f8187806b0 initial checkin vrany parents: diff changeset	245	aBoolean ifTrue:[
84f8187806b0 initial checkin vrany parents: diff changeset	246	offset := filterView height.
84f8187806b0 initial checkin vrany parents: diff changeset	247	] ifFalse:[
84f8187806b0 initial checkin vrany parents: diff changeset	248	offset := 0
84f8187806b0 initial checkin vrany parents: diff changeset	249	].
84f8187806b0 initial checkin vrany parents: diff changeset	250	listView layout: (listView layout copy topOffset: offset) .
84f8187806b0 initial checkin vrany parents: diff changeset	251	filterView isVisible: aBoolean
84f8187806b0 initial checkin vrany parents: diff changeset	252
84f8187806b0 initial checkin vrany parents: diff changeset	253	"Created: / 29-11-2011 / 14:55:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
84f8187806b0 initial checkin vrany parents: diff changeset	254	! !
84f8187806b0 initial checkin vrany parents: diff changeset	255
84f8187806b0 initial checkin vrany parents: diff changeset	256	!BrowserListWithFilter class methodsFor:'documentation'!
84f8187806b0 initial checkin vrany parents: diff changeset	257
84f8187806b0 initial checkin vrany parents: diff changeset	258	version
13826 78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	259	^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserListWithFilter.st,v 1.7 2014-02-05 18:57:41 cg Exp $'
10924 84f8187806b0 initial checkin vrany parents: diff changeset	260	!
84f8187806b0 initial checkin vrany parents: diff changeset	261
84f8187806b0 initial checkin vrany parents: diff changeset	262	version_CVS
13826 78262bd89bea merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 12659 diff changeset	263	^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserListWithFilter.st,v 1.7 2014-02-05 18:57:41 cg Exp $'
10924 84f8187806b0 initial checkin vrany parents: diff changeset	264	! !
12398 eef1be6c07b7 class: Tools::BrowserListWithFilter Claus Gittinger <cg@exept.de> parents: 11562 diff changeset	265

author	Claus Gittinger <cg@exept.de>
	Wed, 05 Feb 2014 19:57:41 +0100
changeset 13826	78262bd89bea
parent 12659	f89af2fdbc11
child 14036	ba97bd20b671
permissions	-rw-r--r--