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

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

author	Claus Gittinger <cg@exept.de>
	Tue, 04 Jul 2006 11:41:55 +0200
changeset 6808	af925359c659
parent 6633	6843fedf7516
child 6810	5f8874df978f
permissions	-rw-r--r--