hg/stx-libtool: FindFileApplication.st@eeed51463ec1 (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:[
4518 85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 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	].
321c1729db5b initial checkin penk parents: diff changeset	622	namePatterns := namePattern asCollectionOfSubstringsSeparatedBy:$;
321c1729db5b initial checkin penk parents: diff changeset	623	].
321c1729db5b initial checkin penk parents: diff changeset	624	contentsPattern := self contentsPatternHolder value.
321c1729db5b initial checkin penk parents: diff changeset	625	contentsPattern size == 0 ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	626	contentsPattern := nil
321c1729db5b initial checkin penk parents: diff changeset	627	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	628	self ignoreCaseInContents value ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	629	contentsPattern := contentsPattern asLowercase
321c1729db5b initial checkin penk parents: diff changeset	630	]
321c1729db5b initial checkin penk parents: diff changeset	631	].
5231 d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	632	notContentsPattern := self notContentsPatternHolder value.
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	633	notContentsPattern size == 0 ifTrue:[
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	634	notContentsPattern := nil
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	635	] ifFalse:[
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	636	self ignoreCaseInNotContents value ifTrue:[
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	637	notContentsPattern := notContentsPattern asLowercase
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	638	]
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	639	].
5730 6c04f3f1d04e * empty log message * Claus Gittinger <cg@exept.de> parents: 5729 diff changeset	640	fileToCompareAgainst := (self sameContentsAsHolder value ? '') withoutSeparators.
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	641	fileToCompareAgainst isEmpty ifTrue:[
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	642	fileToCompareAgainst := nil.
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	643	] ifFalse:[
5768 18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	644	fileToCompareAgainst includesMatchCharacters ifFalse:[
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	645	fileToCompareAgainst asFilename exists ifFalse:[
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	646	Dialog warn:('No such file: %1' bindWith:fileToCompareAgainst asString allBold).
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	647	^ self.
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	648	].
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	649	fileToCompareAgainst asFilename isReadable ifFalse:[
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	650	Dialog warn:('Cannot read: %1' bindWith:fileToCompareAgainst asString allBold).
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	651	^ self.
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	652	]
5726 464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	653	].
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	654	].
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	655
5776 eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	656	searchTask :=
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	657	[
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	658	\|message t\|
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	659
5776 eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	660	[
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	661	(self stopSignal) catch:[
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	662	self enableStop value:true.
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	663	self resultList removeAll.
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	664	self changeInformationTo:'Find File ' , '- searching ' toTab:true.
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	665	self notify:'searching...'.
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	666	t := Time millisecondsToRun:[
5770 2b3f1705ed84 * empty log message * Claus Gittinger <cg@exept.de> parents: 5769 diff changeset	667
5776 eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	668	self
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	669	doFindFileNamed:namePatterns
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	670	directories:(self searchDirectories value)
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	671	ignoreCase:(self ignoreCaseInName value)
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	672	containingString:contentsPattern
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	673	ignoreCaseInContents:(self ignoreCaseInContents value)
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	674	notContainingString:notContentsPattern
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	675	ignoreCaseInNotContents:(self ignoreCaseInNotContents value)
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	676	sameContentsAsFile:fileToCompareAgainst
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	677	sameContentsAs:nil
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	678	in:(self searchDirectoryHolder value).
5770 2b3f1705ed84 * empty log message * Claus Gittinger <cg@exept.de> parents: 5769 diff changeset	679
5776 eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	680	].
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	681	t > 100 ifTrue:[
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	682	t := ((t / 1000) asFixedPoint:2) printString , ' s'
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	683	] ifFalse:[
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	684	t := t printString , ' ms'
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	685	].
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	686	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	687	self enableStop value:false.
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	688	self enableSearch value:true.
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	689	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	690	].
5776 eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	691	] valueNowOrOnUnwindDo:[
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	692	searchTask := nil.
3892 321c1729db5b initial checkin penk parents: diff changeset	693	self enableStop value:false.
5776 eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	694	self notify:message.
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	695	]
eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	696	] newProcess.
3892 321c1729db5b initial checkin penk parents: diff changeset	697
5776 eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	698	searchTask priorityRange:(Processor systemBackgroundPriority to:Processor userSchedulingPriority).
3892 321c1729db5b initial checkin penk parents: diff changeset	699	searchTask name:('FindFile[', self searchDirectoryHolder value asFilename baseName, ']').
321c1729db5b initial checkin penk parents: diff changeset	700	searchTask resume.
321c1729db5b initial checkin penk parents: diff changeset	701	!
321c1729db5b initial checkin penk parents: diff changeset	702
321c1729db5b initial checkin penk parents: diff changeset	703	openInNewBrowser
321c1729db5b initial checkin penk parents: diff changeset	704	\|sel\|
321c1729db5b initial checkin penk parents: diff changeset	705
321c1729db5b initial checkin penk parents: diff changeset	706	sel := self selectionHolder value.
321c1729db5b initial checkin penk parents: diff changeset	707	(sel notNil and:[sel notEmpty]) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	708	FileBrowserV2 openOn:(self resultList at:sel first) asFilename
321c1729db5b initial checkin penk parents: diff changeset	709	].
321c1729db5b initial checkin penk parents: diff changeset	710	!
321c1729db5b initial checkin penk parents: diff changeset	711
5766 97f7422b1ea6 +deleteFiles Claus Gittinger <cg@exept.de> parents: 5743 diff changeset	712	removeSelectedFilesFromResultList
3892 321c1729db5b initial checkin penk parents: diff changeset	713	\|sel list\|
321c1729db5b initial checkin penk parents: diff changeset	714
321c1729db5b initial checkin penk parents: diff changeset	715	sel := self selectionHolder value.
321c1729db5b initial checkin penk parents: diff changeset	716	list := self resultList.
321c1729db5b initial checkin penk parents: diff changeset	717	(sel notNil and:[sel notEmpty]) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	718	sel reverseDo:[: key \|
321c1729db5b initial checkin penk parents: diff changeset	719	list removeAtIndex:key
321c1729db5b initial checkin penk parents: diff changeset	720	]
321c1729db5b initial checkin penk parents: diff changeset	721	].
321c1729db5b initial checkin penk parents: diff changeset	722	!
321c1729db5b initial checkin penk parents: diff changeset	723
321c1729db5b initial checkin penk parents: diff changeset	724	selectInBrowser
321c1729db5b initial checkin penk parents: diff changeset	725	\|sel entry application\|
321c1729db5b initial checkin penk parents: diff changeset	726
321c1729db5b initial checkin penk parents: diff changeset	727	sel := self selectionHolder value.
321c1729db5b initial checkin penk parents: diff changeset	728	(sel notNil and:[sel notEmpty]) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	729	entry := self resultList at:sel first.
5252 453aee873a3d not ifTrue -> ifFalse Claus Gittinger <cg@exept.de> parents: 5231 diff changeset	730	entry asFilename exists ifFalse:[ ^ self].
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	731	application := targetApplication ? self masterApplication.
4182 99ed9aed9fa7 select of not valid files Michael Beyl <mb@exept.de> parents: 4168 diff changeset	732	application notNil ifTrue:[
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	733	application gotoFile:(entry asFilename).
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	734	].
3892 321c1729db5b initial checkin penk parents: diff changeset	735	].
321c1729db5b initial checkin penk parents: diff changeset	736	!
321c1729db5b initial checkin penk parents: diff changeset	737
321c1729db5b initial checkin penk parents: diff changeset	738	stop
321c1729db5b initial checkin penk parents: diff changeset	739
321c1729db5b initial checkin penk parents: diff changeset	740	searchTask notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	741	self accessLock critical:[
321c1729db5b initial checkin penk parents: diff changeset	742	searchTask interruptWith:[stopSignal raiseRequest].
321c1729db5b initial checkin penk parents: diff changeset	743	]
321c1729db5b initial checkin penk parents: diff changeset	744	].
321c1729db5b initial checkin penk parents: diff changeset	745	self enableStop value:false.
321c1729db5b initial checkin penk parents: diff changeset	746	self enableSearch value:true.
321c1729db5b initial checkin penk parents: diff changeset	747	self changeInformationTo:'Find File ' , '- search stopped' toTab:true.
321c1729db5b initial checkin penk parents: diff changeset	748	!
321c1729db5b initial checkin penk parents: diff changeset	749
321c1729db5b initial checkin penk parents: diff changeset	750	stopSearchTask
321c1729db5b initial checkin penk parents: diff changeset	751	\|task\|
321c1729db5b initial checkin penk parents: diff changeset	752
321c1729db5b initial checkin penk parents: diff changeset	753	(task := searchTask) notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	754	searchTask := nil.
321c1729db5b initial checkin penk parents: diff changeset	755
321c1729db5b initial checkin penk parents: diff changeset	756	Object errorSignal handle:[:ex\|
321c1729db5b initial checkin penk parents: diff changeset	757	Dialog warn:ex description.
321c1729db5b initial checkin penk parents: diff changeset	758	]do:[
321c1729db5b initial checkin penk parents: diff changeset	759	task isDead ifFalse:[
3937 80d958725879 terminateWithAllSUbprocesses -> xxxInGroup Claus Gittinger <cg@exept.de> parents: 3892 diff changeset	760	task terminateWithAllSubprocessesInGroup.
3892 321c1729db5b initial checkin penk parents: diff changeset	761	task waitUntilTerminated.
321c1729db5b initial checkin penk parents: diff changeset	762	]
321c1729db5b initial checkin penk parents: diff changeset	763	]
321c1729db5b initial checkin penk parents: diff changeset	764	].
321c1729db5b initial checkin penk parents: diff changeset	765	! !
321c1729db5b initial checkin penk parents: diff changeset	766
321c1729db5b initial checkin penk parents: diff changeset	767	!FindFileApplication methodsFor:'aspects'!
321c1729db5b initial checkin penk parents: diff changeset	768
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	769	canUseGrep
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	770	"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	771	- not under MSDOS
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	772	"
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	773
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	774	^ 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	775	!
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	776
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	777	canUseLocate
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	778	"locate command is much faster, but:
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	779	- only if searching recursively,
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	780	- no case ignore
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	781	- no contents matching
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	782	"
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	783
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	784	^ OperatingSystem isUNIXlike and:[ OperatingSystem canExecuteCommand:'locate' ]
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
3892 321c1729db5b initial checkin penk parents: diff changeset	787	contentsPatternHolder
321c1729db5b initial checkin penk parents: diff changeset	788
321c1729db5b initial checkin penk parents: diff changeset	789	contentsPatternHolder isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	790	contentsPatternHolder := nil asValue.
321c1729db5b initial checkin penk parents: diff changeset	791	].
321c1729db5b initial checkin penk parents: diff changeset	792	^ contentsPatternHolder.
321c1729db5b initial checkin penk parents: diff changeset	793	!
321c1729db5b initial checkin penk parents: diff changeset	794
321c1729db5b initial checkin penk parents: diff changeset	795	enableSearch
321c1729db5b initial checkin penk parents: diff changeset	796
321c1729db5b initial checkin penk parents: diff changeset	797	enableSearch isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	798	enableSearch := true asValue.
321c1729db5b initial checkin penk parents: diff changeset	799	].
321c1729db5b initial checkin penk parents: diff changeset	800	^ enableSearch.
321c1729db5b initial checkin penk parents: diff changeset	801	!
321c1729db5b initial checkin penk parents: diff changeset	802
321c1729db5b initial checkin penk parents: diff changeset	803	enableStop
321c1729db5b initial checkin penk parents: diff changeset	804
321c1729db5b initial checkin penk parents: diff changeset	805	enableStop isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	806	enableStop := true asValue.
321c1729db5b initial checkin penk parents: diff changeset	807	].
321c1729db5b initial checkin penk parents: diff changeset	808	^ enableStop.
321c1729db5b initial checkin penk parents: diff changeset	809	!
321c1729db5b initial checkin penk parents: diff changeset	810
321c1729db5b initial checkin penk parents: diff changeset	811	hasListEntries
321c1729db5b initial checkin penk parents: diff changeset	812
321c1729db5b initial checkin penk parents: diff changeset	813	hasListEntries isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	814	hasListEntries := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	815	].
321c1729db5b initial checkin penk parents: diff changeset	816	^ hasListEntries.
321c1729db5b initial checkin penk parents: diff changeset	817	!
321c1729db5b initial checkin penk parents: diff changeset	818
321c1729db5b initial checkin penk parents: diff changeset	819	ignoreCaseInContents
321c1729db5b initial checkin penk parents: diff changeset	820	ignoreCaseInContents isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	821	ignoreCaseInContents := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	822	].
321c1729db5b initial checkin penk parents: diff changeset	823	^ ignoreCaseInContents.
321c1729db5b initial checkin penk parents: diff changeset	824	!
321c1729db5b initial checkin penk parents: diff changeset	825
321c1729db5b initial checkin penk parents: diff changeset	826	ignoreCaseInName
321c1729db5b initial checkin penk parents: diff changeset	827
321c1729db5b initial checkin penk parents: diff changeset	828	ignoreCaseInName isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	829	ignoreCaseInName := false asValue.
321c1729db5b initial checkin penk parents: diff changeset	830	].
321c1729db5b initial checkin penk parents: diff changeset	831	^ ignoreCaseInName.
321c1729db5b initial checkin penk parents: diff changeset	832	!
321c1729db5b initial checkin penk parents: diff changeset	833
5231 d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	834	ignoreCaseInNotContents
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	835	ignoreCaseInNotContents isNil ifTrue:[
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	836	ignoreCaseInNotContents := false asValue.
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	837	].
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	838	^ ignoreCaseInNotContents.
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	839	!
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	840
3892 321c1729db5b initial checkin penk parents: diff changeset	841	namePatternHolder
321c1729db5b initial checkin penk parents: diff changeset	842
321c1729db5b initial checkin penk parents: diff changeset	843	namePatternHolder isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	844	namePatternHolder := '*' asValue.
321c1729db5b initial checkin penk parents: diff changeset	845	].
321c1729db5b initial checkin penk parents: diff changeset	846	^ namePatternHolder.
321c1729db5b initial checkin penk parents: diff changeset	847	!
321c1729db5b initial checkin penk parents: diff changeset	848
5231 d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	849	notContentsPatternHolder
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	850
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	851	notContentsPatternHolder isNil ifTrue:[
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	852	notContentsPatternHolder := nil asValue.
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.
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	855	!
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	856
3892 321c1729db5b initial checkin penk parents: diff changeset	857	notSearchForSameContents
5743 ab4c777f25f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5730 diff changeset	858	^ BlockValue forLogicalNot:self searchForSameContents
3892 321c1729db5b initial checkin penk parents: diff changeset	859	!
321c1729db5b initial checkin penk parents: diff changeset	860
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	861	rememberInCache
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	862	rememberInCache isNil ifTrue:[
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	863	rememberInCache := false asValue.
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	864	].
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	865	^ rememberInCache.
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	866	!
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	867
3892 321c1729db5b initial checkin penk parents: diff changeset	868	resultList
321c1729db5b initial checkin penk parents: diff changeset	869
321c1729db5b initial checkin penk parents: diff changeset	870	resultList isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	871	resultList := List new.
321c1729db5b initial checkin penk parents: diff changeset	872	resultList addDependent:self.
321c1729db5b initial checkin penk parents: diff changeset	873	].
321c1729db5b initial checkin penk parents: diff changeset	874	^ resultList.
321c1729db5b initial checkin penk parents: diff changeset	875	!
321c1729db5b initial checkin penk parents: diff changeset	876
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	877	sameContentsAsHolder
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	878	\|sel\|
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	879
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	880	sameContentsAsHolder isNil ifTrue:[
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	881	sameContentsAsHolder := ValueHolder new.
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	882	masterApplication notNil ifTrue:[
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	883	sel := masterApplication currentSelectedFiles.
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	884	sel size > 0 ifTrue:[
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	885	sameContentsAsHolder value:(sel first asFilename pathName).
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	886	].
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	887	].
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	888	].
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	889	^ sameContentsAsHolder.
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
4518 85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	892	searchDirectories
85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	893	searchDirectories isNil ifTrue:[
85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	894	searchDirectories := false asValue.
85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	895	].
85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	896	^ searchDirectories.
85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	897	!
85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	898
3892 321c1729db5b initial checkin penk parents: diff changeset	899	searchDirectoryHolder
321c1729db5b initial checkin penk parents: diff changeset	900
321c1729db5b initial checkin penk parents: diff changeset	901	searchDirectoryHolder isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	902	searchDirectoryHolder := ValueHolder new.
321c1729db5b initial checkin penk parents: diff changeset	903	].
321c1729db5b initial checkin penk parents: diff changeset	904	^ searchDirectoryHolder.
321c1729db5b initial checkin penk parents: diff changeset	905	!
321c1729db5b initial checkin penk parents: diff changeset	906
5743 ab4c777f25f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5730 diff changeset	907	searchForSameContents
ab4c777f25f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5730 diff changeset	908	searchForSameContents isNil ifTrue:[
ab4c777f25f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5730 diff changeset	909	searchForSameContents := false asValue.
ab4c777f25f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5730 diff changeset	910	].
ab4c777f25f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5730 diff changeset	911	^ searchForSameContents.
ab4c777f25f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5730 diff changeset	912	!
ab4c777f25f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 5730 diff changeset	913
5726 464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	914	searchOnlyInCache
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	915	searchOnlyInCache isNil ifTrue:[
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	916	searchOnlyInCache := false asValue.
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	917	].
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	918	^ searchOnlyInCache.
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	919	!
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	920
3892 321c1729db5b initial checkin penk parents: diff changeset	921	searchRecursively
321c1729db5b initial checkin penk parents: diff changeset	922
321c1729db5b initial checkin penk parents: diff changeset	923	searchRecursively isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	924	searchRecursively := true asValue.
321c1729db5b initial checkin penk parents: diff changeset	925	].
321c1729db5b initial checkin penk parents: diff changeset	926	^ searchRecursively.
321c1729db5b initial checkin penk parents: diff changeset	927	!
321c1729db5b initial checkin penk parents: diff changeset	928
321c1729db5b initial checkin penk parents: diff changeset	929	searchResultTable
321c1729db5b initial checkin penk parents: diff changeset	930
321c1729db5b initial checkin penk parents: diff changeset	931	searchResultTable isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	932	searchResultTable := self class searchResultTable asValue.
321c1729db5b initial checkin penk parents: diff changeset	933	].
321c1729db5b initial checkin penk parents: diff changeset	934	^ searchResultTable.
321c1729db5b initial checkin penk parents: diff changeset	935	!
321c1729db5b initial checkin penk parents: diff changeset	936
321c1729db5b initial checkin penk parents: diff changeset	937	selectionHolder
321c1729db5b initial checkin penk parents: diff changeset	938
321c1729db5b initial checkin penk parents: diff changeset	939	selectionHolder isNil ifTrue:[
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	940	selectionHolder := ValueHolder new.
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	941	selectionHolder addDependent:self.
3892 321c1729db5b initial checkin penk parents: diff changeset	942	].
321c1729db5b initial checkin penk parents: diff changeset	943	^ selectionHolder
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	944	!
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	945
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	946	useGrep
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	947	useGrep isNil ifTrue:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	948	useGrep := false asValue.
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	949	].
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	950	^ useGrep.
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	951	!
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	952
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	953	useLocate
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	954	useLocate isNil ifTrue:[
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	955	useLocate := false asValue.
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	956	].
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	957	^ useLocate.
3892 321c1729db5b initial checkin penk parents: diff changeset	958	! !
321c1729db5b initial checkin penk parents: diff changeset	959
321c1729db5b initial checkin penk parents: diff changeset	960	!FindFileApplication methodsFor:'change & update'!
321c1729db5b initial checkin penk parents: diff changeset	961
321c1729db5b initial checkin penk parents: diff changeset	962	update:something with:aParameter from:changedObject
321c1729db5b initial checkin penk parents: diff changeset	963	changedObject == self resultList ifTrue:[
4798 5db46dcc8a43 code cleanup Claus Gittinger <cg@exept.de> parents: 4797 diff changeset	964	self hasListEntries value:(changedObject notEmpty).
3892 321c1729db5b initial checkin penk parents: diff changeset	965	^ self
321c1729db5b initial checkin penk parents: diff changeset	966	].
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	967	changedObject == self selectionHolder ifTrue:[
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	968	self selectInBrowser.
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	969	^ self
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	970	].
3892 321c1729db5b initial checkin penk parents: diff changeset	971	super update:something with:aParameter from:changedObject
321c1729db5b initial checkin penk parents: diff changeset	972	! !
321c1729db5b initial checkin penk parents: diff changeset	973
321c1729db5b initial checkin penk parents: diff changeset	974	!FindFileApplication methodsFor:'event handling'!
321c1729db5b initial checkin penk parents: diff changeset	975
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	976	fileDoubleClick:entries
5677 4aea2e3fd1e3 warn if file is not existing (in doubleClick) Claus Gittinger <cg@exept.de> parents: 5603 diff changeset	977	\|file fn app openedAppl contentsPattern\|
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	978
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	979	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	980	fn := file asFilename.
4aea2e3fd1e3 warn if file is not existing (in doubleClick) Claus Gittinger <cg@exept.de> parents: 5603 diff changeset	981	fn exists ifFalse:[
4aea2e3fd1e3 warn if file is not existing (in doubleClick) Claus Gittinger <cg@exept.de> parents: 5603 diff changeset	982	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	983	^ self
4aea2e3fd1e3 warn if file is not existing (in doubleClick) Claus Gittinger <cg@exept.de> parents: 5603 diff changeset	984	].
4aea2e3fd1e3 warn if file is not existing (in doubleClick) Claus Gittinger <cg@exept.de> parents: 5603 diff changeset	985
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	986	app := targetApplication ? self masterApplication.
5279 165a7b841a86 open directories found penk parents: 5252 diff changeset	987	file asFilename isDirectory ifTrue:[
165a7b841a86 open directories found penk parents: 5252 diff changeset	988	app gotoFile:(file asFilename).
165a7b841a86 open directories found penk parents: 5252 diff changeset	989	^ self.
165a7b841a86 open directories found penk parents: 5252 diff changeset	990	].
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	991	app notNil ifTrue:[
4145 08d6561f7639 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4101 diff changeset	992	openedAppl := app openApplForFile:file.
5279 165a7b841a86 open directories found penk parents: 5252 diff changeset	993	(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	994	contentsPattern := self contentsPatternHolder value.
08d6561f7639 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4101 diff changeset	995	(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	996	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	997	]
08d6561f7639 on doubleclick after search the file is opened and searchPatternStrin is selected penk parents: 4101 diff changeset	998	].
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	999	] ifFalse:[
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	1000	self openInNewBrowser.
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	1001	]
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	1002	!
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	1003
3892 321c1729db5b initial checkin penk parents: diff changeset	1004	processEvent:anEvent
321c1729db5b initial checkin penk parents: diff changeset	1005	"filter keyboard events.
321c1729db5b initial checkin penk parents: diff changeset	1006	Return true, if I have eaten the event"
321c1729db5b initial checkin penk parents: diff changeset	1007
321c1729db5b initial checkin penk parents: diff changeset	1008	\|focusView key rawKey\|
321c1729db5b initial checkin penk parents: diff changeset	1009
321c1729db5b initial checkin penk parents: diff changeset	1010	anEvent isKeyPressEvent ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1011	focusView := anEvent targetView.
321c1729db5b initial checkin penk parents: diff changeset	1012	key := anEvent key.
321c1729db5b initial checkin penk parents: diff changeset	1013	rawKey := anEvent rawKey.
321c1729db5b initial checkin penk parents: diff changeset	1014
321c1729db5b initial checkin penk parents: diff changeset	1015	(focusView isSameOrComponentOf:self window) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1016	(key == #Return) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1017	(focusView name ~= 'selectionInListView') ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1018	self doSearch.
321c1729db5b initial checkin penk parents: diff changeset	1019	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	1020	self hasOneFileSelected ifTrue:[
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	1021	self fileDoubleClick:(self selectionHolder value)
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	1022	"/ self isEmbeddedApplication ifTrue:[
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	1023	"/ self selectInBrowser.
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	1024	"/ ] ifFalse:[
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	1025	"/ self openInNewBrowser.
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	1026	"/ ]
3892 321c1729db5b initial checkin penk parents: diff changeset	1027	]
321c1729db5b initial checkin penk parents: diff changeset	1028	].
321c1729db5b initial checkin penk parents: diff changeset	1029	^ true
321c1729db5b initial checkin penk parents: diff changeset	1030	].
321c1729db5b initial checkin penk parents: diff changeset	1031	]
321c1729db5b initial checkin penk parents: diff changeset	1032	].
321c1729db5b initial checkin penk parents: diff changeset	1033	^ false
321c1729db5b initial checkin penk parents: diff changeset	1034	! !
321c1729db5b initial checkin penk parents: diff changeset	1035
321c1729db5b initial checkin penk parents: diff changeset	1036	!FindFileApplication methodsFor:'private'!
321c1729db5b initial checkin penk parents: diff changeset	1037
321c1729db5b initial checkin penk parents: diff changeset	1038	changeExtentToSeeSearchResult
321c1729db5b initial checkin penk parents: diff changeset	1039
321c1729db5b initial checkin penk parents: diff changeset	1040	\| extent window\|
321c1729db5b initial checkin penk parents: diff changeset	1041
321c1729db5b initial checkin penk parents: diff changeset	1042	expanded isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1043	window := self builder window.
321c1729db5b initial checkin penk parents: diff changeset	1044	window ifNotNil:[
321c1729db5b initial checkin penk parents: diff changeset	1045	window := window topView.
321c1729db5b initial checkin penk parents: diff changeset	1046	extent := window extent.
321c1729db5b initial checkin penk parents: diff changeset	1047	window extent:((extent x) @ (extent y + 300)).
321c1729db5b initial checkin penk parents: diff changeset	1048	expanded := true.
321c1729db5b initial checkin penk parents: diff changeset	1049	window containerChangedSize.
321c1729db5b initial checkin penk parents: diff changeset	1050	].
321c1729db5b initial checkin penk parents: diff changeset	1051	].
321c1729db5b initial checkin penk parents: diff changeset	1052	! !
321c1729db5b initial checkin penk parents: diff changeset	1053
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1054	!FindFileApplication methodsFor:'private - searching'!
3892 321c1729db5b initial checkin penk parents: diff changeset	1055
5231 d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	1056	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	1057	containingString:contentsStringArg ignoreCaseInContents:ignCaseInContents
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	1058	notContainingString:notContentsStringArg ignoreCaseInNotContents:ignCaseInNotContents
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	1059	sameContentsAsFile:filenameToCompareContentsOrNil sameContentsAs:bytesToCompareContentsOrNil in:aDirectory
3892 321c1729db5b initial checkin penk parents: diff changeset	1060
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1061	\|dir nameMatches lines contentsToCompare list inStream
5601 08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1062	doesFileMatch contentsString notContentsString check checkNot
5768 18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1063	grepCommand nameMatch fileSizesToSearchFor filesToSearchFor fileMD5sToSearchFor remember
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1064	cache fn\|
5231 d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	1065
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	1066	contentsString := contentsStringArg.
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	1067	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	1068	notContentsString := notContentsStringArg.
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	1069	ignCaseInNotContents ifTrue:[ notContentsString := notContentsString asLowercase ].
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1070
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1071	filenameToCompareContentsOrNil notNil ifTrue:[
5768 18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1072
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1073	fileSizesToSearchFor := OrderedCollection new.
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1074	filesToSearchFor := OrderedCollection new.
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1075	fileMD5sToSearchFor := OrderedCollection new.
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1076
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1077	filenameToCompareContentsOrNil includesMatchCharacters ifTrue:[
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1078	dir := filenameToCompareContentsOrNil asFilename.
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1079	[dir pathName includesMatchCharacters] whileTrue:[
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1080	dir := dir directory
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1081	].
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1082	dir recursiveDirectoryContentsDo:[:relName \|
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1083	\|path fn\|
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1084
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1085	fn := dir construct:relName.
5770 2b3f1705ed84 * empty log message * Claus Gittinger <cg@exept.de> parents: 5769 diff changeset	1086	(filenameToCompareContentsOrNil match:fn name) ifTrue:[
5768 18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1087	fileSizesToSearchFor add:(fn fileSize).
5771 ba11ead45024 * empty log message * Claus Gittinger <cg@exept.de> parents: 5770 diff changeset	1088	filesToSearchFor add:(fn name).
5768 18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1089	fileMD5sToSearchFor add:(MD5Stream hashValueOfFile:fn).
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1090	]
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1091	].
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1092	] ifFalse:[
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1093	fn := filenameToCompareContentsOrNil asFilename.
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1094	fileSizesToSearchFor add:(fn fileSize).
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1095	filesToSearchFor add:(fn pathName).
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1096	fileMD5sToSearchFor add:(MD5Stream hashValueOfFile:fn).
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1097	].
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1098
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1099	remember := self rememberInCache value.
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1100	remember ifTrue:[
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1101	ContentsInfoCache isNil ifTrue:[
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1102	ContentsInfoCache := Dictionary new.
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1103	]
5727 2e272a545f8d * empty log message * Claus Gittinger <cg@exept.de> parents: 5726 diff changeset	1104	] ifFalse:[
2e272a545f8d * empty log message * Claus Gittinger <cg@exept.de> parents: 5726 diff changeset	1105	ContentsInfoCache := nil
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1106	].
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1107	].
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1108	cache := ContentsInfoCache.
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1109
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1110	dir := aDirectory asFilename.
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1111	self changeInformationTo:'Find File ' , '- searching .' , ((dir name) copyFrom:(self searchDirectoryHolder value asString size + 1)) toTab:false.
3892 321c1729db5b initial checkin penk parents: diff changeset	1112
321c1729db5b initial checkin penk parents: diff changeset	1113	list := self resultList.
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1114
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1115	filenameToCompareContentsOrNil notNil ifTrue:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1116	doesFileMatch :=
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1117	[:f \|
5768 18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1118	\|contentsMatches fileMD5 fileName fileSize cacheLine idxInList\|
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1119
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1120	"/ contents compare ...
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1121	contentsMatches := false.
5771 ba11ead45024 * empty log message * Claus Gittinger <cg@exept.de> parents: 5770 diff changeset	1122	fileName := f name.
5773 6c5f260f3a5c * empty log message * Claus Gittinger <cg@exept.de> parents: 5771 diff changeset	1123	(filesToSearchFor includes:fileName) ifFalse:[
5727 2e272a545f8d * empty log message * Claus Gittinger <cg@exept.de> parents: 5726 diff changeset	1124	cache notNil ifTrue:[
2e272a545f8d * empty log message * Claus Gittinger <cg@exept.de> parents: 5726 diff changeset	1125	cacheLine := cache at:fileName ifAbsent:nil.
2e272a545f8d * empty log message * Claus Gittinger <cg@exept.de> parents: 5726 diff changeset	1126	cacheLine notNil ifTrue:[
2e272a545f8d * empty log message * Claus Gittinger <cg@exept.de> parents: 5726 diff changeset	1127	fileSize := cacheLine at:1.
2e272a545f8d * empty log message * Claus Gittinger <cg@exept.de> parents: 5726 diff changeset	1128	fileMD5 := cacheLine at:2.
2e272a545f8d * empty log message * Claus Gittinger <cg@exept.de> parents: 5726 diff changeset	1129	].
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1130	].
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1131	fileSize isNil ifTrue:[
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1132	fileSize := f fileSize.
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1133	].
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1134	remember ifTrue:[
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1135	cacheLine := cache at:fileName ifAbsentPut:[Array new:2].
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1136	cacheLine at:1 put:fileSize.
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1137	].
5768 18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1138	(idxInList := fileSizesToSearchFor indexOf:fileSize) ~~ 0 ifTrue:[
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1139	fileMD5 isNil ifTrue:[
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1140	fileMD5 := MD5Stream hashValueOfFile:f.
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 at:2 put:fileMD5
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1143	].
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1144	].
5768 18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1145	contentsMatches := (fileMD5 = (fileMD5sToSearchFor at:idxInList)).
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1146	"/ contentsToCompare isNil ifTrue:[
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1147	"/ filenameToCompareContentsOrNil fileSize < (512*1024) ifTrue:[
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1148	"/ contentsToCompare := filenameToCompareContentsOrNil binaryContentsOfEntireFile
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1149	"/ ]
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1150	"/ ].
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1151	"/ contentsToCompare isNil ifTrue:[
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1152	"/ "/ too large - compare block-wise ...
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1153	"/ contentsMatches := (filenameToCompareContentsOrNil sameContentsAs:f).
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1154	"/ ] ifFalse:[
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1155	"/ contentsMatches := contentsToCompare = (f binaryContentsOfEntireFile).
dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1156	"/ ]
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1157	].
5773 6c5f260f3a5c * empty log message * Claus Gittinger <cg@exept.de> parents: 5771 diff changeset	1158	] ifTrue:[
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1159	f isSymbolicLink ifTrue:[
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1160	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	1161	]
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1162	].
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1163	contentsMatches
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1164	].
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1165	] ifFalse:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1166	(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	1167	doesFileMatch := [:f \| true].
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1168	] ifFalse:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1169	(self canUseGrep
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1170	and:[self useGrep value]) ifTrue:[
5601 08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1171	(ignCaseInContents not and:[ignCaseInNotContents not]) ifTrue:[
08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1172	contentsString notNil ifTrue:[
08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1173	notContentsString notNil ifTrue:[
08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1174	grepCommand := '(grep "',contentsString,'" %1) && (grep -v "',notContentsString,'" %1)'.
08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1175	] ifFalse:[
08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1176	grepCommand := 'grep "' , contentsString , '" %1'.
08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1177	].
08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1178	] ifFalse:[
08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1179	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	1180	].
5601 08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1181	doesFileMatch := [:f \| \|cmd ret\|
08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1182	cmd := grepCommand bindWith:f pathName.
08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1183	ret := OperatingSystem executeCommand:cmd.
08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1184	ret
08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1185	].
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1186	]
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1187	].
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1188
5601 08ab506e471d egrep search support Claus Gittinger <cg@exept.de> parents: 5600 diff changeset	1189	doesFileMatch isNil ifTrue:[
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1190	contentsString notNil ifTrue:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1191	ignCaseInContents ifTrue:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1192	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	1193	] ifFalse:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1194	check := [:l \| l includesString:contentsString]
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1195	].
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1196	].
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1197	notContentsString notNil ifTrue:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1198	ignCaseInNotContents ifTrue:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1199	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	1200	] ifFalse:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1201	checkNot := [:l \| l includesString:notContentsString]
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	].
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1204
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1205	doesFileMatch :=
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1206	[:f \|
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1207	\|contentsMatches\|
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1208
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1209	"/ string search ...
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1210	contentsMatches := true.
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1211	(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	1212	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	1213	] ifTrue:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1214	f fileSize > (4024*1024) ifTrue:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1215	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	1216	] ifFalse:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1217	Stream lineTooLongErrorSignal handle:[:ex \|
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1218	\|cont\|
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1219
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1220	"/ 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	1221	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	1222	check notNil ifTrue:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1223	checkNot isNil ifTrue:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1224	contentsMatches := check value:cont
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1225	] ifFalse:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1226	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	1227	]
5231 d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	1228	] ifFalse:[
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1229	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	1230	].
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1231	] do:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1232	lines := f contents ? #().
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1233	check notNil ifTrue:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1234	checkNot isNil ifTrue:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1235	contentsMatches := (lines contains:check).
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1236	] ifFalse:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1237	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	1238	]
5231 d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	1239	] ifFalse:[
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1240	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	1241	].
d74730347ed8 added option to search for file NOT containing a string Claus Gittinger <cg@exept.de> parents: 5224 diff changeset	1242	].
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1243	].
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1244	].
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1245	contentsMatches
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1246	].
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1247	].
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1248	].
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 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
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1252	(self canUseLocate
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1253	and:[self useLocate value
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1254	and:[searchDirectories not]])
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1255	ifTrue:[
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1256	[
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1257	\|cmd line f\|
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	cmd := 'locate '.
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1260	ignCaseInName ifTrue:[
5408 64a874a3ef4b * empty log message * Claus Gittinger <cg@exept.de> parents: 5279 diff changeset	1261	cmd := cmd , '--ignore-case '
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1262	].
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 := 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	1265	asStringCollection asStringWith:Character space).
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1266	inStream := PipeStream readingFrom:cmd inDirectory:dir.
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1267	[inStream atEnd] whileFalse:[
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1268	line := inStream nextLine.
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	f := line asFilename.
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1271	(doesFileMatch value:f) ifTrue:[
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1272	list add:line.
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1273	]
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1274	].
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1275	] ensure:[
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1276	inStream notNil ifTrue:[inStream close].
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1277	].
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1278	^ self.
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1279	].
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1280
3892 321c1729db5b initial checkin penk parents: diff changeset	1281	bytesToCompareContentsOrNil notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1282	contentsToCompare := bytesToCompareContentsOrNil
321c1729db5b initial checkin penk parents: diff changeset	1283	].
321c1729db5b initial checkin penk parents: diff changeset	1284
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1285	namePatterns isNil ifTrue:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1286	nameMatch := [:fn \| true]
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1287	] ifFalse:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1288	ignCaseInName ifTrue:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1289	nameMatch := [:fn \|
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1290	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	1291	].
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1292	] ifFalse:[
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1293	nameMatch := [:fn \|
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1294	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	1295	].
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1296	].
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1297	].
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1298
5726 464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1299	filenameToCompareContentsOrNil notNil ifTrue:[
5727 2e272a545f8d * empty log message * Claus Gittinger <cg@exept.de> parents: 5726 diff changeset	1300	self searchOnlyInCache value ifTrue:[
5726 464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1301	cache notEmptyOrNil ifTrue:[
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1302	cache keysAndValuesDo:[:fn :info \|
5768 18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1303	\|filesSize filesMD5 idxInList\|
5727 2e272a545f8d * empty log message * Claus Gittinger <cg@exept.de> parents: 5726 diff changeset	1304
5726 464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1305	filesSize := info at:1.
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1306	filesSize isNil ifTrue:[
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1307	filesSize := fn asFilename fileSize.
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1308	info at:1 put:filesSize.
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1309	].
5768 18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1310	(idxInList := fileSizesToSearchFor indexOf:filesSize) ~~ 0 ifTrue:[
18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1311	(filesToSearchFor includes:fn) not ifTrue:[
5729 752d89ffb83e * empty log message * Claus Gittinger <cg@exept.de> parents: 5728 diff changeset	1312	fn asFilename exists ifFalse:[
752d89ffb83e * empty log message * Claus Gittinger <cg@exept.de> parents: 5728 diff changeset	1313	info at:1 put:nil.
752d89ffb83e * empty log message * Claus Gittinger <cg@exept.de> parents: 5728 diff changeset	1314	info at:2 put:nil.
752d89ffb83e * empty log message * Claus Gittinger <cg@exept.de> parents: 5728 diff changeset	1315	] ifTrue:[
752d89ffb83e * empty log message * Claus Gittinger <cg@exept.de> parents: 5728 diff changeset	1316	filesMD5 := info at:2.
752d89ffb83e * empty log message * Claus Gittinger <cg@exept.de> parents: 5728 diff changeset	1317	filesMD5 isNil ifTrue:[
752d89ffb83e * empty log message * Claus Gittinger <cg@exept.de> parents: 5728 diff changeset	1318	filesMD5 := MD5Stream hashValueOfFile:fn asFilename.
752d89ffb83e * empty log message * Claus Gittinger <cg@exept.de> parents: 5728 diff changeset	1319	info at:2 put:filesMD5.
752d89ffb83e * empty log message * Claus Gittinger <cg@exept.de> parents: 5728 diff changeset	1320	].
5768 18f6e4033412 multisearch Claus Gittinger <cg@exept.de> parents: 5767 diff changeset	1321	filesMD5 = (fileMD5sToSearchFor at:idxInList) ifTrue:[
5728 93ac88c7f87d * empty log message * Claus Gittinger <cg@exept.de> parents: 5727 diff changeset	1322	list add:fn.
93ac88c7f87d * empty log message * Claus Gittinger <cg@exept.de> parents: 5727 diff changeset	1323	]
5727 2e272a545f8d * empty log message * Claus Gittinger <cg@exept.de> parents: 5726 diff changeset	1324	]
5726 464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1325	]
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1326	]
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1327	].
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1328	].
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1329	^ self.
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1330	].
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1331	].
464df1753187 fast cache search added Claus Gittinger <cg@exept.de> parents: 5723 diff changeset	1332
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1333	self
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1334	doFindFileNamed:namePatterns
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1335	directories:searchDirectories
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1336	nameMatch:nameMatch
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1337	contentsMatch:doesFileMatch
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1338	in:dir.
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1339	!
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1340
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1341	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	1342	\|dir subDirs list directoryContents\|
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1343
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1344	dir := aDirectory asFilename.
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1345	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	1346
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1347	list := self resultList.
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1348
3892 321c1729db5b initial checkin penk parents: diff changeset	1349	subDirs := OrderedCollection new.
321c1729db5b initial checkin penk parents: diff changeset	1350
4638 79734f7bdfc4 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4518 diff changeset	1351	[
79734f7bdfc4 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4518 diff changeset	1352	directoryContents := dir directoryContents.
79734f7bdfc4 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4518 diff changeset	1353	] on:FileStream openErrorSignal do:[:ex\|
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1354	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	1355	"/ 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	1356	"/ bindWith:ex parameter printString
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1357	"/ with:ex description) withCRs.
4638 79734f7bdfc4 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4518 diff changeset	1358	^ self
79734f7bdfc4 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4518 diff changeset	1359	].
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1360
4638 79734f7bdfc4 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4518 diff changeset	1361	directoryContents sort do:[:fn \|
4518 85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	1362	\|f isDirectory\|
3892 321c1729db5b initial checkin penk parents: diff changeset	1363
321c1729db5b initial checkin penk parents: diff changeset	1364	f := dir construct:fn.
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1365
4518 85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	1366	isDirectory := f isDirectory.
85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	1367	isDirectory ifTrue:[
3892 321c1729db5b initial checkin penk parents: diff changeset	1368	f isSymbolicLink ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	1369	subDirs add:f
321c1729db5b initial checkin penk parents: diff changeset	1370	]
4518 85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	1371	].
85b13890d7b1 allow to search for directories Claus Gittinger <cg@exept.de> parents: 4336 diff changeset	1372	(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	1373	(nameMatch value:fn) ifTrue:[
5176 b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1374	(isDirectory or:[ doesFileMatch value:f ])
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1375	ifTrue:[
b76af7e92feb option to use locate for faster search Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	1376	list add:(f asString).
3892 321c1729db5b initial checkin penk parents: diff changeset	1377	]
321c1729db5b initial checkin penk parents: diff changeset	1378	]
321c1729db5b initial checkin penk parents: diff changeset	1379	]
321c1729db5b initial checkin penk parents: diff changeset	1380	].
321c1729db5b initial checkin penk parents: diff changeset	1381
321c1729db5b initial checkin penk parents: diff changeset	1382	self searchRecursively value ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1383	subDirs do:[:dir \|
321c1729db5b initial checkin penk parents: diff changeset	1384	self
321c1729db5b initial checkin penk parents: diff changeset	1385	doFindFileNamed:namePatterns
5600 4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1386	directories:searchDirectories
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1387	nameMatch:nameMatch
4e7bca968c09 findFile code cleanup (and speedup by factor of 2) Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	1388	contentsMatch:doesFileMatch
3892 321c1729db5b initial checkin penk parents: diff changeset	1389	in:dir
321c1729db5b initial checkin penk parents: diff changeset	1390	].
321c1729db5b initial checkin penk parents: diff changeset	1391	]
321c1729db5b initial checkin penk parents: diff changeset	1392	! !
321c1729db5b initial checkin penk parents: diff changeset	1393
321c1729db5b initial checkin penk parents: diff changeset	1394	!FindFileApplication methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	1395
321c1729db5b initial checkin penk parents: diff changeset	1396	getTabStringEnd
321c1729db5b initial checkin penk parents: diff changeset	1397
321c1729db5b initial checkin penk parents: diff changeset	1398	" get the tab string from the application list on the class side "
321c1729db5b initial checkin penk parents: diff changeset	1399
321c1729db5b initial checkin penk parents: diff changeset	1400	^ self fileName directory asString
321c1729db5b initial checkin penk parents: diff changeset	1401	!
321c1729db5b initial checkin penk parents: diff changeset	1402
321c1729db5b initial checkin penk parents: diff changeset	1403	hasOneFileSelected
321c1729db5b initial checkin penk parents: diff changeset	1404	\| sel \|
321c1729db5b initial checkin penk parents: diff changeset	1405	sel := self selectionHolder value.
321c1729db5b initial checkin penk parents: diff changeset	1406	^ (sel notNil and:[sel notEmpty and:[sel size = 1]])
321c1729db5b initial checkin penk parents: diff changeset	1407	!
321c1729db5b initial checkin penk parents: diff changeset	1408
321c1729db5b initial checkin penk parents: diff changeset	1409	hasSelectionInResultList
321c1729db5b initial checkin penk parents: diff changeset	1410	\| sel \|
321c1729db5b initial checkin penk parents: diff changeset	1411	sel := self selectionHolder value.
321c1729db5b initial checkin penk parents: diff changeset	1412	^ (sel notNil and:[sel notEmpty])
321c1729db5b initial checkin penk parents: diff changeset	1413	! !
321c1729db5b initial checkin penk parents: diff changeset	1414
321c1729db5b initial checkin penk parents: diff changeset	1415	!FindFileApplication methodsFor:'startup & release'!
321c1729db5b initial checkin penk parents: diff changeset	1416
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 4798 diff changeset	1417	item:anItem
3892 321c1729db5b initial checkin penk parents: diff changeset	1418
4797 6e16a84c6bb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 4638 diff changeset	1419	\|file newPattern\|
3892 321c1729db5b initial checkin penk parents: diff changeset	1420
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 4798 diff changeset	1421	super item:anItem.
4797 6e16a84c6bb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 4638 diff changeset	1422
3892 321c1729db5b initial checkin penk parents: diff changeset	1423	file := self fileName.
321c1729db5b initial checkin penk parents: diff changeset	1424	self searchDirectoryHolder value:(self getDirWithoutFileName:file).
4797 6e16a84c6bb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 4638 diff changeset	1425
3892 321c1729db5b initial checkin penk parents: diff changeset	1426	file isDirectory ifTrue:[
4797 6e16a84c6bb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 4638 diff changeset	1427	newPattern := '*'.
3892 321c1729db5b initial checkin penk parents: diff changeset	1428	] ifFalse:[
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 4798 diff changeset	1429	newPattern := '*.', anItem suffix.
3892 321c1729db5b initial checkin penk parents: diff changeset	1430	].
4797 6e16a84c6bb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 4638 diff changeset	1431	self namePatternHolder value:newPattern.
3892 321c1729db5b initial checkin penk parents: diff changeset	1432	self enableStop value:false.
321c1729db5b initial checkin penk parents: diff changeset	1433	self enableSearch value:true.
321c1729db5b initial checkin penk parents: diff changeset	1434	^ true.
321c1729db5b initial checkin penk parents: diff changeset	1435	!
321c1729db5b initial checkin penk parents: diff changeset	1436
321c1729db5b initial checkin penk parents: diff changeset	1437	postOpenWith:aBuilder
321c1729db5b initial checkin penk parents: diff changeset	1438
321c1729db5b initial checkin penk parents: diff changeset	1439	self masterApplication isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1440	self masterApplication:nil.
321c1729db5b initial checkin penk parents: diff changeset	1441	].
321c1729db5b initial checkin penk parents: diff changeset	1442	findFileView := aBuilder window.
321c1729db5b initial checkin penk parents: diff changeset	1443	self windowGroup addPreEventHook:self.
321c1729db5b initial checkin penk parents: diff changeset	1444	^ super postOpenWith:aBuilder.
321c1729db5b initial checkin penk parents: diff changeset	1445	!
321c1729db5b initial checkin penk parents: diff changeset	1446
321c1729db5b initial checkin penk parents: diff changeset	1447	release
321c1729db5b initial checkin penk parents: diff changeset	1448
321c1729db5b initial checkin penk parents: diff changeset	1449	self stopSearchTask.
5723 dadcb827b659 more search Claus Gittinger <cg@exept.de> parents: 5677 diff changeset	1450	ContentsInfoCache := nil.
3892 321c1729db5b initial checkin penk parents: diff changeset	1451	^ super release
321c1729db5b initial checkin penk parents: diff changeset	1452	! !
321c1729db5b initial checkin penk parents: diff changeset	1453
321c1729db5b initial checkin penk parents: diff changeset	1454	!FindFileApplication class methodsFor:'documentation'!
321c1729db5b initial checkin penk parents: diff changeset	1455
321c1729db5b initial checkin penk parents: diff changeset	1456	version
5776 eeed51463ec1 priority Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	1457	^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.41 2004-03-20 14:24:00 cg Exp $'
3892 321c1729db5b initial checkin penk parents: diff changeset	1458	! !

author	Claus Gittinger <cg@exept.de>
	Sat, 20 Mar 2004 15:24:00 +0100
changeset 5776	eeed51463ec1
parent 5774	5a1d38bf8bdc
child 5786	3ae2d45d823f
permissions	-rw-r--r--