hg/stx-libtool: FindFileApplication.st@c85f10082d25 (annotated)

5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	1	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	2	COPYRIGHT (c) 2002 by eXept Software AG
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	3	All Rights Reserved
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	4
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	5	This software is furnished under a license and may be used
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	6	only in accordance with the terms of that license and with the
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	7	inclusion of the above copyright notice. This software may not
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	8	be provided or otherwise made available to, or used by, any
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	9	other person. No title to or ownership of the software is
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	10	hereby transferred.
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	11	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	12
3892 321c1729db5b initial checkin penk parents: diff changeset	13	"{ Package: 'stx:libtool' }"
321c1729db5b initial checkin penk parents: diff changeset	14
321c1729db5b initial checkin penk parents: diff changeset	15	AbstractFileApplicationNoteBookComponent subclass:#FindFileApplication
5231 d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	16	instanceVariableNames:'searchDirectories searchDirectoryHolder notSearchForSameContents
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	17	namePatternHolder ignoreCaseInName contentsPatternHolder
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	18	ignoreCaseInContents notContentsPatternHolder
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	19	ignoreCaseInNotContents sameContentsAsHolder findFileView
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	20	searchResultTable resultList enableStop enableSearch stopSignal
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	21	accessLock searchTask expanded searchRecursively selectionHolder
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	22	hasListEntries targetApplication useLocate useGrep
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	23	rememberInCache searchOnlyInCache searchForSameContents
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	24	matchedFilesList shownList'
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	25	classVariableNames:'ContentsInfoCache ContentsInfoCacheAccessLock LastRememberInCache'
3892 321c1729db5b initial checkin penk parents: diff changeset	26	poolDictionaries:''
321c1729db5b initial checkin penk parents: diff changeset	27	category:'Interface-Tools-File'
321c1729db5b initial checkin penk parents: diff changeset	28	!
321c1729db5b initial checkin penk parents: diff changeset	29
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	30	!FindFileApplication class methodsFor:'documentation'!
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	31
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	32	copyright
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	33	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	34	COPYRIGHT (c) 2002 by eXept Software AG
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	35	All Rights Reserved
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	36
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	37	This software is furnished under a license and may be used
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	38	only in accordance with the terms of that license and with the
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	39	inclusion of the above copyright notice. This software may not
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	40	be provided or otherwise made available to, or used by, any
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	41	other person. No title to or ownership of the software is
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	42	hereby transferred.
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	43	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	44	! !
3892 321c1729db5b initial checkin penk parents: diff changeset	45
321c1729db5b initial checkin penk parents: diff changeset	46	!FindFileApplication class methodsFor:'instance creation'!
321c1729db5b initial checkin penk parents: diff changeset	47
321c1729db5b initial checkin penk parents: diff changeset	48	open
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	49	^ self openInDirectory:(Filename currentDirectory)
3892 321c1729db5b initial checkin penk parents: diff changeset	50
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	51	"
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	52	self open
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	53	"
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	54	!
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	55
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	56	openInDirectory:aFilename
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	57	^ self openOnFileName:(aFilename asFilename asAbsoluteFilename)
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	58
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	59	"
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	60	self openInDirectory:'/etc'
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	61	"
3892 321c1729db5b initial checkin penk parents: diff changeset	62	!
321c1729db5b initial checkin penk parents: diff changeset	63
321c1729db5b initial checkin penk parents: diff changeset	64	openOnFileName:aFileName
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	65	^ self openOnFileName:aFileName for:nil
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	66	!
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	67
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	68	openOnFileName:aFileName for:aTargetApplicationOrNil
3892 321c1729db5b initial checkin penk parents: diff changeset	69
321c1729db5b initial checkin penk parents: diff changeset	70	\| instance builder\|
321c1729db5b initial checkin penk parents: diff changeset	71
321c1729db5b initial checkin penk parents: diff changeset	72	builder := super open.
321c1729db5b initial checkin penk parents: diff changeset	73	instance := builder application.
3983 dd593a7482fa * empty log message * penk parents: 3937 diff changeset	74	instance item:(DirectoryContentsBrowser itemClass fileName:aFileName).
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	75	aTargetApplicationOrNil notNil ifTrue:[
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	76	instance targetApplication:aTargetApplicationOrNil.
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	77	].
3892 321c1729db5b initial checkin penk parents: diff changeset	78	^ builder
321c1729db5b initial checkin penk parents: diff changeset	79	! !
321c1729db5b initial checkin penk parents: diff changeset	80
321c1729db5b initial checkin penk parents: diff changeset	81	!FindFileApplication class methodsFor:'defaults'!
321c1729db5b initial checkin penk parents: diff changeset	82
321c1729db5b initial checkin penk parents: diff changeset	83	tabStringFor:aApplicationType
321c1729db5b initial checkin penk parents: diff changeset	84
5774 5a1d38bf8bdc * empty log message * Claus Gittinger <cg@exept.de> parents: 5773 diff changeset	85	^ 'Find File In:'
3892 321c1729db5b initial checkin penk parents: diff changeset	86	! !
321c1729db5b initial checkin penk parents: diff changeset	87
321c1729db5b initial checkin penk parents: diff changeset	88	!FindFileApplication class methodsFor:'interface specs'!
321c1729db5b initial checkin penk parents: diff changeset	89
321c1729db5b initial checkin penk parents: diff changeset	90	windowSpec
321c1729db5b initial checkin penk parents: diff changeset	91	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	92	by the UIPainter of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	93
321c1729db5b initial checkin penk parents: diff changeset	94	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	95	the UIPainter may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	96
321c1729db5b initial checkin penk parents: diff changeset	97	"
321c1729db5b initial checkin penk parents: diff changeset	98	UIPainter new openOnClass:FindFileApplication andSelector:#windowSpec
321c1729db5b initial checkin penk parents: diff changeset	99	FindFileApplication new openInterface:#windowSpec
321c1729db5b initial checkin penk parents: diff changeset	100	FindFileApplication open
321c1729db5b initial checkin penk parents: diff changeset	101	"
321c1729db5b initial checkin penk parents: diff changeset	102
321c1729db5b initial checkin penk parents: diff changeset	103	<resource: #canvas>
321c1729db5b initial checkin penk parents: diff changeset	104
321c1729db5b initial checkin penk parents: diff changeset	105	^
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	106	#(FullSpec
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	107	name: windowSpec
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	108	window:
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	109	(WindowSpec
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	110	label: 'File Search'
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	111	name: 'File Search'
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	112	min: (Point 377 131)
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	113	max: (Point 1280 1024)
5850 9f217d207505 * empty log message * Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	114	bounds: (Rectangle 0 0 758 512)
3892 321c1729db5b initial checkin penk parents: diff changeset	115	)
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	116	component:
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	117	(SpecCollection
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	118	collection: (
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	119	(MenuPanelSpec
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	120	name: 'ToolBar1'
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	121	layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0)
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	122	level: 0
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	123	menu: searchMenu
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	124	textDefault: true
3892 321c1729db5b initial checkin penk parents: diff changeset	125	)
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	126	(ViewSpec
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	127	name: 'Box1'
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	128	layout: (LayoutFrame 0 0.0 32 0 0 1.0 156 0)
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	129	component:
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	130	(SpecCollection
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	131	collection: (
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	132	(LabelSpec
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	133	label: 'Directory:'
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	134	name: 'DirectoryLabel'
5557 c4f509890024 geometry (for bigger fonts) Claus Gittinger <cg@exept.de> parents: 5408 diff changeset	135	layout: (LayoutFrame 2 0 7 0 154 0 24 0)
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	136	translateLabel: true
5557 c4f509890024 geometry (for bigger fonts) Claus Gittinger <cg@exept.de> parents: 5408 diff changeset	137	adjust: right
4518 85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	138	)
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	139	(FilenameInputFieldSpec
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	140	name: 'DirectoryEntryField'
5603 a20070742d88 * empty log message * Claus Gittinger <cg@exept.de> parents: 5601 diff changeset	141	layout: (LayoutFrame 156 0 4 0 -315 1 24 0)
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	142	model: searchDirectoryHolder
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	143	immediateAccept: true
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	144	acceptOnPointerLeave: false
4518 85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	145	)
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	146	(CheckBoxSpec
5231 d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	147	label: 'Use ''locate'' Cmd'
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	148	name: 'UseLocateCheckBox'
5851 0544d65b7c29 * empty log message * Claus Gittinger <cg@exept.de> parents: 5850 diff changeset	149	layout: (LayoutFrame -309 1 5 0 -167 1 28 0)
5231 d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	150	visibilityChannel: canUseLocate
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	151	tabable: true
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	152	model: useLocate
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	153	translateLabel: true
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	154	)
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	155	(CheckBoxSpec
5557 c4f509890024 geometry (for bigger fonts) Claus Gittinger <cg@exept.de> parents: 5408 diff changeset	156	label: 'Recursive'
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	157	name: 'RecursiveSearchCheckBox'
5851 0544d65b7c29 * empty log message * Claus Gittinger <cg@exept.de> parents: 5850 diff changeset	158	layout: (LayoutFrame -169 1 5 0 -4 1 28 0)
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	159	tabable: true
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	160	model: searchRecursively
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	161	translateLabel: true
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	162	)
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	163	(LabelSpec
5603 a20070742d88 * empty log message * Claus Gittinger <cg@exept.de> parents: 5601 diff changeset	164	label: 'Search Files Named:'
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	165	name: 'FileNameLabel'
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	166	layout: (LayoutFrame 2 0 31 0 154 0 48 0)
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	167	translateLabel: true
5557 c4f509890024 geometry (for bigger fonts) Claus Gittinger <cg@exept.de> parents: 5408 diff changeset	168	adjust: right
4518 85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	169	)
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	170	(InputFieldSpec
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	171	name: 'FileNameEntryField'
5603 a20070742d88 * empty log message * Claus Gittinger <cg@exept.de> parents: 5601 diff changeset	172	layout: (LayoutFrame 156 0 28 0 -315 1 48 0)
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	173	tabable: true
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	174	model: namePatternHolder
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	175	immediateAccept: true
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	176	acceptOnLeave: false
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	177	acceptOnPointerLeave: false
3892 321c1729db5b initial checkin penk parents: diff changeset	178	)
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	179	(CheckBoxSpec
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	180	label: 'Directories'
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	181	name: 'SearchDirectoriesCheckBox'
5851 0544d65b7c29 * empty log message * Claus Gittinger <cg@exept.de> parents: 5850 diff changeset	182	layout: (LayoutFrame -309 1 29 0 -167 1 52 0)
5774 5a1d38bf8bdc * empty log message * Claus Gittinger <cg@exept.de> parents: 5773 diff changeset	183	enableChannel: notSearchForSameContents
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	184	tabable: true
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	185	model: searchDirectories
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	186	translateLabel: true
3892 321c1729db5b initial checkin penk parents: diff changeset	187	)
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	188	(CheckBoxSpec
5603 a20070742d88 * empty log message * Claus Gittinger <cg@exept.de> parents: 5601 diff changeset	189	label: 'Ignore Case'
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	190	name: 'IgnoreCaseInNameCheckBox'
5851 0544d65b7c29 * empty log message * Claus Gittinger <cg@exept.de> parents: 5850 diff changeset	191	layout: (LayoutFrame -169 1 29 0 -4 1 52 0)
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	192	tabable: true
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	193	model: ignoreCaseInName
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	194	translateLabel: true
4518 85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	195	)
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	196	(LabelSpec
5557 c4f509890024 geometry (for bigger fonts) Claus Gittinger <cg@exept.de> parents: 5408 diff changeset	197	label: 'Containing:'
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	198	name: 'ContentsLabel'
5557 c4f509890024 geometry (for bigger fonts) Claus Gittinger <cg@exept.de> parents: 5408 diff changeset	199	layout: (LayoutFrame 2 0 55 0 154 0 72 0)
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	200	translateLabel: true
5557 c4f509890024 geometry (for bigger fonts) Claus Gittinger <cg@exept.de> parents: 5408 diff changeset	201	adjust: right
3892 321c1729db5b initial checkin penk parents: diff changeset	202	)
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	203	(InputFieldSpec
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	204	name: 'ContentsEntryField'
5603 a20070742d88 * empty log message * Claus Gittinger <cg@exept.de> parents: 5601 diff changeset	205	layout: (LayoutFrame 156 0 52 0 -315 1 72 0)
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	206	enableChannel: notSearchForSameContents
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	207	tabable: true
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	208	model: contentsPatternHolder
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	209	immediateAccept: true
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	210	acceptOnPointerLeave: false
3892 321c1729db5b initial checkin penk parents: diff changeset	211	)
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	212	(CheckBoxSpec
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	213	label: 'Use ''grep'' Cmd'
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	214	name: 'UseGrepCheckBox'
5851 0544d65b7c29 * empty log message * Claus Gittinger <cg@exept.de> parents: 5850 diff changeset	215	layout: (LayoutFrame -309 1 53 0 -167 1 76 0)
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	216	visibilityChannel: canUseGrep
5743 ab4c777f25f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5730 diff changeset	217	enableChannel: notSearchForSameContents
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	218	tabable: true
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	219	model: useGrep
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	220	translateLabel: true
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	221	)
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	222	(CheckBoxSpec
5603 a20070742d88 * empty log message * Claus Gittinger <cg@exept.de> parents: 5601 diff changeset	223	label: 'Ignore Case'
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	224	name: 'IgnoreCaseInContentsCheckBox'
5851 0544d65b7c29 * empty log message * Claus Gittinger <cg@exept.de> parents: 5850 diff changeset	225	layout: (LayoutFrame -169 1 53 0 -4 1 76 0)
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	226	enableChannel: notSearchForSameContents
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	227	tabable: true
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	228	model: ignoreCaseInContents
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	229	translateLabel: true
3892 321c1729db5b initial checkin penk parents: diff changeset	230	)
5231 d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	231	(LabelSpec
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	232	label: 'Not Containing:'
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	233	name: 'NotContentsLabel'
5557 c4f509890024 geometry (for bigger fonts) Claus Gittinger <cg@exept.de> parents: 5408 diff changeset	234	layout: (LayoutFrame 2 0 79 0 154 0 96 0)
5231 d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	235	translateLabel: true
5557 c4f509890024 geometry (for bigger fonts) Claus Gittinger <cg@exept.de> parents: 5408 diff changeset	236	adjust: right
5231 d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	237	)
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	238	(InputFieldSpec
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	239	name: 'NotContentsEntryField'
5603 a20070742d88 * empty log message * Claus Gittinger <cg@exept.de> parents: 5601 diff changeset	240	layout: (LayoutFrame 156 0 76 0 -315 1 96 0)
5231 d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	241	enableChannel: notSearchForSameContents
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	242	tabable: true
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	243	model: notContentsPatternHolder
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	244	immediateAccept: true
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	245	acceptOnPointerLeave: false
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	246	)
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	247	(CheckBoxSpec
5603 a20070742d88 * empty log message * Claus Gittinger <cg@exept.de> parents: 5601 diff changeset	248	label: 'Ignore Case'
5231 d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	249	name: 'IgnoreCaseInNotContentsCheckBox'
5851 0544d65b7c29 * empty log message * Claus Gittinger <cg@exept.de> parents: 5850 diff changeset	250	layout: (LayoutFrame -169 1 77 0 -4 1 100 0)
5231 d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	251	enableChannel: notSearchForSameContents
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	252	tabable: true
5231 d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	253	model: ignoreCaseInNotContents
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	254	translateLabel: true
3892 321c1729db5b initial checkin penk parents: diff changeset	255	)
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	256	(LabelSpec
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	257	label: 'Same Contents As:'
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	258	name: 'SameContentsAsLabel'
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	259	layout: (LayoutFrame 2 0 103 0 154 0 120 0)
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	260	translateLabel: true
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	261	adjust: right
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	262	)
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	263	(InputFieldSpec
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	264	name: 'SameContentsAsEntryField'
5743 ab4c777f25f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5730 diff changeset	265	layout: (LayoutFrame 156 0 100 0 -339 1 120 0)
ab4c777f25f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5730 diff changeset	266	enableChannel: searchForSameContents
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	267	tabable: true
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	268	model: sameContentsAsHolder
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	269	immediateAccept: true
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	270	acceptOnPointerLeave: false
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	271	)
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	272	(CheckBoxSpec
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	273	label: 'Cache Info'
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	274	name: 'RememberInCacheCheckBox'
5851 0544d65b7c29 * empty log message * Claus Gittinger <cg@exept.de> parents: 5850 diff changeset	275	layout: (LayoutFrame -309 1 101 0 -167 1 124 0)
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	276	visibilityChannel: canUseGrep
5743 ab4c777f25f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5730 diff changeset	277	enableChannel: searchForSameContents
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	278	tabable: true
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	279	model: rememberInCache
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	280	translateLabel: true
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	281	)
5743 ab4c777f25f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5730 diff changeset	282	(CheckToggleSpec
ab4c777f25f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5730 diff changeset	283	name: 'EnableSameContentsCheckToggle'
ab4c777f25f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5730 diff changeset	284	layout: (LayoutOrigin -334 1 104 0)
ab4c777f25f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5730 diff changeset	285	model: searchForSameContents
ab4c777f25f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5730 diff changeset	286	isTriggerOnDown: true
ab4c777f25f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5730 diff changeset	287	showLamp: false
ab4c777f25f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5730 diff changeset	288	lampColor: (Color 100.0 100.0 0.0)
ab4c777f25f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5730 diff changeset	289	)
5850 9f217d207505 * empty log message * Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	290	(ActionButtonSpec
9f217d207505 * empty log message * Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	291	label: 'Clear Cache'
9f217d207505 * empty log message * Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	292	name: 'ClearCacheButton'
5851 0544d65b7c29 * empty log message * Claus Gittinger <cg@exept.de> parents: 5850 diff changeset	293	layout: (LayoutFrame -169 1 101 0 -44 1 123 0)
5850 9f217d207505 * empty log message * Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	294	translateLabel: true
9f217d207505 * empty log message * Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	295	model: clearCache
9f217d207505 * empty log message * Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	296	)
3892 321c1729db5b initial checkin penk parents: diff changeset	297	)
321c1729db5b initial checkin penk parents: diff changeset	298
321c1729db5b initial checkin penk parents: diff changeset	299	)
321c1729db5b initial checkin penk parents: diff changeset	300	)
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	301	(SequenceViewSpec
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	302	name: 'List1'
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	303	layout: (LayoutFrame 0 0.0 156 0 0 1.0 0 1)
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	304	model: selectionHolder
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	305	menu: menu
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	306	hasHorizontalScrollBar: true
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	307	hasVerticalScrollBar: true
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	308	isMultiSelect: true
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	309	doubleClickSelector: fileDoubleClick:
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	310	useIndex: true
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	311	sequenceList: shownList
3892 321c1729db5b initial checkin penk parents: diff changeset	312	)
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	313	(ProgressIndicatorSpec
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	314	name: 'ProgressIndicator1'
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	315	layout: (LayoutFrame 125 0 11 0 231 0 21 0)
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	316	visibilityChannel: enableStop
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	317	backgroundColor: (Color 0.0 66.9993 66.9993)
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	318	showPercentage: false
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	319	isActivityIndicator: true
4168 8b7555e00ee3 progressIndicator added penk parents: 4145 diff changeset	320	)
3892 321c1729db5b initial checkin penk parents: diff changeset	321	)
321c1729db5b initial checkin penk parents: diff changeset	322
321c1729db5b initial checkin penk parents: diff changeset	323	)
321c1729db5b initial checkin penk parents: diff changeset	324	)
321c1729db5b initial checkin penk parents: diff changeset	325	! !
321c1729db5b initial checkin penk parents: diff changeset	326
321c1729db5b initial checkin penk parents: diff changeset	327	!FindFileApplication class methodsFor:'menu specs'!
321c1729db5b initial checkin penk parents: diff changeset	328
321c1729db5b initial checkin penk parents: diff changeset	329	menu
321c1729db5b initial checkin penk parents: diff changeset	330	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	331	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	332
321c1729db5b initial checkin penk parents: diff changeset	333	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	334	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	335
321c1729db5b initial checkin penk parents: diff changeset	336	"
321c1729db5b initial checkin penk parents: diff changeset	337	MenuEditor new openOnClass:FindFileApplication andSelector:#menu
321c1729db5b initial checkin penk parents: diff changeset	338	(Menu new fromLiteralArrayEncoding:(FindFileApplication menu)) startUp
321c1729db5b initial checkin penk parents: diff changeset	339	"
321c1729db5b initial checkin penk parents: diff changeset	340
321c1729db5b initial checkin penk parents: diff changeset	341	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	342
321c1729db5b initial checkin penk parents: diff changeset	343	^
5766 97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	344	#(Menu
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	345	(
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	346	(MenuItem
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	347	enabled: hasOneFileSelected
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	348	label: 'Select in Browser'
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	349	itemValue: selectInBrowser
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	350	translateLabel: true
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	351	isVisible: isEmbeddedApplication
3892 321c1729db5b initial checkin penk parents: diff changeset	352	)
5766 97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	353	(MenuItem
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	354	enabled: hasOneFileSelected
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	355	label: 'Open in New File Browser'
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	356	itemValue: openInNewBrowser
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	357	translateLabel: true
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	358	)
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	359	(MenuItem
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	360	label: '-'
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	361	)
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	362	(MenuItem
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	363	enabled: hasSelectionInResultList
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	364	label: 'Copy Selected Filenames to Clipboard'
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	365	itemValue: copySelectedFileNamesToClipboard
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	366	translateLabel: true
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	367	)
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	368	(MenuItem
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	369	label: '-'
3892 321c1729db5b initial checkin penk parents: diff changeset	370	)
5766 97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	371	(MenuItem
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	372	enabled: hasListEntries
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	373	label: 'Delete all Files'
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	374	itemValue: deleteAllFiles
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	375	translateLabel: true
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	376	)
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	377	(MenuItem
5766 97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	378	enabled: hasSelection
5767 2cc71e97ef70 * empty log message * Claus Gittinger <cg@exept.de> parents: 5766 diff changeset	379	label: 'Delete Selected Files'
5766 97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	380	itemValue: deleteSelectedFiles
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	381	translateLabel: true
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	382	)
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	383	(MenuItem
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	384	label: '-'
3892 321c1729db5b initial checkin penk parents: diff changeset	385	)
5766 97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	386	(MenuItem
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	387	enabled: hasSelection
5767 2cc71e97ef70 * empty log message * Claus Gittinger <cg@exept.de> parents: 5766 diff changeset	388	label: 'Remove Selected from Resultlist'
5766 97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	389	itemValue: removeSelectedFilesFromResultList
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	390	translateLabel: true
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	391	)
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	392	(MenuItem
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	393	enabled: hasListEntries
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	394	label: 'Clear ResultList'
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	395	itemValue: clearResultList
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	396	translateLabel: true
3892 321c1729db5b initial checkin penk parents: diff changeset	397	)
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	398	(MenuItem
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	399	label: '-'
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	400	)
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	401	(MenuItem
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	402	label: 'Show Matched Files'
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	403	itemValue: showMatchedFiles:
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	404	translateLabel: true
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	405	isVisible: notShowingMatchedFiles
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	406	argument: true
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	407	)
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	408	(MenuItem
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	409	label: 'Show Matching Files'
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	410	itemValue: showMatchedFiles:
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	411	translateLabel: true
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	412	isVisible: showingMatchedFiles
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	413	argument: false
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	414	)
3892 321c1729db5b initial checkin penk parents: diff changeset	415	)
321c1729db5b initial checkin penk parents: diff changeset	416	nil
321c1729db5b initial checkin penk parents: diff changeset	417	nil
321c1729db5b initial checkin penk parents: diff changeset	418	)
321c1729db5b initial checkin penk parents: diff changeset	419	!
321c1729db5b initial checkin penk parents: diff changeset	420
321c1729db5b initial checkin penk parents: diff changeset	421	searchMenu
321c1729db5b initial checkin penk parents: diff changeset	422	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	423	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	424
321c1729db5b initial checkin penk parents: diff changeset	425	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	426	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	427
321c1729db5b initial checkin penk parents: diff changeset	428	"
321c1729db5b initial checkin penk parents: diff changeset	429	MenuEditor new openOnClass:FindFileApplication andSelector:#searchMenu
321c1729db5b initial checkin penk parents: diff changeset	430	(Menu new fromLiteralArrayEncoding:(FindFileApplication searchMenu)) startUp
321c1729db5b initial checkin penk parents: diff changeset	431	"
321c1729db5b initial checkin penk parents: diff changeset	432
321c1729db5b initial checkin penk parents: diff changeset	433	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	434
321c1729db5b initial checkin penk parents: diff changeset	435	^
321c1729db5b initial checkin penk parents: diff changeset	436	#(#Menu
321c1729db5b initial checkin penk parents: diff changeset	437	#(
321c1729db5b initial checkin penk parents: diff changeset	438	#(#MenuItem
321c1729db5b initial checkin penk parents: diff changeset	439	#label: 'Search'
321c1729db5b initial checkin penk parents: diff changeset	440	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	441	#isButton: true
321c1729db5b initial checkin penk parents: diff changeset	442	#value: #doSearch
321c1729db5b initial checkin penk parents: diff changeset	443	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #search20x20Icon)
321c1729db5b initial checkin penk parents: diff changeset	444	)
321c1729db5b initial checkin penk parents: diff changeset	445	#(#MenuItem
321c1729db5b initial checkin penk parents: diff changeset	446	#label: 'Stop'
321c1729db5b initial checkin penk parents: diff changeset	447	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	448	#isButton: true
321c1729db5b initial checkin penk parents: diff changeset	449	#value: #stop
321c1729db5b initial checkin penk parents: diff changeset	450	#enabled: #enableStop
321c1729db5b initial checkin penk parents: diff changeset	451	#labelImage: #(#ResourceRetriever #ToolbarIconLibrary #stop22x22Icon)
321c1729db5b initial checkin penk parents: diff changeset	452	)
321c1729db5b initial checkin penk parents: diff changeset	453	#(#MenuItem
321c1729db5b initial checkin penk parents: diff changeset	454	#label: 'Clean Up'
321c1729db5b initial checkin penk parents: diff changeset	455	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	456	#isButton: true
321c1729db5b initial checkin penk parents: diff changeset	457	#value: #removeAllFromList
321c1729db5b initial checkin penk parents: diff changeset	458	#enabled: #hasListEntries
321c1729db5b initial checkin penk parents: diff changeset	459	#labelImage: #(#ResourceRetriever #Icon #deleteIcon)
321c1729db5b initial checkin penk parents: diff changeset	460	)
321c1729db5b initial checkin penk parents: diff changeset	461	#(#MenuItem
321c1729db5b initial checkin penk parents: diff changeset	462	#label: 'Close'
321c1729db5b initial checkin penk parents: diff changeset	463	#translateLabel: true
321c1729db5b initial checkin penk parents: diff changeset	464	#isButton: true
321c1729db5b initial checkin penk parents: diff changeset	465	#startGroup: #right
321c1729db5b initial checkin penk parents: diff changeset	466	#value: #doClose
321c1729db5b initial checkin penk parents: diff changeset	467	#labelImage: #(#ResourceRetriever #AbstractFileBrowser #closeIcon)
321c1729db5b initial checkin penk parents: diff changeset	468	)
321c1729db5b initial checkin penk parents: diff changeset	469	)
321c1729db5b initial checkin penk parents: diff changeset	470	nil
321c1729db5b initial checkin penk parents: diff changeset	471	nil
321c1729db5b initial checkin penk parents: diff changeset	472	)
321c1729db5b initial checkin penk parents: diff changeset	473	! !
321c1729db5b initial checkin penk parents: diff changeset	474
321c1729db5b initial checkin penk parents: diff changeset	475	!FindFileApplication class methodsFor:'tableColumns specs'!
321c1729db5b initial checkin penk parents: diff changeset	476
321c1729db5b initial checkin penk parents: diff changeset	477	searchResultTable
321c1729db5b initial checkin penk parents: diff changeset	478	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	479	by the DataSetBuilder of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	480
321c1729db5b initial checkin penk parents: diff changeset	481	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	482	the DataSetBuilder may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	483
321c1729db5b initial checkin penk parents: diff changeset	484	"
321c1729db5b initial checkin penk parents: diff changeset	485	DataSetBuilder new openOnClass:FindFileApplication andSelector:#searchResultTable
321c1729db5b initial checkin penk parents: diff changeset	486	"
321c1729db5b initial checkin penk parents: diff changeset	487
321c1729db5b initial checkin penk parents: diff changeset	488	<resource: #tableColumns>
321c1729db5b initial checkin penk parents: diff changeset	489
321c1729db5b initial checkin penk parents: diff changeset	490	^#(
321c1729db5b initial checkin penk parents: diff changeset	491	#(#DataSetColumnSpec
321c1729db5b initial checkin penk parents: diff changeset	492	#label: 'Filename'
321c1729db5b initial checkin penk parents: diff changeset	493	#id: 'FileName'
321c1729db5b initial checkin penk parents: diff changeset	494	#labelButtonType: #Button
321c1729db5b initial checkin penk parents: diff changeset	495	#model: #fileName
321c1729db5b initial checkin penk parents: diff changeset	496	#showRowSeparator: false
321c1729db5b initial checkin penk parents: diff changeset	497	#showColSeparator: false
321c1729db5b initial checkin penk parents: diff changeset	498	)
321c1729db5b initial checkin penk parents: diff changeset	499	)
321c1729db5b initial checkin penk parents: diff changeset	500
321c1729db5b initial checkin penk parents: diff changeset	501	! !
321c1729db5b initial checkin penk parents: diff changeset	502
321c1729db5b initial checkin penk parents: diff changeset	503	!FindFileApplication methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	504
321c1729db5b initial checkin penk parents: diff changeset	505	accessLock
321c1729db5b initial checkin penk parents: diff changeset	506	"return the value of the instance variable 'accessLock' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	507
321c1729db5b initial checkin penk parents: diff changeset	508	accessLock isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	509	accessLock := Semaphore forMutualExclusion name:'accessLock'.
321c1729db5b initial checkin penk parents: diff changeset	510	].
321c1729db5b initial checkin penk parents: diff changeset	511	^ accessLock
321c1729db5b initial checkin penk parents: diff changeset	512	!
321c1729db5b initial checkin penk parents: diff changeset	513
321c1729db5b initial checkin penk parents: diff changeset	514	stopSignal
321c1729db5b initial checkin penk parents: diff changeset	515
321c1729db5b initial checkin penk parents: diff changeset	516	stopSignal isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	517	stopSignal := Signal new.
321c1729db5b initial checkin penk parents: diff changeset	518	].
321c1729db5b initial checkin penk parents: diff changeset	519	^ stopSignal
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	520	!
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	521
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	522	targetApplication:something
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	523	"set the value of the instance variable 'targetApplication' (automatically generated)"
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	524
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	525	targetApplication := something.
3892 321c1729db5b initial checkin penk parents: diff changeset	526	! !
321c1729db5b initial checkin penk parents: diff changeset	527
321c1729db5b initial checkin penk parents: diff changeset	528	!FindFileApplication methodsFor:'actions'!
321c1729db5b initial checkin penk parents: diff changeset	529
321c1729db5b initial checkin penk parents: diff changeset	530	changeInformationTo:aString
321c1729db5b initial checkin penk parents: diff changeset	531
321c1729db5b initial checkin penk parents: diff changeset	532	self changeInformationTo:aString toTab:false
321c1729db5b initial checkin penk parents: diff changeset	533	!
321c1729db5b initial checkin penk parents: diff changeset	534
321c1729db5b initial checkin penk parents: diff changeset	535	changeInformationTo:aString toTab:aBoolean
321c1729db5b initial checkin penk parents: diff changeset	536	masterApplication isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	537	findFileView label:aString
321c1729db5b initial checkin penk parents: diff changeset	538	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	539	aBoolean ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	540	masterApplication tabStringChangeTo:aString for:self
321c1729db5b initial checkin penk parents: diff changeset	541	]
321c1729db5b initial checkin penk parents: diff changeset	542	].
321c1729db5b initial checkin penk parents: diff changeset	543	!
321c1729db5b initial checkin penk parents: diff changeset	544
5850 9f217d207505 * empty log message * Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	545	clearCache
9f217d207505 * empty log message * Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	546	ContentsInfoCache := nil
9f217d207505 * empty log message * Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	547	!
9f217d207505 * empty log message * Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	548
5766 97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	549	clearResultList
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	550	self resultList removeAll.
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	551	self matchedFilesList removeAll.
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	552	!
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	553
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	554	clearShownList
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	555	self shownList valueHolder removeAll.
5766 97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	556	!
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	557
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	558	copySelectedFileNamesToClipboard
3892 321c1729db5b initial checkin penk parents: diff changeset	559	\|sel list stream\|
321c1729db5b initial checkin penk parents: diff changeset	560
321c1729db5b initial checkin penk parents: diff changeset	561	sel := self selectionHolder value.
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	562	list := self shownList.
3892 321c1729db5b initial checkin penk parents: diff changeset	563	(sel notNil and:[sel notEmpty]) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	564	stream := WriteStream on:''.
321c1729db5b initial checkin penk parents: diff changeset	565	sel do:[: key \|
321c1729db5b initial checkin penk parents: diff changeset	566	stream nextPutAll:(list at:key).
321c1729db5b initial checkin penk parents: diff changeset	567	stream cr.
321c1729db5b initial checkin penk parents: diff changeset	568	].
321c1729db5b initial checkin penk parents: diff changeset	569	self window setTextSelection:stream contents.
321c1729db5b initial checkin penk parents: diff changeset	570	stream close.
321c1729db5b initial checkin penk parents: diff changeset	571	].
321c1729db5b initial checkin penk parents: diff changeset	572	!
321c1729db5b initial checkin penk parents: diff changeset	573
5766 97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	574	deleteAllFiles
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	575	\|files\|
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	576
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	577	files := self shownList copy.
5766 97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	578	self deleteFiles:files confirm:true.
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	579	self clearShownList.
5766 97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	580	!
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	581
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	582	deleteFiles:colOfFiles confirm:confirm
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	583	"delete current selected files/directories
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	584	"
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	585	\|delete result\|
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	586
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	587	self windowGroup withWaitCursorDo:[
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	588	delete := FileOperation getDeleteClass deleteFiles:colOfFiles confirm:confirm.
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	589	result := delete result.
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	590	result notNil ifTrue:[
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	591	result ifFalse:[
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	592	self notify:delete errorString.
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	593	] ifTrue:[
5769 c7f4f5fc96e1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5768 diff changeset	594	"/ masterApplication notNil ifTrue:[
c7f4f5fc96e1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5768 diff changeset	595	"/ masterApplication updateListAfterDelete:colOfFiles.
c7f4f5fc96e1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5768 diff changeset	596	"/ ]
5766 97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	597	]
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	598	].
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	599	].
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	600	^ result.
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	601	!
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	602
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	603	deleteSelectedFiles
5856 68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	604	\|sel files result\|
5766 97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	605
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	606	sel := self selectionHolder value.
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	607	files := sel collect:[:idx \| resultList at:idx].
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	608	self deleteFiles:files confirm:true.
5856 68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	609	result == true ifTrue:[
68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	610	self removeSelectedFilesFromResultList.
68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	611	].
5766 97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	612	!
97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	613
3892 321c1729db5b initial checkin penk parents: diff changeset	614	doSearch
321c1729db5b initial checkin penk parents: diff changeset	615
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	616	\| namePattern namePatterns contentsPattern notContentsPattern dir fileToCompareAgainst\|
3892 321c1729db5b initial checkin penk parents: diff changeset	617
321c1729db5b initial checkin penk parents: diff changeset	618	"/ self changeExtentToSeeSearchResult.
321c1729db5b initial checkin penk parents: diff changeset	619
321c1729db5b initial checkin penk parents: diff changeset	620	dir := self searchDirectoryHolder value.
321c1729db5b initial checkin penk parents: diff changeset	621	dir isNil ifTrue:[
4518 85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	622	Dialog warn:'Missing directory name'.
3892 321c1729db5b initial checkin penk parents: diff changeset	623	^ self.
321c1729db5b initial checkin penk parents: diff changeset	624	].
321c1729db5b initial checkin penk parents: diff changeset	625	dir asFilename exists not ifTrue:[
5786 3ae2d45d823f care for whitespace in searchpattern Claus Gittinger <cg@exept.de> parents: 5776 diff changeset	626	Dialog warn:('No such directory: ''%1''' bindWith:dir asString allBold).
3892 321c1729db5b initial checkin penk parents: diff changeset	627	^ self.
321c1729db5b initial checkin penk parents: diff changeset	628	].
321c1729db5b initial checkin penk parents: diff changeset	629
321c1729db5b initial checkin penk parents: diff changeset	630	searchTask notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	631	(Dialog
4518 85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	632	confirm:(resources string:'There is already another find-file task running !!') withCRs
85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	633	yesLabel:(resources at:'Stop other Task and Proceed')
3892 321c1729db5b initial checkin penk parents: diff changeset	634	noLabel:(resources at:'Cancel'))
321c1729db5b initial checkin penk parents: diff changeset	635	ifFalse:[^ self].
321c1729db5b initial checkin penk parents: diff changeset	636	self stop.
321c1729db5b initial checkin penk parents: diff changeset	637	].
321c1729db5b initial checkin penk parents: diff changeset	638
321c1729db5b initial checkin penk parents: diff changeset	639	namePattern := self namePatternHolder value.
321c1729db5b initial checkin penk parents: diff changeset	640	namePattern size == 0 ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	641	namePatterns := nil
321c1729db5b initial checkin penk parents: diff changeset	642	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	643	ignoreCaseInName value ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	644	namePattern := namePattern asLowercase
321c1729db5b initial checkin penk parents: diff changeset	645	].
5786 3ae2d45d823f care for whitespace in searchpattern Claus Gittinger <cg@exept.de> parents: 5776 diff changeset	646	namePatterns := namePattern asCollectionOfSubstringsSeparatedBy:$;.
3ae2d45d823f care for whitespace in searchpattern Claus Gittinger <cg@exept.de> parents: 5776 diff changeset	647	namePatterns := namePatterns collect:[:each \| each withoutSeparators].
3892 321c1729db5b initial checkin penk parents: diff changeset	648	].
321c1729db5b initial checkin penk parents: diff changeset	649	contentsPattern := self contentsPatternHolder value.
321c1729db5b initial checkin penk parents: diff changeset	650	contentsPattern size == 0 ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	651	contentsPattern := nil
321c1729db5b initial checkin penk parents: diff changeset	652	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	653	self ignoreCaseInContents value ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	654	contentsPattern := contentsPattern asLowercase
321c1729db5b initial checkin penk parents: diff changeset	655	]
321c1729db5b initial checkin penk parents: diff changeset	656	].
5231 d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	657	notContentsPattern := self notContentsPatternHolder value.
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	658	notContentsPattern size == 0 ifTrue:[
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	659	notContentsPattern := nil
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	660	] ifFalse:[
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	661	self ignoreCaseInNotContents value ifTrue:[
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	662	notContentsPattern := notContentsPattern asLowercase
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	663	]
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	664	].
5787 7afc10d73559 search fix Claus Gittinger <cg@exept.de> parents: 5786 diff changeset	665	searchForSameContents value ifTrue:[
7afc10d73559 search fix Claus Gittinger <cg@exept.de> parents: 5786 diff changeset	666	fileToCompareAgainst := (self sameContentsAsHolder value ? '') withoutSeparators.
7afc10d73559 search fix Claus Gittinger <cg@exept.de> parents: 5786 diff changeset	667	fileToCompareAgainst isEmpty ifTrue:[
7afc10d73559 search fix Claus Gittinger <cg@exept.de> parents: 5786 diff changeset	668	fileToCompareAgainst := nil.
7afc10d73559 search fix Claus Gittinger <cg@exept.de> parents: 5786 diff changeset	669	] ifFalse:[
7afc10d73559 search fix Claus Gittinger <cg@exept.de> parents: 5786 diff changeset	670	fileToCompareAgainst includesMatchCharacters ifFalse:[
7afc10d73559 search fix Claus Gittinger <cg@exept.de> parents: 5786 diff changeset	671	fileToCompareAgainst asFilename exists ifFalse:[
7afc10d73559 search fix Claus Gittinger <cg@exept.de> parents: 5786 diff changeset	672	Dialog warn:('No such file: %1' bindWith:fileToCompareAgainst asString allBold).
7afc10d73559 search fix Claus Gittinger <cg@exept.de> parents: 5786 diff changeset	673	^ self.
7afc10d73559 search fix Claus Gittinger <cg@exept.de> parents: 5786 diff changeset	674	].
7afc10d73559 search fix Claus Gittinger <cg@exept.de> parents: 5786 diff changeset	675	fileToCompareAgainst asFilename isReadable ifFalse:[
7afc10d73559 search fix Claus Gittinger <cg@exept.de> parents: 5786 diff changeset	676	Dialog warn:('Cannot read: %1' bindWith:fileToCompareAgainst asString allBold).
7afc10d73559 search fix Claus Gittinger <cg@exept.de> parents: 5786 diff changeset	677	^ self.
7afc10d73559 search fix Claus Gittinger <cg@exept.de> parents: 5786 diff changeset	678	]
5768 18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	679	].
5726 464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	680	].
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	681	].
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	682
5776 eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	683	searchTask :=
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	684	[
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	685	\|message t\|
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	686
5776 eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	687	[
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	688	(self stopSignal) catch:[
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	689	self enableStop value:true.
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	690	self resultList removeAll.
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	691	self matchedFilesList removeAll.
5776 eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	692	self changeInformationTo:'Find File ' , '- searching ' toTab:true.
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	693	self notify:'searching...'.
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	694	t := Time millisecondsToRun:[
5770 2b3f1705ed84 * empty log message * Claus Gittinger <cg@exept.de> parents: 5769 diff changeset	695
5776 eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	696	self
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	697	doFindFileNamed:namePatterns
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	698	directories:(self searchDirectories value)
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	699	ignoreCase:(self ignoreCaseInName value)
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	700	containingString:contentsPattern
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	701	ignoreCaseInContents:(self ignoreCaseInContents value)
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	702	notContainingString:notContentsPattern
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	703	ignoreCaseInNotContents:(self ignoreCaseInNotContents value)
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	704	sameContentsAsFile:fileToCompareAgainst
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	705	sameContentsAs:nil
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	706	in:(self searchDirectoryHolder value).
5770 2b3f1705ed84 * empty log message * Claus Gittinger <cg@exept.de> parents: 5769 diff changeset	707
5776 eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	708	].
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	709	t > 100 ifTrue:[
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	710	t := ((t / 1000) asFixedPoint:2) printString , ' s'
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	711	] ifFalse:[
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	712	t := t printString , ' ms'
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	713	].
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	714	message := 'Found %1 file%2 in %3' bindWith:(resultList size) with:(resultList size == 1 ifTrue:'' ifFalse:'s') with:t.
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	715	self enableStop value:false.
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	716	self enableSearch value:true.
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	717	self changeInformationTo:'Find File ' , '- done.' toTab:true.
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	718	].
5776 eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	719	] valueNowOrOnUnwindDo:[
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	720	searchTask := nil.
3892 321c1729db5b initial checkin penk parents: diff changeset	721	self enableStop value:false.
5776 eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	722	self notify:message.
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	723	]
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	724	] newProcess.
3892 321c1729db5b initial checkin penk parents: diff changeset	725
5776 eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	726	searchTask priorityRange:(Processor systemBackgroundPriority to:Processor userSchedulingPriority).
3892 321c1729db5b initial checkin penk parents: diff changeset	727	searchTask name:('FindFile[', self searchDirectoryHolder value asFilename baseName, ']').
321c1729db5b initial checkin penk parents: diff changeset	728	searchTask resume.
321c1729db5b initial checkin penk parents: diff changeset	729	!
321c1729db5b initial checkin penk parents: diff changeset	730
321c1729db5b initial checkin penk parents: diff changeset	731	openInNewBrowser
321c1729db5b initial checkin penk parents: diff changeset	732	\|sel\|
321c1729db5b initial checkin penk parents: diff changeset	733
321c1729db5b initial checkin penk parents: diff changeset	734	sel := self selectionHolder value.
321c1729db5b initial checkin penk parents: diff changeset	735	(sel notNil and:[sel notEmpty]) ifTrue:[
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	736	FileBrowserV2 openOn:(self shownList at:sel first) asFilename
3892 321c1729db5b initial checkin penk parents: diff changeset	737	].
321c1729db5b initial checkin penk parents: diff changeset	738	!
321c1729db5b initial checkin penk parents: diff changeset	739
5766 97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	740	removeSelectedFilesFromResultList
3892 321c1729db5b initial checkin penk parents: diff changeset	741	\|sel list\|
321c1729db5b initial checkin penk parents: diff changeset	742
321c1729db5b initial checkin penk parents: diff changeset	743	sel := self selectionHolder value.
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	744	list := self shownList valueHolder.
3892 321c1729db5b initial checkin penk parents: diff changeset	745	(sel notNil and:[sel notEmpty]) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	746	sel reverseDo:[: key \|
321c1729db5b initial checkin penk parents: diff changeset	747	list removeAtIndex:key
321c1729db5b initial checkin penk parents: diff changeset	748	]
321c1729db5b initial checkin penk parents: diff changeset	749	].
321c1729db5b initial checkin penk parents: diff changeset	750	!
321c1729db5b initial checkin penk parents: diff changeset	751
321c1729db5b initial checkin penk parents: diff changeset	752	selectInBrowser
321c1729db5b initial checkin penk parents: diff changeset	753	\|sel entry application\|
321c1729db5b initial checkin penk parents: diff changeset	754
321c1729db5b initial checkin penk parents: diff changeset	755	sel := self selectionHolder value.
321c1729db5b initial checkin penk parents: diff changeset	756	(sel notNil and:[sel notEmpty]) ifTrue:[
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	757	entry := self shownList at:sel first.
5252 453aee873a3d not ifTrue -> ifFalse Claus Gittinger <cg@exept.de> parents: 5231 diff changeset	758	entry asFilename exists ifFalse:[ ^ self].
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	759	application := targetApplication ? self masterApplication.
4182 99ed9aed9fa7 select of not valid files Michael Beyl <mb@exept.de> parents: 4168 diff changeset	760	application notNil ifTrue:[
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	761	application gotoFile:(entry asFilename).
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	762	].
3892 321c1729db5b initial checkin penk parents: diff changeset	763	].
321c1729db5b initial checkin penk parents: diff changeset	764	!
321c1729db5b initial checkin penk parents: diff changeset	765
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	766	showMatchedFiles:aBoolean
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	767	aBoolean ifTrue:[
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	768	self shownList valueHolder:(self matchedFilesList)
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	769	] ifFalse:[
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	770	self shownList valueHolder:(self resultList)
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	771	].
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	772	!
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	773
3892 321c1729db5b initial checkin penk parents: diff changeset	774	stop
321c1729db5b initial checkin penk parents: diff changeset	775
321c1729db5b initial checkin penk parents: diff changeset	776	searchTask notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	777	self accessLock critical:[
321c1729db5b initial checkin penk parents: diff changeset	778	searchTask interruptWith:[stopSignal raiseRequest].
321c1729db5b initial checkin penk parents: diff changeset	779	]
321c1729db5b initial checkin penk parents: diff changeset	780	].
321c1729db5b initial checkin penk parents: diff changeset	781	self enableStop value:false.
321c1729db5b initial checkin penk parents: diff changeset	782	self enableSearch value:true.
321c1729db5b initial checkin penk parents: diff changeset	783	self changeInformationTo:'Find File ' , '- search stopped' toTab:true.
321c1729db5b initial checkin penk parents: diff changeset	784	!
321c1729db5b initial checkin penk parents: diff changeset	785
321c1729db5b initial checkin penk parents: diff changeset	786	stopSearchTask
321c1729db5b initial checkin penk parents: diff changeset	787	\|task\|
321c1729db5b initial checkin penk parents: diff changeset	788
321c1729db5b initial checkin penk parents: diff changeset	789	(task := searchTask) notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	790	searchTask := nil.
321c1729db5b initial checkin penk parents: diff changeset	791
321c1729db5b initial checkin penk parents: diff changeset	792	Object errorSignal handle:[:ex\|
321c1729db5b initial checkin penk parents: diff changeset	793	Dialog warn:ex description.
321c1729db5b initial checkin penk parents: diff changeset	794	]do:[
321c1729db5b initial checkin penk parents: diff changeset	795	task isDead ifFalse:[
3937 80d958725879 terminateWithAllSUbprocesses -> xxxInGroup Claus Gittinger <cg@exept.de> parents: 3892 diff changeset	796	task terminateWithAllSubprocessesInGroup.
3892 321c1729db5b initial checkin penk parents: diff changeset	797	task waitUntilTerminated.
321c1729db5b initial checkin penk parents: diff changeset	798	]
321c1729db5b initial checkin penk parents: diff changeset	799	]
321c1729db5b initial checkin penk parents: diff changeset	800	].
321c1729db5b initial checkin penk parents: diff changeset	801	! !
321c1729db5b initial checkin penk parents: diff changeset	802
321c1729db5b initial checkin penk parents: diff changeset	803	!FindFileApplication methodsFor:'aspects'!
321c1729db5b initial checkin penk parents: diff changeset	804
5856 68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	805	autoSelectInBrowser
68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	806	^ false.
68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	807	!
68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	808
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	809	canUseGrep
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	810	"grep command is much faster, but:
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	811	- not under MSDOS
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	812	"
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	813
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	814	^ OperatingSystem isUNIXlike and:[ OperatingSystem canExecuteCommand:'egrep' ]
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	815	!
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	816
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	817	canUseLocate
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	818	"locate command is much faster, but:
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	819	- only if searching recursively,
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	820	- no case ignore
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	821	- no contents matching
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	822	"
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	823
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	824	^ OperatingSystem isUNIXlike and:[ OperatingSystem canExecuteCommand:'locate' ]
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	825	!
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	826
3892 321c1729db5b initial checkin penk parents: diff changeset	827	contentsPatternHolder
321c1729db5b initial checkin penk parents: diff changeset	828
321c1729db5b initial checkin penk parents: diff changeset	829	contentsPatternHolder isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	830	contentsPatternHolder := nil asValue.
321c1729db5b initial checkin penk parents: diff changeset	831	].
321c1729db5b initial checkin penk parents: diff changeset	832	^ contentsPatternHolder.
321c1729db5b initial checkin penk parents: diff changeset	833	!
321c1729db5b initial checkin penk parents: diff changeset	834
321c1729db5b initial checkin penk parents: diff changeset	835	enableSearch
321c1729db5b initial checkin penk parents: diff changeset	836
321c1729db5b initial checkin penk parents: diff changeset	837	enableSearch isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	838	enableSearch := true asValue.
321c1729db5b initial checkin penk parents: diff changeset	839	].
321c1729db5b initial checkin penk parents: diff changeset	840	^ enableSearch.
321c1729db5b initial checkin penk parents: diff changeset	841	!
321c1729db5b initial checkin penk parents: diff changeset	842
321c1729db5b initial checkin penk parents: diff changeset	843	enableStop
321c1729db5b initial checkin penk parents: diff changeset	844
321c1729db5b initial checkin penk parents: diff changeset	845	enableStop isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	846	enableStop := true asValue.
321c1729db5b initial checkin penk parents: diff changeset	847	].
321c1729db5b initial checkin penk parents: diff changeset	848	^ enableStop.
321c1729db5b initial checkin penk parents: diff changeset	849	!
321c1729db5b initial checkin penk parents: diff changeset	850
321c1729db5b initial checkin penk parents: diff changeset	851	hasListEntries
321c1729db5b initial checkin penk parents: diff changeset	852
321c1729db5b initial checkin penk parents: diff changeset	853	hasListEntries isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	854	hasListEntries := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	855	].
321c1729db5b initial checkin penk parents: diff changeset	856	^ hasListEntries.
321c1729db5b initial checkin penk parents: diff changeset	857	!
321c1729db5b initial checkin penk parents: diff changeset	858
321c1729db5b initial checkin penk parents: diff changeset	859	ignoreCaseInContents
321c1729db5b initial checkin penk parents: diff changeset	860	ignoreCaseInContents isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	861	ignoreCaseInContents := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	862	].
321c1729db5b initial checkin penk parents: diff changeset	863	^ ignoreCaseInContents.
321c1729db5b initial checkin penk parents: diff changeset	864	!
321c1729db5b initial checkin penk parents: diff changeset	865
321c1729db5b initial checkin penk parents: diff changeset	866	ignoreCaseInName
321c1729db5b initial checkin penk parents: diff changeset	867
321c1729db5b initial checkin penk parents: diff changeset	868	ignoreCaseInName isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	869	ignoreCaseInName := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	870	].
321c1729db5b initial checkin penk parents: diff changeset	871	^ ignoreCaseInName.
321c1729db5b initial checkin penk parents: diff changeset	872	!
321c1729db5b initial checkin penk parents: diff changeset	873
5231 d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	874	ignoreCaseInNotContents
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	875	ignoreCaseInNotContents isNil ifTrue:[
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	876	ignoreCaseInNotContents := false asValue.
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	877	].
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	878	^ ignoreCaseInNotContents.
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	879	!
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	880
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	881	matchedFilesList
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	882
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	883	matchedFilesList isNil ifTrue:[
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	884	matchedFilesList := List new.
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	885	matchedFilesList addDependent:self.
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	886	].
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	887	^ matchedFilesList.
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	888	!
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	889
3892 321c1729db5b initial checkin penk parents: diff changeset	890	namePatternHolder
321c1729db5b initial checkin penk parents: diff changeset	891
321c1729db5b initial checkin penk parents: diff changeset	892	namePatternHolder isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	893	namePatternHolder := '*' asValue.
321c1729db5b initial checkin penk parents: diff changeset	894	].
321c1729db5b initial checkin penk parents: diff changeset	895	^ namePatternHolder.
321c1729db5b initial checkin penk parents: diff changeset	896	!
321c1729db5b initial checkin penk parents: diff changeset	897
5231 d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	898	notContentsPatternHolder
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	899
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	900	notContentsPatternHolder isNil ifTrue:[
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	901	notContentsPatternHolder := nil asValue.
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	902	].
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	903	^ notContentsPatternHolder.
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	904	!
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	905
3892 321c1729db5b initial checkin penk parents: diff changeset	906	notSearchForSameContents
5743 ab4c777f25f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5730 diff changeset	907	^ BlockValue forLogicalNot:self searchForSameContents
3892 321c1729db5b initial checkin penk parents: diff changeset	908	!
321c1729db5b initial checkin penk parents: diff changeset	909
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	910	notShowingMatchedFiles
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	911	^ shownList valueHolder == self resultList
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	912	!
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	913
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	914	rememberInCache
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	915	rememberInCache isNil ifTrue:[
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	916	rememberInCache := (LastRememberInCache ? false) asValue.
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	917	].
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	918	^ rememberInCache.
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	919	!
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	920
3892 321c1729db5b initial checkin penk parents: diff changeset	921	resultList
321c1729db5b initial checkin penk parents: diff changeset	922	resultList isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	923	resultList := List new.
321c1729db5b initial checkin penk parents: diff changeset	924	resultList addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	925	].
321c1729db5b initial checkin penk parents: diff changeset	926	^ resultList.
321c1729db5b initial checkin penk parents: diff changeset	927	!
321c1729db5b initial checkin penk parents: diff changeset	928
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	929	sameContentsAsHolder
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	930	\|sel\|
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	931
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	932	sameContentsAsHolder isNil ifTrue:[
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	933	sameContentsAsHolder := ValueHolder new.
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	934	masterApplication notNil ifTrue:[
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	935	sel := masterApplication currentSelectedFiles.
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	936	sel size > 0 ifTrue:[
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	937	sameContentsAsHolder value:(sel first asFilename pathName).
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	938	].
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	939	].
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	940	].
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	941	^ sameContentsAsHolder.
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	942	!
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	943
4518 85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	944	searchDirectories
85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	945	searchDirectories isNil ifTrue:[
85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	946	searchDirectories := false asValue.
85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	947	].
85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	948	^ searchDirectories.
85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	949	!
85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	950
3892 321c1729db5b initial checkin penk parents: diff changeset	951	searchDirectoryHolder
321c1729db5b initial checkin penk parents: diff changeset	952
321c1729db5b initial checkin penk parents: diff changeset	953	searchDirectoryHolder isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	954	searchDirectoryHolder := ValueHolder new.
321c1729db5b initial checkin penk parents: diff changeset	955	].
321c1729db5b initial checkin penk parents: diff changeset	956	^ searchDirectoryHolder.
321c1729db5b initial checkin penk parents: diff changeset	957	!
321c1729db5b initial checkin penk parents: diff changeset	958
5743 ab4c777f25f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5730 diff changeset	959	searchForSameContents
ab4c777f25f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5730 diff changeset	960	searchForSameContents isNil ifTrue:[
ab4c777f25f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5730 diff changeset	961	searchForSameContents := false asValue.
ab4c777f25f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5730 diff changeset	962	].
ab4c777f25f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5730 diff changeset	963	^ searchForSameContents.
ab4c777f25f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5730 diff changeset	964	!
ab4c777f25f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5730 diff changeset	965
5726 464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	966	searchOnlyInCache
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	967	searchOnlyInCache isNil ifTrue:[
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	968	searchOnlyInCache := false asValue.
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	969	].
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	970	^ searchOnlyInCache.
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	971	!
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	972
3892 321c1729db5b initial checkin penk parents: diff changeset	973	searchRecursively
321c1729db5b initial checkin penk parents: diff changeset	974
321c1729db5b initial checkin penk parents: diff changeset	975	searchRecursively isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	976	searchRecursively := true asValue.
321c1729db5b initial checkin penk parents: diff changeset	977	].
321c1729db5b initial checkin penk parents: diff changeset	978	^ searchRecursively.
321c1729db5b initial checkin penk parents: diff changeset	979	!
321c1729db5b initial checkin penk parents: diff changeset	980
321c1729db5b initial checkin penk parents: diff changeset	981	searchResultTable
321c1729db5b initial checkin penk parents: diff changeset	982
321c1729db5b initial checkin penk parents: diff changeset	983	searchResultTable isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	984	searchResultTable := self class searchResultTable asValue.
321c1729db5b initial checkin penk parents: diff changeset	985	].
321c1729db5b initial checkin penk parents: diff changeset	986	^ searchResultTable.
321c1729db5b initial checkin penk parents: diff changeset	987	!
321c1729db5b initial checkin penk parents: diff changeset	988
321c1729db5b initial checkin penk parents: diff changeset	989	selectionHolder
321c1729db5b initial checkin penk parents: diff changeset	990
321c1729db5b initial checkin penk parents: diff changeset	991	selectionHolder isNil ifTrue:[
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	992	selectionHolder := ValueHolder new.
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	993	selectionHolder addDependent:self.
3892 321c1729db5b initial checkin penk parents: diff changeset	994	].
321c1729db5b initial checkin penk parents: diff changeset	995	^ selectionHolder
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	996	!
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	997
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	998	showingMatchedFiles
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	999	^ shownList valueHolder == self matchedFilesList
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1000	!
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1001
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1002	shownList
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1003	shownList isNil ifTrue:[
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1004	shownList := IndirectValue for:(self resultList).
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1005	shownList addDependent:self.
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1006	].
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1007	^ shownList.
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1008	!
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1009
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1010	useGrep
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1011	useGrep isNil ifTrue:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1012	useGrep := false asValue.
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1013	].
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1014	^ useGrep.
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1015	!
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1016
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1017	useLocate
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1018	useLocate isNil ifTrue:[
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1019	useLocate := false asValue.
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1020	].
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1021	^ useLocate.
3892 321c1729db5b initial checkin penk parents: diff changeset	1022	! !
321c1729db5b initial checkin penk parents: diff changeset	1023
321c1729db5b initial checkin penk parents: diff changeset	1024	!FindFileApplication methodsFor:'change & update'!
321c1729db5b initial checkin penk parents: diff changeset	1025
321c1729db5b initial checkin penk parents: diff changeset	1026	update:something with:aParameter from:changedObject
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1027	changedObject == self shownList ifTrue:[
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1028	self hasListEntries value:(changedObject valueHolder notEmpty).
3892 321c1729db5b initial checkin penk parents: diff changeset	1029	^ self
321c1729db5b initial checkin penk parents: diff changeset	1030	].
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	1031	changedObject == self selectionHolder ifTrue:[
5856 68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1032	self autoSelectInBrowser ifTrue:[
68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1033	self selectInBrowser.
68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1034	].
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	1035	^ self
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	1036	].
3892 321c1729db5b initial checkin penk parents: diff changeset	1037	super update:something with:aParameter from:changedObject
321c1729db5b initial checkin penk parents: diff changeset	1038	! !
321c1729db5b initial checkin penk parents: diff changeset	1039
321c1729db5b initial checkin penk parents: diff changeset	1040	!FindFileApplication methodsFor:'event handling'!
321c1729db5b initial checkin penk parents: diff changeset	1041
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	1042	fileDoubleClick:entries
5677 4aea2e3fd1e3 warn if file is not existing (in doubleClick) Claus Gittinger <cg@exept.de> parents: 5603 diff changeset	1043	\|file fn app openedAppl contentsPattern\|
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	1044
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1045	file := self shownList at:entries first.
5677 4aea2e3fd1e3 warn if file is not existing (in doubleClick) Claus Gittinger <cg@exept.de> parents: 5603 diff changeset	1046	fn := file asFilename.
4aea2e3fd1e3 warn if file is not existing (in doubleClick) Claus Gittinger <cg@exept.de> parents: 5603 diff changeset	1047	fn exists ifFalse:[
4aea2e3fd1e3 warn if file is not existing (in doubleClick) Claus Gittinger <cg@exept.de> parents: 5603 diff changeset	1048	Dialog warn:('File %1 does not (no longer ?) exist.' bindWith:file allBold).
4aea2e3fd1e3 warn if file is not existing (in doubleClick) Claus Gittinger <cg@exept.de> parents: 5603 diff changeset	1049	^ self
4aea2e3fd1e3 warn if file is not existing (in doubleClick) Claus Gittinger <cg@exept.de> parents: 5603 diff changeset	1050	].
4aea2e3fd1e3 warn if file is not existing (in doubleClick) Claus Gittinger <cg@exept.de> parents: 5603 diff changeset	1051
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	1052	app := targetApplication ? self masterApplication.
5279 165a7b841a86 open directories found penk parents: 5252 diff changeset	1053	file asFilename isDirectory ifTrue:[
165a7b841a86 open directories found penk parents: 5252 diff changeset	1054	app gotoFile:(file asFilename).
165a7b841a86 open directories found penk parents: 5252 diff changeset	1055	^ self.
165a7b841a86 open directories found penk parents: 5252 diff changeset	1056	].
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	1057	app notNil ifTrue:[
4145 08d6561f7639 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4101 diff changeset	1058	openedAppl := app openApplForFile:file.
5279 165a7b841a86 open directories found penk parents: 5252 diff changeset	1059	(openedAppl notNil and:[openedAppl isTextEditor]) ifTrue:[
4145 08d6561f7639 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4101 diff changeset	1060	contentsPattern := self contentsPatternHolder value.
08d6561f7639 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4101 diff changeset	1061	(contentsPattern notNil and:[ contentsPattern notEmpty and:[contentsPattern ~= '*']]) ifTrue:[
08d6561f7639 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4101 diff changeset	1062	openedAppl searchForPattern:contentsPattern ignoreCase:(self ignoreCaseInContents value).
08d6561f7639 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4101 diff changeset	1063	]
08d6561f7639 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4101 diff changeset	1064	].
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	1065	] ifFalse:[
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	1066	self openInNewBrowser.
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	1067	]
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	1068	!
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	1069
3892 321c1729db5b initial checkin penk parents: diff changeset	1070	processEvent:anEvent
321c1729db5b initial checkin penk parents: diff changeset	1071	"filter keyboard events.
321c1729db5b initial checkin penk parents: diff changeset	1072	Return true, if I have eaten the event"
321c1729db5b initial checkin penk parents: diff changeset	1073
321c1729db5b initial checkin penk parents: diff changeset	1074	\|focusView key rawKey\|
321c1729db5b initial checkin penk parents: diff changeset	1075
321c1729db5b initial checkin penk parents: diff changeset	1076	anEvent isKeyPressEvent ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1077	focusView := anEvent targetView.
321c1729db5b initial checkin penk parents: diff changeset	1078	key := anEvent key.
321c1729db5b initial checkin penk parents: diff changeset	1079	rawKey := anEvent rawKey.
321c1729db5b initial checkin penk parents: diff changeset	1080
321c1729db5b initial checkin penk parents: diff changeset	1081	(focusView isSameOrComponentOf:self window) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1082	(key == #Return) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1083	(focusView name ~= 'selectionInListView') ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1084	self doSearch.
321c1729db5b initial checkin penk parents: diff changeset	1085	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	1086	self hasOneFileSelected ifTrue:[
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	1087	self fileDoubleClick:(self selectionHolder value)
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	1088	"/ self isEmbeddedApplication ifTrue:[
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	1089	"/ self selectInBrowser.
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	1090	"/ ] ifFalse:[
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	1091	"/ self openInNewBrowser.
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	1092	"/ ]
3892 321c1729db5b initial checkin penk parents: diff changeset	1093	]
321c1729db5b initial checkin penk parents: diff changeset	1094	].
321c1729db5b initial checkin penk parents: diff changeset	1095	^ true
321c1729db5b initial checkin penk parents: diff changeset	1096	].
321c1729db5b initial checkin penk parents: diff changeset	1097	]
321c1729db5b initial checkin penk parents: diff changeset	1098	].
321c1729db5b initial checkin penk parents: diff changeset	1099	^ false
321c1729db5b initial checkin penk parents: diff changeset	1100	! !
321c1729db5b initial checkin penk parents: diff changeset	1101
321c1729db5b initial checkin penk parents: diff changeset	1102	!FindFileApplication methodsFor:'private'!
321c1729db5b initial checkin penk parents: diff changeset	1103
321c1729db5b initial checkin penk parents: diff changeset	1104	changeExtentToSeeSearchResult
321c1729db5b initial checkin penk parents: diff changeset	1105
321c1729db5b initial checkin penk parents: diff changeset	1106	\| extent window\|
321c1729db5b initial checkin penk parents: diff changeset	1107
321c1729db5b initial checkin penk parents: diff changeset	1108	expanded isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1109	window := self builder window.
321c1729db5b initial checkin penk parents: diff changeset	1110	window ifNotNil:[
321c1729db5b initial checkin penk parents: diff changeset	1111	window := window topView.
321c1729db5b initial checkin penk parents: diff changeset	1112	extent := window extent.
321c1729db5b initial checkin penk parents: diff changeset	1113	window extent:((extent x) @ (extent y + 300)).
321c1729db5b initial checkin penk parents: diff changeset	1114	expanded := true.
321c1729db5b initial checkin penk parents: diff changeset	1115	window containerChangedSize.
321c1729db5b initial checkin penk parents: diff changeset	1116	].
321c1729db5b initial checkin penk parents: diff changeset	1117	].
321c1729db5b initial checkin penk parents: diff changeset	1118	! !
321c1729db5b initial checkin penk parents: diff changeset	1119
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1120	!FindFileApplication methodsFor:'private - searching'!
3892 321c1729db5b initial checkin penk parents: diff changeset	1121
5856 68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1122	cachedFileSizeOf:aFilenameString
68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1123	\|cache cacheLine fileSize\|
68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1124
68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1125	cache := self contentsInfoCache.
68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1126	cache isNil ifTrue:[
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1127	fileSize := aFilenameString asFilename fileSize
5856 68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1128	] ifFalse:[
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1129	ContentsInfoCacheAccessLock critical:[
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1130	cacheLine := cache at:aFilenameString ifAbsent:nil.
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1131	cacheLine isNil ifTrue:[
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1132	cache at:aFilenameString put:(cacheLine := Array new:2).
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1133	] ifFalse:[
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1134	fileSize := (cacheLine at:1).
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1135	].
5856 68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1136
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1137	fileSize isNil ifTrue:[
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1138	fileSize := aFilenameString asFilename fileSize.
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1139	cacheLine at:1 put:fileSize.
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1140	].
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1141	].
5856 68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1142	].
68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1143	^ fileSize
68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1144	!
68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1145
68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1146	cachedHashValueOfFile:aFilenameString
68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1147	\|cache cacheLine hashValue\|
68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1148
68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1149	cache := self contentsInfoCache.
68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1150	cache isNil ifTrue:[
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1151	hashValue := MD5Stream hashValueOfFile:aFilenameString asFilename
5856 68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1152	] ifFalse:[
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1153	ContentsInfoCacheAccessLock critical:[
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1154	cacheLine := cache at:aFilenameString ifAbsent:nil.
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1155	cacheLine isNil ifTrue:[
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1156	cache at:aFilenameString put:(Array new:2).
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1157	] ifFalse:[
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1158	hashValue := (cacheLine at:2).
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1159	].
5856 68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1160
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1161	hashValue isNil ifTrue:[
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1162	hashValue := MD5Stream hashValueOfFile:aFilenameString asFilename.
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1163	cacheLine at:2 put:hashValue.
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1164	].
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1165	].
5856 68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1166	].
68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1167	^ hashValue
68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1168	!
68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1169
68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1170	contentsInfoCache
68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1171	ContentsInfoCache isNil ifTrue:[
68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1172	ContentsInfoCache := Dictionary new.
68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1173	ContentsInfoCacheAccessLock := Semaphore forMutualExclusion.
68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1174	].
68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1175	^ ContentsInfoCache
68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1176	!
68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1177
5231 d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	1178	doFindFileNamed:namePatterns directories:searchDirectories ignoreCase:ignCaseInName
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	1179	containingString:contentsStringArg ignoreCaseInContents:ignCaseInContents
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	1180	notContainingString:notContentsStringArg ignoreCaseInNotContents:ignCaseInNotContents
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	1181	sameContentsAsFile:filenameToCompareContentsOrNil sameContentsAs:bytesToCompareContentsOrNil in:aDirectory
3892 321c1729db5b initial checkin penk parents: diff changeset	1182
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1183	\|dir nameMatches lines contentsToCompare resultList matchedFilesList inStream
5601 08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1184	doesFileMatch contentsString notContentsString check checkNot
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1185	grepCommand nameMatch fileSizesToSearchFor filesToSearchFor fileMD5sToSearchFor
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1186	setOfFilesToSearchFor remember cache fn\|
5231 d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	1187
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	1188	contentsString := contentsStringArg.
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	1189	ignCaseInContents ifTrue:[ contentsString := contentsString asLowercase ].
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	1190	notContentsString := notContentsStringArg.
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	1191	ignCaseInNotContents ifTrue:[ notContentsString := notContentsString asLowercase ].
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1192
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1193	filenameToCompareContentsOrNil notNil ifTrue:[
5768 18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1194	fileSizesToSearchFor := OrderedCollection new.
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1195	filesToSearchFor := OrderedCollection new.
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1196	fileMD5sToSearchFor := OrderedCollection new.
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1197
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1198	filenameToCompareContentsOrNil includesMatchCharacters ifTrue:[
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1199	dir := filenameToCompareContentsOrNil asFilename.
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1200	[dir pathName includesMatchCharacters] whileTrue:[
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1201	dir := dir directory
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1202	].
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1203	dir recursiveDirectoryContentsDo:[:relName \|
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1204	\|path fn\|
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1205
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1206	fn := dir construct:relName.
5770 2b3f1705ed84 * empty log message * Claus Gittinger <cg@exept.de> parents: 5769 diff changeset	1207	(filenameToCompareContentsOrNil match:fn name) ifTrue:[
5847 6ff1fce17ac4 * empty log message * Claus Gittinger <cg@exept.de> parents: 5844 diff changeset	1208	fn isDirectory ifFalse:[
5856 68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1209	fileSizesToSearchFor add:(self cachedFileSizeOf:fn).
5847 6ff1fce17ac4 * empty log message * Claus Gittinger <cg@exept.de> parents: 5844 diff changeset	1210	filesToSearchFor add:(fn name).
5856 68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1211	fileMD5sToSearchFor add:(self cachedHashValueOfFile:fn).
5847 6ff1fce17ac4 * empty log message * Claus Gittinger <cg@exept.de> parents: 5844 diff changeset	1212	]
5768 18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1213	]
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1214	].
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1215	] ifFalse:[
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1216	fn := filenameToCompareContentsOrNil asFilename.
5856 68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1217	fileSizesToSearchFor add:(self cachedFileSizeOf:fn).
5768 18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1218	filesToSearchFor add:(fn pathName).
5856 68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1219	fileMD5sToSearchFor add:(self cachedHashValueOfFile:fn).
5768 18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1220	].
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1221
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1222	remember := LastRememberInCache := self rememberInCache value.
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1223	remember ifTrue:[
5856 68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1224	cache := self contentsInfoCache.
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1225	].
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1226	].
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1227	setOfFilesToSearchFor := filesToSearchFor asSet.
5791 ee6a05f07dd8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5787 diff changeset	1228
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1229	dir := aDirectory asFilename.
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1230	self changeInformationTo:'Find File ' , '- searching .' , ((dir name) copyFrom:(self searchDirectoryHolder value asString size + 1)) toTab:false.
3892 321c1729db5b initial checkin penk parents: diff changeset	1231
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1232	resultList := self resultList.
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1233	matchedFilesList := self matchedFilesList.
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1234
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1235	filenameToCompareContentsOrNil notNil ifTrue:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1236	doesFileMatch :=
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1237	[:f \|
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1238	\|contentsMatches mustValidateExistance
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1239	fileMD5 fileName fileSize cacheLine idxInList matchedFile\|
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1240
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1241	"/ contents compare ...
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1242	contentsMatches := false.
5771 ba11ead45024 * empty log message * Claus Gittinger <cg@exept.de> parents: 5770 diff changeset	1243	fileName := f name.
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1244	(setOfFilesToSearchFor includes:fileName) ifFalse:[
5850 9f217d207505 * empty log message * Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	1245	mustValidateExistance := false.
5856 68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1246
5727 2e272a545f8d * empty log message * Claus Gittinger <cg@exept.de> parents: 5726 diff changeset	1247	cache notNil ifTrue:[
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1248	ContentsInfoCacheAccessLock critical:[
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1249	cacheLine := cache at:fileName ifAbsent:nil.
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1250	cacheLine notNil ifTrue:[
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1251	fileSize := cacheLine at:1.
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1252	fileMD5 := cacheLine at:2.
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1253	mustValidateExistance := true.
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1254	].
5727 2e272a545f8d * empty log message * Claus Gittinger <cg@exept.de> parents: 5726 diff changeset	1255	].
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1256	].
5850 9f217d207505 * empty log message * Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	1257
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1258	fileSize isNil ifTrue:[
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1259	fileSize := f fileSize.
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1260	].
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1261	remember ifTrue:[
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1262	ContentsInfoCacheAccessLock critical:[
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1263	cacheLine := cache at:fileName ifAbsentPut:[Array new:2].
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1264	cacheLine at:1 put:fileSize.
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1265	]
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1266	].
5768 18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1267	(idxInList := fileSizesToSearchFor indexOf:fileSize) ~~ 0 ifTrue:[
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1268	fileMD5 isNil ifTrue:[
5850 9f217d207505 * empty log message * Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	1269	OpenError handle:[:ex \|
9f217d207505 * empty log message * Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	1270	ObjectMemory garbageCollect.
9f217d207505 * empty log message * Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	1271	fileMD5 := MD5Stream hashValueOfFile:f.
9f217d207505 * empty log message * Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	1272	] do:[
9f217d207505 * empty log message * Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	1273	fileMD5 := MD5Stream hashValueOfFile:f.
9f217d207505 * empty log message * Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	1274	].
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1275	remember ifTrue:[
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1276	cacheLine at:2 put:fileMD5
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1277	].
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1278	].
5768 18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1279	contentsMatches := (fileMD5 = (fileMD5sToSearchFor at:idxInList)).
5850 9f217d207505 * empty log message * Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	1280	contentsMatches ifTrue:[
9f217d207505 * empty log message * Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	1281	mustValidateExistance ifTrue:[
9f217d207505 * empty log message * Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	1282	fileName asFilename exists ifFalse:[
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1283	ContentsInfoCacheAccessLock critical:[
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1284	cache removeKey:fileName.
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1285	].
5850 9f217d207505 * empty log message * Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	1286	contentsMatches := false.
9f217d207505 * empty log message * Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	1287	].
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1288	].
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1289	contentsMatches ifTrue:[
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1290	matchedFile := filesToSearchFor at:idxInList.
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1291	matchedFilesList add:matchedFile.
c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1292	].
5850 9f217d207505 * empty log message * Claus Gittinger <cg@exept.de> parents: 5848 diff changeset	1293	].
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1294	"/ contentsToCompare isNil ifTrue:[
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1295	"/ filenameToCompareContentsOrNil fileSize < (512*1024) ifTrue:[
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1296	"/ contentsToCompare := filenameToCompareContentsOrNil binaryContentsOfEntireFile
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1297	"/ ]
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1298	"/ ].
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1299	"/ contentsToCompare isNil ifTrue:[
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1300	"/ "/ too large - compare block-wise ...
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1301	"/ contentsMatches := (filenameToCompareContentsOrNil sameContentsAs:f).
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1302	"/ ] ifFalse:[
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1303	"/ contentsMatches := contentsToCompare = (f binaryContentsOfEntireFile).
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1304	"/ ]
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1305	].
5773 6c5f260f3a5c * empty log message * Claus Gittinger <cg@exept.de> parents: 5771 diff changeset	1306	] ifTrue:[
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1307	f isSymbolicLink ifTrue:[
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1308	resultList add: (f name , ' is a symbolic link to ' , f pathName).
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1309	]
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1310	].
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1311	contentsMatches
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1312	].
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1313	] ifFalse:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1314	(contentsString isNil and:[notContentsString isNil]) ifTrue:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1315	doesFileMatch := [:f \| true].
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1316	] ifFalse:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1317	(self canUseGrep
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1318	and:[self useGrep value]) ifTrue:[
5601 08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1319	(ignCaseInContents not and:[ignCaseInNotContents not]) ifTrue:[
08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1320	contentsString notNil ifTrue:[
08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1321	notContentsString notNil ifTrue:[
08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1322	grepCommand := '(grep "',contentsString,'" %1) && (grep -v "',notContentsString,'" %1)'.
08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1323	] ifFalse:[
08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1324	grepCommand := 'grep "' , contentsString , '" %1'.
08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1325	].
08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1326	] ifFalse:[
08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1327	grepCommand := 'grep -v "' , notContentsString , '" %1'.
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1328	].
5601 08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1329	doesFileMatch := [:f \| \|cmd ret\|
08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1330	cmd := grepCommand bindWith:f pathName.
08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1331	ret := OperatingSystem executeCommand:cmd.
08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1332	ret
08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1333	].
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1334	]
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1335	].
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1336
5601 08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1337	doesFileMatch isNil ifTrue:[
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1338	contentsString notNil ifTrue:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1339	ignCaseInContents ifTrue:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1340	check := [:l \| l asLowercase includesString:contentsString]
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1341	] ifFalse:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1342	check := [:l \| l includesString:contentsString]
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1343	].
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1344	].
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1345	notContentsString notNil ifTrue:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1346	ignCaseInNotContents ifTrue:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1347	checkNot := [:l \| l asLowercase includesString:notContentsString]
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1348	] ifFalse:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1349	checkNot := [:l \| l includesString:notContentsString]
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1350	].
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1351	].
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1352
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1353	doesFileMatch :=
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1354	[:f \|
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1355	\|contentsMatches\|
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1356
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1357	"/ string search ...
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1358	contentsMatches := true.
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1359	(f exists and:[f isReadable]) ifFalse:[
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1360	resultList add: (('* ' , f pathName , ' skipped - unreadable or bad symbolic link *') asText colorizeAllWith:(Color red darkened)).
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1361	] ifTrue:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1362	f fileSize > (4024*1024) ifTrue:[
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1363	resultList add: (('* ' , f pathName , ' skipped - too large *') asText colorizeAllWith:(Color red darkened)).
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1364	] ifFalse:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1365	Stream lineTooLongErrorSignal handle:[:ex \|
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1366	\|cont\|
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1367
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1368	"/ this typically happens, when a binary file is read linewise ...
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1369	cont := f readStream binary contentsOfEntireFile asString.
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1370	check notNil ifTrue:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1371	checkNot isNil ifTrue:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1372	contentsMatches := check value:cont
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1373	] ifFalse:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1374	contentsMatches := (check value:cont) and:[(checkNot value:cont) not].
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1375	]
5231 d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	1376	] ifFalse:[
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1377	contentsMatches := (checkNot value:cont) not.
5231 d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	1378	].
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1379	] do:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1380	lines := f contents ? #().
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1381	check notNil ifTrue:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1382	checkNot isNil ifTrue:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1383	contentsMatches := (lines contains:check).
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1384	] ifFalse:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1385	contentsMatches := (lines contains:check) and:[(lines contains:checkNot) not]
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1386	]
5231 d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	1387	] ifFalse:[
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1388	contentsMatches := (lines contains:checkNot) not.
5231 d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	1389	].
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	1390	].
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1391	].
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1392	].
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1393	contentsMatches
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1394	].
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1395	].
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1396	].
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1397	].
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1398
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1399
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1400	(self canUseLocate
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1401	and:[self useLocate value
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1402	and:[searchDirectories not]])
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1403	ifTrue:[
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1404	[
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1405	\|cmd line f\|
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1406
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1407	cmd := 'locate '.
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1408	ignCaseInName ifTrue:[
5408 64a874a3ef4b * empty log message * Claus Gittinger <cg@exept.de> parents: 5279 diff changeset	1409	cmd := cmd , '--ignore-case '
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1410	].
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1411
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1412	cmd := cmd , ((namePatterns collect:[:nm \| dir asFilename asAbsoluteFilename constructString:nm])
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1413	asStringCollection asStringWith:Character space).
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1414	inStream := PipeStream readingFrom:cmd inDirectory:dir.
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1415	[inStream atEnd] whileFalse:[
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1416	line := inStream nextLine.
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1417
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1418	f := line asFilename.
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1419	(doesFileMatch value:f) ifTrue:[
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1420	resultList add:line.
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1421	]
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1422	].
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1423	] ensure:[
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1424	inStream notNil ifTrue:[inStream close].
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1425	].
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1426	^ self.
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1427	].
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1428
3892 321c1729db5b initial checkin penk parents: diff changeset	1429	bytesToCompareContentsOrNil notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1430	contentsToCompare := bytesToCompareContentsOrNil
321c1729db5b initial checkin penk parents: diff changeset	1431	].
321c1729db5b initial checkin penk parents: diff changeset	1432
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1433	namePatterns isNil ifTrue:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1434	nameMatch := [:fn \| true]
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1435	] ifFalse:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1436	ignCaseInName ifTrue:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1437	nameMatch := [:fn \|
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1438	nameMatches := namePatterns contains:[:aPattern \| aPattern match:(fn asLowercase)]
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1439	].
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1440	] ifFalse:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1441	nameMatch := [:fn \|
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1442	nameMatches := namePatterns contains:[:aPattern \| aPattern match:fn]
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1443	].
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1444	].
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1445	].
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1446
5726 464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1447	filenameToCompareContentsOrNil notNil ifTrue:[
5727 2e272a545f8d * empty log message * Claus Gittinger <cg@exept.de> parents: 5726 diff changeset	1448	self searchOnlyInCache value ifTrue:[
5726 464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1449	cache notEmptyOrNil ifTrue:[
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1450	cache keysAndValuesDo:[:fn :info \|
5768 18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1451	\|filesSize filesMD5 idxInList\|
5727 2e272a545f8d * empty log message * Claus Gittinger <cg@exept.de> parents: 5726 diff changeset	1452
5726 464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1453	filesSize := info at:1.
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1454	filesSize isNil ifTrue:[
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1455	filesSize := fn asFilename fileSize.
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1456	info at:1 put:filesSize.
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1457	].
5768 18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1458	(idxInList := fileSizesToSearchFor indexOf:filesSize) ~~ 0 ifTrue:[
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1459	(setOfFilesToSearchFor includes:fn) not ifTrue:[
5729 752d89ffb83e * empty log message * Claus Gittinger <cg@exept.de> parents: 5728 diff changeset	1460	fn asFilename exists ifFalse:[
752d89ffb83e * empty log message * Claus Gittinger <cg@exept.de> parents: 5728 diff changeset	1461	info at:1 put:nil.
752d89ffb83e * empty log message * Claus Gittinger <cg@exept.de> parents: 5728 diff changeset	1462	info at:2 put:nil.
752d89ffb83e * empty log message * Claus Gittinger <cg@exept.de> parents: 5728 diff changeset	1463	] ifTrue:[
752d89ffb83e * empty log message * Claus Gittinger <cg@exept.de> parents: 5728 diff changeset	1464	filesMD5 := info at:2.
752d89ffb83e * empty log message * Claus Gittinger <cg@exept.de> parents: 5728 diff changeset	1465	filesMD5 isNil ifTrue:[
752d89ffb83e * empty log message * Claus Gittinger <cg@exept.de> parents: 5728 diff changeset	1466	filesMD5 := MD5Stream hashValueOfFile:fn asFilename.
752d89ffb83e * empty log message * Claus Gittinger <cg@exept.de> parents: 5728 diff changeset	1467	info at:2 put:filesMD5.
752d89ffb83e * empty log message * Claus Gittinger <cg@exept.de> parents: 5728 diff changeset	1468	].
5768 18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1469	filesMD5 = (fileMD5sToSearchFor at:idxInList) ifTrue:[
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1470	resultList add:fn.
5728 93ac88c7f87d * empty log message * Claus Gittinger <cg@exept.de> parents: 5727 diff changeset	1471	]
5727 2e272a545f8d * empty log message * Claus Gittinger <cg@exept.de> parents: 5726 diff changeset	1472	]
5726 464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1473	]
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1474	]
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1475	].
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1476	].
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1477	^ self.
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1478	].
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1479	].
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1480
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1481	self
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1482	doFindFileNamed:namePatterns
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1483	directories:searchDirectories
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1484	nameMatch:nameMatch
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1485	contentsMatch:doesFileMatch
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1486	in:dir.
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1487	!
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1488
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1489	doFindFileNamed:namePatterns directories:searchDirectories nameMatch:nameMatch contentsMatch:doesFileMatch in:aDirectory
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1490	\|dir subDirs list directoryContents\|
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1491
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1492	dir := aDirectory asFilename.
5844 11812dd2d7d6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5811 diff changeset	1493
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1494	self changeInformationTo:'Find File ' , '- searching .' , ((dir name) copyFrom:(self searchDirectoryHolder value asString size + 1)) toTab:false.
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1495
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1496	list := self resultList.
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1497
3892 321c1729db5b initial checkin penk parents: diff changeset	1498	subDirs := OrderedCollection new.
321c1729db5b initial checkin penk parents: diff changeset	1499
4638 79734f7bdfc4 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4518 diff changeset	1500	[
79734f7bdfc4 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4518 diff changeset	1501	directoryContents := dir directoryContents.
79734f7bdfc4 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4518 diff changeset	1502	] on:FileStream openErrorSignal do:[:ex\|
5811 c397040c27b4 openErrorSignal arg: always a string Claus Gittinger <cg@exept.de> parents: 5791 diff changeset	1503	list add:((ex pathName , ' -> ' , ex description) asText colorizeAllWith:Color red darkened).
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1504	"/ self warn:('Cannot access %1\(%2)'
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1505	"/ bindWith:ex parameter printString
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1506	"/ with:ex description) withCRs.
4638 79734f7bdfc4 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4518 diff changeset	1507	^ self
79734f7bdfc4 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4518 diff changeset	1508	].
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1509
4638 79734f7bdfc4 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4518 diff changeset	1510	directoryContents sort do:[:fn \|
4518 85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	1511	\|f isDirectory\|
3892 321c1729db5b initial checkin penk parents: diff changeset	1512
321c1729db5b initial checkin penk parents: diff changeset	1513	f := dir construct:fn.
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1514
4518 85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	1515	isDirectory := f isDirectory.
85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	1516	isDirectory ifTrue:[
3892 321c1729db5b initial checkin penk parents: diff changeset	1517	f isSymbolicLink ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	1518	subDirs add:f
321c1729db5b initial checkin penk parents: diff changeset	1519	]
4518 85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	1520	].
85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	1521	(searchDirectories or:[isDirectory not]) ifTrue:[
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1522	(nameMatch value:fn) ifTrue:[
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1523	(isDirectory or:[ doesFileMatch value:f ])
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1524	ifTrue:[
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1525	list add:(f asString).
3892 321c1729db5b initial checkin penk parents: diff changeset	1526	]
321c1729db5b initial checkin penk parents: diff changeset	1527	]
321c1729db5b initial checkin penk parents: diff changeset	1528	]
321c1729db5b initial checkin penk parents: diff changeset	1529	].
321c1729db5b initial checkin penk parents: diff changeset	1530
321c1729db5b initial checkin penk parents: diff changeset	1531	self searchRecursively value ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1532	subDirs do:[:dir \|
321c1729db5b initial checkin penk parents: diff changeset	1533	self
321c1729db5b initial checkin penk parents: diff changeset	1534	doFindFileNamed:namePatterns
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1535	directories:searchDirectories
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1536	nameMatch:nameMatch
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1537	contentsMatch:doesFileMatch
3892 321c1729db5b initial checkin penk parents: diff changeset	1538	in:dir
321c1729db5b initial checkin penk parents: diff changeset	1539	].
321c1729db5b initial checkin penk parents: diff changeset	1540	]
321c1729db5b initial checkin penk parents: diff changeset	1541	! !
321c1729db5b initial checkin penk parents: diff changeset	1542
321c1729db5b initial checkin penk parents: diff changeset	1543	!FindFileApplication methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	1544
321c1729db5b initial checkin penk parents: diff changeset	1545	getTabStringEnd
321c1729db5b initial checkin penk parents: diff changeset	1546
321c1729db5b initial checkin penk parents: diff changeset	1547	" get the tab string from the application list on the class side "
321c1729db5b initial checkin penk parents: diff changeset	1548
321c1729db5b initial checkin penk parents: diff changeset	1549	^ self fileName directory asString
321c1729db5b initial checkin penk parents: diff changeset	1550	!
321c1729db5b initial checkin penk parents: diff changeset	1551
321c1729db5b initial checkin penk parents: diff changeset	1552	hasOneFileSelected
321c1729db5b initial checkin penk parents: diff changeset	1553	\| sel \|
321c1729db5b initial checkin penk parents: diff changeset	1554	sel := self selectionHolder value.
321c1729db5b initial checkin penk parents: diff changeset	1555	^ (sel notNil and:[sel notEmpty and:[sel size = 1]])
321c1729db5b initial checkin penk parents: diff changeset	1556	!
321c1729db5b initial checkin penk parents: diff changeset	1557
321c1729db5b initial checkin penk parents: diff changeset	1558	hasSelectionInResultList
321c1729db5b initial checkin penk parents: diff changeset	1559	\| sel \|
321c1729db5b initial checkin penk parents: diff changeset	1560	sel := self selectionHolder value.
321c1729db5b initial checkin penk parents: diff changeset	1561	^ (sel notNil and:[sel notEmpty])
321c1729db5b initial checkin penk parents: diff changeset	1562	! !
321c1729db5b initial checkin penk parents: diff changeset	1563
321c1729db5b initial checkin penk parents: diff changeset	1564	!FindFileApplication methodsFor:'startup & release'!
321c1729db5b initial checkin penk parents: diff changeset	1565
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 4798 diff changeset	1566	item:anItem
3892 321c1729db5b initial checkin penk parents: diff changeset	1567
4797 6e16a84c6bb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 4638 diff changeset	1568	\|file newPattern\|
3892 321c1729db5b initial checkin penk parents: diff changeset	1569
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 4798 diff changeset	1570	super item:anItem.
4797 6e16a84c6bb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 4638 diff changeset	1571
3892 321c1729db5b initial checkin penk parents: diff changeset	1572	file := self fileName.
321c1729db5b initial checkin penk parents: diff changeset	1573	self searchDirectoryHolder value:(self getDirWithoutFileName:file).
4797 6e16a84c6bb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 4638 diff changeset	1574
3892 321c1729db5b initial checkin penk parents: diff changeset	1575	file isDirectory ifTrue:[
4797 6e16a84c6bb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 4638 diff changeset	1576	newPattern := '*'.
3892 321c1729db5b initial checkin penk parents: diff changeset	1577	] ifFalse:[
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 4798 diff changeset	1578	newPattern := '*.', anItem suffix.
3892 321c1729db5b initial checkin penk parents: diff changeset	1579	].
4797 6e16a84c6bb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 4638 diff changeset	1580	self namePatternHolder value:newPattern.
3892 321c1729db5b initial checkin penk parents: diff changeset	1581	self enableStop value:false.
321c1729db5b initial checkin penk parents: diff changeset	1582	self enableSearch value:true.
321c1729db5b initial checkin penk parents: diff changeset	1583	^ true.
321c1729db5b initial checkin penk parents: diff changeset	1584	!
321c1729db5b initial checkin penk parents: diff changeset	1585
321c1729db5b initial checkin penk parents: diff changeset	1586	postOpenWith:aBuilder
321c1729db5b initial checkin penk parents: diff changeset	1587
321c1729db5b initial checkin penk parents: diff changeset	1588	self masterApplication isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1589	self masterApplication:nil.
321c1729db5b initial checkin penk parents: diff changeset	1590	].
321c1729db5b initial checkin penk parents: diff changeset	1591	findFileView := aBuilder window.
321c1729db5b initial checkin penk parents: diff changeset	1592	self windowGroup addPreEventHook:self.
321c1729db5b initial checkin penk parents: diff changeset	1593	^ super postOpenWith:aBuilder.
321c1729db5b initial checkin penk parents: diff changeset	1594	!
321c1729db5b initial checkin penk parents: diff changeset	1595
321c1729db5b initial checkin penk parents: diff changeset	1596	release
321c1729db5b initial checkin penk parents: diff changeset	1597	self stopSearchTask.
5856 68274991f212 * empty log message * Claus Gittinger <cg@exept.de> parents: 5851 diff changeset	1598	ContentsInfoCache := ContentsInfoCacheAccessLock := nil.
3892 321c1729db5b initial checkin penk parents: diff changeset	1599	^ super release
321c1729db5b initial checkin penk parents: diff changeset	1600	! !
321c1729db5b initial checkin penk parents: diff changeset	1601
321c1729db5b initial checkin penk parents: diff changeset	1602	!FindFileApplication class methodsFor:'documentation'!
321c1729db5b initial checkin penk parents: diff changeset	1603
321c1729db5b initial checkin penk parents: diff changeset	1604	version
5859 c85f10082d25 * empty log message * Claus Gittinger <cg@exept.de> parents: 5857 diff changeset	1605	^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.53 2004-05-18 12:00:46 cg Exp $'
3892 321c1729db5b initial checkin penk parents: diff changeset	1606	! !

author	Claus Gittinger <cg@exept.de>
	Tue, 18 May 2004 14:00:46 +0200
changeset 5859	c85f10082d25
parent 5857	255fc389bf5d
child 5860	294f0dcfbe4b
permissions	-rw-r--r--