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

author	Claus Gittinger <cg@exept.de>
	Tue, 23 Mar 2004 15:13:46 +0100
changeset 5791	ee6a05f07dd8
parent 5787	7afc10d73559
child 5811	c397040c27b4
permissions	-rw-r--r--