hg/stx-libtool: DirectoryContentsBrowser.st@7c94d9cad8b4 (annotated)

5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	1	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	2	COPYRIGHT (c) 2002 by eXept Software AG
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	3	All Rights Reserved
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	4
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	5	This software is furnished under a license and may be used
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 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: 5120 diff changeset	7	inclusion of the above copyright notice. This software may not
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	8	be provided or otherwise made available to, or used by, any
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	9	other person. No title to or ownership of the software is
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	10	hereby transferred.
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	11	"
3906 8a76cb4f5884 next stage penk parents: 3888 diff changeset	12	"{ Package: 'stx:libtool' }"
3887 81925afd23fd initial checkin penk parents: diff changeset	13
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	14	AbstractDirectoryBrowser subclass:#DirectoryContentsBrowser
5544 e5ccc9372d6b * empty log message * Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	15	instanceVariableNames:'modificationTime directory columnDescriptors iconIndex
e5ccc9372d6b * empty log message * Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	16	fileDescriptionIndex iconExtent tableColumns previewIndex
e5ccc9372d6b * empty log message * Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	17	draggedItem viewBrowserMenu updateContentsSelection
e5ccc9372d6b * empty log message * Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	18	selectionInFileList browserItemList matchBlock updateTask
e5ccc9372d6b * empty log message * Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	19	directoryChangeFlag directoryContentsChangeFlag filterChangeFlag
e5ccc9372d6b * empty log message * Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	20	sortBlockChangeFlag isBusy changeSema filteredItems allItems
5868 ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	21	diskUsageInfo diskUsageUpdateProcess multipleSelect
11445 7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	22	doubleClickAction updateCycleSemaphore updatingColumns accessLock'
5716 66d5e36a16d8 update if fileItem is modified penk parents: 5676 diff changeset	23	classVariableNames:'Debug'
5544 e5ccc9372d6b * empty log message * Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	24	poolDictionaries:''
e5ccc9372d6b * empty log message * Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	25	category:'Interface-Tools-File'
3887 81925afd23fd initial checkin penk parents: diff changeset	26	!
81925afd23fd initial checkin penk parents: diff changeset	27
81925afd23fd initial checkin penk parents: diff changeset	28	Object subclass:#DirectoryContentsItem
5544 e5ccc9372d6b * empty log message * Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	29	instanceVariableNames:'fileName fileInfo icon fileType
e5ccc9372d6b * empty log message * Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	30	contentsBrowserChangeModificationTime suffix preview group owner
10559 e36369957676 Directories are displayed in bold font for easier navigation vrany parents: 10300 diff changeset	31	timeAndDate mimeType iconKey mimeTypeForContents baseName'
5544 e5ccc9372d6b * empty log message * Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	32	classVariableNames:'LastUIDToUserNameMapping LastGIDToGroupNameMapping'
e5ccc9372d6b * empty log message * Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	33	poolDictionaries:''
e5ccc9372d6b * empty log message * Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	34	privateIn:DirectoryContentsBrowser
4017 30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	35	!
30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	36
3887 81925afd23fd initial checkin penk parents: diff changeset	37	!DirectoryContentsBrowser class methodsFor:'documentation'!
81925afd23fd initial checkin penk parents: diff changeset	38
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	39	copyright
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	40	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	41	COPYRIGHT (c) 2002 by eXept Software AG
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	42	All Rights Reserved
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	43
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	44	This software is furnished under a license and may be used
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	45	only in accordance with the terms of that license and with the
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	46	inclusion of the above copyright notice. This software may not
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	47	be provided or otherwise made available to, or used by, any
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	48	other person. No title to or ownership of the software is
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	49	hereby transferred.
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	50	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	51	!
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5120 diff changeset	52
3887 81925afd23fd initial checkin penk parents: diff changeset	53	documentation
81925afd23fd initial checkin penk parents: diff changeset	54	"
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	55	An application for displaying a directories' contents flat (or as a tree, alternatively).
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	56	To be used as a building block in file browsers and fileSelection dialogs.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	57	This is used as the top-right component in the new fileBrowser.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	58
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	59	[author:]
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	60	Christian Penk (penk@bierfix)
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	61
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	62	[see also:]
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	63	FileBrowserV2
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	64	"
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	65	!
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	66
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	67	examples
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	68	"
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	69	[exBegin]
5377 5b0ca5fafecd comments Stefan Vogel <sv@exept.de> parents: 5348 diff changeset	70	DirectoryContentsBrowser openIn:Filename currentDirectory
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	71	[exEnd]
3887 81925afd23fd initial checkin penk parents: diff changeset	72	"
81925afd23fd initial checkin penk parents: diff changeset	73	! !
81925afd23fd initial checkin penk parents: diff changeset	74
81925afd23fd initial checkin penk parents: diff changeset	75	!DirectoryContentsBrowser class methodsFor:'instance creation'!
81925afd23fd initial checkin penk parents: diff changeset	76
81925afd23fd initial checkin penk parents: diff changeset	77	openIn:aDirectory
5377 5b0ca5fafecd comments Stefan Vogel <sv@exept.de> parents: 5348 diff changeset	78	"open a standalone broser for a directory"
5b0ca5fafecd comments Stefan Vogel <sv@exept.de> parents: 5348 diff changeset	79
3887 81925afd23fd initial checkin penk parents: diff changeset	80	self openIn:aDirectory withDirectories:false
81925afd23fd initial checkin penk parents: diff changeset	81
5377 5b0ca5fafecd comments Stefan Vogel <sv@exept.de> parents: 5348 diff changeset	82	"
5b0ca5fafecd comments Stefan Vogel <sv@exept.de> parents: 5348 diff changeset	83	self openIn:'.cvsignore' asFilename
5b0ca5fafecd comments Stefan Vogel <sv@exept.de> parents: 5348 diff changeset	84	"
3887 81925afd23fd initial checkin penk parents: diff changeset	85	!
81925afd23fd initial checkin penk parents: diff changeset	86
81925afd23fd initial checkin penk parents: diff changeset	87	openIn:aDirectory withDirectories:withDirectoriesBoolean
5377 5b0ca5fafecd comments Stefan Vogel <sv@exept.de> parents: 5348 diff changeset	88	"open a broswer (standalone) for a directory"
5b0ca5fafecd comments Stefan Vogel <sv@exept.de> parents: 5348 diff changeset	89
3887 81925afd23fd initial checkin penk parents: diff changeset	90	\|browser\|
81925afd23fd initial checkin penk parents: diff changeset	91
5377 5b0ca5fafecd comments Stefan Vogel <sv@exept.de> parents: 5348 diff changeset	92	browser := self new.
3887 81925afd23fd initial checkin penk parents: diff changeset	93	browser open.
81925afd23fd initial checkin penk parents: diff changeset	94	aDirectory notNil ifTrue:[
5377 5b0ca5fafecd comments Stefan Vogel <sv@exept.de> parents: 5348 diff changeset	95	browser currentFileNameHolder value:(OrderedCollection with:aDirectory asFilename)
3887 81925afd23fd initial checkin penk parents: diff changeset	96	].
4202 1a518bcfa35a checkin from browser penk parents: 4176 diff changeset	97	browser viewDirsInContentsBrowser value:withDirectoriesBoolean.
1a518bcfa35a checkin from browser penk parents: 4176 diff changeset	98	^ browser
3887 81925afd23fd initial checkin penk parents: diff changeset	99
5377 5b0ca5fafecd comments Stefan Vogel <sv@exept.de> parents: 5348 diff changeset	100	"
5b0ca5fafecd comments Stefan Vogel <sv@exept.de> parents: 5348 diff changeset	101	self openIn:Filename currentDirectory withDirectories:true
5b0ca5fafecd comments Stefan Vogel <sv@exept.de> parents: 5348 diff changeset	102	"
3887 81925afd23fd initial checkin penk parents: diff changeset	103	! !
81925afd23fd initial checkin penk parents: diff changeset	104
81925afd23fd initial checkin penk parents: diff changeset	105	!DirectoryContentsBrowser class methodsFor:'classAccess'!
81925afd23fd initial checkin penk parents: diff changeset	106
81925afd23fd initial checkin penk parents: diff changeset	107	itemClass
81925afd23fd initial checkin penk parents: diff changeset	108
81925afd23fd initial checkin penk parents: diff changeset	109	^ DirectoryContentsItem
81925afd23fd initial checkin penk parents: diff changeset	110
81925afd23fd initial checkin penk parents: diff changeset	111
81925afd23fd initial checkin penk parents: diff changeset	112	"
81925afd23fd initial checkin penk parents: diff changeset	113	self itemClass
81925afd23fd initial checkin penk parents: diff changeset	114	"
81925afd23fd initial checkin penk parents: diff changeset	115	! !
81925afd23fd initial checkin penk parents: diff changeset	116
81925afd23fd initial checkin penk parents: diff changeset	117	!DirectoryContentsBrowser class methodsFor:'constant'!
81925afd23fd initial checkin penk parents: diff changeset	118
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	119	updateTaskCyleTime
11445 7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	120	"time to check for changed directories or changed columns
7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	121	(unless triggered by an action)"
7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	122
7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	123	^ 10 seconds
7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	124
7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	125	"Modified (comment): / 20-03-2012 / 12:26:40 / cg"
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	126	!
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	127
3887 81925afd23fd initial checkin penk parents: diff changeset	128	updateTaskPriority
5377 5b0ca5fafecd comments Stefan Vogel <sv@exept.de> parents: 5348 diff changeset	129	"priority of the update task"
5b0ca5fafecd comments Stefan Vogel <sv@exept.de> parents: 5348 diff changeset	130
3887 81925afd23fd initial checkin penk parents: diff changeset	131	^ 8
81925afd23fd initial checkin penk parents: diff changeset	132	! !
81925afd23fd initial checkin penk parents: diff changeset	133
3980 3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	134	!DirectoryContentsBrowser class methodsFor:'image specs'!
3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	135
4027 c662c75b6bf9 * empty log message * penk parents: 4026 diff changeset	136	detailsMenuIconDown
8998 9e82e5a0ea9a * empty log message * Claus Gittinger <cg@exept.de> parents: 8977 diff changeset	137	<resource: #programImage>
9e82e5a0ea9a * empty log message * Claus Gittinger <cg@exept.de> parents: 8977 diff changeset	138
9e82e5a0ea9a * empty log message * Claus Gittinger <cg@exept.de> parents: 8977 diff changeset	139	^ DataSetLabel sortReverseIndicator
3980 3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	140	!
3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	141
3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	142	detailsMenuIconR
3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	143	"This resource specification was automatically generated
3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	144	by the ImageEditor of ST/X."
3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	145
3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	146	"Do not manually edit this!! If it is corrupted,
3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	147	the ImageEditor may not be able to read the specification."
3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	148
3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	149	"
3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	150	self detailsMenuIconR inspect
3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	151	ImageEditor openOnClass:self andSelector:#detailsMenuIconR
3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	152	Icon flushCachedIcons
3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	153	"
3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	154
3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	155	<resource: #image>
3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	156
3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	157	^Icon
3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	158	constantNamed:#'DirectoryContentsBrowser class detailsMenuIconR'
3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	159	ifAbsentPut:[(Depth1Image new) width: 5; height: 7; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 5; height: 7; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' DB TJA@ @@a') ; yourself); yourself]
4027 c662c75b6bf9 * empty log message * penk parents: 4026 diff changeset	160	!
c662c75b6bf9 * empty log message * penk parents: 4026 diff changeset	161
c662c75b6bf9 * empty log message * penk parents: 4026 diff changeset	162	detailsMenuIconUp
8998 9e82e5a0ea9a * empty log message * Claus Gittinger <cg@exept.de> parents: 8977 diff changeset	163	<resource: #programImage>
9e82e5a0ea9a * empty log message * Claus Gittinger <cg@exept.de> parents: 8977 diff changeset	164
9e82e5a0ea9a * empty log message * Claus Gittinger <cg@exept.de> parents: 8977 diff changeset	165	^ DataSetLabel sortIndicator
4027 c662c75b6bf9 * empty log message * penk parents: 4026 diff changeset	166	! !
c662c75b6bf9 * empty log message * penk parents: 4026 diff changeset	167
c662c75b6bf9 * empty log message * penk parents: 4026 diff changeset	168	!DirectoryContentsBrowser class methodsFor:'interface specs'!
3980 3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	169
3887 81925afd23fd initial checkin penk parents: diff changeset	170	tableColumns
81925afd23fd initial checkin penk parents: diff changeset	171	"This resource specification was automatically generated
81925afd23fd initial checkin penk parents: diff changeset	172	by the DataSetBuilder of ST/X."
81925afd23fd initial checkin penk parents: diff changeset	173
81925afd23fd initial checkin penk parents: diff changeset	174	"Do not manually edit this!! If it is corrupted,
81925afd23fd initial checkin penk parents: diff changeset	175	the DataSetBuilder may not be able to read the specification."
81925afd23fd initial checkin penk parents: diff changeset	176
81925afd23fd initial checkin penk parents: diff changeset	177	"
81925afd23fd initial checkin penk parents: diff changeset	178	DataSetBuilder new openOnClass:DirectoryContentsBrowser andSelector:#tableColumns
81925afd23fd initial checkin penk parents: diff changeset	179	"
81925afd23fd initial checkin penk parents: diff changeset	180
81925afd23fd initial checkin penk parents: diff changeset	181	<resource: #tableColumns>
81925afd23fd initial checkin penk parents: diff changeset	182
81925afd23fd initial checkin penk parents: diff changeset	183	^#(
5312 63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	184	(DataSetColumnSpec
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	185	label: ''
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	186	labelButtonType: Group
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	187	width: 22
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	188	minWidth: 22
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	189	height: 16
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	190	model: icon
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	191	canSelect: false
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	192	showRowSeparator: false
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	193	showColSeparator: false
3887 81925afd23fd initial checkin penk parents: diff changeset	194	)
5312 63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	195	(DataSetColumnSpec
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	196	label: 'Filename'
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	197	labelAlignment: left
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	198	labelButtonType: Button
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	199	labelActionSelector: sortFileListsBy:
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	200	labelActionArgument: 'baseName'
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	201	minWidth: 150
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	202	model: baseName
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	203	canSelect: false
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	204	showRowSeparator: false
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	205	showColSeparator: false
3887 81925afd23fd initial checkin penk parents: diff changeset	206	)
5312 63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	207	(DataSetColumnSpec
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	208	label: 'Suffix'
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	209	labelAlignment: left
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	210	labelButtonType: Button
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	211	labelActionSelector: sortFileListsBy:
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	212	labelActionArgument: 'suffix'
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	213	usePreferredWidth: true
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	214	width: 40
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	215	model: suffix
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	216	canSelect: false
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	217	isResizeable: false
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	218	showRowSeparator: false
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	219	showColSeparator: false
3887 81925afd23fd initial checkin penk parents: diff changeset	220	)
5312 63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	221	(DataSetColumnSpec
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	222	label: 'Inode'
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	223	labelAlignment: left
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	224	labelButtonType: Button
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	225	labelActionSelector: sortFileListsBy:
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	226	labelActionArgument: 'inodeNumber'
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	227	usePreferredWidth: true
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	228	width: 75
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	229	model: inodeNumber
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	230	canSelect: false
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	231	isResizeable: false
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	232	showRowSeparator: false
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	233	showColSeparator: false
4976 86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	234	)
5312 63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	235	(DataSetColumnSpec
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	236	label: 'Perm'
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	237	labelAlignment: left
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	238	labelButtonType: Button
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	239	labelActionSelector: sortFileListsBy:
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	240	labelActionArgument: 'permissions'
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	241	usePreferredWidth: true
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	242	width: 75
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	243	model: permissions
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	244	canSelect: false
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	245	isResizeable: false
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	246	showRowSeparator: false
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	247	showColSeparator: false
3887 81925afd23fd initial checkin penk parents: diff changeset	248	)
5312 63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	249	(DataSetColumnSpec
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	250	label: 'Owner'
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	251	labelAlignment: left
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	252	labelButtonType: Button
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	253	labelActionSelector: sortFileListsBy:
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	254	labelActionArgument: 'owner'
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	255	usePreferredWidth: true
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	256	width: 50
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	257	model: owner
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	258	canSelect: false
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	259	showRowSeparator: false
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	260	showColSeparator: false
3887 81925afd23fd initial checkin penk parents: diff changeset	261	)
5312 63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	262	(DataSetColumnSpec
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	263	label: 'Group'
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	264	labelAlignment: left
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	265	labelButtonType: Button
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	266	labelActionSelector: sortFileListsBy:
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	267	labelActionArgument: 'group'
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	268	usePreferredWidth: true
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	269	width: 40
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	270	model: group
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	271	canSelect: false
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	272	showRowSeparator: false
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	273	showColSeparator: false
3887 81925afd23fd initial checkin penk parents: diff changeset	274	)
5312 63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	275	(DataSetColumnSpec
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	276	label: 'Size'
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	277	labelAlignment: right
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	278	labelButtonType: Button
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	279	labelActionSelector: sortFileListsBy:
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	280	labelActionArgument: 'fileSize'
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	281	columnAlignment: decimal
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	282	usePreferredWidth: true
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	283	minWidth: 45
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	284	model: sizeString
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	285	canSelect: false
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	286	showRowSeparator: false
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	287	showColSeparator: false
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	288	)
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	289	(DataSetColumnSpec
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	290	label: 'KB'
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	291	labelAlignment: right
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	292	labelButtonType: Button
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	293	labelActionSelector: sortFileListsBy:
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	294	labelActionArgument: 'fileSize'
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	295	columnAlignment: right
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	296	usePreferredWidth: true
5338 393edc0a849a * empty log message * Claus Gittinger <cg@exept.de> parents: 5334 diff changeset	297	minWidth: 50
5312 63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	298	model: sizeInKiloBytesString
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	299	canSelect: false
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	300	showRowSeparator: false
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	301	showColSeparator: false
3887 81925afd23fd initial checkin penk parents: diff changeset	302	)
5312 63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	303	(DataSetColumnSpec
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	304	label: 'Bytes'
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	305	labelAlignment: right
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	306	labelButtonType: Button
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	307	labelActionSelector: sortFileListsBy:
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	308	labelActionArgument: 'fileSize'
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	309	columnAlignment: right
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	310	usePreferredWidth: true
5338 393edc0a849a * empty log message * Claus Gittinger <cg@exept.de> parents: 5334 diff changeset	311	minWidth: 60
5312 63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	312	model: sizeInBytesString
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	313	canSelect: false
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	314	showRowSeparator: false
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	315	showColSeparator: false
4970 726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	316	)
5312 63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	317	(DataSetColumnSpec
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	318	label: 'Date & Time'
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	319	labelAlignment: right
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	320	labelButtonType: Button
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	321	labelActionSelector: sortFileListsBy:
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	322	labelActionArgument: 'modificationTime'
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	323	columnAlignment: right
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	324	usePreferredWidth: true
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	325	width: 140
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	326	model: timeAndDate
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	327	writeSelector: date:
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	328	canSelect: false
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	329	showRowSeparator: false
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	330	showColSeparator: false
3887 81925afd23fd initial checkin penk parents: diff changeset	331	)
5312 63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	332	(DataSetColumnSpec
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	333	label: 'File Info'
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	334	labelAlignment: left
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	335	labelButtonType: Button
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	336	labelActionSelector: sortFileListsBy:
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	337	labelActionArgument: 'fileType'
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	338	width: 250
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	339	model: fileInfoString
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	340	canSelect: false
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	341	showRowSeparator: false
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	342	showColSeparator: false
3887 81925afd23fd initial checkin penk parents: diff changeset	343	)
5312 63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	344	(DataSetColumnSpec
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	345	label: 'Pre +/-'
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	346	labelButtonType: Button
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	347	labelActionSelector: doResizeImage
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	348	labelActionArgument: ''
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	349	columnAlignment: center
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	350	width: 45
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	351	height: 16
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	352	model: preview
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	353	canSelect: false
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	354	showRowSeparator: false
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	355	showColSeparator: false
3887 81925afd23fd initial checkin penk parents: diff changeset	356	)
81925afd23fd initial checkin penk parents: diff changeset	357	)
4976 86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	358
3887 81925afd23fd initial checkin penk parents: diff changeset	359	!
81925afd23fd initial checkin penk parents: diff changeset	360
81925afd23fd initial checkin penk parents: diff changeset	361	windowSpec
81925afd23fd initial checkin penk parents: diff changeset	362	"This resource specification was automatically generated
81925afd23fd initial checkin penk parents: diff changeset	363	by the UIPainter of ST/X."
81925afd23fd initial checkin penk parents: diff changeset	364
81925afd23fd initial checkin penk parents: diff changeset	365	"Do not manually edit this!! If it is corrupted,
81925afd23fd initial checkin penk parents: diff changeset	366	the UIPainter may not be able to read the specification."
81925afd23fd initial checkin penk parents: diff changeset	367
81925afd23fd initial checkin penk parents: diff changeset	368	"
81925afd23fd initial checkin penk parents: diff changeset	369	UIPainter new openOnClass:DirectoryContentsBrowser andSelector:#windowSpec
81925afd23fd initial checkin penk parents: diff changeset	370	DirectoryContentsBrowser new openInterface:#windowSpec
81925afd23fd initial checkin penk parents: diff changeset	371	DirectoryContentsBrowser open
81925afd23fd initial checkin penk parents: diff changeset	372	"
81925afd23fd initial checkin penk parents: diff changeset	373
81925afd23fd initial checkin penk parents: diff changeset	374	<resource: #canvas>
81925afd23fd initial checkin penk parents: diff changeset	375
81925afd23fd initial checkin penk parents: diff changeset	376	^
5152 6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	377	#(FullSpec
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	378	name: windowSpec
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	379	window:
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	380	(WindowSpec
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	381	label: 'Directory ContentsBrowser'
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	382	name: 'Directory ContentsBrowser'
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	383	min: (Point 10 10)
5868 ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	384	bounds: (Rectangle 0 0 588 478)
5152 6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	385	menu: menu
3887 81925afd23fd initial checkin penk parents: diff changeset	386	)
5152 6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	387	component:
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	388	(SpecCollection
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	389	collection: (
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	390	(DataSetSpec
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	391	name: 'browser'
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	392	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	393	model: selectionInFileList
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	394	menu: directoryContentsBrowserMenu
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	395	hasHorizontalScrollBar: true
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	396	hasVerticalScrollBar: true
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	397	miniScrollerHorizontal: false
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	398	miniScrollerVertical: false
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	399	dataList: browserItemList
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	400	useIndex: false
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	401	has3Dsepartors: false
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	402	doubleClickSelector: doubleClickedAt:
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	403	columnHolder: tableColumns
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	404	multipleSelectOk: true
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	405	verticalSpacing: 0
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	406	columns:
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	407	(OrderedCollection
3887 81925afd23fd initial checkin penk parents: diff changeset	408
5152 6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	409	(DataSetColumnSpec
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	410	labelButtonType: Group
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	411	width: 22
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	412	minWidth: 22
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	413	height: 16
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	414	model: icon
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	415	canSelect: false
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	416	showRowSeparator: false
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	417	showColSeparator: false
3887 81925afd23fd initial checkin penk parents: diff changeset	418	)
5152 6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	419	(DataSetColumnSpec
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	420	label: 'file name'
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	421	labelAlignment: left
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	422	labelButtonType: Button
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	423	model: baseName
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	424	canSelect: false
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	425	showRowSeparator: false
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	426	showColSeparator: false
3887 81925afd23fd initial checkin penk parents: diff changeset	427	)
81925afd23fd initial checkin penk parents: diff changeset	428
5152 6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	429	(DataSetColumnSpec
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	430	label: '+/-'
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	431	labelButtonType: Button
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	432	labelActionSelector: doResizeImage
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	433	labelActionArgument: ''
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	434	columnAlignment: center
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	435	width: 30
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	436	height: 16
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	437	model: preview
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	438	canSelect: false
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	439	showRowSeparator: false
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	440	showSelectionHighLighted: false
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	441	showColSeparator: false
3887 81925afd23fd initial checkin penk parents: diff changeset	442	)
81925afd23fd initial checkin penk parents: diff changeset	443	)
5868 ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	444	doubleClickChannel: doDoubleClick:
5152 6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	445	postBuildCallback: postBuildBrowser:
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	446	properties:
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	447	(PropertyListDictionary
5868 ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	448	dropSelector: doDrop:
5152 6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	449	dragArgument: contentsbrowser
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	450	startDragSelector: doStartDrag:in:
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	451	displayObjectSelector: getDisplayObjects:
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	452	dropObjectSelector: getDropObjects:
5868 ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	453	overSelector: dropOver:
5152 6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	454	dropArgument: browser
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	455	canDropSelector: canDrop:
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	456	leaveSelector: dropLeave:
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	457	enterSelector: dropEnter:
3887 81925afd23fd initial checkin penk parents: diff changeset	458	)
81925afd23fd initial checkin penk parents: diff changeset	459	)
81925afd23fd initial checkin penk parents: diff changeset	460	)
81925afd23fd initial checkin penk parents: diff changeset	461
81925afd23fd initial checkin penk parents: diff changeset	462	)
81925afd23fd initial checkin penk parents: diff changeset	463	)
81925afd23fd initial checkin penk parents: diff changeset	464	! !
81925afd23fd initial checkin penk parents: diff changeset	465
81925afd23fd initial checkin penk parents: diff changeset	466	!DirectoryContentsBrowser class methodsFor:'menu specs'!
81925afd23fd initial checkin penk parents: diff changeset	467
81925afd23fd initial checkin penk parents: diff changeset	468	directoryContentsBrowserMenu
81925afd23fd initial checkin penk parents: diff changeset	469	"This resource specification was automatically generated
81925afd23fd initial checkin penk parents: diff changeset	470	by the MenuEditor of ST/X."
81925afd23fd initial checkin penk parents: diff changeset	471
81925afd23fd initial checkin penk parents: diff changeset	472	"Do not manually edit this!! If it is corrupted,
81925afd23fd initial checkin penk parents: diff changeset	473	the MenuEditor may not be able to read the specification."
81925afd23fd initial checkin penk parents: diff changeset	474
81925afd23fd initial checkin penk parents: diff changeset	475	"
81925afd23fd initial checkin penk parents: diff changeset	476	MenuEditor new openOnClass:DirectoryContentsBrowser andSelector:#directoryContentsBrowserMenu
81925afd23fd initial checkin penk parents: diff changeset	477	(Menu new fromLiteralArrayEncoding:(DirectoryContentsBrowser directoryContentsBrowserMenu)) startUp
81925afd23fd initial checkin penk parents: diff changeset	478	"
81925afd23fd initial checkin penk parents: diff changeset	479
81925afd23fd initial checkin penk parents: diff changeset	480	<resource: #menu>
81925afd23fd initial checkin penk parents: diff changeset	481
81925afd23fd initial checkin penk parents: diff changeset	482	^
5334 637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	483	#(Menu
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	484	(
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	485	(MenuItem
6594 cb70dc35308d menu reorganized Claus Gittinger <cg@exept.de> parents: 6463 diff changeset	486	enabled: hasSelection
cb70dc35308d menu reorganized Claus Gittinger <cg@exept.de> parents: 6463 diff changeset	487	label: 'Open'
cb70dc35308d menu reorganized Claus Gittinger <cg@exept.de> parents: 6463 diff changeset	488	itemValue: doShowFileContents
cb70dc35308d menu reorganized Claus Gittinger <cg@exept.de> parents: 6463 diff changeset	489	translateLabel: true
cb70dc35308d menu reorganized Claus Gittinger <cg@exept.de> parents: 6463 diff changeset	490	)
cb70dc35308d menu reorganized Claus Gittinger <cg@exept.de> parents: 6463 diff changeset	491	(MenuItem
cb70dc35308d menu reorganized Claus Gittinger <cg@exept.de> parents: 6463 diff changeset	492	enabled: hasSelection
cb70dc35308d menu reorganized Claus Gittinger <cg@exept.de> parents: 6463 diff changeset	493	label: 'FileIn'
cb70dc35308d menu reorganized Claus Gittinger <cg@exept.de> parents: 6463 diff changeset	494	itemValue: fileFileIn
cb70dc35308d menu reorganized Claus Gittinger <cg@exept.de> parents: 6463 diff changeset	495	translateLabel: true
cb70dc35308d menu reorganized Claus Gittinger <cg@exept.de> parents: 6463 diff changeset	496	)
cb70dc35308d menu reorganized Claus Gittinger <cg@exept.de> parents: 6463 diff changeset	497	(MenuItem
cb70dc35308d menu reorganized Claus Gittinger <cg@exept.de> parents: 6463 diff changeset	498	label: '-'
cb70dc35308d menu reorganized Claus Gittinger <cg@exept.de> parents: 6463 diff changeset	499	)
cb70dc35308d menu reorganized Claus Gittinger <cg@exept.de> parents: 6463 diff changeset	500	(MenuItem
5945 6b28c967dec5 menus Claus Gittinger <cg@exept.de> parents: 5935 diff changeset	501	label: 'New'
6b28c967dec5 menus Claus Gittinger <cg@exept.de> parents: 5935 diff changeset	502	translateLabel: true
6b28c967dec5 menus Claus Gittinger <cg@exept.de> parents: 5935 diff changeset	503	submenuChannel: newMenu
6b28c967dec5 menus Claus Gittinger <cg@exept.de> parents: 5935 diff changeset	504	keepLinkedMenu: true
6b28c967dec5 menus Claus Gittinger <cg@exept.de> parents: 5935 diff changeset	505	)
6b28c967dec5 menus Claus Gittinger <cg@exept.de> parents: 5935 diff changeset	506	(MenuItem
6b28c967dec5 menus Claus Gittinger <cg@exept.de> parents: 5935 diff changeset	507	label: '-'
6b28c967dec5 menus Claus Gittinger <cg@exept.de> parents: 5935 diff changeset	508	)
6b28c967dec5 menus Claus Gittinger <cg@exept.de> parents: 5935 diff changeset	509	(MenuItem
5334 637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	510	label: 'Cut'
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	511	itemValue: doCut
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	512	translateLabel: true
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	513	shortcutKey: Cut
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	514	)
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	515	(MenuItem
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	516	label: 'Copy'
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	517	itemValue: doCopy
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	518	translateLabel: true
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	519	shortcutKey: Copy
4615 cc32f33b6b60 cut-copy-paste is the correct order Claus Gittinger <cg@exept.de> parents: 4611 diff changeset	520	)
5334 637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	521	(MenuItem
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	522	enabled: canPaste
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	523	label: 'Paste'
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	524	itemValue: pasteFiles
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	525	translateLabel: true
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	526	shortcutKey: Paste
3887 81925afd23fd initial checkin penk parents: diff changeset	527	)
5334 637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	528	(MenuItem
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	529	label: 'Delete'
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	530	itemValue: doDelete
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	531	nameKey: delete
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	532	translateLabel: true
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	533	shortcutKey: Delete
3887 81925afd23fd initial checkin penk parents: diff changeset	534	)
5334 637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	535	(MenuItem
6286 fac153824f35 * empty log message * Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	536	label: 'Erase'
fac153824f35 * empty log message * Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	537	itemValue: doErase
fac153824f35 * empty log message * Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	538	nameKey: erase
fac153824f35 * empty log message * Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	539	translateLabel: true
fac153824f35 * empty log message * Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	540	)
fac153824f35 * empty log message * Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	541	(MenuItem
5334 637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	542	label: '-'
3887 81925afd23fd initial checkin penk parents: diff changeset	543	)
5334 637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	544	(MenuItem
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	545	enabled: hasSelection
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	546	label: 'Rename...'
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	547	itemValue: renameSelection
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	548	translateLabel: true
8715 b3cab0b56b9a Cmdr -> F2 Claus Gittinger <cg@exept.de> parents: 8658 diff changeset	549	shortcutKey: Rename
4534 60139c1a36e6 menu Claus Gittinger <cg@exept.de> parents: 4533 diff changeset	550	)
5334 637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	551	(MenuItem
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	552	enabled: hasSelection
6107 745d91a22e10 * empty log message * Claus Gittinger <cg@exept.de> parents: 6026 diff changeset	553	label: 'Move To...'
745d91a22e10 * empty log message * Claus Gittinger <cg@exept.de> parents: 6026 diff changeset	554	itemValue: moveSelectionTo
745d91a22e10 * empty log message * Claus Gittinger <cg@exept.de> parents: 6026 diff changeset	555	translateLabel: true
745d91a22e10 * empty log message * Claus Gittinger <cg@exept.de> parents: 6026 diff changeset	556	)
745d91a22e10 * empty log message * Claus Gittinger <cg@exept.de> parents: 6026 diff changeset	557	(MenuItem
745d91a22e10 * empty log message * Claus Gittinger <cg@exept.de> parents: 6026 diff changeset	558	enabled: hasSelection
745d91a22e10 * empty log message * Claus Gittinger <cg@exept.de> parents: 6026 diff changeset	559	label: 'Copy To...'
745d91a22e10 * empty log message * Claus Gittinger <cg@exept.de> parents: 6026 diff changeset	560	itemValue: copySelectionTo
5334 637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	561	translateLabel: true
3887 81925afd23fd initial checkin penk parents: diff changeset	562	)
5334 637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	563	(MenuItem
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	564	enabled: hasSelection
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	565	label: 'Properties...'
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	566	itemValue: doShowProperties
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	567	translateLabel: true
4376 e6e33ae8f78a fileIn is often req'd Claus Gittinger <cg@exept.de> parents: 4370 diff changeset	568	)
5334 637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	569	(MenuItem
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	570	label: '-'
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	571	)
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	572	(MenuItem
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	573	label: 'More'
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	574	translateLabel: true
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	575	submenu:
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	576	(Menu
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	577	(
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	578	(MenuItem
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	579	label: 'Select All'
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	580	itemValue: selectAll
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	581	translateLabel: true
4477 eee4d27eb958 menu item Claus Gittinger <cg@exept.de> parents: 4462 diff changeset	582	)
5334 637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	583	(MenuItem
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	584	label: '-'
4477 eee4d27eb958 menu item Claus Gittinger <cg@exept.de> parents: 4462 diff changeset	585	)
5334 637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	586	(MenuItem
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	587	enabled: fileListIsNotEmpty
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	588	label: 'Copy Filenames'
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	589	itemValue: copyFileList
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	590	translateLabel: true
3907 a06fe9db6195 next stage penk parents: 3906 diff changeset	591	)
5334 637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	592	(MenuItem
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	593	label: '-'
3907 a06fe9db6195 next stage penk parents: 3906 diff changeset	594	)
5334 637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	595	(MenuItem
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	596	enabled: hasFileSelection
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	597	label: 'FileIn to Namespace...'
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	598	itemValue: fileFileInToNameSpace
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	599	translateLabel: true
3907 a06fe9db6195 next stage penk parents: 3906 diff changeset	600	)
5334 637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	601	(MenuItem
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	602	label: '-'
3980 3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	603	)
5334 637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	604	(MenuItem
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	605	enabled: hasTwoFilesSelected
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	606	label: 'Compare with Each Other'
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	607	itemValue: doCompareTwoFiles
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	608	translateLabel: true
4415 311ffc07cab6 compare files - incomplete Claus Gittinger <cg@exept.de> parents: 4410 diff changeset	609	)
4376 e6e33ae8f78a fileIn is often req'd Claus Gittinger <cg@exept.de> parents: 4370 diff changeset	610	)
e6e33ae8f78a fileIn is often req'd Claus Gittinger <cg@exept.de> parents: 4370 diff changeset	611	nil
e6e33ae8f78a fileIn is often req'd Claus Gittinger <cg@exept.de> parents: 4370 diff changeset	612	nil
e6e33ae8f78a fileIn is often req'd Claus Gittinger <cg@exept.de> parents: 4370 diff changeset	613	)
e6e33ae8f78a fileIn is often req'd Claus Gittinger <cg@exept.de> parents: 4370 diff changeset	614	)
5334 637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	615	(MenuItem
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	616	label: 'Tools'
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	617	translateLabel: true
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	618	submenuChannel: toolsMenuSpec
5425 fed05f7926d7 do not destroy linked menues penk parents: 5404 diff changeset	619	keepLinkedMenu: true
4850 b2d7550e1914 tools-menu Claus Gittinger <cg@exept.de> parents: 4828 diff changeset	620	)
5334 637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	621	(MenuItem
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	622	label: '-'
4376 e6e33ae8f78a fileIn is often req'd Claus Gittinger <cg@exept.de> parents: 4370 diff changeset	623	)
5334 637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	624	(MenuItem
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	625	label: 'View'
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	626	translateLabel: true
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	627	submenu:
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	628	(Menu
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	629	(
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	630	(MenuItem
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	631	label: 'Details'
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	632	nameKey: View
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	633	translateLabel: true
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	634	submenuChannel: viewBrowserMenu
4376 e6e33ae8f78a fileIn is often req'd Claus Gittinger <cg@exept.de> parents: 4370 diff changeset	635	)
5334 637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	636	(MenuItem
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	637	label: 'Sort'
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	638	nameKey: Sort
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	639	translateLabel: true
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	640	submenuChannel: sortMenu
3907 a06fe9db6195 next stage penk parents: 3906 diff changeset	641	)
5334 637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	642	(MenuItem
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	643	label: 'Show'
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	644	translateLabel: true
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	645	submenu:
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	646	(Menu
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	647	(
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	648	(MenuItem
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	649	label: 'Hidden Files'
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	650	translateLabel: true
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	651	indication: showHiddenFiles
4415 311ffc07cab6 compare files - incomplete Claus Gittinger <cg@exept.de> parents: 4410 diff changeset	652	)
5334 637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	653	(MenuItem
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	654	label: 'Directories'
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	655	translateLabel: true
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	656	indication: viewDirsInContentsBrowser
4415 311ffc07cab6 compare files - incomplete Claus Gittinger <cg@exept.de> parents: 4410 diff changeset	657	)
4410 b1972ecceb2a popup menu Claus Gittinger <cg@exept.de> parents: 4404 diff changeset	658	)
b1972ecceb2a popup menu Claus Gittinger <cg@exept.de> parents: 4404 diff changeset	659	nil
b1972ecceb2a popup menu Claus Gittinger <cg@exept.de> parents: 4404 diff changeset	660	nil
b1972ecceb2a popup menu Claus Gittinger <cg@exept.de> parents: 4404 diff changeset	661	)
b1972ecceb2a popup menu Claus Gittinger <cg@exept.de> parents: 4404 diff changeset	662	)
3907 a06fe9db6195 next stage penk parents: 3906 diff changeset	663	)
a06fe9db6195 next stage penk parents: 3906 diff changeset	664	nil
a06fe9db6195 next stage penk parents: 3906 diff changeset	665	nil
a06fe9db6195 next stage penk parents: 3906 diff changeset	666	)
3887 81925afd23fd initial checkin penk parents: diff changeset	667	)
5334 637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	668	(MenuItem
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	669	label: '-'
3980 3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	670	)
5334 637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	671	(MenuItem
637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	672	label: 'Update'
5740 fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	673	itemValue: updateCurrentDirectoryWithReread
5334 637f49d94b1b move file(s) operation added Claus Gittinger <cg@exept.de> parents: 5321 diff changeset	674	translateLabel: true
3980 3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	675	)
3887 81925afd23fd initial checkin penk parents: diff changeset	676	)
81925afd23fd initial checkin penk parents: diff changeset	677	nil
81925afd23fd initial checkin penk parents: diff changeset	678	nil
81925afd23fd initial checkin penk parents: diff changeset	679	)
7636 965d7ee011d8 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7601 diff changeset	680
965d7ee011d8 +copyCorrupt Claus Gittinger <cg@exept.de> parents: 7601 diff changeset	681	"Modified: / 07-02-2007 / 18:44:44 / cg"
3887 81925afd23fd initial checkin penk parents: diff changeset	682	!
81925afd23fd initial checkin penk parents: diff changeset	683
81925afd23fd initial checkin penk parents: diff changeset	684	viewBrowserMenu
81925afd23fd initial checkin penk parents: diff changeset	685	"This resource specification was automatically generated
81925afd23fd initial checkin penk parents: diff changeset	686	by the MenuEditor of ST/X."
81925afd23fd initial checkin penk parents: diff changeset	687
81925afd23fd initial checkin penk parents: diff changeset	688	"Do not manually edit this!! If it is corrupted,
81925afd23fd initial checkin penk parents: diff changeset	689	the MenuEditor may not be able to read the specification."
81925afd23fd initial checkin penk parents: diff changeset	690
81925afd23fd initial checkin penk parents: diff changeset	691	"
81925afd23fd initial checkin penk parents: diff changeset	692	MenuEditor new openOnClass:DirectoryContentsBrowser andSelector:#viewBrowserMenu
81925afd23fd initial checkin penk parents: diff changeset	693	(Menu new fromLiteralArrayEncoding:(DirectoryContentsBrowser viewBrowserMenu)) startUp
81925afd23fd initial checkin penk parents: diff changeset	694	"
81925afd23fd initial checkin penk parents: diff changeset	695
4415 311ffc07cab6 compare files - incomplete Claus Gittinger <cg@exept.de> parents: 4410 diff changeset	696	<resource: #programMenu>
3887 81925afd23fd initial checkin penk parents: diff changeset	697
7764 54a93e4aff7b use decodeFromLiteralArray: Claus Gittinger <cg@exept.de> parents: 7714 diff changeset	698	^ Menu decodeFromLiteralArray:self viewBrowserMenuSpec
54a93e4aff7b use decodeFromLiteralArray: Claus Gittinger <cg@exept.de> parents: 7714 diff changeset	699
54a93e4aff7b use decodeFromLiteralArray: Claus Gittinger <cg@exept.de> parents: 7714 diff changeset	700	"Modified: / 27-03-2007 / 08:46:24 / cg"
3961 cc887842b5ca next stage penk parents: 3953 diff changeset	701	!
cc887842b5ca next stage penk parents: 3953 diff changeset	702
cc887842b5ca next stage penk parents: 3953 diff changeset	703	viewBrowserMenuSpec
cc887842b5ca next stage penk parents: 3953 diff changeset	704	"This resource specification was automatically generated
cc887842b5ca next stage penk parents: 3953 diff changeset	705	by the MenuEditor of ST/X."
cc887842b5ca next stage penk parents: 3953 diff changeset	706
cc887842b5ca next stage penk parents: 3953 diff changeset	707	"Do not manually edit this!! If it is corrupted,
cc887842b5ca next stage penk parents: 3953 diff changeset	708	the MenuEditor may not be able to read the specification."
cc887842b5ca next stage penk parents: 3953 diff changeset	709
cc887842b5ca next stage penk parents: 3953 diff changeset	710	"
4421 7e5d8ab16f4a checkin from browser penk parents: 4415 diff changeset	711	MenuEditor new openOnClass:DirectoryContentsBrowser andSelector:#viewBrowserMenuSpec
7e5d8ab16f4a checkin from browser penk parents: 4415 diff changeset	712	(Menu new fromLiteralArrayEncoding:(DirectoryContentsBrowser viewBrowserMenuSpec)) startUp
3961 cc887842b5ca next stage penk parents: 3953 diff changeset	713	"
cc887842b5ca next stage penk parents: 3953 diff changeset	714
cc887842b5ca next stage penk parents: 3953 diff changeset	715	<resource: #menu>
cc887842b5ca next stage penk parents: 3953 diff changeset	716
3887 81925afd23fd initial checkin penk parents: diff changeset	717	^
5740 fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	718	#(Menu
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	719	(
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	720	(MenuItem
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	721	label: 'Show Details'
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	722	translateLabel: true
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	723	hideMenuOnActivated: false
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	724	indication: viewDetails
3887 81925afd23fd initial checkin penk parents: diff changeset	725	)
5740 fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	726	(MenuItem
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	727	label: '-'
3984 6a54bf2c139a double click - index Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	728	)
5740 fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	729	(MenuItem
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	730	label: 'Icon'
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	731	translateLabel: true
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	732	hideMenuOnActivated: false
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	733	indication: viewIcon
4976 86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	734	)
5740 fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	735	(MenuItem
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	736	enabled: viewDetails
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	737	label: 'Suffix'
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	738	translateLabel: true
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	739	hideMenuOnActivated: false
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	740	indication: viewType
3887 81925afd23fd initial checkin penk parents: diff changeset	741	)
5740 fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	742	(MenuItem
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	743	enabled: viewDetails
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	744	label: 'Inode'
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	745	translateLabel: true
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	746	hideMenuOnActivated: false
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	747	indication: viewInodeNumber
4976 86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	748	)
5740 fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	749	(MenuItem
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	750	enabled: viewDetails
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	751	label: 'Permissions'
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	752	translateLabel: true
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	753	hideMenuOnActivated: false
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	754	indication: viewPermissions
3887 81925afd23fd initial checkin penk parents: diff changeset	755	)
5740 fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	756	(MenuItem
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	757	enabled: viewDetails
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	758	label: 'Owner'
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	759	translateLabel: true
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	760	isVisible: userContextAvailable
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	761	hideMenuOnActivated: false
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	762	indication: viewOwner
3887 81925afd23fd initial checkin penk parents: diff changeset	763	)
5740 fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	764	(MenuItem
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	765	enabled: viewDetails
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	766	label: 'Group'
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	767	translateLabel: true
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	768	isVisible: userContextAvailable
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	769	hideMenuOnActivated: false
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	770	indication: viewGroup
3887 81925afd23fd initial checkin penk parents: diff changeset	771	)
5740 fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	772	(MenuItem
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	773	enabled: viewDetails
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	774	label: 'Size'
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	775	translateLabel: true
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	776	hideMenuOnActivated: false
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	777	indication: viewSize
3887 81925afd23fd initial checkin penk parents: diff changeset	778	)
5740 fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	779	(MenuItem
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	780	enabled: viewDetails
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	781	label: 'Size (KByte)'
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	782	translateLabel: true
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	783	hideMenuOnActivated: false
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	784	indication: viewSizeInKiloBytes
5312 63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	785	)
5740 fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	786	(MenuItem
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	787	enabled: viewDetails
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	788	label: 'Size (Byte)'
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	789	translateLabel: true
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	790	hideMenuOnActivated: false
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	791	indication: viewSizeInBytes
4970 726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	792	)
5740 fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	793	(MenuItem
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	794	enabled: viewDetails
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	795	label: 'Date && Time'
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	796	translateLabel: true
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	797	hideMenuOnActivated: false
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	798	indication: viewTime
3887 81925afd23fd initial checkin penk parents: diff changeset	799	)
5740 fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	800	(MenuItem
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	801	enabled: viewDetails
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	802	label: 'File Info'
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	803	translateLabel: true
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	804	hideMenuOnActivated: false
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	805	indication: viewDescription
3887 81925afd23fd initial checkin penk parents: diff changeset	806	)
5740 fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	807	(MenuItem
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	808	enabled: viewDetails
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	809	label: 'Preview'
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	810	translateLabel: true
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	811	hideMenuOnActivated: false
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	812	indication: viewPreview
3887 81925afd23fd initial checkin penk parents: diff changeset	813	)
5740 fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	814	(MenuItem
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	815	label: '-'
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	816	isVisible: false
3887 81925afd23fd initial checkin penk parents: diff changeset	817	)
5740 fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	818	(MenuItem
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	819	label: 'Show Hidden Files'
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	820	translateLabel: true
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	821	isVisible: false
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	822	indication: showHiddenFiles
3980 3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	823	)
5740 fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	824	(MenuItem
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	825	label: 'Update'
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	826	itemValue: updateCurrentDirectoryWithReread
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	827	translateLabel: true
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	828	isVisible: false
3980 3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	829	)
3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	830	)
3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	831	nil
3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	832	nil
3f8311a42ca7 menus reorganized Claus Gittinger <cg@exept.de> parents: 3978 diff changeset	833	)
3887 81925afd23fd initial checkin penk parents: diff changeset	834	! !
81925afd23fd initial checkin penk parents: diff changeset	835
81925afd23fd initial checkin penk parents: diff changeset	836	!DirectoryContentsBrowser methodsFor:'accessing'!
81925afd23fd initial checkin penk parents: diff changeset	837
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	838	allItems
4916 1cafad9962cc checkin from browser Claus Gittinger <cg@exept.de> parents: 4906 diff changeset	839	^ allItems ? #()
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	840	!
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	841
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	842	allItems:something
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	843	allItems := something.
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	844	!
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	845
5105 849d4430b492 bug fix (copy filenames/selected filenames) Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	846	browserFileList
849d4430b492 bug fix (copy filenames/selected filenames) Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	847	^ self browserItemList collect:[:item \| item fileName]
849d4430b492 bug fix (copy filenames/selected filenames) Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	848	!
849d4430b492 bug fix (copy filenames/selected filenames) Claus Gittinger <cg@exept.de> parents: 5010 diff changeset	849
3887 81925afd23fd initial checkin penk parents: diff changeset	850	columnDescriptors
81925afd23fd initial checkin penk parents: diff changeset	851	"get the column description
81925afd23fd initial checkin penk parents: diff changeset	852	"
81925afd23fd initial checkin penk parents: diff changeset	853	^ columnDescriptors
81925afd23fd initial checkin penk parents: diff changeset	854	!
81925afd23fd initial checkin penk parents: diff changeset	855
81925afd23fd initial checkin penk parents: diff changeset	856	columnDescriptors:aListOfColumns
81925afd23fd initial checkin penk parents: diff changeset	857	"set the column description
81925afd23fd initial checkin penk parents: diff changeset	858	"
81925afd23fd initial checkin penk parents: diff changeset	859	columnDescriptors = aListOfColumns ifTrue:[
81925afd23fd initial checkin penk parents: diff changeset	860	^ self
81925afd23fd initial checkin penk parents: diff changeset	861	].
81925afd23fd initial checkin penk parents: diff changeset	862
81925afd23fd initial checkin penk parents: diff changeset	863	columnDescriptors := OrderedCollection new.
4970 726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	864	previewIndex := 0.
3887 81925afd23fd initial checkin penk parents: diff changeset	865	iconIndex := 0.
81925afd23fd initial checkin penk parents: diff changeset	866	fileDescriptionIndex := 0.
81925afd23fd initial checkin penk parents: diff changeset	867	iconExtent := nil.
81925afd23fd initial checkin penk parents: diff changeset	868
4970 726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	869	aListOfColumns keysAndValuesDo:[:anIndex :aDesc\|
726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	870	\|col readSelector\|
726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	871
726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	872	col := aDesc isSequenceable
7764 54a93e4aff7b use decodeFromLiteralArray: Claus Gittinger <cg@exept.de> parents: 7714 diff changeset	873	ifTrue:[DataSetColumnSpec decodeFromLiteralArray:aDesc]
4970 726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	874	ifFalse:[aDesc].
3887 81925afd23fd initial checkin penk parents: diff changeset	875	columnDescriptors add:col.
81925afd23fd initial checkin penk parents: diff changeset	876
4970 726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	877	"/ cg: UGLY CODE NOTIFICATION
726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	878	readSelector := col readSelector.
726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	879	readSelector == #preview ifTrue:[
3887 81925afd23fd initial checkin penk parents: diff changeset	880	previewIndex := anIndex.
81925afd23fd initial checkin penk parents: diff changeset	881	iconExtent := Point x:(col width) y:(col height).
81925afd23fd initial checkin penk parents: diff changeset	882	] ifFalse:[
4970 726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	883	readSelector == #fileInfoString ifTrue:[
3887 81925afd23fd initial checkin penk parents: diff changeset	884	fileDescriptionIndex := anIndex.
81925afd23fd initial checkin penk parents: diff changeset	885	] ifFalse:[
4970 726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	886	readSelector == #icon ifTrue:[
3887 81925afd23fd initial checkin penk parents: diff changeset	887	iconIndex := anIndex.
81925afd23fd initial checkin penk parents: diff changeset	888	]
81925afd23fd initial checkin penk parents: diff changeset	889	]
81925afd23fd initial checkin penk parents: diff changeset	890	]
81925afd23fd initial checkin penk parents: diff changeset	891	].
7764 54a93e4aff7b use decodeFromLiteralArray: Claus Gittinger <cg@exept.de> parents: 7714 diff changeset	892
54a93e4aff7b use decodeFromLiteralArray: Claus Gittinger <cg@exept.de> parents: 7714 diff changeset	893	"Modified: / 27-03-2007 / 08:46:33 / cg"
3887 81925afd23fd initial checkin penk parents: diff changeset	894	!
81925afd23fd initial checkin penk parents: diff changeset	895
81925afd23fd initial checkin penk parents: diff changeset	896	directory
81925afd23fd initial checkin penk parents: diff changeset	897	"returns the current directory or nil
81925afd23fd initial checkin penk parents: diff changeset	898	"
81925afd23fd initial checkin penk parents: diff changeset	899	^ directory
81925afd23fd initial checkin penk parents: diff changeset	900
81925afd23fd initial checkin penk parents: diff changeset	901	!
81925afd23fd initial checkin penk parents: diff changeset	902
81925afd23fd initial checkin penk parents: diff changeset	903	directory:aDirectory
81925afd23fd initial checkin penk parents: diff changeset	904	"change the current directory and read the items
81925afd23fd initial checkin penk parents: diff changeset	905	"
5935 72f0c8866406 attempt to preserve scroll-position as per directory Claus Gittinger <cg@exept.de> parents: 5870 diff changeset	906
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	907	aDirectory ~= directory ifTrue:[
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	908	directory notNil ifTrue:[
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	909	AbstractFileBrowser directoryHistory setPosition:(browser firstLineShown) for:(directory pathName).
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	910	].
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	911	directory := aDirectory.
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	912	self wakeUpForDirectoryChanged.
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	913	]
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	914
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	915	"Modified: / 07-01-2012 / 16:41:20 / cg"
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	916	!
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	917
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	918	directoryChangeFlag
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	919	^ directoryChangeFlag
7856 2508daf776bd comments Claus Gittinger <cg@exept.de> parents: 7764 diff changeset	920
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	921	"Modified: / 07-01-2012 / 16:34:39 / cg"
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	922	!
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	923
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	924	directoryChangeFlag:aBoolean
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	925	directoryChangeFlag := aBoolean.
7856 2508daf776bd comments Claus Gittinger <cg@exept.de> parents: 7764 diff changeset	926
2508daf776bd comments Claus Gittinger <cg@exept.de> parents: 7764 diff changeset	927	"Modified: / 01-10-2007 / 19:22:35 / cg"
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	928	"Modified (format): / 07-01-2012 / 16:34:46 / cg"
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	929	!
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	930
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	931	directoryContentsChangeFlag
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	932	"return the value of the instance variable 'directoryContentsChangeFlag' (automatically generated)"
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	933
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	934	^ directoryContentsChangeFlag
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	935
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	936	"Modified: / 07-01-2012 / 16:34:51 / cg"
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	937	!
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	938
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	939	directoryContentsChangeFlag:aBoolean
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	940	"set the value of the instance variable 'directoryContentsChangeFlag' (automatically generated)"
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	941
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	942	directoryContentsChangeFlag := aBoolean.
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	943
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	944	"Modified (format): / 07-01-2012 / 16:35:01 / cg"
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	945	!
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	946
5868 ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	947	doubleClickAction
ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	948
ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	949	^ doubleClickAction
ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	950	!
ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	951
ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	952	doubleClickAction:aBlock
ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	953
ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	954	" aBlock is a one arg block with selected index as argument "
ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	955
ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	956	doubleClickAction := aBlock
ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	957	!
ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	958
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	959	filterChangeFlag
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	960	"return the value of the instance variable 'filterChangeFlag' (automatically generated)"
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	961
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	962	^ filterChangeFlag
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	963
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	964	"Modified: / 07-01-2012 / 16:35:07 / cg"
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	965	!
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	966
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	967	filterChangeFlag:aBoolean
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	968	"set the value of the instance variable 'filterChangeFlag' (automatically generated)"
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	969
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	970	filterChangeFlag := aBoolean.
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	971
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	972	"Modified (format): / 07-01-2012 / 16:35:12 / cg"
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	973	!
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	974
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	975	isBusy
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	976	"return the value of the instance variable 'isBusy' (automatically generated)"
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	977
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	978	isBusy isNil ifTrue:[
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	979	isBusy := false.
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	980	].
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	981	^ isBusy
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	982	!
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	983
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	984	isBusy:something
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	985	"set the value of the instance variable 'isBusy' (automatically generated)"
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	986
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	987	isBusy := something.
4017 30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	988	!
30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	989
30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	990	matchBlock
30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	991	"return the value of the instance variable 'matchBlock' (automatically generated)"
30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	992
30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	993	^ matchBlock
30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	994	!
30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	995
30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	996	matchBlock:filterBlock
30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	997
30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	998	matchBlock := filterBlock.
3887 81925afd23fd initial checkin penk parents: diff changeset	999	!
81925afd23fd initial checkin penk parents: diff changeset	1000
5868 ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	1001	multipleSelect
ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	1002	^ multipleSelect ? false
ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	1003	!
ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	1004
ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	1005	multipleSelect:aBoolean
ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	1006
ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	1007	multipleSelect := aBoolean.
ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	1008	browser notNil ifTrue:[
ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	1009	browser multipleSelectOk:aBoolean.
ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	1010	].
ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	1011	!
ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	1012
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	1013	sortBlockChangeFlag
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	1014	"return the value of the instance variable 'sortBlockChangeFlag' (automatically generated)"
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	1015
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	1016	^ sortBlockChangeFlag
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	1017
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	1018	"Modified: / 07-01-2012 / 16:35:20 / cg"
4298 af4b4457e45f oops Claus Gittinger <cg@exept.de> parents: 4297 diff changeset	1019	!
af4b4457e45f oops Claus Gittinger <cg@exept.de> parents: 4297 diff changeset	1020
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	1021	sortBlockChangeFlag:aBoolean
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	1022	"set the value of the instance variable 'sortBlockChangeFlag' (automatically generated)"
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	1023
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	1024	sortBlockChangeFlag := aBoolean.
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	1025
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	1026	"Modified (format): / 07-01-2012 / 16:35:25 / cg"
3887 81925afd23fd initial checkin penk parents: diff changeset	1027	!
81925afd23fd initial checkin penk parents: diff changeset	1028
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1029	updateContentsSelection
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1030	"return the value of the instance variable 'updateToExternFileHolder' (automatically generated)"
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1031
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1032	updateContentsSelection isNil ifTrue:[
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1033	updateContentsSelection := self class newLock.
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1034	].
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1035	^ updateContentsSelection
3887 81925afd23fd initial checkin penk parents: diff changeset	1036	! !
81925afd23fd initial checkin penk parents: diff changeset	1037
81925afd23fd initial checkin penk parents: diff changeset	1038	!DirectoryContentsBrowser methodsFor:'actions'!
81925afd23fd initial checkin penk parents: diff changeset	1039
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	1040	browserItemListAdd:addItemCol remove:remItemCol
4335 b56935032115 keep selection on update and insert new lines smarter in displayed list penk parents: 4298 diff changeset	1041	\| browserList selection\|
b56935032115 keep selection on update and insert new lines smarter in displayed list penk parents: 4298 diff changeset	1042
b56935032115 keep selection on update and insert new lines smarter in displayed list penk parents: 4298 diff changeset	1043	(addItemCol isEmpty and:[remItemCol isEmpty]) ifTrue:[ ^ self].
4972 900a778786bc directory up on enter in DirectoryContentsBrowser penk parents: 4970 diff changeset	1044	selection := self selectedItemsWithoutDotDotDirectory.
4017 30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1045	remItemCol notEmpty ifTrue:[
4462 b14fcc67ff8e removeAll: changed to removeAllFoundIn: Michael Beyl <mb@exept.de> parents: 4421 diff changeset	1046	self browserItemList removeAllFoundIn:remItemCol
4017 30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1047	].
30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1048	addItemCol notEmpty ifTrue:[
4335 b56935032115 keep selection on update and insert new lines smarter in displayed list penk parents: 4298 diff changeset	1049	browserList := self browserItemList copy.
b56935032115 keep selection on update and insert new lines smarter in displayed list penk parents: 4298 diff changeset	1050	addItemCol do:[: aNewItem \|
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6226 diff changeset	1051	(browserList includes:aNewItem) ifFalse:[
4335 b56935032115 keep selection on update and insert new lines smarter in displayed list penk parents: 4298 diff changeset	1052	browserList add:aNewItem.
5383 ae8a426ef69e use for sorting files the new FileSorter class penk parents: 5377 diff changeset	1053	browserList := self sortBlockHolder value sortItemList:browserList.
4335 b56935032115 keep selection on update and insert new lines smarter in displayed list penk parents: 4298 diff changeset	1054	self browserItemList add:aNewItem beforeIndex:(browserList indexOf:aNewItem).
b56935032115 keep selection on update and insert new lines smarter in displayed list penk parents: 4298 diff changeset	1055	]
b56935032115 keep selection on update and insert new lines smarter in displayed list penk parents: 4298 diff changeset	1056	].
4017 30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1057	].
4335 b56935032115 keep selection on update and insert new lines smarter in displayed list penk parents: 4298 diff changeset	1058	self selectItems:selection.
4017 30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1059	!
30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1060
4027 c662c75b6bf9 * empty log message * penk parents: 4026 diff changeset	1061	currentSortOrderChanged
c662c75b6bf9 * empty log message * penk parents: 4026 diff changeset	1062
4652 40e96ac7d988 * empty log message * penk parents: 4648 diff changeset	1063	"/ self wakeUpForSortBlockChanged.
6225 cc46b667db69 * empty log message * penk parents: 6222 diff changeset	1064
cc46b667db69 * empty log message * penk parents: 6222 diff changeset	1065	"/ have to reread the columns to set the icon for sort direction
cc46b667db69 * empty log message * penk parents: 6222 diff changeset	1066	"/ very expensive. Need to change table label directly
4027 c662c75b6bf9 * empty log message * penk parents: 4026 diff changeset	1067	self viewedColumnsChanged.
c662c75b6bf9 * empty log message * penk parents: 4026 diff changeset	1068	!
c662c75b6bf9 * empty log message * penk parents: 4026 diff changeset	1069
3887 81925afd23fd initial checkin penk parents: diff changeset	1070	doResizeImage
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	1071	\|column w h selection\|
3887 81925afd23fd initial checkin penk parents: diff changeset	1072
81925afd23fd initial checkin penk parents: diff changeset	1073	previewIndex == 0 ifTrue:[^ self].
81925afd23fd initial checkin penk parents: diff changeset	1074
81925afd23fd initial checkin penk parents: diff changeset	1075	column := columnDescriptors at:previewIndex.
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	1076	w := iconExtent x.
3887 81925afd23fd initial checkin penk parents: diff changeset	1077	h := iconExtent y.
81925afd23fd initial checkin penk parents: diff changeset	1078
81925afd23fd initial checkin penk parents: diff changeset	1079	w == column width ifTrue:[
81925afd23fd initial checkin penk parents: diff changeset	1080	w := w * 2.
81925afd23fd initial checkin penk parents: diff changeset	1081	h := h * 2.
81925afd23fd initial checkin penk parents: diff changeset	1082	].
81925afd23fd initial checkin penk parents: diff changeset	1083	column width:w.
81925afd23fd initial checkin penk parents: diff changeset	1084	column height:h.
81925afd23fd initial checkin penk parents: diff changeset	1085
3990 64f30adbf27b * empty log message * penk parents: 3989 diff changeset	1086	"/Processor activeProcess ~~ self windowGroup process ifTrue:[self halt].
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	1087	selection := self selectedItems.
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1088	browserItemList do:[:el\| el resetImageFile ].
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1089	browser columnDescriptors:(self tableColumns value).
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	1090	self selectItems:selection.
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	1091	self wakeUp.
3887 81925afd23fd initial checkin penk parents: diff changeset	1092	!
81925afd23fd initial checkin penk parents: diff changeset	1093
81925afd23fd initial checkin penk parents: diff changeset	1094	doUpdate
4421 7e5d8ab16f4a checkin from browser penk parents: 4415 diff changeset	1095	"/ DirectoryContents flushCache.
5738 09f8fe13f3f5 update now reread all the items penk parents: 5716 diff changeset	1096	self wakeUpForDirectoryChanged.
7714 3ac0b3a85397 slight tuning Claus Gittinger <cg@exept.de> parents: 7672 diff changeset	1097	self updateDiskUsage.
3ac0b3a85397 slight tuning Claus Gittinger <cg@exept.de> parents: 7672 diff changeset	1098	"/ updateCycleSemaphore wait.
3887 81925afd23fd initial checkin penk parents: diff changeset	1099	!
81925afd23fd initial checkin penk parents: diff changeset	1100
5740 fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	1101	doUpdateDirectoryContents
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	1102	"/ DirectoryContents flushCache.
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	1103	self wakeUpForDirectoryContentsChanged.
7714 3ac0b3a85397 slight tuning Claus Gittinger <cg@exept.de> parents: 7672 diff changeset	1104	self updateDiskUsage.
3ac0b3a85397 slight tuning Claus Gittinger <cg@exept.de> parents: 7672 diff changeset	1105	"/ updateCycleSemaphore wait.
5740 fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	1106	!
fd67f31da836 update now reread all the items penk parents: 5738 diff changeset	1107
3984 6a54bf2c139a double click - index Claus Gittinger <cg@exept.de> parents: 3983 diff changeset	1108	doubleClickedAt:anItemIndex
5959 27c1d00a790d * empty log message * Claus Gittinger <cg@exept.de> parents: 5947 diff changeset	1109	\|action\|
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1110
6831 56061d3bcbf0 wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6826 diff changeset	1111	"/ self withWaitCursorDo:[
5959 27c1d00a790d * empty log message * Claus Gittinger <cg@exept.de> parents: 5947 diff changeset	1112	(action := self doubleClickAction) notNil ifTrue:[
27c1d00a790d * empty log message * Claus Gittinger <cg@exept.de> parents: 5947 diff changeset	1113	action value:anItemIndex.
5868 ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	1114	].
4013 049b94940308 * empty log message * penk parents: 4012 diff changeset	1115	self enterActionFor:(self browserItemList at:anItemIndex). "/ anItemIndex.
6831 56061d3bcbf0 wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6826 diff changeset	1116	"/ ]
56061d3bcbf0 wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6826 diff changeset	1117
56061d3bcbf0 wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6826 diff changeset	1118	"Modified: / 25-07-2006 / 09:07:55 / cg"
3887 81925afd23fd initial checkin penk parents: diff changeset	1119	!
81925afd23fd initial checkin penk parents: diff changeset	1120
81925afd23fd initial checkin penk parents: diff changeset	1121	enterActionFor:anItem
10300 5ed6f3d35cbb changed: #enterActionFor: fix for UNIX symlinks vrany parents: 9883 diff changeset	1122	\| filename info targetItem linkFile targetFile\|
3887 81925afd23fd initial checkin penk parents: diff changeset	1123
81925afd23fd initial checkin penk parents: diff changeset	1124	filename := anItem fileName.
3906 8a76cb4f5884 next stage penk parents: 3888 diff changeset	1125
4014 ba5e66d9b931 * empty log message * penk parents: 4013 diff changeset	1126	filename baseName = '..' ifTrue:[
5959 27c1d00a790d * empty log message * Claus Gittinger <cg@exept.de> parents: 5947 diff changeset	1127	self setCurrentFileName:(self directory directory).
3887 81925afd23fd initial checkin penk parents: diff changeset	1128	^ self.
81925afd23fd initial checkin penk parents: diff changeset	1129	].
8375 fd8d9e2fe62a handling of symbolicLinks ca parents: 8372 diff changeset	1130	targetItem := anItem.
9883 e38f1b023cb5 changed: #selectFiles: Michael Beyl <mb@exept.de> parents: 9880 diff changeset	1131	targetFile := filename.
8375 fd8d9e2fe62a handling of symbolicLinks ca parents: 8372 diff changeset	1132
fd8d9e2fe62a handling of symbolicLinks ca parents: 8372 diff changeset	1133	[
9883 e38f1b023cb5 changed: #selectFiles: Michael Beyl <mb@exept.de> parents: 9880 diff changeset	1134	(info := targetFile linkInfo) notNil
e38f1b023cb5 changed: #selectFiles: Michael Beyl <mb@exept.de> parents: 9880 diff changeset	1135	and:[ info isSymbolicLink ]
8375 fd8d9e2fe62a handling of symbolicLinks ca parents: 8372 diff changeset	1136	] whileTrue:[
fd8d9e2fe62a handling of symbolicLinks ca parents: 8372 diff changeset	1137	targetItem := nil.
9883 e38f1b023cb5 changed: #selectFiles: Michael Beyl <mb@exept.de> parents: 9880 diff changeset	1138	info path isNil ifTrue:[^ self].
10300 5ed6f3d35cbb changed: #enterActionFor: fix for UNIX symlinks vrany parents: 9883 diff changeset	1139	linkFile := info path asFilename.
5ed6f3d35cbb changed: #enterActionFor: fix for UNIX symlinks vrany parents: 9883 diff changeset	1140	linkFile isRelative ifTrue:[
5ed6f3d35cbb changed: #enterActionFor: fix for UNIX symlinks vrany parents: 9883 diff changeset	1141	targetFile := filename directory construct:info path.
5ed6f3d35cbb changed: #enterActionFor: fix for UNIX symlinks vrany parents: 9883 diff changeset	1142	] ifFalse:[
5ed6f3d35cbb changed: #enterActionFor: fix for UNIX symlinks vrany parents: 9883 diff changeset	1143	targetFile := linkFile
5ed6f3d35cbb changed: #enterActionFor: fix for UNIX symlinks vrany parents: 9883 diff changeset	1144	]
8375 fd8d9e2fe62a handling of symbolicLinks ca parents: 8372 diff changeset	1145	].
fd8d9e2fe62a handling of symbolicLinks ca parents: 8372 diff changeset	1146
9883 e38f1b023cb5 changed: #selectFiles: Michael Beyl <mb@exept.de> parents: 9880 diff changeset	1147	filename := targetFile.
e38f1b023cb5 changed: #selectFiles: Michael Beyl <mb@exept.de> parents: 9880 diff changeset	1148
5321 4839bfb1a28d checkin from browser Claus Gittinger <cg@exept.de> parents: 5312 diff changeset	1149	(filename isDirectory) ifTrue:[
5959 27c1d00a790d * empty log message * Claus Gittinger <cg@exept.de> parents: 5947 diff changeset	1150	self setCurrentFileName:filename.
3887 81925afd23fd initial checkin penk parents: diff changeset	1151	^ self.
81925afd23fd initial checkin penk parents: diff changeset	1152	].
8375 fd8d9e2fe62a handling of symbolicLinks ca parents: 8372 diff changeset	1153
fd8d9e2fe62a handling of symbolicLinks ca parents: 8372 diff changeset	1154	targetItem isNil ifTrue:[
fd8d9e2fe62a handling of symbolicLinks ca parents: 8372 diff changeset	1155	targetItem := anItem class fileName:filename.
fd8d9e2fe62a handling of symbolicLinks ca parents: 8372 diff changeset	1156	].
fd8d9e2fe62a handling of symbolicLinks ca parents: 8372 diff changeset	1157
6831 56061d3bcbf0 wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6826 diff changeset	1158	"/ self withWaitCursorDo:[
8375 fd8d9e2fe62a handling of symbolicLinks ca parents: 8372 diff changeset	1159	self openApplByFileItem:targetItem.
6831 56061d3bcbf0 wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6826 diff changeset	1160	"/ ]
56061d3bcbf0 wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6826 diff changeset	1161
56061d3bcbf0 wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6826 diff changeset	1162	"Modified: / 25-07-2006 / 09:08:00 / cg"
10300 5ed6f3d35cbb changed: #enterActionFor: fix for UNIX symlinks vrany parents: 9883 diff changeset	1163	"Modified: / 09-07-2011 / 14:52:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4017 30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1164	!
30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1165
11445 7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	1166	noOfShownFiles:noOfShownFiles noOfFiles:noOfFiles
4017 30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1167
4263 d611afabecb9 # of files message Claus Gittinger <cg@exept.de> parents: 4251 diff changeset	1168	\|info filterBox clr\|
d611afabecb9 # of files message Claus Gittinger <cg@exept.de> parents: 4251 diff changeset	1169
11445 7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	1170	info := (noOfShownFiles == 1 ifTrue:['%1 file'] ifFalse:['%1 files']).
7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	1171	noOfShownFiles = noOfFiles ifFalse:[
7672 f7ad4a06bbec * empty log message * Claus Gittinger <cg@exept.de> parents: 7636 diff changeset	1172	info := info,' (%2 total)'.
4263 d611afabecb9 # of files message Claus Gittinger <cg@exept.de> parents: 4251 diff changeset	1173	].
5120 e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5105 diff changeset	1174	self shownFiles
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5105 diff changeset	1175	value:(resources
e4c15c9d82ba * empty log message * Claus Gittinger <cg@exept.de> parents: 5105 diff changeset	1176	string:info
11445 7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	1177	with:noOfShownFiles
7672 f7ad4a06bbec * empty log message * Claus Gittinger <cg@exept.de> parents: 7636 diff changeset	1178	with:noOfFiles).
4263 d611afabecb9 # of files message Claus Gittinger <cg@exept.de> parents: 4251 diff changeset	1179
4017 30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1180	filterBox := self filterValueBox value.
30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1181	filterBox isNil ifTrue:[^ self ].
9103 eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	1182
11445 7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	1183	noOfShownFiles ~= noOfFiles ifTrue:[
4017 30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1184	clr := Color red lightened lightened lightened.
9103 eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	1185	[
eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	1186	View drawingOnClosedDrawableSignal catch:[
eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	1187	filterBox flash
eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	1188	]
eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	1189	] fork.
4017 30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1190	] ifFalse:[
30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1191	clr := self filterBackgroundColor value.
30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1192	].
30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1193	filterBox backgroundColor:clr.
11445 7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	1194
7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	1195	"Created: / 20-03-2012 / 12:08:57 / cg"
4017 30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1196	!
30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1197
8407 eabf2cc93e11 setBrowserItemList: changed ca parents: 8375 diff changeset	1198	setBrowserItemList:aFilteredItems
eabf2cc93e11 setBrowserItemList: changed ca parents: 8375 diff changeset	1199
eabf2cc93e11 setBrowserItemList: changed ca parents: 8375 diff changeset	1200	\|showDir directoryUpItem locItems browserList\|
4017 30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1201
4202 1a518bcfa35a checkin from browser penk parents: 4176 diff changeset	1202	showDir := self viewDirsInContentsBrowser value.
8407 eabf2cc93e11 setBrowserItemList: changed ca parents: 8375 diff changeset	1203
4017 30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1204	(showDir and:[self directory notNil and:[self directory isRootDirectory not]]) ifTrue:[
5249 7b77b88a225e * empty log message * Claus Gittinger <cg@exept.de> parents: 5238 diff changeset	1205	locItems := OrderedCollection new.
4017 30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1206	directoryUpItem := DirectoryContentsBrowser itemClass fileName:(self directory construct:'..').
5249 7b77b88a225e * empty log message * Claus Gittinger <cg@exept.de> parents: 5238 diff changeset	1207	directoryUpItem notNil ifTrue:[
7b77b88a225e * empty log message * Claus Gittinger <cg@exept.de> parents: 5238 diff changeset	1208	locItems add:directoryUpItem.
7b77b88a225e * empty log message * Claus Gittinger <cg@exept.de> parents: 5238 diff changeset	1209	].
8407 eabf2cc93e11 setBrowserItemList: changed ca parents: 8375 diff changeset	1210	locItems addAll:aFilteredItems.
4346 5300ce5fb7b0 * empty log message * penk parents: 4345 diff changeset	1211	] ifFalse:[
8407 eabf2cc93e11 setBrowserItemList: changed ca parents: 8375 diff changeset	1212	locItems := aFilteredItems.
4017 30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1213	].
4039 c259e9105173 * empty log message * penk parents: 4033 diff changeset	1214	self updateToExternFileHolderLock doLocked:[
8407 eabf2cc93e11 setBrowserItemList: changed ca parents: 8375 diff changeset	1215	browserList := self browserItemList.
11445 7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	1216
7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	1217	(browserList sameContentsAs: locItems) ifTrue:[
7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	1218	"/ same
7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	1219	] ifFalse:[
7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	1220	"/ bugfix - first remove all entries in list
7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	1221	browserList removeAll.
7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	1222	browserList contents:locItems.
7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	1223	].
4039 c259e9105173 * empty log message * penk parents: 4033 diff changeset	1224	].
4017 30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1225	self selectCurrentFiles.
11177 4b83b53c4b1b changed: #directoryChanged Claus Gittinger <cg@exept.de> parents: 11058 diff changeset	1226
11445 7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	1227	"Modified: / 20-03-2012 / 12:17:14 / cg"
7714 3ac0b3a85397 slight tuning Claus Gittinger <cg@exept.de> parents: 7672 diff changeset	1228	!
3ac0b3a85397 slight tuning Claus Gittinger <cg@exept.de> parents: 7672 diff changeset	1229
3ac0b3a85397 slight tuning Claus Gittinger <cg@exept.de> parents: 7672 diff changeset	1230	updateDiskUsage
3ac0b3a85397 slight tuning Claus Gittinger <cg@exept.de> parents: 7672 diff changeset	1231	directory notNil ifTrue:[
3ac0b3a85397 slight tuning Claus Gittinger <cg@exept.de> parents: 7672 diff changeset	1232	self flushRememberedDiskUsageInfoFor:directory.
3ac0b3a85397 slight tuning Claus Gittinger <cg@exept.de> parents: 7672 diff changeset	1233	] ifFalse:[
3ac0b3a85397 slight tuning Claus Gittinger <cg@exept.de> parents: 7672 diff changeset	1234	self flushRememberedDiskUsageInfo.
3ac0b3a85397 slight tuning Claus Gittinger <cg@exept.de> parents: 7672 diff changeset	1235	].
3ac0b3a85397 slight tuning Claus Gittinger <cg@exept.de> parents: 7672 diff changeset	1236	self startDiskUsageInfoProcess.
3887 81925afd23fd initial checkin penk parents: diff changeset	1237	! !
81925afd23fd initial checkin penk parents: diff changeset	1238
81925afd23fd initial checkin penk parents: diff changeset	1239	!DirectoryContentsBrowser methodsFor:'aspects'!
81925afd23fd initial checkin penk parents: diff changeset	1240
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1241	browserItemList
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1242
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1243	browserItemList isNil ifTrue:[
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1244	browserItemList := List new.
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1245	].
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1246	^ browserItemList
3887 81925afd23fd initial checkin penk parents: diff changeset	1247	!
81925afd23fd initial checkin penk parents: diff changeset	1248
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1249	selectionInFileList
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1250
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1251	selectionInFileList isNil ifTrue:[
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1252	selectionInFileList := ValueHolder new.
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1253	selectionInFileList addDependent:self.
3887 81925afd23fd initial checkin penk parents: diff changeset	1254	].
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1255	^ selectionInFileList
3887 81925afd23fd initial checkin penk parents: diff changeset	1256	!
81925afd23fd initial checkin penk parents: diff changeset	1257
81925afd23fd initial checkin penk parents: diff changeset	1258	tableColumns
81925afd23fd initial checkin penk parents: diff changeset	1259
81925afd23fd initial checkin penk parents: diff changeset	1260	tableColumns isNil ifTrue:[
81925afd23fd initial checkin penk parents: diff changeset	1261	tableColumns := self class tableColumns asValue.
81925afd23fd initial checkin penk parents: diff changeset	1262	].
81925afd23fd initial checkin penk parents: diff changeset	1263	^ tableColumns.
4976 86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1264	!
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1265
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1266	valueHolderForColumn:id
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1267	"xlate #suffix -> viewType, etc...
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1268	i.e. for a columns readSelector, return my valueHolder"
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1269
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1270	^ self perform:('view' , id asUppercaseFirst) asSymbol
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1271	!
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1272
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1273	viewFileInfoString
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1274	^ self viewDescription
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1275	!
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1276
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1277	viewSizeInBytesString
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1278	^ self viewSizeInBytes
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1279	!
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1280
5312 63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	1281	viewSizeInKiloBytesString
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	1282	^ self viewSizeInKiloBytes
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	1283	!
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	1284
4976 86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1285	viewSizeString
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1286	^ self viewSize
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1287	!
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1288
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1289	viewSuffix
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1290	^ self viewType
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1291	!
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1292
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1293	viewTimeAndDate
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1294	^ self viewTime
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1295	! !
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1296
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1297	!DirectoryContentsBrowser methodsFor:'aspects-visibility'!
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1298
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1299	colVisibilityAspectFor:aKey ifAbsent:absentBlock
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1300	"aspect for a columns visibility"
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1301
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1302	\|holder\|
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1303
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1304	holder := self aspectFor:aKey ifAbsent:absentBlock.
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1305	holder onChangeSend:#viewedColumnsChanged to:self.
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1306	^ holder
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1307	!
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1308
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1309	viewDescription
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1310	"aspect for show file description"
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1311
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1312	^ self colVisibilityAspectFor:#viewDescription ifAbsent:[ false asValue ].
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1313	!
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1314
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1315	viewDetails
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1316	"aspect for show more file properties
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1317	"
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1318
6359 53212b2cad15 detail defaults Claus Gittinger <cg@exept.de> parents: 6298 diff changeset	1319	^ self colVisibilityAspectFor:#viewDetails ifAbsent:[ true asValue ].
7079 d70b24e39eba default values Claus Gittinger <cg@exept.de> parents: 6831 diff changeset	1320
d70b24e39eba default values Claus Gittinger <cg@exept.de> parents: 6831 diff changeset	1321	"Modified: / 04-09-2006 / 09:46:43 / cg"
4976 86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1322	!
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1323
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1324	viewGroup
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1325	" aspect for show group information "
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1326
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1327	^ self colVisibilityAspectFor:#viewGroup ifAbsent:[ false asValue ].
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1328	!
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1329
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1330	viewIcon
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1331	" aspect for show file-type icon"
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1332
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1333	^ self colVisibilityAspectFor:#viewIcon ifAbsent:[ true asValue ].
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1334	!
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1335
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1336	viewInodeNumber
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1337	" aspect for show inode number "
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1338
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1339	^ self colVisibilityAspectFor:#viewInodeNumber ifAbsent:[ false asValue ].
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1340	!
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1341
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1342	viewOwner
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1343	" aspect for show owner information "
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1344
6359 53212b2cad15 detail defaults Claus Gittinger <cg@exept.de> parents: 6298 diff changeset	1345	^ self colVisibilityAspectFor:#viewOwner ifAbsent:[ true asValue ].
4976 86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1346	!
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1347
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1348	viewPermissions
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1349	" aspect for show permission information "
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1350
7079 d70b24e39eba default values Claus Gittinger <cg@exept.de> parents: 6831 diff changeset	1351	^ self colVisibilityAspectFor:#viewPermissions ifAbsent:[ false asValue ].
d70b24e39eba default values Claus Gittinger <cg@exept.de> parents: 6831 diff changeset	1352
d70b24e39eba default values Claus Gittinger <cg@exept.de> parents: 6831 diff changeset	1353	"Modified: / 04-09-2006 / 09:46:12 / cg"
4976 86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1354	!
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1355
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1356	viewPreview
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1357
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1358	" aspect for show image previev "
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1359
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1360	^ self colVisibilityAspectFor:#viewPreview ifAbsent:[ false asValue ].
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1361	!
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1362
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1363	viewSize
6463 64ff0bdfd046 * empty log message * Claus Gittinger <cg@exept.de> parents: 6440 diff changeset	1364	" aspect for show-size information "
4976 86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1365
6359 53212b2cad15 detail defaults Claus Gittinger <cg@exept.de> parents: 6298 diff changeset	1366	^ self colVisibilityAspectFor:#viewSize ifAbsent:[ true asValue ].
4976 86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1367	!
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1368
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1369	viewSizeInBytes
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1370	" aspect for show size-in-bytes information "
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1371
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1372	^ self colVisibilityAspectFor:#viewSizeInBytes ifAbsent:[ false asValue ].
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1373	!
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1374
5312 63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	1375	viewSizeInKiloBytes
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	1376	" aspect for show size-in-kilobytes information "
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	1377
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	1378	^ self colVisibilityAspectFor:#viewSizeInKiloBytes ifAbsent:[ false asValue ].
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	1379	!
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	1380
4976 86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1381	viewTime
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1382
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1383	" aspect for show time information "
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1384
6359 53212b2cad15 detail defaults Claus Gittinger <cg@exept.de> parents: 6298 diff changeset	1385	^ self colVisibilityAspectFor:#viewTime ifAbsent:[ true asValue ].
4976 86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1386	!
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1387
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1388	viewType
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1389	" aspect for show suffix (type) information "
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1390
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1391	^ self colVisibilityAspectFor:#viewType ifAbsent:[ false asValue ].
3887 81925afd23fd initial checkin penk parents: diff changeset	1392	! !
81925afd23fd initial checkin penk parents: diff changeset	1393
81925afd23fd initial checkin penk parents: diff changeset	1394	!DirectoryContentsBrowser methodsFor:'change & update'!
81925afd23fd initial checkin penk parents: diff changeset	1395
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1396	currentFileNameHolderChanged
3887 81925afd23fd initial checkin penk parents: diff changeset	1397	"filename changed
81925afd23fd initial checkin penk parents: diff changeset	1398	"
4889 4d1ab950b348 * empty log message * penk parents: 4881 diff changeset	1399	\|newDir currentDir aColOfFiles\|
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1400
7563 51f1c11ce183 * empty log message * Claus Gittinger <cg@exept.de> parents: 7554 diff changeset	1401	aColOfFiles := self currentSelectedObjects.
4978 9ca1ae265211 selectedFiles for directoryContentsBrowser without the .. dir penk parents: 4976 diff changeset	1402	aColOfFiles isEmpty ifTrue:[
9ca1ae265211 selectedFiles for directoryContentsBrowser without the .. dir penk parents: 4976 diff changeset	1403	"/ selection is gone keep the current directory list
9ca1ae265211 selectedFiles for directoryContentsBrowser without the .. dir penk parents: 4976 diff changeset	1404	^ self
9ca1ae265211 selectedFiles for directoryContentsBrowser without the .. dir penk parents: 4976 diff changeset	1405	].
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6226 diff changeset	1406	(self currentFilesAreInSameDirectory) ifFalse:[
3887 81925afd23fd initial checkin penk parents: diff changeset	1407	self directory:nil.
81925afd23fd initial checkin penk parents: diff changeset	1408	^ self
81925afd23fd initial checkin penk parents: diff changeset	1409	].
6726 4bcffbd4b07d code cleanup Claus Gittinger <cg@exept.de> parents: 6628 diff changeset	1410	self currentSelectedDirectories size > 1 ifTrue:[
4889 4d1ab950b348 * empty log message * penk parents: 4881 diff changeset	1411	self directory:nil.
4d1ab950b348 * empty log message * penk parents: 4881 diff changeset	1412	^ self
4d1ab950b348 * empty log message * penk parents: 4881 diff changeset	1413	].
4536 b6c06a7b777b show symbolic link info Claus Gittinger <cg@exept.de> parents: 4534 diff changeset	1414	aColOfFiles size == 1 ifTrue:[
4781 08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	1415	self startDiskUsageInfoProcess.
4536 b6c06a7b777b show symbolic link info Claus Gittinger <cg@exept.de> parents: 4534 diff changeset	1416	].
4900 b678ff28623d checkin from browser penk parents: 4894 diff changeset	1417	newDir := (self directoriesForFiles:aColOfFiles) first asCanonicalizedFilename.
4901 c1e8a1dc6430 Avoid debugger on start Stefan Vogel <sv@exept.de> parents: 4900 diff changeset	1418	currentDir := self directory.
4906 5f632635a291 oops - bad checkin (cvs conflict) Claus Gittinger <cg@exept.de> parents: 4903 diff changeset	1419	(currentDir notNil and:[newDir = currentDir asCanonicalizedFilename]) ifTrue:[
5f632635a291 oops - bad checkin (cvs conflict) Claus Gittinger <cg@exept.de> parents: 4903 diff changeset	1420	self selectFiles:aColOfFiles.
5f632635a291 oops - bad checkin (cvs conflict) Claus Gittinger <cg@exept.de> parents: 4903 diff changeset	1421	^ self.
5f632635a291 oops - bad checkin (cvs conflict) Claus Gittinger <cg@exept.de> parents: 4903 diff changeset	1422	].
4536 b6c06a7b777b show symbolic link info Claus Gittinger <cg@exept.de> parents: 4534 diff changeset	1423	"/ change of the directory filename
b6c06a7b777b show symbolic link info Claus Gittinger <cg@exept.de> parents: 4534 diff changeset	1424	self directory:newDir.
7563 51f1c11ce183 * empty log message * Claus Gittinger <cg@exept.de> parents: 7554 diff changeset	1425
51f1c11ce183 * empty log message * Claus Gittinger <cg@exept.de> parents: 7554 diff changeset	1426	"Modified: / 04-12-2006 / 13:15:32 / cg"
3887 81925afd23fd initial checkin penk parents: diff changeset	1427	!
81925afd23fd initial checkin penk parents: diff changeset	1428
4071 f923c8257818 * empty log message * penk parents: 4057 diff changeset	1429	filterBlockHolderChanged
f923c8257818 * empty log message * penk parents: 4057 diff changeset	1430
7714 3ac0b3a85397 slight tuning Claus Gittinger <cg@exept.de> parents: 7672 diff changeset	1431	self matchBlock:(self filterBlockHolder value).
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	1432	self wakeUpForFilterChanged.
4071 f923c8257818 * empty log message * penk parents: 4057 diff changeset	1433	!
f923c8257818 * empty log message * penk parents: 4057 diff changeset	1434
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1435	selectionChanged
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1436
4004 f97168a68093 * empty log message * Claus Gittinger <cg@exept.de> parents: 3999 diff changeset	1437	\| selection newCurrentFilename \|
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1438
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1439	self directory isNil ifTrue:[^ self].
4781 08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	1440
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1441	selection := self selectedFiles.
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1442	selection isEmpty ifTrue:[
4004 f97168a68093 * empty log message * Claus Gittinger <cg@exept.de> parents: 3999 diff changeset	1443	newCurrentFilename := OrderedCollection with:self directory.
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1444	] ifFalse:[
4004 f97168a68093 * empty log message * Claus Gittinger <cg@exept.de> parents: 3999 diff changeset	1445	newCurrentFilename := selection.
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1446	].
7563 51f1c11ce183 * empty log message * Claus Gittinger <cg@exept.de> parents: 7554 diff changeset	1447	self currentSelectedObjects ~= newCurrentFilename ifTrue:[
4004 f97168a68093 * empty log message * Claus Gittinger <cg@exept.de> parents: 3999 diff changeset	1448	self currentFileNameHolder value:newCurrentFilename withoutNotifying:self
4781 08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	1449	].
7563 51f1c11ce183 * empty log message * Claus Gittinger <cg@exept.de> parents: 7554 diff changeset	1450
51f1c11ce183 * empty log message * Claus Gittinger <cg@exept.de> parents: 7554 diff changeset	1451	"Modified: / 04-12-2006 / 13:15:37 / cg"
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1452	!
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1453
4781 08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	1454	update:something with:aParameter from:changedObject
3887 81925afd23fd initial checkin penk parents: diff changeset	1455	"one of my models changed
81925afd23fd initial checkin penk parents: diff changeset	1456	"
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1457
4781 08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	1458	changedObject == self currentFileNameHolder ifTrue:[
08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	1459	super update:something with:aParameter from:changedObject.
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1460	self updateContentsSelection doIfUnLocked:[
4017 30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1461	self currentFileNameHolderChanged.
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1462	].
4007 8f54ab1dbaa0 checkin from browser penk parents: 4004 diff changeset	1463	^ self.
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1464	].
4781 08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	1465	changedObject == self selectionInFileList ifTrue:[
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1466	self updateToExternFileHolderLock doIfUnLocked:[
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1467	self updateContentsSelection doLocked:[
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1468	self selectionChanged.
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1469	]
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1470	].
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1471	^ self.
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1472	].
4781 08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	1473	changedObject == self currentSortOrder ifTrue:[
4027 c662c75b6bf9 * empty log message * penk parents: 4026 diff changeset	1474	self currentSortOrderChanged.
c662c75b6bf9 * empty log message * penk parents: 4026 diff changeset	1475	^ self.
c662c75b6bf9 * empty log message * penk parents: 4026 diff changeset	1476	].
4781 08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	1477	changedObject == self filterBlockHolder ifTrue:[
4071 f923c8257818 * empty log message * penk parents: 4057 diff changeset	1478	self filterBlockHolderChanged.
3887 81925afd23fd initial checkin penk parents: diff changeset	1479	^ self.
81925afd23fd initial checkin penk parents: diff changeset	1480	].
4781 08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	1481	changedObject == self sortBlockHolder ifTrue:[
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	1482	self wakeUpForSortBlockChanged.
3887 81925afd23fd initial checkin penk parents: diff changeset	1483	^ self.
81925afd23fd initial checkin penk parents: diff changeset	1484	].
4781 08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	1485	changedObject == self viewDirsInContentsBrowser ifTrue:[
5869 02800ec824cc * empty log message * penk parents: 5868 diff changeset	1486	self sortBlockHolder value directoriesBeforeFiles:(self sortDirectoriesBeforeFiles value and:[self viewDirsInContentsBrowser value]).
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	1487	self wakeUpForFilterChanged.
3887 81925afd23fd initial checkin penk parents: diff changeset	1488	^ self
81925afd23fd initial checkin penk parents: diff changeset	1489	].
5869 02800ec824cc * empty log message * penk parents: 5868 diff changeset	1490	changedObject == self sortDirectoriesBeforeFiles ifTrue:[
02800ec824cc * empty log message * penk parents: 5868 diff changeset	1491	self sortBlockHolder value directoriesBeforeFiles:(self sortDirectoriesBeforeFiles value and:[self viewDirsInContentsBrowser value]).
02800ec824cc * empty log message * penk parents: 5868 diff changeset	1492	^ self
02800ec824cc * empty log message * penk parents: 5868 diff changeset	1493	].
4781 08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	1494	changedObject == self showDiskUsageHolder ifTrue:[
08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	1495	self notify:''.
08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	1496	changedObject value ifTrue:[
08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	1497	self startDiskUsageInfoProcess.
08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	1498	] ifFalse:[
08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	1499	self flushRememberedDiskUsageInfo
08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	1500	].
08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	1501	^ self
08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	1502	].
08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	1503
08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	1504	super update:something with:aParameter from:changedObject
3887 81925afd23fd initial checkin penk parents: diff changeset	1505	!
81925afd23fd initial checkin penk parents: diff changeset	1506
7563 51f1c11ce183 * empty log message * Claus Gittinger <cg@exept.de> parents: 7554 diff changeset	1507	updateListAfterDelete:collectionOfFiles
7572 94847f701c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 7564 diff changeset	1508	\|indices firstIndex lastIndex nextIndex nextItem\|
7563 51f1c11ce183 * empty log message * Claus Gittinger <cg@exept.de> parents: 7554 diff changeset	1509
51f1c11ce183 * empty log message * Claus Gittinger <cg@exept.de> parents: 7554 diff changeset	1510	collectionOfFiles size > 100 ifTrue:[
51f1c11ce183 * empty log message * Claus Gittinger <cg@exept.de> parents: 7554 diff changeset	1511	super updateListAfterDelete:collectionOfFiles.
51f1c11ce183 * empty log message * Claus Gittinger <cg@exept.de> parents: 7554 diff changeset	1512	^ self
51f1c11ce183 * empty log message * Claus Gittinger <cg@exept.de> parents: 7554 diff changeset	1513	].
51f1c11ce183 * empty log message * Claus Gittinger <cg@exept.de> parents: 7554 diff changeset	1514
51f1c11ce183 * empty log message * Claus Gittinger <cg@exept.de> parents: 7554 diff changeset	1515	indices := collectionOfFiles collect:[:eachFile \| browserItemList findFirst:[:item \| item fileName = eachFile]].
51f1c11ce183 * empty log message * Claus Gittinger <cg@exept.de> parents: 7554 diff changeset	1516	lastIndex := indices max.
7572 94847f701c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 7564 diff changeset	1517	firstIndex := indices min.
94847f701c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 7564 diff changeset	1518	nextIndex := lastIndex+1.
94847f701c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 7564 diff changeset	1519	nextIndex > browserItemList size ifTrue:[ nextIndex := firstIndex-1].
94847f701c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 7564 diff changeset	1520	nextItem := browserItemList at:nextIndex ifAbsent:nil.
94847f701c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 7564 diff changeset	1521
94847f701c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 7564 diff changeset	1522	accessLock critical:[
94847f701c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 7564 diff changeset	1523	indices asSortedCollection
94847f701c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 7564 diff changeset	1524	reverseDo:[:eachIndexToRemove \|
94847f701c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 7564 diff changeset	1525	eachIndexToRemove ~~ 0 ifTrue:[
94847f701c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 7564 diff changeset	1526	browserItemList removeIndex:eachIndexToRemove
94847f701c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 7564 diff changeset	1527	]
94847f701c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 7564 diff changeset	1528	].
94847f701c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 7564 diff changeset	1529	].
94847f701c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 7564 diff changeset	1530
11445 7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	1531	self directoryChanged. "/ to force update of the numberofshown files.
7563 51f1c11ce183 * empty log message * Claus Gittinger <cg@exept.de> parents: 7554 diff changeset	1532	nextItem notNil ifTrue:[
7572 94847f701c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 7564 diff changeset	1533	self
94847f701c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 7564 diff changeset	1534	enqueueMessage:#value
94847f701c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 7564 diff changeset	1535	for:[ self selectionInFileList value:(OrderedCollection with:nextItem).
94847f701c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 7564 diff changeset	1536	self selectItems:(OrderedCollection with:nextItem) ]
94847f701c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 7564 diff changeset	1537	arguments:#().
94847f701c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 7564 diff changeset	1538	"/ self selectionInFileList value:(OrderedCollection with:nextItem).
94847f701c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 7564 diff changeset	1539	"/ self selectItems:(OrderedCollection with:nextItem).
7563 51f1c11ce183 * empty log message * Claus Gittinger <cg@exept.de> parents: 7554 diff changeset	1540	].
51f1c11ce183 * empty log message * Claus Gittinger <cg@exept.de> parents: 7554 diff changeset	1541
11445 7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	1542	"Modified: / 20-03-2012 / 12:14:11 / cg"
5544 e5ccc9372d6b * empty log message * Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	1543	!
e5ccc9372d6b * empty log message * Claus Gittinger <cg@exept.de> parents: 5475 diff changeset	1544
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	1545	viewPreviewChanged
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	1546
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	1547	browserItemList do:[:el\| el resetImageFile ].
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	1548	self viewedColumnsChanged.
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	1549	!
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	1550
3887 81925afd23fd initial checkin penk parents: diff changeset	1551	viewedColumnsChanged
81925afd23fd initial checkin penk parents: diff changeset	1552
4976 86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1553	\|columns buffer currentSortOrder currentSortOrderColumn currentSortOrderReverse selection holder\|
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	1554
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	1555	selection := self selectedItems.
4778 e1c81c22bf36 Avoid slow grow operations on Array. Stefan Vogel <sv@exept.de> parents: 4768 diff changeset	1556	buffer := self class tableColumns
7764 54a93e4aff7b use decodeFromLiteralArray: Claus Gittinger <cg@exept.de> parents: 7714 diff changeset	1557	collect:[:col\| (DataSetColumnSpec decodeFromLiteralArray:col)].
4768 36eaed9339da code cleanup Claus Gittinger <cg@exept.de> parents: 4757 diff changeset	1558
4778 e1c81c22bf36 Avoid slow grow operations on Array. Stefan Vogel <sv@exept.de> parents: 4768 diff changeset	1559	columns := buffer asOrderedCollection.
3887 81925afd23fd initial checkin penk parents: diff changeset	1560	self viewDetails value = false ifTrue:[
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1561	browser showLabels:false.
3887 81925afd23fd initial checkin penk parents: diff changeset	1562	buffer do:[:col \|
81925afd23fd initial checkin penk parents: diff changeset	1563	(col readSelector = #baseName or:[col readSelector = #icon]) ifFalse:[
81925afd23fd initial checkin penk parents: diff changeset	1564	columns remove:col.
81925afd23fd initial checkin penk parents: diff changeset	1565	]
81925afd23fd initial checkin penk parents: diff changeset	1566	]
81925afd23fd initial checkin penk parents: diff changeset	1567	] ifFalse:[
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1568	browser showLabels:true.
4027 c662c75b6bf9 * empty log message * penk parents: 4026 diff changeset	1569	currentSortOrder := self currentSortOrder value.
c662c75b6bf9 * empty log message * penk parents: 4026 diff changeset	1570	currentSortOrderColumn := currentSortOrder at:#column ifAbsent:nil.
c662c75b6bf9 * empty log message * penk parents: 4026 diff changeset	1571	currentSortOrderReverse := currentSortOrder at:#reverse ifAbsent:nil.
3887 81925afd23fd initial checkin penk parents: diff changeset	1572	buffer do:[:col \|
8998 9e82e5a0ea9a * empty log message * Claus Gittinger <cg@exept.de> parents: 8977 diff changeset	1573	\| id label icon \|
4970 726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	1574
726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	1575	id := col readSelector.
3887 81925afd23fd initial checkin penk parents: diff changeset	1576	id notNil ifTrue:[
4027 c662c75b6bf9 * empty log message * penk parents: 4026 diff changeset	1577	(col labelActionArgument notNil and:[col labelActionArgument asSymbol == currentSortOrderColumn]) ifTrue:[
c662c75b6bf9 * empty log message * penk parents: 4026 diff changeset	1578	label := col label.
8998 9e82e5a0ea9a * empty log message * Claus Gittinger <cg@exept.de> parents: 8977 diff changeset	1579	icon := currentSortOrderReverse
9e82e5a0ea9a * empty log message * Claus Gittinger <cg@exept.de> parents: 8977 diff changeset	1580	ifTrue:[ self class detailsMenuIconDown]
9e82e5a0ea9a * empty log message * Claus Gittinger <cg@exept.de> parents: 8977 diff changeset	1581	ifFalse:[ self class detailsMenuIconUp].
4027 c662c75b6bf9 * empty log message * penk parents: 4026 diff changeset	1582	col label:(LabelAndIcon label:label icon:icon).
4976 86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1583	].
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1584
4970 726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	1585	((id == #baseName) or:[id == #baseNameWithOutSuffix]) ifTrue:[
4027 c662c75b6bf9 * empty log message * penk parents: 4026 diff changeset	1586	self viewType value ifTrue:[
c662c75b6bf9 * empty log message * penk parents: 4026 diff changeset	1587	col readSelector:#baseNameWithOutSuffix
3887 81925afd23fd initial checkin penk parents: diff changeset	1588	] ifFalse:[
4027 c662c75b6bf9 * empty log message * penk parents: 4026 diff changeset	1589	col readSelector:#baseName
c662c75b6bf9 * empty log message * penk parents: 4026 diff changeset	1590	].
c662c75b6bf9 * empty log message * penk parents: 4026 diff changeset	1591	] ifFalse:[
4976 86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1592	holder := self valueHolderForColumn:id.
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1593	holder value ifFalse:[
4970 726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	1594	columns remove:col.
4976 86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	1595	].
3887 81925afd23fd initial checkin penk parents: diff changeset	1596	]
81925afd23fd initial checkin penk parents: diff changeset	1597	]
81925afd23fd initial checkin penk parents: diff changeset	1598	]
81925afd23fd initial checkin penk parents: diff changeset	1599	].
4039 c259e9105173 * empty log message * penk parents: 4033 diff changeset	1600	self updateToExternFileHolderLock doLocked:[
c259e9105173 * empty log message * penk parents: 4033 diff changeset	1601	self tableColumns value:columns.
c259e9105173 * empty log message * penk parents: 4033 diff changeset	1602	].
3887 81925afd23fd initial checkin penk parents: diff changeset	1603	self columnDescriptors:(self tableColumns value).
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	1604	self selectItems:selection.
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	1605	self wakeUp.
7764 54a93e4aff7b use decodeFromLiteralArray: Claus Gittinger <cg@exept.de> parents: 7714 diff changeset	1606
54a93e4aff7b use decodeFromLiteralArray: Claus Gittinger <cg@exept.de> parents: 7714 diff changeset	1607	"Modified: / 27-03-2007 / 08:46:28 / cg"
3887 81925afd23fd initial checkin penk parents: diff changeset	1608	! !
81925afd23fd initial checkin penk parents: diff changeset	1609
81925afd23fd initial checkin penk parents: diff changeset	1610	!DirectoryContentsBrowser methodsFor:'drag & drop'!
81925afd23fd initial checkin penk parents: diff changeset	1611
81925afd23fd initial checkin penk parents: diff changeset	1612	doStartDrag:aDropSource in:aView
9360 442d863efe2a comment/format in: #doStartDrag:in: Claus Gittinger <cg@exept.de> parents: 9323 diff changeset	1613	"set the cursors before starting the drag & drop operation"
442d863efe2a comment/format in: #doStartDrag:in: Claus Gittinger <cg@exept.de> parents: 9323 diff changeset	1614
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1615	\|selectedFiles\|
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1616
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1617	selectedFiles := self selectedFiles.
4014 ba5e66d9b931 * empty log message * penk parents: 4013 diff changeset	1618	(selectedFiles isEmpty) ifTrue:[
3887 81925afd23fd initial checkin penk parents: diff changeset	1619	^ self.
81925afd23fd initial checkin penk parents: diff changeset	1620	].
3953 4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1621	^ super doStartDrag:aDropSource in:aView
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1622	!
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1623
4746 37dc71547964 * empty log message * Claus Gittinger <cg@exept.de> parents: 4738 diff changeset	1624	dropDestinationPath
37dc71547964 * empty log message * Claus Gittinger <cg@exept.de> parents: 4738 diff changeset	1625	\|destinationPath\|
37dc71547964 * empty log message * Claus Gittinger <cg@exept.de> parents: 4738 diff changeset	1626
37dc71547964 * empty log message * Claus Gittinger <cg@exept.de> parents: 4738 diff changeset	1627	draggedItem isNil ifTrue:[
37dc71547964 * empty log message * Claus Gittinger <cg@exept.de> parents: 4738 diff changeset	1628	destinationPath := self directory.
37dc71547964 * empty log message * Claus Gittinger <cg@exept.de> parents: 4738 diff changeset	1629	] ifFalse:[
37dc71547964 * empty log message * Claus Gittinger <cg@exept.de> parents: 4738 diff changeset	1630	destinationPath := self getDirWithoutFileName:(draggedItem fileName).
37dc71547964 * empty log message * Claus Gittinger <cg@exept.de> parents: 4738 diff changeset	1631	destinationPath baseName = '..' ifTrue:[
37dc71547964 * empty log message * Claus Gittinger <cg@exept.de> parents: 4738 diff changeset	1632	destinationPath := self directory directory.
37dc71547964 * empty log message * Claus Gittinger <cg@exept.de> parents: 4738 diff changeset	1633	]
37dc71547964 * empty log message * Claus Gittinger <cg@exept.de> parents: 4738 diff changeset	1634	].
37dc71547964 * empty log message * Claus Gittinger <cg@exept.de> parents: 4738 diff changeset	1635
37dc71547964 * empty log message * Claus Gittinger <cg@exept.de> parents: 4738 diff changeset	1636	^ destinationPath
37dc71547964 * empty log message * Claus Gittinger <cg@exept.de> parents: 4738 diff changeset	1637	!
37dc71547964 * empty log message * Claus Gittinger <cg@exept.de> parents: 4738 diff changeset	1638
4683 7d58777262a6 drop into empty directory Claus Gittinger <cg@exept.de> parents: 4662 diff changeset	1639	dropOver:aDropContext
4611 ef3e46e49777 comment Claus Gittinger <cg@exept.de> parents: 4607 diff changeset	1640	"called during drag & drop while moving over the widget."
ef3e46e49777 comment Claus Gittinger <cg@exept.de> parents: 4607 diff changeset	1641
3953 4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1642	\|lineNr newDest destinationFile\|
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1643
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1644	inDropMode ifFalse:[^ self].
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1645
4683 7d58777262a6 drop into empty directory Claus Gittinger <cg@exept.de> parents: 4662 diff changeset	1646	lineNr := self getLineNumberFor:aDropContext.
3953 4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1647	lineNr notNil ifTrue:[
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1648	newDest := browserItemList at:lineNr.
3953 4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1649	(newDest notNil and:[newDest isDirectory]) ifTrue:[
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1650	destinationFile := newDest fileName.
4014 ba5e66d9b931 * empty log message * penk parents: 4013 diff changeset	1651	destinationFile baseName = '..' ifTrue:[
3953 4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1652	destinationFile := self directory directory.
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1653	]
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1654	].
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1655	].
4683 7d58777262a6 drop into empty directory Claus Gittinger <cg@exept.de> parents: 4662 diff changeset	1656
7d58777262a6 drop into empty directory Claus Gittinger <cg@exept.de> parents: 4662 diff changeset	1657	newDest == draggedItem ifTrue:[
7d58777262a6 drop into empty directory Claus Gittinger <cg@exept.de> parents: 4662 diff changeset	1658	"/ beyond last contents-line
7d58777262a6 drop into empty directory Claus Gittinger <cg@exept.de> parents: 4662 diff changeset	1659	newDest isNil ifTrue:[
7d58777262a6 drop into empty directory Claus Gittinger <cg@exept.de> parents: 4662 diff changeset	1660	canDropItem := self canDropFiles:(aDropContext dropObjects) for:self directory.
7d58777262a6 drop into empty directory Claus Gittinger <cg@exept.de> parents: 4662 diff changeset	1661	].
7d58777262a6 drop into empty directory Claus Gittinger <cg@exept.de> parents: 4662 diff changeset	1662	^ self
7d58777262a6 drop into empty directory Claus Gittinger <cg@exept.de> parents: 4662 diff changeset	1663	].
3953 4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1664
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1665	destinationFile isNil ifTrue:[
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1666	destinationFile := self directory.
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1667	].
3887 81925afd23fd initial checkin penk parents: diff changeset	1668
3953 4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1669	newDest ~~ draggedItem ifTrue:[
4683 7d58777262a6 drop into empty directory Claus Gittinger <cg@exept.de> parents: 4662 diff changeset	1670	aDropContext dropSource argument == #archivApplication ifTrue:[
3953 4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1671	canDropItem := true.
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1672	] ifFalse:[
4683 7d58777262a6 drop into empty directory Claus Gittinger <cg@exept.de> parents: 4662 diff changeset	1673	canDropItem := self canDropFiles:(aDropContext dropObjects) for:destinationFile.
3953 4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1674	].
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1675	].
4683 7d58777262a6 drop into empty directory Claus Gittinger <cg@exept.de> parents: 4662 diff changeset	1676	self dropTargetItemChangedTo:newDest in:aDropContext.
3953 4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1677	!
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1678
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1679	dropTargetItemChangedTo:anItem in:aDropContext
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1680
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1681	\| current \|
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1682
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1683
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1684	"/ (anItem notNil and:[anItem isDirectory]) ifTrue:[ self halt].
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1685	current := draggedItem.
3967 09ec3349210c instable state penk parents: 3964 diff changeset	1686	"/ Transcript showCR:'current:', (current isNil ifTrue:['nil'] ifFalse:[current fileName baseName]).
09ec3349210c instable state penk parents: 3964 diff changeset	1687	"/ Transcript showCR:'anItem:', (anItem isNil ifTrue:['nil'] ifFalse:[anItem fileName baseName]).
3953 4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1688	current == anItem ifTrue:[^ self].
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1689	draggedItem := anItem.
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1690
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1691	aDropContext contentsWillChange.
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1692
9534 aabf8d5125a5 changed: #dropTargetItemChangedTo:in: Claus Gittinger <cg@exept.de> parents: 9513 diff changeset	1693	current notNil ifTrue:[
3953 4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1694	current isDirectory ifTrue:[
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1695	current icon:(self getIconFor:current).
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1696	].
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1697	].
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1698
9534 aabf8d5125a5 changed: #dropTargetItemChangedTo:in: Claus Gittinger <cg@exept.de> parents: 9513 diff changeset	1699	anItem notNil ifTrue:[
3953 4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1700	anItem isDirectory ifTrue:[
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1701	anItem icon:(FileBrowser iconForKeyMatching:#directoryOpenGray).
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1702	].
4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1703	].
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1704	browser shown ifTrue:[
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1705	browser invalidateVisibleRow:current colAt:iconIndex.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1706	browser invalidateVisibleRow:anItem colAt:iconIndex.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1707	browser repairDamage.
3953 4fd0ed70cf36 next stage penk parents: 3925 diff changeset	1708	].
9534 aabf8d5125a5 changed: #dropTargetItemChangedTo:in: Claus Gittinger <cg@exept.de> parents: 9513 diff changeset	1709
aabf8d5125a5 changed: #dropTargetItemChangedTo:in: Claus Gittinger <cg@exept.de> parents: 9513 diff changeset	1710	"Modified: / 08-08-2010 / 14:41:53 / cg"
3887 81925afd23fd initial checkin penk parents: diff changeset	1711	!
81925afd23fd initial checkin penk parents: diff changeset	1712
81925afd23fd initial checkin penk parents: diff changeset	1713	getDisplayObjects:anArgument
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1714	\|selectedItems string fnName stream\|
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1715
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1716	selectedItems := self selectedFiles.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1717	selectedItems isEmpty ifTrue:[ ^ ''].
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1718
3887 81925afd23fd initial checkin penk parents: diff changeset	1719	stream := WriteStream on:''.
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1720	stream nextPutAll:(selectedItems first baseName).
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1721	selectedItems size == 1 ifTrue:[
3887 81925afd23fd initial checkin penk parents: diff changeset	1722	fnName := 'ui_menuitem.xpm'.
81925afd23fd initial checkin penk parents: diff changeset	1723	] ifFalse:[
81925afd23fd initial checkin penk parents: diff changeset	1724	fnName := 'ui_submenu_open.xpm'.
81925afd23fd initial checkin penk parents: diff changeset	1725	stream nextPutAll:' ... '.
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1726	stream nextPutAll:(selectedItems last baseName).
3887 81925afd23fd initial checkin penk parents: diff changeset	1727	].
81925afd23fd initial checkin penk parents: diff changeset	1728	string := stream contents.
81925afd23fd initial checkin penk parents: diff changeset	1729	stream close.
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1730
3887 81925afd23fd initial checkin penk parents: diff changeset	1731	^ Array with:(LabelAndIcon icon:(Image fromFile:fnName)
81925afd23fd initial checkin penk parents: diff changeset	1732	string:(Text string:string emphasis:#bold)
81925afd23fd initial checkin penk parents: diff changeset	1733	)
81925afd23fd initial checkin penk parents: diff changeset	1734	! !
81925afd23fd initial checkin penk parents: diff changeset	1735
81925afd23fd initial checkin penk parents: diff changeset	1736	!DirectoryContentsBrowser methodsFor:'event handling'!
81925afd23fd initial checkin penk parents: diff changeset	1737
81925afd23fd initial checkin penk parents: diff changeset	1738	processEvent:anEvent
81925afd23fd initial checkin penk parents: diff changeset	1739	"filter keyboard events.
81925afd23fd initial checkin penk parents: diff changeset	1740	Return true, if I have eaten the event"
81925afd23fd initial checkin penk parents: diff changeset	1741
81925afd23fd initial checkin penk parents: diff changeset	1742	\|focusView key rawKey\|
81925afd23fd initial checkin penk parents: diff changeset	1743
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1744	anEvent isKeyPressEvent ifFalse:[^ false].
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1745
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1746	focusView := anEvent targetView.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1747	(focusView isNil or:[focusView ~~ browser]) ifTrue:[ ^ false].
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1748
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1749	key := anEvent key.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1750	rawKey := anEvent rawKey.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1751
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1752	"/ (key ~= #'Alt_L') ifTrue:[self halt.].
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1753	key == #Accept ifTrue:[
6831 56061d3bcbf0 wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6826 diff changeset	1754	self withActivityIndicationDo:[
5260 5ec6bd0c9c14 wait cursor during checkIn Claus Gittinger <cg@exept.de> parents: 5249 diff changeset	1755	self fileFileIn.
5ec6bd0c9c14 wait cursor during checkIn Claus Gittinger <cg@exept.de> parents: 5249 diff changeset	1756	].
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1757	^ true.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1758	].
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1759	key == #Paste ifTrue:[
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1760	self pasteFiles.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1761	^ true.
3887 81925afd23fd initial checkin penk parents: diff changeset	1762	].
4970 726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	1763	"/ strange feeling, because behavior is different depending on
726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	1764	"/ where the mouse pointer is (treeView vs. contentsView)
726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	1765	"/
5404 cc0458a59070 cursor-left Claus Gittinger <cg@exept.de> parents: 5383 diff changeset	1766	(key == #CursorLeft) ifTrue:[
cc0458a59070 cursor-left Claus Gittinger <cg@exept.de> parents: 5383 diff changeset	1767	self doGoDirectoryUp.
cc0458a59070 cursor-left Claus Gittinger <cg@exept.de> parents: 5383 diff changeset	1768	^ true
cc0458a59070 cursor-left Claus Gittinger <cg@exept.de> parents: 5383 diff changeset	1769	].
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1770	"/ (key == #CursorRight) ifTrue:[
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1771	"/ self doBack.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1772	"/ ^ true
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1773	"/ ].
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1774	browserItemList size == 0 ifTrue:[
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1775	^ false
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1776	].
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1777
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1778	key == #Cut ifTrue:[
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1779	self doCut.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1780	^ true.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1781	].
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1782	key == #Copy ifTrue:[
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1783	self doCopy.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1784	^ true.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1785	].
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1786	key == #Delete ifTrue:[
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1787	self doDelete.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1788	^ true.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1789	].
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1790	(key == #Return) ifTrue:[
4972 900a778786bc directory up on enter in DirectoryContentsBrowser penk parents: 4970 diff changeset	1791	self enterAction.
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1792	^ true.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1793	].
8715 b3cab0b56b9a Cmdr -> F2 Claus Gittinger <cg@exept.de> parents: 8658 diff changeset	1794	key == #Rename ifTrue:[
4828 85483f15dbe2 rename-key Claus Gittinger <cg@exept.de> parents: 4786 diff changeset	1795	self renameSelection.
85483f15dbe2 rename-key Claus Gittinger <cg@exept.de> parents: 4786 diff changeset	1796	^ true.
85483f15dbe2 rename-key Claus Gittinger <cg@exept.de> parents: 4786 diff changeset	1797	].
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1798
3887 81925afd23fd initial checkin penk parents: diff changeset	1799	^ false
6831 56061d3bcbf0 wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6826 diff changeset	1800
56061d3bcbf0 wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6826 diff changeset	1801	"Modified: / 25-07-2006 / 09:08:16 / cg"
3887 81925afd23fd initial checkin penk parents: diff changeset	1802	! !
81925afd23fd initial checkin penk parents: diff changeset	1803
6298 6aae3f1eaa15 * empty log message * Claus Gittinger <cg@exept.de> parents: 6286 diff changeset	1804	!DirectoryContentsBrowser methodsFor:'initialization'!
6226 c88567331045 * empty log message * penk parents: 6225 diff changeset	1805
c88567331045 * empty log message * penk parents: 6225 diff changeset	1806	initialize
c88567331045 * empty log message * penk parents: 6225 diff changeset	1807	changeSema := Semaphore new.
7572 94847f701c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 7564 diff changeset	1808	updateCycleSemaphore := Semaphore new.
94847f701c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 7564 diff changeset	1809	accessLock := RecursionLock new.
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	1810
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	1811	filterChangeFlag := false.
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	1812	sortBlockChangeFlag := false.
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	1813	directoryChangeFlag := false.
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	1814	directoryContentsChangeFlag := false.
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	1815
6226 c88567331045 * empty log message * penk parents: 6225 diff changeset	1816	super initialize.
7572 94847f701c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 7564 diff changeset	1817
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	1818	"Modified: / 07-01-2012 / 16:34:25 / cg"
6226 c88567331045 * empty log message * penk parents: 6225 diff changeset	1819	! !
c88567331045 * empty log message * penk parents: 6225 diff changeset	1820
3887 81925afd23fd initial checkin penk parents: diff changeset	1821	!DirectoryContentsBrowser methodsFor:'menu accessing'!
81925afd23fd initial checkin penk parents: diff changeset	1822
81925afd23fd initial checkin penk parents: diff changeset	1823	viewBrowserMenu
81925afd23fd initial checkin penk parents: diff changeset	1824
81925afd23fd initial checkin penk parents: diff changeset	1825	<resource: #programMenu >
81925afd23fd initial checkin penk parents: diff changeset	1826
81925afd23fd initial checkin penk parents: diff changeset	1827	\|menu\|
81925afd23fd initial checkin penk parents: diff changeset	1828
3961 cc887842b5ca next stage penk parents: 3953 diff changeset	1829	viewBrowserMenu isNil ifTrue:[
cc887842b5ca next stage penk parents: 3953 diff changeset	1830	viewBrowserMenu := self class viewBrowserMenu.
cc887842b5ca next stage penk parents: 3953 diff changeset	1831	].
7584 3742d4192948 * empty log message * Claus Gittinger <cg@exept.de> parents: 7572 diff changeset	1832	viewBrowserMenu isNil ifTrue:[ ^ nil ].
4080 c32f68f51f47 translation to german penk parents: 4073 diff changeset	1833	viewBrowserMenu findGuiResourcesIn:self.
c32f68f51f47 translation to german penk parents: 4073 diff changeset	1834
3961 cc887842b5ca next stage penk parents: 3953 diff changeset	1835	menu := viewBrowserMenu.
3887 81925afd23fd initial checkin penk parents: diff changeset	1836	menu receiver:self.
81925afd23fd initial checkin penk parents: diff changeset	1837	^ menu
81925afd23fd initial checkin penk parents: diff changeset	1838	! !
81925afd23fd initial checkin penk parents: diff changeset	1839
81925afd23fd initial checkin penk parents: diff changeset	1840	!DirectoryContentsBrowser methodsFor:'menu actions'!
81925afd23fd initial checkin penk parents: diff changeset	1841
81925afd23fd initial checkin penk parents: diff changeset	1842	doShowFileContents
81925afd23fd initial checkin penk parents: diff changeset	1843
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1844	\| selectedFileItems\|
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1845
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1846	selectedFileItems := self selectedFileItems.
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1847	(selectedFileItems size == 1) ifTrue:[
4880 87f511659680 edit file in context menu of DirectoryContentsBroser opens a new tab penk parents: 4862 diff changeset	1848	self openNewTextEditorOn:(selectedFileItems first).
3887 81925afd23fd initial checkin penk parents: diff changeset	1849	].
4972 900a778786bc directory up on enter in DirectoryContentsBrowser penk parents: 4970 diff changeset	1850	!
900a778786bc directory up on enter in DirectoryContentsBrowser penk parents: 4970 diff changeset	1851
900a778786bc directory up on enter in DirectoryContentsBrowser penk parents: 4970 diff changeset	1852	enterAction
900a778786bc directory up on enter in DirectoryContentsBrowser penk parents: 4970 diff changeset	1853
900a778786bc directory up on enter in DirectoryContentsBrowser penk parents: 4970 diff changeset	1854	\| selectedItems\|
900a778786bc directory up on enter in DirectoryContentsBrowser penk parents: 4970 diff changeset	1855
900a778786bc directory up on enter in DirectoryContentsBrowser penk parents: 4970 diff changeset	1856	selectedItems := self selectedItems.
900a778786bc directory up on enter in DirectoryContentsBrowser penk parents: 4970 diff changeset	1857	(selectedItems size == 1) ifTrue:[
900a778786bc directory up on enter in DirectoryContentsBrowser penk parents: 4970 diff changeset	1858	self enterActionFor:(selectedItems first).
900a778786bc directory up on enter in DirectoryContentsBrowser penk parents: 4970 diff changeset	1859	].
3887 81925afd23fd initial checkin penk parents: diff changeset	1860	! !
81925afd23fd initial checkin penk parents: diff changeset	1861
81925afd23fd initial checkin penk parents: diff changeset	1862	!DirectoryContentsBrowser methodsFor:'queries'!
81925afd23fd initial checkin penk parents: diff changeset	1863
81925afd23fd initial checkin penk parents: diff changeset	1864	allItemsOfCurrentDirectory
4202 1a518bcfa35a checkin from browser penk parents: 4176 diff changeset	1865	self viewDirsInContentsBrowser value ifTrue:[
4768 36eaed9339da code cleanup Claus Gittinger <cg@exept.de> parents: 4757 diff changeset	1866	^ browserItemList copyFrom:2. "/ remove the '..' item
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1867	].
4768 36eaed9339da code cleanup Claus Gittinger <cg@exept.de> parents: 4757 diff changeset	1868	^ browserItemList.
3887 81925afd23fd initial checkin penk parents: diff changeset	1869	!
81925afd23fd initial checkin penk parents: diff changeset	1870
81925afd23fd initial checkin penk parents: diff changeset	1871	fileListIsEmpty
81925afd23fd initial checkin penk parents: diff changeset	1872
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1873	^ browserItemList isEmpty
3887 81925afd23fd initial checkin penk parents: diff changeset	1874	!
81925afd23fd initial checkin penk parents: diff changeset	1875
4768 36eaed9339da code cleanup Claus Gittinger <cg@exept.de> parents: 4757 diff changeset	1876	getAllFilesAsStrings
36eaed9339da code cleanup Claus Gittinger <cg@exept.de> parents: 4757 diff changeset	1877	browserItemList isEmpty ifTrue:[
36eaed9339da code cleanup Claus Gittinger <cg@exept.de> parents: 4757 diff changeset	1878	^ #()
3887 81925afd23fd initial checkin penk parents: diff changeset	1879	].
4768 36eaed9339da code cleanup Claus Gittinger <cg@exept.de> parents: 4757 diff changeset	1880	^ browserItemList
36eaed9339da code cleanup Claus Gittinger <cg@exept.de> parents: 4757 diff changeset	1881	select:[:anItem \| anItem isDirectory not]
36eaed9339da code cleanup Claus Gittinger <cg@exept.de> parents: 4757 diff changeset	1882	thenCollect:[:eachItem \| eachItem fileName asString].
4004 f97168a68093 * empty log message * Claus Gittinger <cg@exept.de> parents: 3999 diff changeset	1883	!
f97168a68093 * empty log message * Claus Gittinger <cg@exept.de> parents: 3999 diff changeset	1884
f97168a68093 * empty log message * Claus Gittinger <cg@exept.de> parents: 3999 diff changeset	1885	hasFilesFiltered
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	1886
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	1887	^ self allItems size ~~ browserItemList size
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1888	! !
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1889
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1890	!DirectoryContentsBrowser methodsFor:'selection'!
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1891
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1892	selectAll
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1893
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1894	\| sel\|
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1895
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1896	sel := browserItemList copy.
4202 1a518bcfa35a checkin from browser penk parents: 4176 diff changeset	1897	self viewDirsInContentsBrowser value ifTrue:[
4013 049b94940308 * empty log message * penk parents: 4012 diff changeset	1898	sel removeIdentical:(browserItemList first) ifAbsent:[nil]
3887 81925afd23fd initial checkin penk parents: diff changeset	1899	].
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1900	self selectionInFileList value:sel.
3887 81925afd23fd initial checkin penk parents: diff changeset	1901	!
81925afd23fd initial checkin penk parents: diff changeset	1902
4017 30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1903	selectCurrentFiles
30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1904
30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1905	\|currentSelection\|
30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1906
7563 51f1c11ce183 * empty log message * Claus Gittinger <cg@exept.de> parents: 7554 diff changeset	1907	((currentSelection := self currentSelectedObjects select:[:file\| file isDirectory not]) notEmpty) ifTrue:[
4017 30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1908	self selectFiles:currentSelection.
30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1909	].
7563 51f1c11ce183 * empty log message * Claus Gittinger <cg@exept.de> parents: 7554 diff changeset	1910
51f1c11ce183 * empty log message * Claus Gittinger <cg@exept.de> parents: 7554 diff changeset	1911	"Modified: / 04-12-2006 / 13:15:34 / cg"
4017 30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1912	!
30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1913
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1914	selectFiles:aColOfFilenames
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1915	\| curSel newSel\|
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1916
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1917	curSel := self selectedFiles.
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1918	aColOfFilenames size = curSel size ifTrue:[
9105 e848e5001118 code cleanup Claus Gittinger <cg@exept.de> parents: 9103 diff changeset	1919	"/ anything changed ?
e848e5001118 code cleanup Claus Gittinger <cg@exept.de> parents: 9103 diff changeset	1920	(curSel contains:[:file\| (aColOfFilenames includes:file) not]) ifFalse:[^ self].
3887 81925afd23fd initial checkin penk parents: diff changeset	1921	].
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1922	newSel := OrderedCollection new.
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1923	browserItemList do:[: item\|
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1924	(aColOfFilenames includes:(item fileName)) ifTrue:[
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1925	newSel add:item.
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1926	].
3887 81925afd23fd initial checkin penk parents: diff changeset	1927	].
4017 30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1928	self updateToExternFileHolderLock doLocked:[
4071 f923c8257818 * empty log message * penk parents: 4057 diff changeset	1929	self selectionInFileList value:newSel withoutNotifying:self.
4017 30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	1930	].
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1931	!
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1932
4335 b56935032115 keep selection on update and insert new lines smarter in displayed list penk parents: 4298 diff changeset	1933	selectItems:aColOfItems
4768 36eaed9339da code cleanup Claus Gittinger <cg@exept.de> parents: 4757 diff changeset	1934	self selectFiles:(aColOfItems collect:[:eachItem \| eachItem fileName]).
36eaed9339da code cleanup Claus Gittinger <cg@exept.de> parents: 4757 diff changeset	1935
36eaed9339da code cleanup Claus Gittinger <cg@exept.de> parents: 4757 diff changeset	1936	"/ \| curSel newSel\|
36eaed9339da code cleanup Claus Gittinger <cg@exept.de> parents: 4757 diff changeset	1937	"/
36eaed9339da code cleanup Claus Gittinger <cg@exept.de> parents: 4757 diff changeset	1938	"/ curSel := self selectedItems.
36eaed9339da code cleanup Claus Gittinger <cg@exept.de> parents: 4757 diff changeset	1939	"/ aColOfItems size = curSel size ifTrue:[
36eaed9339da code cleanup Claus Gittinger <cg@exept.de> parents: 4757 diff changeset	1940	"/ \| index \|
36eaed9339da code cleanup Claus Gittinger <cg@exept.de> parents: 4757 diff changeset	1941	"/ index := curSel findFirst:[:item\| (aColOfItems includes:item) not].
36eaed9339da code cleanup Claus Gittinger <cg@exept.de> parents: 4757 diff changeset	1942	"/ index == 0 ifTrue:[ ^ self].
36eaed9339da code cleanup Claus Gittinger <cg@exept.de> parents: 4757 diff changeset	1943	"/ ].
36eaed9339da code cleanup Claus Gittinger <cg@exept.de> parents: 4757 diff changeset	1944	"/ newSel := OrderedCollection new.
36eaed9339da code cleanup Claus Gittinger <cg@exept.de> parents: 4757 diff changeset	1945	"/ browserItemList do:[: item\|
36eaed9339da code cleanup Claus Gittinger <cg@exept.de> parents: 4757 diff changeset	1946	"/ (aColOfItems includes:item) ifTrue:[
36eaed9339da code cleanup Claus Gittinger <cg@exept.de> parents: 4757 diff changeset	1947	"/ newSel add:item.
36eaed9339da code cleanup Claus Gittinger <cg@exept.de> parents: 4757 diff changeset	1948	"/ ].
36eaed9339da code cleanup Claus Gittinger <cg@exept.de> parents: 4757 diff changeset	1949	"/ ].
36eaed9339da code cleanup Claus Gittinger <cg@exept.de> parents: 4757 diff changeset	1950	"/ self updateToExternFileHolderLock doLocked:[
36eaed9339da code cleanup Claus Gittinger <cg@exept.de> parents: 4757 diff changeset	1951	"/ self selectionInFileList value:newSel withoutNotifying:self.
36eaed9339da code cleanup Claus Gittinger <cg@exept.de> parents: 4757 diff changeset	1952	"/ ].
4335 b56935032115 keep selection on update and insert new lines smarter in displayed list penk parents: 4298 diff changeset	1953	!
b56935032115 keep selection on update and insert new lines smarter in displayed list penk parents: 4298 diff changeset	1954
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1955	selectedFileItems
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1956
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1957	\| sel \|
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1958
4972 900a778786bc directory up on enter in DirectoryContentsBrowser penk parents: 4970 diff changeset	1959	sel := self selectedItemsWithoutDotDotDirectory select:[:item \| item isDirectory not].
3987 f012466a71cd * empty log message * ca parents: 3985 diff changeset	1960	^ sel
f012466a71cd * empty log message * ca parents: 3985 diff changeset	1961	!
f012466a71cd * empty log message * ca parents: 3985 diff changeset	1962
f012466a71cd * empty log message * ca parents: 3985 diff changeset	1963	selectedFileNames
f012466a71cd * empty log message * ca parents: 3985 diff changeset	1964	^ self selectedFileItems collect:[:item\| item fileName].
3887 81925afd23fd initial checkin penk parents: diff changeset	1965	!
81925afd23fd initial checkin penk parents: diff changeset	1966
4978 9ca1ae265211 selectedFiles for directoryContentsBrowser without the .. dir penk parents: 4976 diff changeset	1967	selectedFiles
9ca1ae265211 selectedFiles for directoryContentsBrowser without the .. dir penk parents: 4976 diff changeset	1968
9ca1ae265211 selectedFiles for directoryContentsBrowser without the .. dir penk parents: 4976 diff changeset	1969	^ self selectedItemsWithoutDotDotDirectory collect:[:item\| item fileName].
9ca1ae265211 selectedFiles for directoryContentsBrowser without the .. dir penk parents: 4976 diff changeset	1970	!
9ca1ae265211 selectedFiles for directoryContentsBrowser without the .. dir penk parents: 4976 diff changeset	1971
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	1972	selectedItems
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1973	\| selection \|
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1974
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1975	selection := self selectionInFileList value copy.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1976	selection isNil ifTrue:[ ^ #()].
5870 5ea994015006 * empty log message * penk parents: 5869 diff changeset	1977	selection isSequenceable ifFalse:[
5ea994015006 * empty log message * penk parents: 5869 diff changeset	1978	selection := OrderedCollection with:selection
5ea994015006 * empty log message * penk parents: 5869 diff changeset	1979	].
4972 900a778786bc directory up on enter in DirectoryContentsBrowser penk parents: 4970 diff changeset	1980	^ selection.
900a778786bc directory up on enter in DirectoryContentsBrowser penk parents: 4970 diff changeset	1981	!
900a778786bc directory up on enter in DirectoryContentsBrowser penk parents: 4970 diff changeset	1982
900a778786bc directory up on enter in DirectoryContentsBrowser penk parents: 4970 diff changeset	1983	selectedItemsWithoutDotDotDirectory
900a778786bc directory up on enter in DirectoryContentsBrowser penk parents: 4970 diff changeset	1984	\| selection \|
900a778786bc directory up on enter in DirectoryContentsBrowser penk parents: 4970 diff changeset	1985
5676 931b1a2b9ef1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5654 diff changeset	1986	selection := self selectionInFileList value.
4972 900a778786bc directory up on enter in DirectoryContentsBrowser penk parents: 4970 diff changeset	1987	selection isNil ifTrue:[ ^ #()].
5868 ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	1988	selection isSequenceable ifFalse:[
ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	1989	selection := OrderedCollection with:selection.
ea383a2721e6 * empty log message * penk parents: 5818 diff changeset	1990	].
8977 0fd3fcbb8fc7 copy asOrderedCollection -> copyAsOrderedCollection Claus Gittinger <cg@exept.de> parents: 8845 diff changeset	1991	selection := selection copyAsOrderedCollection.
4202 1a518bcfa35a checkin from browser penk parents: 4176 diff changeset	1992	(self viewDirsInContentsBrowser value and:[browserItemList notEmpty]) ifTrue:[
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1993	selection removeIdentical:(browserItemList first) ifAbsent:[nil]
3887 81925afd23fd initial checkin penk parents: diff changeset	1994	].
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1995	^ selection.
3887 81925afd23fd initial checkin penk parents: diff changeset	1996	! !
81925afd23fd initial checkin penk parents: diff changeset	1997
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	1998	!DirectoryContentsBrowser methodsFor:'startup & release'!
3887 81925afd23fd initial checkin penk parents: diff changeset	1999
81925afd23fd initial checkin penk parents: diff changeset	2000	makeDependent
81925afd23fd initial checkin penk parents: diff changeset	2001
4007 8f54ab1dbaa0 checkin from browser penk parents: 4004 diff changeset	2002	super makeDependent.
3887 81925afd23fd initial checkin penk parents: diff changeset	2003	self currentFileNameHolder addDependent:self.
4027 c662c75b6bf9 * empty log message * penk parents: 4026 diff changeset	2004	self currentSortOrder addDependent:self.
4202 1a518bcfa35a checkin from browser penk parents: 4176 diff changeset	2005	self viewDirsInContentsBrowser addDependent:self.
5869 02800ec824cc * empty log message * penk parents: 5868 diff changeset	2006	self sortDirectoriesBeforeFiles addDependent:self.
4011 73fa35b1963b * empty log message * penk parents: 4007 diff changeset	2007	self filterBlockHolder addDependent:self.
3887 81925afd23fd initial checkin penk parents: diff changeset	2008	self sortBlockHolder addDependent:self.
81925afd23fd initial checkin penk parents: diff changeset	2009	!
81925afd23fd initial checkin penk parents: diff changeset	2010
81925afd23fd initial checkin penk parents: diff changeset	2011	postBuildBrowser:aWidget
81925afd23fd initial checkin penk parents: diff changeset	2012
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	2013	browser := aWidget scrolledView.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	2014	browser wantsFocusWithPointerEnter.
3887 81925afd23fd initial checkin penk parents: diff changeset	2015	"/ dont register icons anymore
81925afd23fd initial checkin penk parents: diff changeset	2016	"/ FileBrowser icons keysAndValuesDo:[:aKey :anIcon\|
81925afd23fd initial checkin penk parents: diff changeset	2017	"/ browser registerImage:anIcon key:aKey.
81925afd23fd initial checkin penk parents: diff changeset	2018	"/ ].
4960 c76ffd8375ae startUpdatetask later (after colDescr is fix) Claus Gittinger <cg@exept.de> parents: 4957 diff changeset	2019	"/ self columnDescriptors:(self tableColumns value).
4071 f923c8257818 * empty log message * penk parents: 4057 diff changeset	2020	!
f923c8257818 * empty log message * penk parents: 4057 diff changeset	2021
5444 02b2cd0dfd69 open treebrowser with empty window bug penk parents: 5443 diff changeset	2022	postOpenFromMaster:fromMaster
4071 f923c8257818 * empty log message * penk parents: 4057 diff changeset	2023
4998 b9beb9d20bc7 sort before open penk parents: 4988 diff changeset	2024	self sortFileListsBy:(self sortBlockProperty value) withReverse:(self currentSortOrder value).
7714 3ac0b3a85397 slight tuning Claus Gittinger <cg@exept.de> parents: 7672 diff changeset	2025	self matchBlock:(self filterBlockHolder value).
5444 02b2cd0dfd69 open treebrowser with empty window bug penk parents: 5443 diff changeset	2026	fromMaster ifFalse:[
5442 4e025f6f8ed7 building not complete in open from master penk parents: 5432 diff changeset	2027	self currentFileNameHolderChangedForCommon.
4e025f6f8ed7 building not complete in open from master penk parents: 5432 diff changeset	2028	].
5443 27b5143d23f7 building not complete in open from master penk parents: 5442 diff changeset	2029	self currentFileNameHolderChanged.
3887 81925afd23fd initial checkin penk parents: diff changeset	2030	self viewedColumnsChanged.
4960 c76ffd8375ae startUpdatetask later (after colDescr is fix) Claus Gittinger <cg@exept.de> parents: 4957 diff changeset	2031	self startUpdateTask.
4071 f923c8257818 * empty log message * penk parents: 4057 diff changeset	2032	self windowGroup addPreEventHook:self.
3887 81925afd23fd initial checkin penk parents: diff changeset	2033	!
81925afd23fd initial checkin penk parents: diff changeset	2034
81925afd23fd initial checkin penk parents: diff changeset	2035	release
81925afd23fd initial checkin penk parents: diff changeset	2036	"release my resources
81925afd23fd initial checkin penk parents: diff changeset	2037	"
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2038	self stopUpdateTask.
3887 81925afd23fd initial checkin penk parents: diff changeset	2039	super release.
81925afd23fd initial checkin penk parents: diff changeset	2040	!
81925afd23fd initial checkin penk parents: diff changeset	2041
81925afd23fd initial checkin penk parents: diff changeset	2042	releaseAsSubCanvas
81925afd23fd initial checkin penk parents: diff changeset	2043
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2044	self stopUpdateTask.
3887 81925afd23fd initial checkin penk parents: diff changeset	2045	^ super releaseAsSubCanvas.
81925afd23fd initial checkin penk parents: diff changeset	2046	! !
81925afd23fd initial checkin penk parents: diff changeset	2047
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2048	!DirectoryContentsBrowser methodsFor:'update columns cycle'!
3887 81925afd23fd initial checkin penk parents: diff changeset	2049
6222 8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2050	findNextItemFor:aConditionBlock
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2051	\|checkRowAndReturnItemIfConditionIsTrue
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2052	firstRowShown lastRowShown rLow rHigh numItems\|
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2053
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2054	checkRowAndReturnItemIfConditionIsTrue :=
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2055	[:row \| \|item\|
7963 224f493a0034 * empty log message * Claus Gittinger <cg@exept.de> parents: 7908 diff changeset	2056	item := browserItemList at:row ifAbsent:nil.
224f493a0034 * empty log message * Claus Gittinger <cg@exept.de> parents: 7908 diff changeset	2057	item notNil ifTrue:[
224f493a0034 * empty log message * Claus Gittinger <cg@exept.de> parents: 7908 diff changeset	2058	(aConditionBlock value:item) ifTrue:[
224f493a0034 * empty log message * Claus Gittinger <cg@exept.de> parents: 7908 diff changeset	2059	^ item.
224f493a0034 * empty log message * Claus Gittinger <cg@exept.de> parents: 7908 diff changeset	2060	]
6222 8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2061	].
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2062	].
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2063
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2064	firstRowShown := browser indexOfFirstRowShown.
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2065	lastRowShown := browser indexOfLastRowShown.
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2066
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2067	firstRowShown to:lastRowShown do:checkRowAndReturnItemIfConditionIsTrue.
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2068
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2069	numItems := browserItemList size.
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2070
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2071	rLow := firstRowShown - 1.
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2072	rHigh := lastRowShown + 1.
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2073	[(rLow >= 1) or:[ rHigh <= numItems]] whileTrue:[
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2074	rLow >= 1 ifTrue:[
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2075	checkRowAndReturnItemIfConditionIsTrue value:rLow.
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2076	rLow := rLow - 1
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2077	].
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2078	rHigh <= numItems ifTrue:[
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2079	checkRowAndReturnItemIfConditionIsTrue value:rHigh.
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2080	rHigh := rHigh + 1
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2081	].
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2082	].
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2083	^ nil.
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2084
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2085	"/ ^ self allItems detect:aBlock ifNone:[nil].
4017 30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	2086	!
30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	2087
30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	2088	findNextVisibleItemFor:aConditionBlock
6222 8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2089	\|firstRow row item\|
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2090
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2091	firstRow := browser indexOfFirstRowShown.
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2092	firstRow <= 0 ifTrue:[firstRow := 1].
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2093
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2094	row := firstRow.
6826 2b6bf0d725c2 eliminated loop-send Claus Gittinger <cg@exept.de> parents: 6809 diff changeset	2095	[true] whileTrue:[
6222 8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2096	((row <= browserItemList size) and:[ (browser isRowVisible:row) ]) ifFalse:[
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2097	^ nil.
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	2098	].
8658 bf595f0cb6f5 changed #findNextVisibleItemFor: Stefan Vogel <sv@exept.de> parents: 8533 diff changeset	2099	item := browserItemList at:row ifAbsent:[^ nil "possible race condition - item removed from browserItemList"].
6222 8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2100	(aConditionBlock value:item) ifTrue:[
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2101	^ item.
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2102	].
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2103	row := row + 1.
6826 2b6bf0d725c2 eliminated loop-send Claus Gittinger <cg@exept.de> parents: 6809 diff changeset	2104	]
2b6bf0d725c2 eliminated loop-send Claus Gittinger <cg@exept.de> parents: 6809 diff changeset	2105
2b6bf0d725c2 eliminated loop-send Claus Gittinger <cg@exept.de> parents: 6809 diff changeset	2106	"Modified: / 18-07-2006 / 08:56:47 / cg"
3887 81925afd23fd initial checkin penk parents: diff changeset	2107	!
81925afd23fd initial checkin penk parents: diff changeset	2108
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 4998 diff changeset	2109	getFileInfoFor:anItem
3887 81925afd23fd initial checkin penk parents: diff changeset	2110
81925afd23fd initial checkin penk parents: diff changeset	2111	\| type\|
81925afd23fd initial checkin penk parents: diff changeset	2112
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 4998 diff changeset	2113	type := anItem fileName fileType.
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 4998 diff changeset	2114	anItem fileType:type.
3887 81925afd23fd initial checkin penk parents: diff changeset	2115	^ type
81925afd23fd initial checkin penk parents: diff changeset	2116	!
81925afd23fd initial checkin penk parents: diff changeset	2117
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 4998 diff changeset	2118	getIconFor:anItem
3887 81925afd23fd initial checkin penk parents: diff changeset	2119
81925afd23fd initial checkin penk parents: diff changeset	2120	\| key icon\|
3906 8a76cb4f5884 next stage penk parents: 3888 diff changeset	2121
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 4998 diff changeset	2122	key := anItem iconKey.
3887 81925afd23fd initial checkin penk parents: diff changeset	2123	icon := FileBrowser iconForKeyMatching:key.
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 4998 diff changeset	2124	anItem isRemoteDirectory ifTrue:[
3906 8a76cb4f5884 next stage penk parents: 3888 diff changeset	2125	^ icon "/ do not query attributes
8a76cb4f5884 next stage penk parents: 3888 diff changeset	2126	].
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 4998 diff changeset	2127	^ FileBrowser addOnIconsFor:(anItem fileName) to:icon.
3887 81925afd23fd initial checkin penk parents: diff changeset	2128	!
81925afd23fd initial checkin penk parents: diff changeset	2129
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 4998 diff changeset	2130	getIconForMimeType:mime for:anItem
7908 820560688c8a changed #getIconForMimeType:for: Claus Gittinger <cg@exept.de> parents: 7901 diff changeset	2131	\|currentIcon newIcon images\|
820560688c8a changed #getIconForMimeType:for: Claus Gittinger <cg@exept.de> parents: 7901 diff changeset	2132
4404 1165b811a9a9 only ask once for mimeTypeOfContents Claus Gittinger <cg@exept.de> parents: 4402 diff changeset	2133	newIcon := FileBrowser iconForKeyMatching:mime.
9323 3c5386d9456a changed: ca parents: 9318 diff changeset	2134	currentIcon := anItem iconOrNil.
3c5386d9456a changed: ca parents: 9318 diff changeset	2135
3c5386d9456a changed: ca parents: 9318 diff changeset	2136	(currentIcon notNil and:[currentIcon class == MultiImage]) ifTrue:[
3887 81925afd23fd initial checkin penk parents: diff changeset	2137	images := currentIcon images.
81925afd23fd initial checkin penk parents: diff changeset	2138	images removeFirst.
81925afd23fd initial checkin penk parents: diff changeset	2139	images addFirst:newIcon.
7908 820560688c8a changed #getIconForMimeType:for: Claus Gittinger <cg@exept.de> parents: 7901 diff changeset	2140	^ currentIcon.
3887 81925afd23fd initial checkin penk parents: diff changeset	2141	].
9323 3c5386d9456a changed: ca parents: 9318 diff changeset	2142	^ newIcon.
3887 81925afd23fd initial checkin penk parents: diff changeset	2143	!
81925afd23fd initial checkin penk parents: diff changeset	2144
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 4998 diff changeset	2145	getIconForMimeTypeByContents:anItem
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 4998 diff changeset	2146	^ self getIconForMimeType:(anItem mimeTypeForContents) for:anItem
4404 1165b811a9a9 only ask once for mimeTypeOfContents Claus Gittinger <cg@exept.de> parents: 4402 diff changeset	2147	!
1165b811a9a9 only ask once for mimeTypeOfContents Claus Gittinger <cg@exept.de> parents: 4402 diff changeset	2148
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 4998 diff changeset	2149	getPreviewFor:anItem
3887 81925afd23fd initial checkin penk parents: diff changeset	2150
9225 f724089858b3 changed: #getPreviewFor: Claus Gittinger <cg@exept.de> parents: 9116 diff changeset	2151	\| column icon\|
3887 81925afd23fd initial checkin penk parents: diff changeset	2152
9225 f724089858b3 changed: #getPreviewFor: Claus Gittinger <cg@exept.de> parents: 9116 diff changeset	2153	column := browser columnDescriptorAt:previewIndex.
3887 81925afd23fd initial checkin penk parents: diff changeset	2154	column isNil ifTrue:[
81925afd23fd initial checkin penk parents: diff changeset	2155	previewIndex := 0.
81925afd23fd initial checkin penk parents: diff changeset	2156	] ifFalse:[
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 4998 diff changeset	2157	(anItem hasMimeType and:[anItem mimeType isImage]) ifTrue:[
5238 e8ff2160c206 only handle errors Claus Gittinger <cg@exept.de> parents: 5152 diff changeset	2158	Error handle:[:ex\|
3887 81925afd23fd initial checkin penk parents: diff changeset	2159	icon := nil.
81925afd23fd initial checkin penk parents: diff changeset	2160	] do:[ \|scale extent w h \|
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 4998 diff changeset	2161	icon := Image fromFile:(anItem fileName pathName).
3887 81925afd23fd initial checkin penk parents: diff changeset	2162	icon notNil ifTrue:[
81925afd23fd initial checkin penk parents: diff changeset	2163	extent := icon extent.
81925afd23fd initial checkin penk parents: diff changeset	2164	w := column width - 4.
81925afd23fd initial checkin penk parents: diff changeset	2165	h := column height.
81925afd23fd initial checkin penk parents: diff changeset	2166
81925afd23fd initial checkin penk parents: diff changeset	2167	(extent x > w or:[extent y > h]) ifTrue:[
81925afd23fd initial checkin penk parents: diff changeset	2168	scale := extent / (w@h).
81925afd23fd initial checkin penk parents: diff changeset	2169	scale := scale x max:(scale y).
81925afd23fd initial checkin penk parents: diff changeset	2170	icon := icon magnifiedTo:((extent / scale max:8.0) asInteger).
81925afd23fd initial checkin penk parents: diff changeset	2171	].
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	2172	icon := icon onDevice:(browser device).
3887 81925afd23fd initial checkin penk parents: diff changeset	2173	icon clearMaskedPixels.
81925afd23fd initial checkin penk parents: diff changeset	2174	]
81925afd23fd initial checkin penk parents: diff changeset	2175	]
81925afd23fd initial checkin penk parents: diff changeset	2176	] ifFalse:[ icon := nil].
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 4998 diff changeset	2177	anItem preview:(icon ? '').
3887 81925afd23fd initial checkin penk parents: diff changeset	2178	].
81925afd23fd initial checkin penk parents: diff changeset	2179	^ icon
81925afd23fd initial checkin penk parents: diff changeset	2180	!
81925afd23fd initial checkin penk parents: diff changeset	2181
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2182	updateColumnsCycle
6026 0a098f7a9e09 Stop update task when application is closed Stefan Vogel <sv@exept.de> parents: 5994 diff changeset	2183	"update items in the following order
4970 726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	2184	- update item if item properties are changed
726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	2185	- update icon for visible items by suffix
726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	2186	- update icon for visible items by contents
726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	2187	- update file info for visible items if file info column is shown
726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	2188	- update preview for visible items if preview column is shown
726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	2189
726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	2190	- update icon for invisible items by suffix
726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	2191	- update icon for invisible items by contents
726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	2192	- update file info for invisible items if file info column is shown
726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	2193	- update preview for invisible items if preview column is shown
7601 3958b3fb0caa update of icons got corrupted Claus Gittinger <cg@exept.de> parents: 7584 diff changeset	2194	- update file info for invisible items if file info column is not shown
3958b3fb0caa update of icons got corrupted Claus Gittinger <cg@exept.de> parents: 7584 diff changeset	2195	Return true, if more is to be done.
4970 726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	2196	"
3887 81925afd23fd initial checkin penk parents: diff changeset	2197
4404 1165b811a9a9 only ask once for mimeTypeOfContents Claus Gittinger <cg@exept.de> parents: 4402 diff changeset	2198	\|desc mime icon type preview\|
3887 81925afd23fd initial checkin penk parents: diff changeset	2199
4017 30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	2200	browserItemList notEmpty ifTrue:[
9103 eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2201	"/ update item if item's properties have changed
5475 b14874ad8460 modification time only in modificationCycle penk parents: 5474 diff changeset	2202	"/ desc := self findNextVisibleItemFor:[:n\| n accessFirstTime ].
b14874ad8460 modification time only in modificationCycle penk parents: 5474 diff changeset	2203	"/ desc notNil ifTrue:[
b14874ad8460 modification time only in modificationCycle penk parents: 5474 diff changeset	2204	"/ browser invalidateVisibleRow:desc.
b14874ad8460 modification time only in modificationCycle penk parents: 5474 diff changeset	2205	"/ self debugMessage:'item properties are changed ', desc baseName.
b14874ad8460 modification time only in modificationCycle penk parents: 5474 diff changeset	2206	"/ ^ true.
b14874ad8460 modification time only in modificationCycle penk parents: 5474 diff changeset	2207	"/ ].
9103 eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2208
3887 81925afd23fd initial checkin penk parents: diff changeset	2209	"/ update icon for visible items by suffix
9323 3c5386d9456a changed: ca parents: 9318 diff changeset	2210	desc := self findNextVisibleItemFor:[:n\| n iconOrNil isNil ].
3967 09ec3349210c instable state penk parents: 3964 diff changeset	2211	desc notNil ifTrue:[
3887 81925afd23fd initial checkin penk parents: diff changeset	2212	icon := self getIconFor:desc.
6438 4430ef82be3f 100% cpu busy loop, if an icon for an item Claus Gittinger <cg@exept.de> parents: 6382 diff changeset	2213	icon notNil ifTrue:[
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2214	icon ~= desc icon ifTrue:[
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2215	desc icon:icon.
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2216	(iconIndex ~~ 0) ifTrue:[
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2217	browser invalidateVisibleRow:desc colAt:iconIndex
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2218	].
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2219	self debugMessage:'icon for visible items ', desc baseName.
11445 7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	2220	updatingColumns := true.
7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	2221	^ true
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2222	].
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2223	].
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2224	].
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2225	"/ update icon for visible items by contents
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2226	desc := self findNextVisibleItemFor:
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2227	[:n\|
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2228	(n iconKey == #file
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2229	and:[(mime := n mimeTypeForContents asSymbol) ~= #unknown])
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2230	].
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2231	desc notNil ifTrue:[
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2232	icon := self getIconForMimeType:mime for:desc.
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2233	"/ icon := self getIconForMimeTypeByContents:desc.
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2234	icon ~= desc icon ifTrue:[
6438 4430ef82be3f 100% cpu busy loop, if an icon for an item Claus Gittinger <cg@exept.de> parents: 6382 diff changeset	2235	desc icon:icon.
4430ef82be3f 100% cpu busy loop, if an icon for an item Claus Gittinger <cg@exept.de> parents: 6382 diff changeset	2236	(icon notNil and:[iconIndex ~~ 0]) ifTrue:[
4430ef82be3f 100% cpu busy loop, if an icon for an item Claus Gittinger <cg@exept.de> parents: 6382 diff changeset	2237	browser invalidateVisibleRow:desc colAt:iconIndex
4430ef82be3f 100% cpu busy loop, if an icon for an item Claus Gittinger <cg@exept.de> parents: 6382 diff changeset	2238	].
3967 09ec3349210c instable state penk parents: 3964 diff changeset	2239	].
09ec3349210c instable state penk parents: 3964 diff changeset	2240	^ true
09ec3349210c instable state penk parents: 3964 diff changeset	2241	].
3887 81925afd23fd initial checkin penk parents: diff changeset	2242	"/ update file info for visible items if file info column is shown
81925afd23fd initial checkin penk parents: diff changeset	2243	fileDescriptionIndex ~~ 0 ifTrue:[
4345 7094ddfde188 * empty log message * penk parents: 4342 diff changeset	2244	desc := self findNextVisibleItemFor:[:n\| n fileType isEmpty ].
3887 81925afd23fd initial checkin penk parents: diff changeset	2245	desc notNil ifTrue:[
81925afd23fd initial checkin penk parents: diff changeset	2246	type := self getFileInfoFor:desc.
6222 8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2247	type notNil ifTrue:[
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2248	browser invalidateVisibleRow:desc colAt:fileDescriptionIndex
8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2249	].
5475 b14874ad8460 modification time only in modificationCycle penk parents: 5474 diff changeset	2250	self debugMessage:'file info for visible items if file info column is shown ', desc baseName.
3887 81925afd23fd initial checkin penk parents: diff changeset	2251	^ true
81925afd23fd initial checkin penk parents: diff changeset	2252	]
81925afd23fd initial checkin penk parents: diff changeset	2253	].
81925afd23fd initial checkin penk parents: diff changeset	2254	"/ update preview for visible items if preview column is shown
81925afd23fd initial checkin penk parents: diff changeset	2255	previewIndex ~~ 0 ifTrue:[
4017 30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	2256	desc := self findNextVisibleItemFor:[:n\| n preview isNil ].
3887 81925afd23fd initial checkin penk parents: diff changeset	2257	desc notNil ifTrue:[
81925afd23fd initial checkin penk parents: diff changeset	2258	preview := self getPreviewFor:desc.
81925afd23fd initial checkin penk parents: diff changeset	2259	preview notNil ifTrue:[
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4683 diff changeset	2260	browser invalidateVisibleRow:desc colAt:previewIndex
3887 81925afd23fd initial checkin penk parents: diff changeset	2261	].
5475 b14874ad8460 modification time only in modificationCycle penk parents: 5474 diff changeset	2262	self debugMessage:'preview for visible items if preview column is shown ', desc baseName.
3887 81925afd23fd initial checkin penk parents: diff changeset	2263	^ true
81925afd23fd initial checkin penk parents: diff changeset	2264	]
81925afd23fd initial checkin penk parents: diff changeset	2265	].
81925afd23fd initial checkin penk parents: diff changeset	2266	].
81925afd23fd initial checkin penk parents: diff changeset	2267
4349 4a6287f26d3b checkin from browser penk parents: 4346 diff changeset	2268	"/ validate invisible items to make them available after scrolling
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2269	self allItems notEmpty ifTrue:[
3887 81925afd23fd initial checkin penk parents: diff changeset	2270	"/ update icon for invisible items by suffix
9323 3c5386d9456a changed: ca parents: 9318 diff changeset	2271	desc := self findNextItemFor:[:n\| n iconOrNil isNil ].
3887 81925afd23fd initial checkin penk parents: diff changeset	2272	desc notNil ifTrue:[
81925afd23fd initial checkin penk parents: diff changeset	2273	icon := self getIconFor:desc.
6440 03c83c00a2b1 cpu busy again Claus Gittinger <cg@exept.de> parents: 6438 diff changeset	2274	icon notNil ifTrue:[
03c83c00a2b1 cpu busy again Claus Gittinger <cg@exept.de> parents: 6438 diff changeset	2275	desc icon:icon.
03c83c00a2b1 cpu busy again Claus Gittinger <cg@exept.de> parents: 6438 diff changeset	2276	browser invalidateVisibleRow:desc colAt:iconIndex.
03c83c00a2b1 cpu busy again Claus Gittinger <cg@exept.de> parents: 6438 diff changeset	2277	self debugMessage:'icon for invisible items by suffix ', desc baseName.
03c83c00a2b1 cpu busy again Claus Gittinger <cg@exept.de> parents: 6438 diff changeset	2278	^ true
03c83c00a2b1 cpu busy again Claus Gittinger <cg@exept.de> parents: 6438 diff changeset	2279	].
3887 81925afd23fd initial checkin penk parents: diff changeset	2280	].
81925afd23fd initial checkin penk parents: diff changeset	2281	"/ update icon for invisible items by contents
81925afd23fd initial checkin penk parents: diff changeset	2282	desc := self findNextItemFor:[:n\| (n iconKey == #file and:[n mimeTypeForContents ~= #unknown])].
81925afd23fd initial checkin penk parents: diff changeset	2283	desc notNil ifTrue:[
81925afd23fd initial checkin penk parents: diff changeset	2284	icon := self getIconForMimeTypeByContents:desc.
81925afd23fd initial checkin penk parents: diff changeset	2285	desc icon:icon.
6222 8d7dfc929ab3 update visible and near-visible items first. Claus Gittinger <cg@exept.de> parents: 6188 diff changeset	2286	browser invalidateVisibleRow:desc colAt:iconIndex.
5475 b14874ad8460 modification time only in modificationCycle penk parents: 5474 diff changeset	2287	self debugMessage:'icon for invisible items by contents ', desc baseName.
3887 81925afd23fd initial checkin penk parents: diff changeset	2288	^ true
81925afd23fd initial checkin penk parents: diff changeset	2289	].
81925afd23fd initial checkin penk parents: diff changeset	2290	"/ update file info for invisible items if file info column is shown
81925afd23fd initial checkin penk parents: diff changeset	2291	fileDescriptionIndex ~~ 0 ifTrue:[
81925afd23fd initial checkin penk parents: diff changeset	2292	desc := self findNextItemFor:[:n\| n fileType isNil ].
81925afd23fd initial checkin penk parents: diff changeset	2293	desc notNil ifTrue:[
81925afd23fd initial checkin penk parents: diff changeset	2294	self getFileInfoFor:desc.
5475 b14874ad8460 modification time only in modificationCycle penk parents: 5474 diff changeset	2295	self debugMessage:'update file info for invisible items if file info column is shown ', desc baseName.
3887 81925afd23fd initial checkin penk parents: diff changeset	2296	^ true
81925afd23fd initial checkin penk parents: diff changeset	2297	].
81925afd23fd initial checkin penk parents: diff changeset	2298	].
81925afd23fd initial checkin penk parents: diff changeset	2299	"/ update preview for invisible items if preview column is shown
81925afd23fd initial checkin penk parents: diff changeset	2300	previewIndex ~~ 0 ifTrue:[
81925afd23fd initial checkin penk parents: diff changeset	2301	desc := self findNextItemFor:[:n\| n preview isNil ].
81925afd23fd initial checkin penk parents: diff changeset	2302	desc notNil ifTrue:[
81925afd23fd initial checkin penk parents: diff changeset	2303	self getPreviewFor:desc.
5475 b14874ad8460 modification time only in modificationCycle penk parents: 5474 diff changeset	2304	self debugMessage:'update preview for invisible items if preview column is shown: ', desc baseName.
3887 81925afd23fd initial checkin penk parents: diff changeset	2305	^ true
81925afd23fd initial checkin penk parents: diff changeset	2306	].
81925afd23fd initial checkin penk parents: diff changeset	2307	].
81925afd23fd initial checkin penk parents: diff changeset	2308	"/ update file info for invisible items if file info column is not shown
81925afd23fd initial checkin penk parents: diff changeset	2309	desc := self findNextItemFor:[:n\| n fileType isNil ].
81925afd23fd initial checkin penk parents: diff changeset	2310	desc notNil ifTrue:[
81925afd23fd initial checkin penk parents: diff changeset	2311	self getFileInfoFor:desc.
5475 b14874ad8460 modification time only in modificationCycle penk parents: 5474 diff changeset	2312	self debugMessage:'update file info for invisible items if file info column is not shown: ', desc baseName.
3887 81925afd23fd initial checkin penk parents: diff changeset	2313	^ true
81925afd23fd initial checkin penk parents: diff changeset	2314	].
81925afd23fd initial checkin penk parents: diff changeset	2315	].
81925afd23fd initial checkin penk parents: diff changeset	2316	^ false
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2317
11445 7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	2318	"Modified: / 20-03-2012 / 13:05:28 / cg"
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2319	! !
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2320
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2321	!DirectoryContentsBrowser methodsFor:'update modification cycle'!
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2322
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2323	modificationCycle
5475 b14874ad8460 modification time only in modificationCycle penk parents: 5474 diff changeset	2324	\| oldModificationTime desc\|
8496 de7a956ce23c test for isRootDirectory ca parents: 8407 diff changeset	2325
de7a956ce23c test for isRootDirectory ca parents: 8407 diff changeset	2326	directory isNil ifTrue:[^ self].
de7a956ce23c test for isRootDirectory ca parents: 8407 diff changeset	2327
de7a956ce23c test for isRootDirectory ca parents: 8407 diff changeset	2328	directory exists ifFalse:[
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2329	"/ directory vanished
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2330	directoryContentsChangeFlag := true.
8496 de7a956ce23c test for isRootDirectory ca parents: 8407 diff changeset	2331	^ self
de7a956ce23c test for isRootDirectory ca parents: 8407 diff changeset	2332	].
de7a956ce23c test for isRootDirectory ca parents: 8407 diff changeset	2333	directory isRootDirectory ifTrue:[
de7a956ce23c test for isRootDirectory ca parents: 8407 diff changeset	2334	^ self
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2335	].
8496 de7a956ce23c test for isRootDirectory ca parents: 8407 diff changeset	2336
de7a956ce23c test for isRootDirectory ca parents: 8407 diff changeset	2337	oldModificationTime := modificationTime.
de7a956ce23c test for isRootDirectory ca parents: 8407 diff changeset	2338	modificationTime := directory modificationTime.
de7a956ce23c test for isRootDirectory ca parents: 8407 diff changeset	2339
de7a956ce23c test for isRootDirectory ca parents: 8407 diff changeset	2340	oldModificationTime ~= modificationTime ifTrue:[
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2341	directoryContentsChangeFlag := true.
11445 7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	2342	self wakeUpForDirectoryContentsChanged.
8496 de7a956ce23c test for isRootDirectory ca parents: 8407 diff changeset	2343	^ self
de7a956ce23c test for isRootDirectory ca parents: 8407 diff changeset	2344	].
de7a956ce23c test for isRootDirectory ca parents: 8407 diff changeset	2345
5475 b14874ad8460 modification time only in modificationCycle penk parents: 5474 diff changeset	2346	desc := self findNextItemFor:[:n\| n hasBeenModified ].
8496 de7a956ce23c test for isRootDirectory ca parents: 8407 diff changeset	2347
5475 b14874ad8460 modification time only in modificationCycle penk parents: 5474 diff changeset	2348	desc notNil ifTrue:[
b14874ad8460 modification time only in modificationCycle penk parents: 5474 diff changeset	2349	desc resetItem.
b14874ad8460 modification time only in modificationCycle penk parents: 5474 diff changeset	2350	browser invalidateVisibleRow:desc.
b14874ad8460 modification time only in modificationCycle penk parents: 5474 diff changeset	2351	self debugMessage:'item is modified ', desc baseName.
b14874ad8460 modification time only in modificationCycle penk parents: 5474 diff changeset	2352	^ self.
b14874ad8460 modification time only in modificationCycle penk parents: 5474 diff changeset	2353	].
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2354
11445 7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	2355	"Modified: / 20-03-2012 / 12:24:38 / cg"
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2356	! !
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2357
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2358	!DirectoryContentsBrowser methodsFor:'update task'!
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2359
4346 5300ce5fb7b0 * empty log message * penk parents: 4345 diff changeset	2360	createItemList
9103 eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2361	"reread the whole list of items"
eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2362
eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2363	\|rawFilteredItems\|
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2364
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2365	directory notNil ifTrue:[
9103 eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2366	self allItems:self readDirectoryItems.
eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2367	rawFilteredItems := self evaluateFilter:(self allItems).
eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2368	filteredItems := self sortBlockHolder value sortItemList:rawFilteredItems.
eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2369
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2370	"/ Transcript showCR:'getAllTime:', getAllTime asString.
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2371	"/ Transcript showCR:'filterTime:', filterTime asString.
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2372	"/ Transcript showCR:'sortTime:', sortTime asString.
5780 0951e30d7914 Use Timestamp/#asTimestamp instead of AbsoluteTime/#asAbsoluteTime Stefan Vogel <sv@exept.de> parents: 5777 diff changeset	2373	"/ Transcript showCR:'time after sort', Timestamp now asString.
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2374	] ifFalse:[
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2375	self allItems:OrderedCollection new.
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2376	filteredItems := OrderedCollection new.
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2377	].
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2378	self
7539 ea82227fd8ab * empty log message * Stefan Vogel <sv@exept.de> parents: 7079 diff changeset	2379	enqueueMessage:#setBrowserItemList:
ea82227fd8ab * empty log message * Stefan Vogel <sv@exept.de> parents: 7079 diff changeset	2380	for:self
ea82227fd8ab * empty log message * Stefan Vogel <sv@exept.de> parents: 7079 diff changeset	2381	arguments:(Array with:filteredItems).
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2382	!
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2383
4346 5300ce5fb7b0 * empty log message * penk parents: 4345 diff changeset	2384	debugMessage:aString
5716 66d5e36a16d8 update if fileItem is modified penk parents: 5676 diff changeset	2385	Debug == true ifTrue:[
4346 5300ce5fb7b0 * empty log message * penk parents: 4345 diff changeset	2386	Transcript showCR:aString
5300ce5fb7b0 * empty log message * penk parents: 4345 diff changeset	2387	].
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2388
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2389	"
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2390	Debug := true
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2391	Debug := false
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2392	"
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2393
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2394	"Modified (comment): / 07-01-2012 / 16:30:25 / cg"
4346 5300ce5fb7b0 * empty log message * penk parents: 4345 diff changeset	2395	!
5300ce5fb7b0 * empty log message * penk parents: 4345 diff changeset	2396
5300ce5fb7b0 * empty log message * penk parents: 4345 diff changeset	2397	directoryChanged
9103 eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2398	"reread the whole list of items"
eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2399
5935 72f0c8866406 attempt to preserve scroll-position as per directory Claus Gittinger <cg@exept.de> parents: 5870 diff changeset	2400	\|pos\|
4346 5300ce5fb7b0 * empty log message * penk parents: 4345 diff changeset	2401
11445 7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	2402	self setBrowserItemList:#().
7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	2403	directoryContentsChangeFlag := true.
7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	2404	updatingColumns := true.
7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	2405	^ self.
7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	2406
4346 5300ce5fb7b0 * empty log message * penk parents: 4345 diff changeset	2407	self createItemList.
5935 72f0c8866406 attempt to preserve scroll-position as per directory Claus Gittinger <cg@exept.de> parents: 5870 diff changeset	2408
72f0c8866406 attempt to preserve scroll-position as per directory Claus Gittinger <cg@exept.de> parents: 5870 diff changeset	2409	directory notNil ifTrue:[
72f0c8866406 attempt to preserve scroll-position as per directory Claus Gittinger <cg@exept.de> parents: 5870 diff changeset	2410	pos := AbstractFileBrowser directoryHistory getPositionFor:(directory pathName).
72f0c8866406 attempt to preserve scroll-position as per directory Claus Gittinger <cg@exept.de> parents: 5870 diff changeset	2411	"/ self halt.
72f0c8866406 attempt to preserve scroll-position as per directory Claus Gittinger <cg@exept.de> parents: 5870 diff changeset	2412	pos notNil ifTrue:[
72f0c8866406 attempt to preserve scroll-position as per directory Claus Gittinger <cg@exept.de> parents: 5870 diff changeset	2413	browser scrollToLine:pos.
72f0c8866406 attempt to preserve scroll-position as per directory Claus Gittinger <cg@exept.de> parents: 5870 diff changeset	2414	]
72f0c8866406 attempt to preserve scroll-position as per directory Claus Gittinger <cg@exept.de> parents: 5870 diff changeset	2415	].
11177 4b83b53c4b1b changed: #directoryChanged Claus Gittinger <cg@exept.de> parents: 11058 diff changeset	2416
11445 7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	2417	"Modified: / 20-03-2012 / 12:54:37 / cg"
4346 5300ce5fb7b0 * empty log message * penk parents: 4345 diff changeset	2418	!
5300ce5fb7b0 * empty log message * penk parents: 4345 diff changeset	2419
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2420	directoryContentsChanged
9880 06f533cdb0c7 changed: #directoryContentsChanged Claus Gittinger <cg@exept.de> parents: 9791 diff changeset	2421	\|oldItems itemsToAdd itemsToRemove newItems newAllItems oldAllItems\|
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2422
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2423	directory isNil ifTrue:[^ self].
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2424	newAllItems := self readDirectoryItems.
8496 de7a956ce23c test for isRootDirectory ca parents: 8407 diff changeset	2425
4346 5300ce5fb7b0 * empty log message * penk parents: 4345 diff changeset	2426	newAllItems size > 150 ifTrue:[
5300ce5fb7b0 * empty log message * penk parents: 4345 diff changeset	2427	self createItemList.
5300ce5fb7b0 * empty log message * penk parents: 4345 diff changeset	2428	^ self
5300ce5fb7b0 * empty log message * penk parents: 4345 diff changeset	2429	].
9880 06f533cdb0c7 changed: #directoryContentsChanged Claus Gittinger <cg@exept.de> parents: 9791 diff changeset	2430
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2431	newItems := self evaluateFilter:newAllItems.
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2432	oldItems := filteredItems copy.
9880 06f533cdb0c7 changed: #directoryContentsChanged Claus Gittinger <cg@exept.de> parents: 9791 diff changeset	2433	itemsToAdd := OrderedCollection new.
06f533cdb0c7 changed: #directoryContentsChanged Claus Gittinger <cg@exept.de> parents: 9791 diff changeset	2434	itemsToRemove := OrderedCollection new.
06f533cdb0c7 changed: #directoryContentsChanged Claus Gittinger <cg@exept.de> parents: 9791 diff changeset	2435
06f533cdb0c7 changed: #directoryContentsChanged Claus Gittinger <cg@exept.de> parents: 9791 diff changeset	2436	oldItems notEmptyOrNil ifTrue:[
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2437	"/ MERGE WITH CURRENT CONTENTS
4894 417aa8531997 * empty log message * penk parents: 4889 diff changeset	2438	oldItems copy do:[:anOldItem\|
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2439	"/ remove no longer valid files
5474 c1f778c85ec1 update bug-fix ca parents: 5444 diff changeset	2440	(newItems includes:anOldItem) ifFalse:[
9880 06f533cdb0c7 changed: #directoryContentsChanged Claus Gittinger <cg@exept.de> parents: 9791 diff changeset	2441	itemsToRemove add:anOldItem.
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2442	oldItems removeIdentical:anOldItem
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2443	]
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2444	].
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2445	].
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2446	"/ add new files
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2447	newItems do:[:aNewItem\|
5474 c1f778c85ec1 update bug-fix ca parents: 5444 diff changeset	2448	(oldItems includes:aNewItem) ifFalse:[
9880 06f533cdb0c7 changed: #directoryContentsChanged Claus Gittinger <cg@exept.de> parents: 9791 diff changeset	2449	itemsToAdd add:aNewItem.
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2450	]
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2451	].
9880 06f533cdb0c7 changed: #directoryContentsChanged Claus Gittinger <cg@exept.de> parents: 9791 diff changeset	2452	oldAllItems := self allItems.
06f533cdb0c7 changed: #directoryContentsChanged Claus Gittinger <cg@exept.de> parents: 9791 diff changeset	2453	itemsToRemove notEmpty ifTrue:[
06f533cdb0c7 changed: #directoryContentsChanged Claus Gittinger <cg@exept.de> parents: 9791 diff changeset	2454	oldAllItems removeAll:itemsToRemove
5716 66d5e36a16d8 update if fileItem is modified penk parents: 5676 diff changeset	2455	].
9880 06f533cdb0c7 changed: #directoryContentsChanged Claus Gittinger <cg@exept.de> parents: 9791 diff changeset	2456	itemsToAdd do:[: aNewItem \|
06f533cdb0c7 changed: #directoryContentsChanged Claus Gittinger <cg@exept.de> parents: 9791 diff changeset	2457	(oldAllItems includes:aNewItem) ifFalse:[
06f533cdb0c7 changed: #directoryContentsChanged Claus Gittinger <cg@exept.de> parents: 9791 diff changeset	2458	oldAllItems add:aNewItem.
5716 66d5e36a16d8 update if fileItem is modified penk parents: 5676 diff changeset	2459	]
66d5e36a16d8 update if fileItem is modified penk parents: 5676 diff changeset	2460	].
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2461
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2462	self
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2463	enqueueMessage:#value
9880 06f533cdb0c7 changed: #directoryContentsChanged Claus Gittinger <cg@exept.de> parents: 9791 diff changeset	2464	for:[ self browserItemListAdd:itemsToAdd remove:itemsToRemove. ]
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2465	arguments:#().
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2466	filteredItems := newItems.
7572 94847f701c19 * empty log message * Claus Gittinger <cg@exept.de> parents: 7564 diff changeset	2467
9880 06f533cdb0c7 changed: #directoryContentsChanged Claus Gittinger <cg@exept.de> parents: 9791 diff changeset	2468	"Modified: / 01-05-2011 / 08:24:29 / cg"
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2469	!
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2470
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 4998 diff changeset	2471	evaluateFilter:anItemsList
9103 eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2472	"return filtered items from anItemsList"
eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2473
11445 7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	2474	\|showDir showHidden filterBlock newItemList noOfShownFiles noOfFiles showFiles\|
9103 eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2475
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2476	noOfFiles := 0.
11445 7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	2477	noOfShownFiles := 0.
9103 eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2478
eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2479	showHidden := self showHiddenFiles value.
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2480	showDir := self viewDirsInContentsBrowser value.
5870 5ea994015006 * empty log message * penk parents: 5869 diff changeset	2481	showFiles := self viewFilesInContentsBrowser value.
5ea994015006 * empty log message * penk parents: 5869 diff changeset	2482
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2483	filterBlock := self matchBlock.
9103 eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2484	newItemList := anItemsList
eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2485	select:[:eachItem \|
eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2486	\|isDir showIt\|
eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2487
eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2488	isDir := eachItem isDirectory.
eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2489	isDir ifFalse:[noOfFiles := noOfFiles + 1].
eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2490
eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2491	showIt := isDir
9318 1e6b53fdc9af changed: #evaluateFilter: Claus Gittinger <cg@exept.de> parents: 9225 diff changeset	2492	ifTrue:[ showDir and:[ showHidden or:[ eachItem fileName isHidden not ]]]
9103 eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2493	ifFalse:[ showFiles and:[filterBlock
eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2494	value:eachItem fileName
eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2495	value:eachItem baseName]].
eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2496
eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2497	showIt ifTrue:[
11445 7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	2498	isDir ifFalse:[noOfShownFiles := noOfShownFiles + 1].
9103 eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2499	].
eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2500	showIt
eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2501	].
eba365efe5e6 hidden files (directories) handling Claus Gittinger <cg@exept.de> parents: 8998 diff changeset	2502
11445 7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	2503	self noOfShownFiles:noOfShownFiles noOfFiles:noOfFiles.
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2504	^ newItemList
11445 7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	2505
7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	2506	"Modified: / 20-03-2012 / 12:09:10 / cg"
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2507	!
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2508
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2509	filterChanged
5777 d8ca0c8e0af5 dont update list after a filterChange, if the new filter Claus Gittinger <cg@exept.de> parents: 5740 diff changeset	2510	\|newFilteredItems\|
d8ca0c8e0af5 dont update list after a filterChange, if the new filter Claus Gittinger <cg@exept.de> parents: 5740 diff changeset	2511
d8ca0c8e0af5 dont update list after a filterChange, if the new filter Claus Gittinger <cg@exept.de> parents: 5740 diff changeset	2512	newFilteredItems := self evaluateFilter:self allItems copy.
d8ca0c8e0af5 dont update list after a filterChange, if the new filter Claus Gittinger <cg@exept.de> parents: 5740 diff changeset	2513	newFilteredItems ~= filteredItems ifTrue:[
d8ca0c8e0af5 dont update list after a filterChange, if the new filter Claus Gittinger <cg@exept.de> parents: 5740 diff changeset	2514	filteredItems := newFilteredItems.
d8ca0c8e0af5 dont update list after a filterChange, if the new filter Claus Gittinger <cg@exept.de> parents: 5740 diff changeset	2515	filteredItems := self sortBlockHolder value sortItemList:filteredItems.
d8ca0c8e0af5 dont update list after a filterChange, if the new filter Claus Gittinger <cg@exept.de> parents: 5740 diff changeset	2516	self
d8ca0c8e0af5 dont update list after a filterChange, if the new filter Claus Gittinger <cg@exept.de> parents: 5740 diff changeset	2517	enqueueMessage:#value
d8ca0c8e0af5 dont update list after a filterChange, if the new filter Claus Gittinger <cg@exept.de> parents: 5740 diff changeset	2518	for:[ self setBrowserItemList:filteredItems ]
8227 83ef8b80b0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 8003 diff changeset	2519	arguments:#().
5777 d8ca0c8e0af5 dont update list after a filterChange, if the new filter Claus Gittinger <cg@exept.de> parents: 5740 diff changeset	2520	].
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2521	!
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2522
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2523	readDirectoryItems
7601 3958b3fb0caa update of icons got corrupted Claus Gittinger <cg@exept.de> parents: 7584 diff changeset	2524	\|list contents itemClass\|
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2525
8496 de7a956ce23c test for isRootDirectory ca parents: 8407 diff changeset	2526	list := OrderedCollection new.
de7a956ce23c test for isRootDirectory ca parents: 8407 diff changeset	2527	contents := DirectoryContents directoryNamed:directory.
de7a956ce23c test for isRootDirectory ca parents: 8407 diff changeset	2528
de7a956ce23c test for isRootDirectory ca parents: 8407 diff changeset	2529	contents notEmptyOrNil ifTrue:[
7601 3958b3fb0caa update of icons got corrupted Claus Gittinger <cg@exept.de> parents: 7584 diff changeset	2530	itemClass := DirectoryContentsBrowser itemClass.
8496 de7a956ce23c test for isRootDirectory ca parents: 8407 diff changeset	2531	modificationTime := contents modificationTime.
de7a956ce23c test for isRootDirectory ca parents: 8407 diff changeset	2532
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 4998 diff changeset	2533	contents itemsDo:[:eachItem\|
7601 3958b3fb0caa update of icons got corrupted Claus Gittinger <cg@exept.de> parents: 7584 diff changeset	2534	list add:(itemClass forInfoItem:eachItem).
4298 af4b4457e45f oops Claus Gittinger <cg@exept.de> parents: 4297 diff changeset	2535	].
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2536	].
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2537	^ list
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2538	!
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2539
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2540	sortBlockChanged
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2541
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2542	filteredItems isNil ifTrue:[ ^ self].
5383 ae8a426ef69e use for sorting files the new FileSorter class penk parents: 5377 diff changeset	2543	filteredItems := self sortBlockHolder value sortItemList:filteredItems.
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2544	self
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2545	enqueueMessage:#value
4757 fadd77021230 * empty log message * Claus Gittinger <cg@exept.de> parents: 4748 diff changeset	2546	for:[ self setBrowserItemList:filteredItems ]
8227 83ef8b80b0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 8003 diff changeset	2547	arguments:#().
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2548	!
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2549
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2550	startUpdateTask
9538 1c979c56c36b changed: sr parents: 9534 diff changeset	2551	(updateTask isNil or:[updateTask isDead]) ifTrue:[
4370 777181a805ec restart image process after restart from image penk parents: 4353 diff changeset	2552	updateTask := [
6026 0a098f7a9e09 Stop update task when application is closed Stefan Vogel <sv@exept.de> parents: 5994 diff changeset	2553	[self isOpen] whileTrue:[
4370 777181a805ec restart image process after restart from image penk parents: 4353 diff changeset	2554	self updateStep
777181a805ec restart image process after restart from image penk parents: 4353 diff changeset	2555	]
777181a805ec restart image process after restart from image penk parents: 4353 diff changeset	2556	] newProcess.
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2557	updateTask name:'DirectoryContentsBrowser updateTask'.
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2558	updateTask priorityRange:(Processor systemBackgroundPriority to:Processor activePriority).
4370 777181a805ec restart image process after restart from image penk parents: 4353 diff changeset	2559	updateTask restartable:true.
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2560	updateTask resume.
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2561	].
9538 1c979c56c36b changed: sr parents: 9534 diff changeset	2562
1c979c56c36b changed: sr parents: 9534 diff changeset	2563	"Modified: / 10-08-2010 / 14:03:57 / sr"
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2564	!
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2565
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2566	stopUpdateTask
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2567
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2568	updateTask notNil ifTrue:[
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2569	updateTask terminate.
6026 0a098f7a9e09 Stop update task when application is closed Stefan Vogel <sv@exept.de> parents: 5994 diff changeset	2570	updateTask := nil.
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2571	].
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2572	!
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2573
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2574	updateAfterTimeout:timeOut
5474 c1f778c85ec1 update bug-fix ca parents: 5444 diff changeset	2575
7601 3958b3fb0caa update of icons got corrupted Claus Gittinger <cg@exept.de> parents: 7584 diff changeset	2576	"/ Transcript showCR:'START'.
5474 c1f778c85ec1 update bug-fix ca parents: 5444 diff changeset	2577	self isBusy:true.
c1f778c85ec1 update bug-fix ca parents: 5444 diff changeset	2578	[
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2579	directoryChangeFlag ifTrue:[
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2580	directoryChangeFlag := false.
5474 c1f778c85ec1 update bug-fix ca parents: 5444 diff changeset	2581	self debugMessage:'directoryChanged'.
c1f778c85ec1 update bug-fix ca parents: 5444 diff changeset	2582	self directoryChanged.
c1f778c85ec1 update bug-fix ca parents: 5444 diff changeset	2583	].
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2584	directoryContentsChangeFlag ifTrue:[
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2585	directoryContentsChangeFlag := false.
5474 c1f778c85ec1 update bug-fix ca parents: 5444 diff changeset	2586	self debugMessage:'directoryContentsChanged'.
c1f778c85ec1 update bug-fix ca parents: 5444 diff changeset	2587	self directoryContentsChanged.
c1f778c85ec1 update bug-fix ca parents: 5444 diff changeset	2588	].
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2589	filterChangeFlag ifTrue:[
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2590	filterChangeFlag := false.
5474 c1f778c85ec1 update bug-fix ca parents: 5444 diff changeset	2591	self debugMessage:'filterChanged'.
c1f778c85ec1 update bug-fix ca parents: 5444 diff changeset	2592	self filterChanged.
c1f778c85ec1 update bug-fix ca parents: 5444 diff changeset	2593	].
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2594	sortBlockChangeFlag ifTrue:[
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2595	sortBlockChangeFlag := false.
5474 c1f778c85ec1 update bug-fix ca parents: 5444 diff changeset	2596	self debugMessage:'sortBlockChanged'.
c1f778c85ec1 update bug-fix ca parents: 5444 diff changeset	2597	self sortBlockChanged.
c1f778c85ec1 update bug-fix ca parents: 5444 diff changeset	2598	].
c1f778c85ec1 update bug-fix ca parents: 5444 diff changeset	2599	timeOut ifTrue:[
c1f778c85ec1 update bug-fix ca parents: 5444 diff changeset	2600	self debugMessage:'evaluate modification'.
c1f778c85ec1 update bug-fix ca parents: 5444 diff changeset	2601	self modificationCycle
c1f778c85ec1 update bug-fix ca parents: 5444 diff changeset	2602	].
c1f778c85ec1 update bug-fix ca parents: 5444 diff changeset	2603	self updateColumnsCycle ifTrue:[
c1f778c85ec1 update bug-fix ca parents: 5444 diff changeset	2604	self debugMessage:'next time another columns update'.
11445 7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	2605	updatingColumns := true.
6226 c88567331045 * empty log message * penk parents: 6225 diff changeset	2606	changeSema signal
5475 b14874ad8460 modification time only in modificationCycle penk parents: 5474 diff changeset	2607	] ifFalse:[
6438 4430ef82be3f 100% cpu busy loop, if an icon for an item Claus Gittinger <cg@exept.de> parents: 6382 diff changeset	2608	self debugMessage:'next time no column update'.
11445 7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	2609	updatingColumns := false.
5474 c1f778c85ec1 update bug-fix ca parents: 5444 diff changeset	2610	].
c1f778c85ec1 update bug-fix ca parents: 5444 diff changeset	2611	] ensure:[
c1f778c85ec1 update bug-fix ca parents: 5444 diff changeset	2612	self isBusy:false.
6374 f9bed8385350 * empty log message * Claus Gittinger <cg@exept.de> parents: 6359 diff changeset	2613	updateCycleSemaphore signalIf
5474 c1f778c85ec1 update bug-fix ca parents: 5444 diff changeset	2614	].
c1f778c85ec1 update bug-fix ca parents: 5444 diff changeset	2615	"/ Transcript showCR:'STOP'.
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2616
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2617	"Created: / 07-01-2012 / 16:27:50 / cg"
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2618	!
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2619
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2620	updateStep
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2621	\|timedOut sensor\|
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2622
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2623	"/ Processor yield.
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2624
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2625	sensor := self windowGroup sensor.
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2626	(sensor anyButtonPressed or:[sensor shiftDown]) ifTrue:[
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2627	Processor yield.
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2628
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2629	"/ no update while scrolling
11445 7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	2630	timedOut := ( changeSema waitWithTimeoutMs:(self class updateTaskCyleTime milliseconds) ) isNil.
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2631	timedOut ifFalse:[changeSema signal].
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2632	^ self
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2633	].
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2634
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2635	AbortOperationRequest handle:[
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2636	"/ to get out of a debugger loop...
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2637	self debugMessage:'got an abort signal'.
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2638	self directoryContentsChangeFlag:false.
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2639	self filterChangeFlag:false.
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2640	self sortBlockChangeFlag:false.
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2641	] do:[
11445 7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	2642	(updatingColumns == true) ifTrue:[
7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	2643	timedOut := false
7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	2644	] ifFalse:[
7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	2645	self debugMessage:'sema wait'.
7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	2646	timedOut := (changeSema waitWithTimeoutMs:(self class updateTaskCyleTime asMilliseconds)) isNil.
7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	2647	self debugMessage:'timedOut:', timedOut asString.
7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	2648	].
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2649
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2650	(filterChangeFlag
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2651	or:[ sortBlockChangeFlag
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2652	or:[ directoryChangeFlag
11445 7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	2653	or:[ directoryContentsChangeFlag
7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	2654	or:[ updatingColumns == true ]]]]) ifTrue:[
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2655	accessLock critical:[
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2656	self updateAfterTimeout:timedOut.
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2657	].
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2658	].
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2659	].
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2660
11445 7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	2661	"Modified: / 20-03-2012 / 13:07:22 / cg"
4342 0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2662	! !
0eba48d22da3 only one update task is left penk parents: 4335 diff changeset	2663
4862 1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2664	!DirectoryContentsBrowser methodsFor:'update task trigger'!
1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2665
1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2666	wakeUp
9538 1c979c56c36b changed: sr parents: 9534 diff changeset	2667	self isOpen ifTrue:[
1c979c56c36b changed: sr parents: 9534 diff changeset	2668	"/ the updateTask might be nil or dead....
1c979c56c36b changed: sr parents: 9534 diff changeset	2669	self startUpdateTask
1c979c56c36b changed: sr parents: 9534 diff changeset	2670	].
6226 c88567331045 * empty log message * penk parents: 6225 diff changeset	2671	changeSema signal.
9538 1c979c56c36b changed: sr parents: 9534 diff changeset	2672
1c979c56c36b changed: sr parents: 9534 diff changeset	2673	"Modified: / 10-08-2010 / 14:07:40 / sr"
4862 1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2674	!
1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2675
1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2676	wakeUpForDirectoryChanged
1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2677	self isBusy ifTrue:[
5474 c1f778c85ec1 update bug-fix ca parents: 5444 diff changeset	2678	self isBusy:false.
4862 1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2679	updateTask interruptWith:[AbortSignal raise].
1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2680	].
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2681	directoryChangeFlag := true.
4862 1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2682	self wakeUp.
11058 ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2683
ab216c9278c6 added: #updateAfterTimeout: Claus Gittinger <cg@exept.de> parents: 10559 diff changeset	2684	"Modified: / 07-01-2012 / 16:43:12 / cg"
4862 1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2685	!
1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2686
1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2687	wakeUpForDirectoryContentsChanged
1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2688
1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2689	self directoryContentsChangeFlag:true.
1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2690	self wakeUp.
1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2691	!
1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2692
1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2693	wakeUpForFilterChanged
1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2694
1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2695	self filterChangeFlag:true.
1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2696	self wakeUp.
1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2697	!
1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2698
1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2699	wakeUpForSortBlockChanged
1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2700
1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2701	self sortBlockChangeFlag:true.
1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2702	self wakeUp.
1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2703	! !
1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2704
1838e1e01c92 method category rename Claus Gittinger <cg@exept.de> parents: 4850 diff changeset	2705	!DirectoryContentsBrowser methodsFor:'update task-disk usage'!
4555 21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2706
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2707	diskUsageInKiloBytesFor:aDirectory
6770 26206f425ad8 du for windows Claus Gittinger <cg@exept.de> parents: 6726 diff changeset	2708	\|line sum kb\|
4555 21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2709
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2710	OperatingSystem isUNIXlike ifTrue:[
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2711	line := OperatingSystem getCommandOutputFrom:('du -s -k ' , aDirectory pathName).
4559 6f586dd4661b checkin from browser Claus Gittinger <cg@exept.de> parents: 4556 diff changeset	2712	line notNil ifTrue:[
6f586dd4661b checkin from browser Claus Gittinger <cg@exept.de> parents: 4556 diff changeset	2713	kb := Number readFrom:line readStream.
6f586dd4661b checkin from browser Claus Gittinger <cg@exept.de> parents: 4556 diff changeset	2714	].
4555 21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2715	^ kb
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2716	].
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2717
6770 26206f425ad8 du for windows Claus Gittinger <cg@exept.de> parents: 6726 diff changeset	2718	sum := 0.
26206f425ad8 du for windows Claus Gittinger <cg@exept.de> parents: 6726 diff changeset	2719	aDirectory recursiveDirectoryContentsDo:[:fnString \|
26206f425ad8 du for windows Claus Gittinger <cg@exept.de> parents: 6726 diff changeset	2720	\|fn\|
26206f425ad8 du for windows Claus Gittinger <cg@exept.de> parents: 6726 diff changeset	2721
26206f425ad8 du for windows Claus Gittinger <cg@exept.de> parents: 6726 diff changeset	2722	fn := aDirectory construct:fnString.
26206f425ad8 du for windows Claus Gittinger <cg@exept.de> parents: 6726 diff changeset	2723	fn isDirectory ifFalse:[
6809 feff4e2a1c4b * empty log message * Claus Gittinger <cg@exept.de> parents: 6770 diff changeset	2724	fn exists ifTrue:[ "/ cares for missing links in WinNT
feff4e2a1c4b * empty log message * Claus Gittinger <cg@exept.de> parents: 6770 diff changeset	2725	sum := sum + fn fileSize
feff4e2a1c4b * empty log message * Claus Gittinger <cg@exept.de> parents: 6770 diff changeset	2726	].
6770 26206f425ad8 du for windows Claus Gittinger <cg@exept.de> parents: 6726 diff changeset	2727	].
26206f425ad8 du for windows Claus Gittinger <cg@exept.de> parents: 6726 diff changeset	2728	].
26206f425ad8 du for windows Claus Gittinger <cg@exept.de> parents: 6726 diff changeset	2729	^ sum / 1024
6809 feff4e2a1c4b * empty log message * Claus Gittinger <cg@exept.de> parents: 6770 diff changeset	2730
feff4e2a1c4b * empty log message * Claus Gittinger <cg@exept.de> parents: 6770 diff changeset	2731	"Modified: / 04-07-2006 / 11:27:38 / cg"
4555 21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2732	!
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2733
4781 08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	2734	flushRememberedDiskUsageInfo
08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	2735	diskUsageInfo := nil.
08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	2736	!
08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	2737
4782 491c8090264c update fixed Claus Gittinger <cg@exept.de> parents: 4781 diff changeset	2738	flushRememberedDiskUsageInfoFor:aDirectory
491c8090264c update fixed Claus Gittinger <cg@exept.de> parents: 4781 diff changeset	2739	\|dirPath keysToRemove\|
491c8090264c update fixed Claus Gittinger <cg@exept.de> parents: 4781 diff changeset	2740
4783 c5a1859e3f2b checkin from browser Claus Gittinger <cg@exept.de> parents: 4782 diff changeset	2741	diskUsageInfo isNil ifTrue:[ ^ self ].
c5a1859e3f2b checkin from browser Claus Gittinger <cg@exept.de> parents: 4782 diff changeset	2742
4782 491c8090264c update fixed Claus Gittinger <cg@exept.de> parents: 4781 diff changeset	2743	dirPath := aDirectory pathName.
491c8090264c update fixed Claus Gittinger <cg@exept.de> parents: 4781 diff changeset	2744	keysToRemove := diskUsageInfo keys
491c8090264c update fixed Claus Gittinger <cg@exept.de> parents: 4781 diff changeset	2745	select:[:key \|
491c8090264c update fixed Claus Gittinger <cg@exept.de> parents: 4781 diff changeset	2746	key startsWith:dirPath
491c8090264c update fixed Claus Gittinger <cg@exept.de> parents: 4781 diff changeset	2747	].
491c8090264c update fixed Claus Gittinger <cg@exept.de> parents: 4781 diff changeset	2748	diskUsageInfo removeAllKeys:keysToRemove.
491c8090264c update fixed Claus Gittinger <cg@exept.de> parents: 4781 diff changeset	2749	!
491c8090264c update fixed Claus Gittinger <cg@exept.de> parents: 4781 diff changeset	2750
4781 08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	2751	isDiskUsageInfoStillValid:infoForDirectory for:aDirectoryPath
4556 f58fa5209587 * empty log message * Claus Gittinger <cg@exept.de> parents: 4555 diff changeset	2752	\|diskUsageRememberTime infoTimestamp infoKiloBytes infoMegaBytes\|
f58fa5209587 * empty log message * Claus Gittinger <cg@exept.de> parents: 4555 diff changeset	2753
f58fa5209587 * empty log message * Claus Gittinger <cg@exept.de> parents: 4555 diff changeset	2754	diskUsageRememberTime := 30.
f58fa5209587 * empty log message * Claus Gittinger <cg@exept.de> parents: 4555 diff changeset	2755
f58fa5209587 * empty log message * Claus Gittinger <cg@exept.de> parents: 4555 diff changeset	2756	infoTimestamp := infoForDirectory key.
f58fa5209587 * empty log message * Claus Gittinger <cg@exept.de> parents: 4555 diff changeset	2757	infoKiloBytes := infoForDirectory value.
f58fa5209587 * empty log message * Claus Gittinger <cg@exept.de> parents: 4555 diff changeset	2758	infoMegaBytes := infoKiloBytes // 1024.
f58fa5209587 * empty log message * Claus Gittinger <cg@exept.de> parents: 4555 diff changeset	2759
f58fa5209587 * empty log message * Claus Gittinger <cg@exept.de> parents: 4555 diff changeset	2760	"/ only update info every 30 seconds
f58fa5209587 * empty log message * Claus Gittinger <cg@exept.de> parents: 4555 diff changeset	2761	"/ plus another second for every 5 megabytes
f58fa5209587 * empty log message * Claus Gittinger <cg@exept.de> parents: 4555 diff changeset	2762	"/ (i.e. for 100 mb, keep info for 50seconds)
f58fa5209587 * empty log message * Claus Gittinger <cg@exept.de> parents: 4555 diff changeset	2763
f58fa5209587 * empty log message * Claus Gittinger <cg@exept.de> parents: 4555 diff changeset	2764	diskUsageRememberTime := diskUsageRememberTime + (infoMegaBytes / 5). "/ another second for every megabyte
f58fa5209587 * empty log message * Claus Gittinger <cg@exept.de> parents: 4555 diff changeset	2765
5780 0951e30d7914 Use Timestamp/#asTimestamp instead of AbsoluteTime/#asAbsoluteTime Stefan Vogel <sv@exept.de> parents: 5777 diff changeset	2766	(Timestamp now getSeconds - infoTimestamp getSeconds) > diskUsageRememberTime ifTrue:[
4556 f58fa5209587 * empty log message * Claus Gittinger <cg@exept.de> parents: 4555 diff changeset	2767	^ false
f58fa5209587 * empty log message * Claus Gittinger <cg@exept.de> parents: 4555 diff changeset	2768	].
4781 08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	2769	"/ (aDirectoryPath asFilename modificationTime > infoTimestamp) ifTrue:[
08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	2770	"/ ^ false
08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	2771	"/ ].
4556 f58fa5209587 * empty log message * Claus Gittinger <cg@exept.de> parents: 4555 diff changeset	2772	^ true
f58fa5209587 * empty log message * Claus Gittinger <cg@exept.de> parents: 4555 diff changeset	2773	!
f58fa5209587 * empty log message * Claus Gittinger <cg@exept.de> parents: 4555 diff changeset	2774
4555 21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2775	showDiskUsageInfoFor:aDirectory as:kiloBytes
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2776	\|kbString\|
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2777
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2778	kbString := UnitConverter fileSizeStringFor:(kiloBytes * 1024).
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2779	self notify:('%2 in %1'
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2780	bindWith:(aDirectory baseName "pathName" allBold)
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2781	with:(kbString , 'b') "allBold").
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2782	!
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2783
4781 08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	2784	startDiskUsageInfoProcess
5973 0baf6c6b685f #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 5959 diff changeset	2785	\|aColOfFiles selectedFile info\|
4781 08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	2786
7563 51f1c11ce183 * empty log message * Claus Gittinger <cg@exept.de> parents: 7554 diff changeset	2787	aColOfFiles := self currentSelectedObjects.
8252 17b35ca1a9ab changed #startDiskUsageInfoProcess Claus Gittinger <cg@exept.de> parents: 8227 diff changeset	2788
4781 08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	2789	(aColOfFiles isEmpty or:[self currentFilesAreInSameDirectory not]) ifTrue:[
08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	2790	^ self
08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	2791	].
08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	2792	aColOfFiles size == 1 ifTrue:[
08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	2793	selectedFile := aColOfFiles first.
5973 0baf6c6b685f #linkInfo now returns the info also for files that are not a symlink Stefan Vogel <sv@exept.de> parents: 5959 diff changeset	2794	info := selectedFile linkInfo.
5974 509256511c65 * empty log message * Stefan Vogel <sv@exept.de> parents: 5973 diff changeset	2795	(info notNil and:[info isSymbolicLink]) ifTrue:[
8372 c83a3ec5e7e3 handling of symbolic links ca parents: 8255 diff changeset	2796	"/ self notify:'Symbolic link to: ' , (info path ? '') allBold
4781 08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	2797	] ifFalse:[
08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	2798	self startDiskUsageInfoProcessFor:selectedFile.
08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	2799	].
08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	2800	].
7563 51f1c11ce183 * empty log message * Claus Gittinger <cg@exept.de> parents: 7554 diff changeset	2801
51f1c11ce183 * empty log message * Claus Gittinger <cg@exept.de> parents: 7554 diff changeset	2802	"Modified: / 04-12-2006 / 13:15:40 / cg"
4781 08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	2803	!
08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	2804
4555 21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2805	startDiskUsageInfoProcessFor:selectedFile
4556 f58fa5209587 * empty log message * Claus Gittinger <cg@exept.de> parents: 4555 diff changeset	2806	\|directory dirPath infoForDirectory infoValue\|
4555 21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2807
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2808	self showDiskUsageHolder value ifFalse:[^ self].
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2809
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2810	selectedFile isDirectory ifTrue:[
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2811	directory := selectedFile
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2812	] ifFalse:[
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2813	directory := selectedFile directory
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2814	].
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2815
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2816	dirPath := directory pathName.
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2817	diskUsageInfo isNil ifTrue:[
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2818	diskUsageInfo := Dictionary new.
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2819	].
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2820	infoForDirectory := diskUsageInfo at:dirPath ifAbsent:nil.
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2821	infoForDirectory notNil ifTrue:[
4781 08aacafe88ab * empty log message * Claus Gittinger <cg@exept.de> parents: 4778 diff changeset	2822	(self isDiskUsageInfoStillValid:infoForDirectory for:dirPath) ifTrue:[
4556 f58fa5209587 * empty log message * Claus Gittinger <cg@exept.de> parents: 4555 diff changeset	2823	infoValue := infoForDirectory value.
4555 21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2824	].
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2825	].
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2826
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2827	infoValue notNil ifTrue:[
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2828	self showDiskUsageInfoFor:directory as:infoValue.
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2829	^ self.
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2830	].
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2831
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2832	diskUsageUpdateProcess notNil ifTrue:[
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2833	diskUsageUpdateProcess terminate
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2834	].
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2835	diskUsageUpdateProcess :=
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2836	[
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2837	\|kiloBytes\|
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2838
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2839	self notify:('collecting disk usage of %1...' bindWith:directory baseName).
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2840	kiloBytes := self diskUsageInKiloBytesFor:directory.
4559 6f586dd4661b checkin from browser Claus Gittinger <cg@exept.de> parents: 4556 diff changeset	2841	kiloBytes notNil ifTrue:[
9116 469bd38ba4c6 changed: #startDiskUsageInfoProcessFor: Claus Gittinger <cg@exept.de> parents: 9105 diff changeset	2842	diskUsageInfo notNil ifTrue:[
469bd38ba4c6 changed: #startDiskUsageInfoProcessFor: Claus Gittinger <cg@exept.de> parents: 9105 diff changeset	2843	diskUsageInfo at:dirPath put:(Timestamp now -> kiloBytes).
469bd38ba4c6 changed: #startDiskUsageInfoProcessFor: Claus Gittinger <cg@exept.de> parents: 9105 diff changeset	2844	self showDiskUsageInfoFor:directory as:kiloBytes.
469bd38ba4c6 changed: #startDiskUsageInfoProcessFor: Claus Gittinger <cg@exept.de> parents: 9105 diff changeset	2845	].
4559 6f586dd4661b checkin from browser Claus Gittinger <cg@exept.de> parents: 4556 diff changeset	2846	]
4555 21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2847	] fork.
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2848	! !
21b055fba619 * empty log message * Claus Gittinger <cg@exept.de> parents: 4536 diff changeset	2849
3887 81925afd23fd initial checkin penk parents: diff changeset	2850	!DirectoryContentsBrowser::DirectoryContentsItem class methodsFor:'instance creation'!
81925afd23fd initial checkin penk parents: diff changeset	2851
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	2852	fileName:aFilename
3999 10b79980664c get an item from dirContents Claus Gittinger <cg@exept.de> parents: 3996 diff changeset	2853	\| instance fileItem\|
7601 3958b3fb0caa update of icons got corrupted Claus Gittinger <cg@exept.de> parents: 7584 diff changeset	2854
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	2855	aFilename asString = '..' ifTrue:[
7601 3958b3fb0caa update of icons got corrupted Claus Gittinger <cg@exept.de> parents: 7584 diff changeset	2856	instance := self new.
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	2857	instance fileName:aFilename.
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	2858	^ instance.
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	2859	].
3999 10b79980664c get an item from dirContents Claus Gittinger <cg@exept.de> parents: 3996 diff changeset	2860	fileItem := DirectoryContents contentsItemForFileName:aFilename.
7601 3958b3fb0caa update of icons got corrupted Claus Gittinger <cg@exept.de> parents: 7584 diff changeset	2861	fileItem isNil ifTrue:[^ nil].
3958b3fb0caa update of icons got corrupted Claus Gittinger <cg@exept.de> parents: 7584 diff changeset	2862	^ self forInfoItem:fileItem.
3999 10b79980664c get an item from dirContents Claus Gittinger <cg@exept.de> parents: 3996 diff changeset	2863
10b79980664c get an item from dirContents Claus Gittinger <cg@exept.de> parents: 3996 diff changeset	2864	"
10b79980664c get an item from dirContents Claus Gittinger <cg@exept.de> parents: 3996 diff changeset	2865	DirectoryContentsItem fileName:'..'
10b79980664c get an item from dirContents Claus Gittinger <cg@exept.de> parents: 3996 diff changeset	2866	"
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	2867	!
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	2868
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	2869	forInfoItem:anItem
3887 81925afd23fd initial checkin penk parents: diff changeset	2870	\| instance \|
7601 3958b3fb0caa update of icons got corrupted Claus Gittinger <cg@exept.de> parents: 7584 diff changeset	2871
3887 81925afd23fd initial checkin penk parents: diff changeset	2872	instance := self new.
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	2873	instance fileName:anItem fileName.
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	2874	anItem isRemoteDirectory ifTrue:[
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	2875	instance beRemoteDirectory.
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	2876	] ifFalse:[
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	2877	instance fileInfo:anItem info.
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	2878	].
3906 8a76cb4f5884 next stage penk parents: 3888 diff changeset	2879	^ instance
3887 81925afd23fd initial checkin penk parents: diff changeset	2880	! !
81925afd23fd initial checkin penk parents: diff changeset	2881
81925afd23fd initial checkin penk parents: diff changeset	2882	!DirectoryContentsBrowser::DirectoryContentsItem methodsFor:'accessing'!
81925afd23fd initial checkin penk parents: diff changeset	2883
3983 dd593a7482fa * empty log message * penk parents: 3980 diff changeset	2884	fileInfo:something
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	2885	fileInfo := something.
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	2886	!
dd593a7482fa * empty log message * penk parents: 3980 diff changeset	2887
3887 81925afd23fd initial checkin penk parents: diff changeset	2888	fileName
81925afd23fd initial checkin penk parents: diff changeset	2889	^ fileName
81925afd23fd initial checkin penk parents: diff changeset	2890	!
81925afd23fd initial checkin penk parents: diff changeset	2891
81925afd23fd initial checkin penk parents: diff changeset	2892	fileName:aFilename
5994 7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	2893	"set fileName"
7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	2894
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4091 diff changeset	2895	fileName := aFilename asFilename.
5994 7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	2896	self assert:(fileName notNil).
3887 81925afd23fd initial checkin penk parents: diff changeset	2897	!
81925afd23fd initial checkin penk parents: diff changeset	2898
81925afd23fd initial checkin penk parents: diff changeset	2899	fileType
5994 7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	2900	"returns the type of the file"
7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	2901
4345 7094ddfde188 * empty log message * penk parents: 4342 diff changeset	2902	fileType isNil ifTrue:[
7094ddfde188 * empty log message * penk parents: 4342 diff changeset	2903	fileType := ''.
7094ddfde188 * empty log message * penk parents: 4342 diff changeset	2904	].
3887 81925afd23fd initial checkin penk parents: diff changeset	2905	^ fileType
81925afd23fd initial checkin penk parents: diff changeset	2906	!
81925afd23fd initial checkin penk parents: diff changeset	2907
81925afd23fd initial checkin penk parents: diff changeset	2908	fileType:aType
81925afd23fd initial checkin penk parents: diff changeset	2909	fileType := aType.
81925afd23fd initial checkin penk parents: diff changeset	2910	!
81925afd23fd initial checkin penk parents: diff changeset	2911
81925afd23fd initial checkin penk parents: diff changeset	2912	icon
9323 3c5386d9456a changed: ca parents: 9318 diff changeset	2913	"answer the icon displayed in the table widget; if the icon is unspecified,
3c5386d9456a changed: ca parents: 9318 diff changeset	2914	and the fileInfo is set a default icon is returned otherwise nil"
3c5386d9456a changed: ca parents: 9318 diff changeset	2915
3c5386d9456a changed: ca parents: 9318 diff changeset	2916	\|key\|
3c5386d9456a changed: ca parents: 9318 diff changeset	2917
3c5386d9456a changed: ca parents: 9318 diff changeset	2918	icon notNil ifTrue:[^ icon ].
3c5386d9456a changed: ca parents: 9318 diff changeset	2919
3c5386d9456a changed: ca parents: 9318 diff changeset	2920	key := #file. "/ default
3c5386d9456a changed: ca parents: 9318 diff changeset	2921
3c5386d9456a changed: ca parents: 9318 diff changeset	2922	self isRemoteDirectory ifTrue:[
3c5386d9456a changed: ca parents: 9318 diff changeset	2923	key := #directory.
3c5386d9456a changed: ca parents: 9318 diff changeset	2924	] ifFalse:[
3c5386d9456a changed: ca parents: 9318 diff changeset	2925	"do not fetch the fileInfo..."
3c5386d9456a changed: ca parents: 9318 diff changeset	2926	fileInfo isNil ifTrue:[ ^ nil ].
3c5386d9456a changed: ca parents: 9318 diff changeset	2927
3c5386d9456a changed: ca parents: 9318 diff changeset	2928	self isDirectory ifTrue:[
3c5386d9456a changed: ca parents: 9318 diff changeset	2929	key := #directory.
3c5386d9456a changed: ca parents: 9318 diff changeset	2930	] ifFalse:[
3c5386d9456a changed: ca parents: 9318 diff changeset	2931	self isSymbolicLink ifTrue:[
3c5386d9456a changed: ca parents: 9318 diff changeset	2932	key := #fileLink
3c5386d9456a changed: ca parents: 9318 diff changeset	2933	] ifFalse:[
3c5386d9456a changed: ca parents: 9318 diff changeset	2934	key := #file
3c5386d9456a changed: ca parents: 9318 diff changeset	2935	].
3c5386d9456a changed: ca parents: 9318 diff changeset	2936	].
3c5386d9456a changed: ca parents: 9318 diff changeset	2937	].
3c5386d9456a changed: ca parents: 9318 diff changeset	2938	^ MIMETypeIconLibrary iconForKey:key.
3887 81925afd23fd initial checkin penk parents: diff changeset	2939	!
81925afd23fd initial checkin penk parents: diff changeset	2940
81925afd23fd initial checkin penk parents: diff changeset	2941	icon:anIcon
81925afd23fd initial checkin penk parents: diff changeset	2942
81925afd23fd initial checkin penk parents: diff changeset	2943	icon := anIcon.
81925afd23fd initial checkin penk parents: diff changeset	2944	!
81925afd23fd initial checkin penk parents: diff changeset	2945
81925afd23fd initial checkin penk parents: diff changeset	2946	iconKey
81925afd23fd initial checkin penk parents: diff changeset	2947	iconKey isNil ifTrue:[
3906 8a76cb4f5884 next stage penk parents: 3888 diff changeset	2948	self isRemoteDirectory ifTrue:[
8a76cb4f5884 next stage penk parents: 3888 diff changeset	2949	iconKey := FileBrowser iconKeyForRemoteDirectory:fileName.
8a76cb4f5884 next stage penk parents: 3888 diff changeset	2950	] ifFalse:[
8a76cb4f5884 next stage penk parents: 3888 diff changeset	2951	iconKey := FileBrowser iconKeyForFile:fileName.
8a76cb4f5884 next stage penk parents: 3888 diff changeset	2952	]
3887 81925afd23fd initial checkin penk parents: diff changeset	2953	].
81925afd23fd initial checkin penk parents: diff changeset	2954	^ iconKey
81925afd23fd initial checkin penk parents: diff changeset	2955	!
81925afd23fd initial checkin penk parents: diff changeset	2956
9323 3c5386d9456a changed: ca parents: 9318 diff changeset	2957	iconOrNil
3c5386d9456a changed: ca parents: 9318 diff changeset	2958	"answer the icon or nil if unspecifed"
3c5386d9456a changed: ca parents: 9318 diff changeset	2959
3c5386d9456a changed: ca parents: 9318 diff changeset	2960	^ icon
3c5386d9456a changed: ca parents: 9318 diff changeset	2961	!
3c5386d9456a changed: ca parents: 9318 diff changeset	2962
3887 81925afd23fd initial checkin penk parents: diff changeset	2963	isDirectory
3967 09ec3349210c instable state penk parents: 3964 diff changeset	2964	self isRemoteDirectory ifTrue:[^ true].
09ec3349210c instable state penk parents: 3964 diff changeset	2965
09ec3349210c instable state penk parents: 3964 diff changeset	2966	self getFileInfo.
09ec3349210c instable state penk parents: 3964 diff changeset	2967	fileInfo isNil ifTrue:[^ false].
09ec3349210c instable state penk parents: 3964 diff changeset	2968	^ fileInfo isDirectory
09ec3349210c instable state penk parents: 3964 diff changeset	2969	!
3887 81925afd23fd initial checkin penk parents: diff changeset	2970
3967 09ec3349210c instable state penk parents: 3964 diff changeset	2971	isSymbolicLink
09ec3349210c instable state penk parents: 3964 diff changeset	2972	self isRemoteDirectory ifTrue:[^ false].
09ec3349210c instable state penk parents: 3964 diff changeset	2973
09ec3349210c instable state penk parents: 3964 diff changeset	2974	self getFileInfo.
09ec3349210c instable state penk parents: 3964 diff changeset	2975	fileInfo isNil ifTrue:[^ false].
09ec3349210c instable state penk parents: 3964 diff changeset	2976	^ fileInfo isSymbolicLink
3887 81925afd23fd initial checkin penk parents: diff changeset	2977	!
81925afd23fd initial checkin penk parents: diff changeset	2978
81925afd23fd initial checkin penk parents: diff changeset	2979	lastButOneSuffix
81925afd23fd initial checkin penk parents: diff changeset	2980	"returns the suffix of the file
81925afd23fd initial checkin penk parents: diff changeset	2981	"
81925afd23fd initial checkin penk parents: diff changeset	2982
81925afd23fd initial checkin penk parents: diff changeset	2983	^ self suffixes at:2
81925afd23fd initial checkin penk parents: diff changeset	2984	!
81925afd23fd initial checkin penk parents: diff changeset	2985
81925afd23fd initial checkin penk parents: diff changeset	2986	lastSuffix
81925afd23fd initial checkin penk parents: diff changeset	2987	"returns the suffix of the file
81925afd23fd initial checkin penk parents: diff changeset	2988	"
81925afd23fd initial checkin penk parents: diff changeset	2989
81925afd23fd initial checkin penk parents: diff changeset	2990	^ self suffixes at:1
81925afd23fd initial checkin penk parents: diff changeset	2991	!
81925afd23fd initial checkin penk parents: diff changeset	2992
4988 34de57749932 correctly handle symlinks Claus Gittinger <cg@exept.de> parents: 4978 diff changeset	2993	linkTargetIsDirectory
34de57749932 correctly handle symlinks Claus Gittinger <cg@exept.de> parents: 4978 diff changeset	2994	self isSymbolicLink ifFalse:[^ false].
34de57749932 correctly handle symlinks Claus Gittinger <cg@exept.de> parents: 4978 diff changeset	2995
34de57749932 correctly handle symlinks Claus Gittinger <cg@exept.de> parents: 4978 diff changeset	2996	^ fileName info isDirectory
34de57749932 correctly handle symlinks Claus Gittinger <cg@exept.de> parents: 4978 diff changeset	2997	!
34de57749932 correctly handle symlinks Claus Gittinger <cg@exept.de> parents: 4978 diff changeset	2998
3887 81925afd23fd initial checkin penk parents: diff changeset	2999	mimeType
81925afd23fd initial checkin penk parents: diff changeset	3000	mimeType isNil ifTrue:[
81925afd23fd initial checkin penk parents: diff changeset	3001	mimeType := MIMETypes mimeTypeForFilename:(self fileName).
81925afd23fd initial checkin penk parents: diff changeset	3002	mimeType isNil ifTrue:[
81925afd23fd initial checkin penk parents: diff changeset	3003	mimeType := #unknown
81925afd23fd initial checkin penk parents: diff changeset	3004	]
81925afd23fd initial checkin penk parents: diff changeset	3005	].
81925afd23fd initial checkin penk parents: diff changeset	3006	^ mimeType
81925afd23fd initial checkin penk parents: diff changeset	3007	!
81925afd23fd initial checkin penk parents: diff changeset	3008
81925afd23fd initial checkin penk parents: diff changeset	3009	preview
81925afd23fd initial checkin penk parents: diff changeset	3010
81925afd23fd initial checkin penk parents: diff changeset	3011	^ preview
81925afd23fd initial checkin penk parents: diff changeset	3012	!
81925afd23fd initial checkin penk parents: diff changeset	3013
81925afd23fd initial checkin penk parents: diff changeset	3014	preview:aLabel
81925afd23fd initial checkin penk parents: diff changeset	3015
81925afd23fd initial checkin penk parents: diff changeset	3016	preview := aLabel.
81925afd23fd initial checkin penk parents: diff changeset	3017	!
81925afd23fd initial checkin penk parents: diff changeset	3018
81925afd23fd initial checkin penk parents: diff changeset	3019	suffix
81925afd23fd initial checkin penk parents: diff changeset	3020	"returns the suffix of the file
81925afd23fd initial checkin penk parents: diff changeset	3021	"
4017 30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	3022	self isDirectory ifTrue:[^''].
3887 81925afd23fd initial checkin penk parents: diff changeset	3023	suffix isNil ifTrue:[
81925afd23fd initial checkin penk parents: diff changeset	3024	(OperatingSystem isUNIXlike and:[(self baseName at:1) == $.]) ifTrue:[
81925afd23fd initial checkin penk parents: diff changeset	3025	suffix := ''.
81925afd23fd initial checkin penk parents: diff changeset	3026	] ifFalse:[
81925afd23fd initial checkin penk parents: diff changeset	3027	suffix := fileName suffix.
81925afd23fd initial checkin penk parents: diff changeset	3028	]
81925afd23fd initial checkin penk parents: diff changeset	3029	].
81925afd23fd initial checkin penk parents: diff changeset	3030	^ suffix
81925afd23fd initial checkin penk parents: diff changeset	3031	!
81925afd23fd initial checkin penk parents: diff changeset	3032
81925afd23fd initial checkin penk parents: diff changeset	3033	suffixes
81925afd23fd initial checkin penk parents: diff changeset	3034
81925afd23fd initial checkin penk parents: diff changeset	3035	\| lastSuff lastButOneSuff\|
81925afd23fd initial checkin penk parents: diff changeset	3036
3967 09ec3349210c instable state penk parents: 3964 diff changeset	3037	(fileName name occurrencesOf:$.) <= 1 ifTrue:[
09ec3349210c instable state penk parents: 3964 diff changeset	3038	^ Array with:(self suffix) with:nil.
09ec3349210c instable state penk parents: 3964 diff changeset	3039	].
09ec3349210c instable state penk parents: 3964 diff changeset	3040	(fileName baseName occurrencesOf:$.) <= 1 ifTrue:[
09ec3349210c instable state penk parents: 3964 diff changeset	3041	^ Array with:(self suffix) with:nil.
09ec3349210c instable state penk parents: 3964 diff changeset	3042	].
3887 81925afd23fd initial checkin penk parents: diff changeset	3043
3967 09ec3349210c instable state penk parents: 3964 diff changeset	3044	((lastSuff := self suffix) isEmpty) ifTrue:[
09ec3349210c instable state penk parents: 3964 diff changeset	3045	lastSuff := nil.
09ec3349210c instable state penk parents: 3964 diff changeset	3046	] ifFalse:[
09ec3349210c instable state penk parents: 3964 diff changeset	3047	lastSuff := lastSuff asLowercase.
09ec3349210c instable state penk parents: 3964 diff changeset	3048	].
09ec3349210c instable state penk parents: 3964 diff changeset	3049
09ec3349210c instable state penk parents: 3964 diff changeset	3050	((lastButOneSuff := fileName withoutSuffix suffix) isEmpty) ifTrue:[
09ec3349210c instable state penk parents: 3964 diff changeset	3051	lastButOneSuff := nil.
09ec3349210c instable state penk parents: 3964 diff changeset	3052	] ifFalse:[
09ec3349210c instable state penk parents: 3964 diff changeset	3053	lastButOneSuff := lastButOneSuff asLowercase.
09ec3349210c instable state penk parents: 3964 diff changeset	3054	].
09ec3349210c instable state penk parents: 3964 diff changeset	3055
09ec3349210c instable state penk parents: 3964 diff changeset	3056	(lastSuff notNil and:[lastButOneSuff notNil]) ifTrue:[
09ec3349210c instable state penk parents: 3964 diff changeset	3057	(lastSuff = 'bak' or:[lastSuff = 'sav']) ifTrue:[
09ec3349210c instable state penk parents: 3964 diff changeset	3058	lastSuff := lastButOneSuff.
3887 81925afd23fd initial checkin penk parents: diff changeset	3059	lastButOneSuff := nil.
3967 09ec3349210c instable state penk parents: 3964 diff changeset	3060	]
3887 81925afd23fd initial checkin penk parents: diff changeset	3061	].
3967 09ec3349210c instable state penk parents: 3964 diff changeset	3062	^ Array with:lastSuff with:lastButOneSuff
3887 81925afd23fd initial checkin penk parents: diff changeset	3063	!
81925afd23fd initial checkin penk parents: diff changeset	3064
81925afd23fd initial checkin penk parents: diff changeset	3065	type
81925afd23fd initial checkin penk parents: diff changeset	3066	"returns the type of the file
81925afd23fd initial checkin penk parents: diff changeset	3067	"
81925afd23fd initial checkin penk parents: diff changeset	3068	^ self valueAt:#type
81925afd23fd initial checkin penk parents: diff changeset	3069
81925afd23fd initial checkin penk parents: diff changeset	3070	! !
81925afd23fd initial checkin penk parents: diff changeset	3071
81925afd23fd initial checkin penk parents: diff changeset	3072	!DirectoryContentsBrowser::DirectoryContentsItem methodsFor:'actions'!
81925afd23fd initial checkin penk parents: diff changeset	3073
81925afd23fd initial checkin penk parents: diff changeset	3074	resetImageFile
81925afd23fd initial checkin penk parents: diff changeset	3075	" if the image preview extent is changed the icon will set to nil to force the update task to reload the image "
81925afd23fd initial checkin penk parents: diff changeset	3076
81925afd23fd initial checkin penk parents: diff changeset	3077	(mimeType notNil and:[ mimeType isImage]) ifTrue:[
81925afd23fd initial checkin penk parents: diff changeset	3078	preview := nil
81925afd23fd initial checkin penk parents: diff changeset	3079	]
81925afd23fd initial checkin penk parents: diff changeset	3080	!
81925afd23fd initial checkin penk parents: diff changeset	3081
5475 b14874ad8460 modification time only in modificationCycle penk parents: 5474 diff changeset	3082	resetItem
3887 81925afd23fd initial checkin penk parents: diff changeset	3083	" dont know what someone else is doing with the file - read all item properties new "
5994 7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	3084
3887 81925afd23fd initial checkin penk parents: diff changeset	3085	fileInfo := nil.
81925afd23fd initial checkin penk parents: diff changeset	3086	icon := nil.
81925afd23fd initial checkin penk parents: diff changeset	3087	fileType := nil.
81925afd23fd initial checkin penk parents: diff changeset	3088	preview := nil.
81925afd23fd initial checkin penk parents: diff changeset	3089	owner := nil.
81925afd23fd initial checkin penk parents: diff changeset	3090	group := nil.
4073 ed730823f751 * empty log message * penk parents: 4072 diff changeset	3091	iconKey := nil.
ed730823f751 * empty log message * penk parents: 4072 diff changeset	3092	mimeTypeForContents := nil.
ed730823f751 * empty log message * penk parents: 4072 diff changeset	3093	mimeType := nil.
3887 81925afd23fd initial checkin penk parents: diff changeset	3094	! !
81925afd23fd initial checkin penk parents: diff changeset	3095
81925afd23fd initial checkin penk parents: diff changeset	3096	!DirectoryContentsBrowser::DirectoryContentsItem methodsFor:'change queries'!
81925afd23fd initial checkin penk parents: diff changeset	3097
3967 09ec3349210c instable state penk parents: 3964 diff changeset	3098	hasBeenModified
5994 7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	3099	"check if item modification time has changed"
7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	3100
7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	3101	\|info\|
3887 81925afd23fd initial checkin penk parents: diff changeset	3102
3906 8a76cb4f5884 next stage penk parents: 3888 diff changeset	3103	self isRemoteDirectory ifTrue:[^ false].
8496 de7a956ce23c test for isRootDirectory ca parents: 8407 diff changeset	3104	"/ root directories are not verified
de7a956ce23c test for isRootDirectory ca parents: 8407 diff changeset	3105	fileName isRootDirectory ifTrue:[ ^ false ].
de7a956ce23c test for isRootDirectory ca parents: 8407 diff changeset	3106
3906 8a76cb4f5884 next stage penk parents: 3888 diff changeset	3107
5475 b14874ad8460 modification time only in modificationCycle penk parents: 5474 diff changeset	3108	fileInfo isNil ifTrue:[
b14874ad8460 modification time only in modificationCycle penk parents: 5474 diff changeset	3109	"first time of invokation "
b14874ad8460 modification time only in modificationCycle penk parents: 5474 diff changeset	3110	info := self getFileInfo.
b14874ad8460 modification time only in modificationCycle penk parents: 5474 diff changeset	3111	info isNil ifTrue:[ ^ false].
b14874ad8460 modification time only in modificationCycle penk parents: 5474 diff changeset	3112	^ true
3887 81925afd23fd initial checkin penk parents: diff changeset	3113	].
8372 c83a3ec5e7e3 handling of symbolic links ca parents: 8255 diff changeset	3114	fileInfo isSymbolicLink ifTrue:[
c83a3ec5e7e3 handling of symbolic links ca parents: 8255 diff changeset	3115	"/ symbolic links are not verified
c83a3ec5e7e3 handling of symbolic links ca parents: 8255 diff changeset	3116	^ false
c83a3ec5e7e3 handling of symbolic links ca parents: 8255 diff changeset	3117	].
c83a3ec5e7e3 handling of symbolic links ca parents: 8255 diff changeset	3118
5475 b14874ad8460 modification time only in modificationCycle penk parents: 5474 diff changeset	3119	self modificationTime ~= fileName modificationTime ifTrue:[
3887 81925afd23fd initial checkin penk parents: diff changeset	3120	^ true
81925afd23fd initial checkin penk parents: diff changeset	3121	].
81925afd23fd initial checkin penk parents: diff changeset	3122	^ false
81925afd23fd initial checkin penk parents: diff changeset	3123	! !
81925afd23fd initial checkin penk parents: diff changeset	3124
6188 c4def7335c1a category change Claus Gittinger <cg@exept.de> parents: 6141 diff changeset	3125	!DirectoryContentsBrowser::DirectoryContentsItem methodsFor:'comparing'!
3887 81925afd23fd initial checkin penk parents: diff changeset	3126
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 4998 diff changeset	3127	= anItem
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 4998 diff changeset	3128
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 4998 diff changeset	3129	"/ Transcript showCR:(anItem species == self species).
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 4998 diff changeset	3130	anItem species == self species ifFalse:[ ^ false].
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 4998 diff changeset	3131	anItem isNil ifTrue:[ ^ false].
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 4998 diff changeset	3132	^ (self fileName = anItem fileName)
3887 81925afd23fd initial checkin penk parents: diff changeset	3133	!
81925afd23fd initial checkin penk parents: diff changeset	3134
81925afd23fd initial checkin penk parents: diff changeset	3135	hash
81925afd23fd initial checkin penk parents: diff changeset	3136	^ fileName hash
81925afd23fd initial checkin penk parents: diff changeset	3137	! !
81925afd23fd initial checkin penk parents: diff changeset	3138
81925afd23fd initial checkin penk parents: diff changeset	3139	!DirectoryContentsBrowser::DirectoryContentsItem methodsFor:'presentation'!
81925afd23fd initial checkin penk parents: diff changeset	3140
81925afd23fd initial checkin penk parents: diff changeset	3141	baseName
5994 7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	3142	"returns the baseName of the file"
7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	3143
10559 e36369957676 Directories are displayed in bold font for easier navigation vrany parents: 10300 diff changeset	3144	baseName isNil ifTrue:[
e36369957676 Directories are displayed in bold font for easier navigation vrany parents: 10300 diff changeset	3145	baseName := fileName baseName.
e36369957676 Directories are displayed in bold font for easier navigation vrany parents: 10300 diff changeset	3146	fileName isDirectory ifTrue:[
e36369957676 Directories are displayed in bold font for easier navigation vrany parents: 10300 diff changeset	3147	baseName := baseName allBold.
e36369957676 Directories are displayed in bold font for easier navigation vrany parents: 10300 diff changeset	3148	].
e36369957676 Directories are displayed in bold font for easier navigation vrany parents: 10300 diff changeset	3149	].
e36369957676 Directories are displayed in bold font for easier navigation vrany parents: 10300 diff changeset	3150	^ baseName
e36369957676 Directories are displayed in bold font for easier navigation vrany parents: 10300 diff changeset	3151
e36369957676 Directories are displayed in bold font for easier navigation vrany parents: 10300 diff changeset	3152	"Modified: / 09-08-2011 / 14:48:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3887 81925afd23fd initial checkin penk parents: diff changeset	3153	!
81925afd23fd initial checkin penk parents: diff changeset	3154
81925afd23fd initial checkin penk parents: diff changeset	3155	baseNameWithOutSuffix
5994 7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	3156	"returns the baseName of the file"
7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	3157
10559 e36369957676 Directories are displayed in bold font for easier navigation vrany parents: 10300 diff changeset	3158	\| baseNameWithOutSuffix \|
3887 81925afd23fd initial checkin penk parents: diff changeset	3159
4017 30a98e72a9a0 * empty log message * penk parents: 4014 diff changeset	3160	self isDirectory ifTrue:[^ self baseName].
10559 e36369957676 Directories are displayed in bold font for easier navigation vrany parents: 10300 diff changeset	3161	baseNameWithOutSuffix := self baseName asFilename withoutSuffix asString.
e36369957676 Directories are displayed in bold font for easier navigation vrany parents: 10300 diff changeset	3162	(baseNameWithOutSuffix isEmpty or:[baseNameWithOutSuffix = '.']) ifTrue:[
3887 81925afd23fd initial checkin penk parents: diff changeset	3163	^ self baseName
81925afd23fd initial checkin penk parents: diff changeset	3164	].
10559 e36369957676 Directories are displayed in bold font for easier navigation vrany parents: 10300 diff changeset	3165	^ baseNameWithOutSuffix.
3887 81925afd23fd initial checkin penk parents: diff changeset	3166	!
81925afd23fd initial checkin penk parents: diff changeset	3167
81925afd23fd initial checkin penk parents: diff changeset	3168	date
5994 7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	3169	"returns the modTimeString"
7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	3170
3887 81925afd23fd initial checkin penk parents: diff changeset	3171	\| modTime \|
81925afd23fd initial checkin penk parents: diff changeset	3172
3967 09ec3349210c instable state penk parents: 3964 diff changeset	3173	modTime := self modificationTime.
09ec3349210c instable state penk parents: 3964 diff changeset	3174	modTime isNil ifTrue:[
09ec3349210c instable state penk parents: 3964 diff changeset	3175	^ '???'
3887 81925afd23fd initial checkin penk parents: diff changeset	3176	].
3967 09ec3349210c instable state penk parents: 3964 diff changeset	3177	^ modTime asDate printString.
3887 81925afd23fd initial checkin penk parents: diff changeset	3178	!
81925afd23fd initial checkin penk parents: diff changeset	3179
81925afd23fd initial checkin penk parents: diff changeset	3180	fileInfoString
81925afd23fd initial checkin penk parents: diff changeset	3181	"get stat info on selected file - return a string which can be
81925afd23fd initial checkin penk parents: diff changeset	3182	shown in a box"
81925afd23fd initial checkin penk parents: diff changeset	3183
81925afd23fd initial checkin penk parents: diff changeset	3184	\| afileType \|
81925afd23fd initial checkin penk parents: diff changeset	3185
81925afd23fd initial checkin penk parents: diff changeset	3186	fileName isNil ifTrue:[^ nil].
81925afd23fd initial checkin penk parents: diff changeset	3187	afileType := self fileType.
81925afd23fd initial checkin penk parents: diff changeset	3188	afileType isNil ifTrue:[
81925afd23fd initial checkin penk parents: diff changeset	3189	^ ''.
81925afd23fd initial checkin penk parents: diff changeset	3190	].
81925afd23fd initial checkin penk parents: diff changeset	3191	^ afileType
81925afd23fd initial checkin penk parents: diff changeset	3192	!
81925afd23fd initial checkin penk parents: diff changeset	3193
3967 09ec3349210c instable state penk parents: 3964 diff changeset	3194	fileSize
5994 7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	3195	"returns the fileSize"
7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	3196
3967 09ec3349210c instable state penk parents: 3964 diff changeset	3197	self getFileInfo.
09ec3349210c instable state penk parents: 3964 diff changeset	3198	fileInfo isNil ifTrue:[^ nil].
09ec3349210c instable state penk parents: 3964 diff changeset	3199
09ec3349210c instable state penk parents: 3964 diff changeset	3200	^ fileInfo fileSize
09ec3349210c instable state penk parents: 3964 diff changeset	3201	!
09ec3349210c instable state penk parents: 3964 diff changeset	3202
3887 81925afd23fd initial checkin penk parents: diff changeset	3203	group
5994 7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	3204	"returns the printable group"
7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	3205
3887 81925afd23fd initial checkin penk parents: diff changeset	3206	\|gid\|
81925afd23fd initial checkin penk parents: diff changeset	3207
81925afd23fd initial checkin penk parents: diff changeset	3208	group isNil ifTrue:[
3967 09ec3349210c instable state penk parents: 3964 diff changeset	3209	self getFileInfo.
09ec3349210c instable state penk parents: 3964 diff changeset	3210	fileInfo isNil ifTrue:[^ '???'].
09ec3349210c instable state penk parents: 3964 diff changeset	3211
09ec3349210c instable state penk parents: 3964 diff changeset	3212	gid := fileInfo gid.
09ec3349210c instable state penk parents: 3964 diff changeset	3213	(LastGIDToGroupNameMapping notNil and:[gid == LastGIDToGroupNameMapping key]) ifTrue:[
09ec3349210c instable state penk parents: 3964 diff changeset	3214	group := LastGIDToGroupNameMapping value
09ec3349210c instable state penk parents: 3964 diff changeset	3215	] ifFalse:[
09ec3349210c instable state penk parents: 3964 diff changeset	3216	group := OperatingSystem getGroupNameFromID:gid.
09ec3349210c instable state penk parents: 3964 diff changeset	3217	LastGIDToGroupNameMapping := gid -> group.
09ec3349210c instable state penk parents: 3964 diff changeset	3218	]
3887 81925afd23fd initial checkin penk parents: diff changeset	3219	].
81925afd23fd initial checkin penk parents: diff changeset	3220	^ group
81925afd23fd initial checkin penk parents: diff changeset	3221	!
81925afd23fd initial checkin penk parents: diff changeset	3222
4976 86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	3223	inodeNumber
5994 7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	3224	"returns the inode number"
7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	3225
4976 86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	3226	self getFileInfo.
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	3227	fileInfo isNil ifTrue:[^ nil].
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	3228	^ fileInfo id
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	3229	!
86594f3f8a9b refactoring column visibility holder of DirectoryContentsBrowser penk parents: 4972 diff changeset	3230
3887 81925afd23fd initial checkin penk parents: diff changeset	3231	modificationTime
5994 7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	3232	"returns the absolute time of modification"
7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	3233
3967 09ec3349210c instable state penk parents: 3964 diff changeset	3234	self getFileInfo.
09ec3349210c instable state penk parents: 3964 diff changeset	3235	fileInfo isNil ifTrue:[^ nil].
09ec3349210c instable state penk parents: 3964 diff changeset	3236
09ec3349210c instable state penk parents: 3964 diff changeset	3237	^ fileInfo modificationTime
3887 81925afd23fd initial checkin penk parents: diff changeset	3238	!
81925afd23fd initial checkin penk parents: diff changeset	3239
81925afd23fd initial checkin penk parents: diff changeset	3240	owner
5994 7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	3241	"returns the printable owner"
7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	3242
3887 81925afd23fd initial checkin penk parents: diff changeset	3243	\|uid\|
81925afd23fd initial checkin penk parents: diff changeset	3244
81925afd23fd initial checkin penk parents: diff changeset	3245	owner isNil ifTrue:[
3967 09ec3349210c instable state penk parents: 3964 diff changeset	3246	self getFileInfo.
09ec3349210c instable state penk parents: 3964 diff changeset	3247	fileInfo isNil ifTrue:[^ '???'].
09ec3349210c instable state penk parents: 3964 diff changeset	3248
09ec3349210c instable state penk parents: 3964 diff changeset	3249	uid := fileInfo uid.
09ec3349210c instable state penk parents: 3964 diff changeset	3250	(LastUIDToUserNameMapping notNil and:[uid == LastUIDToUserNameMapping key]) ifTrue:[
09ec3349210c instable state penk parents: 3964 diff changeset	3251	owner := LastUIDToUserNameMapping value
09ec3349210c instable state penk parents: 3964 diff changeset	3252	] ifFalse:[
09ec3349210c instable state penk parents: 3964 diff changeset	3253	owner := OperatingSystem getUserNameFromID:uid.
09ec3349210c instable state penk parents: 3964 diff changeset	3254	LastUIDToUserNameMapping := uid -> owner.
09ec3349210c instable state penk parents: 3964 diff changeset	3255	]
3887 81925afd23fd initial checkin penk parents: diff changeset	3256	].
81925afd23fd initial checkin penk parents: diff changeset	3257	^ owner
81925afd23fd initial checkin penk parents: diff changeset	3258	!
81925afd23fd initial checkin penk parents: diff changeset	3259
81925afd23fd initial checkin penk parents: diff changeset	3260	permissions
5994 7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	3261	"returns the permissions as printable string"
7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	3262
3967 09ec3349210c instable state penk parents: 3964 diff changeset	3263	\|mode permissionString\|
3887 81925afd23fd initial checkin penk parents: diff changeset	3264
3967 09ec3349210c instable state penk parents: 3964 diff changeset	3265	self getFileInfo.
09ec3349210c instable state penk parents: 3964 diff changeset	3266	fileInfo isNil ifTrue:[^ '???'.].
3887 81925afd23fd initial checkin penk parents: diff changeset	3267
3967 09ec3349210c instable state penk parents: 3964 diff changeset	3268	mode := fileInfo mode.
09ec3349210c instable state penk parents: 3964 diff changeset	3269	permissionString := String new:9 withAll:$-.
09ec3349210c instable state penk parents: 3964 diff changeset	3270
09ec3349210c instable state penk parents: 3964 diff changeset	3271	1 to:9 by:3 do:[:i\|
09ec3349210c instable state penk parents: 3964 diff changeset	3272	(mode bitAt:i ) == 1 ifTrue:[permissionString at:10 - i put:$x].
09ec3349210c instable state penk parents: 3964 diff changeset	3273	(mode bitAt:i + 1) == 1 ifTrue:[permissionString at:9 - i put:$w].
09ec3349210c instable state penk parents: 3964 diff changeset	3274	(mode bitAt:i + 2) == 1 ifTrue:[permissionString at:8 - i put:$r].
3887 81925afd23fd initial checkin penk parents: diff changeset	3275	].
3967 09ec3349210c instable state penk parents: 3964 diff changeset	3276	^ permissionString
3887 81925afd23fd initial checkin penk parents: diff changeset	3277	!
81925afd23fd initial checkin penk parents: diff changeset	3278
4970 726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	3279	sizeInBytesString
726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	3280	\|locSize\|
726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	3281
726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	3282	locSize := self fileSize.
726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	3283	locSize isNil ifTrue:[^ '???'].
726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	3284
726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	3285	^ locSize printString "/ leftPaddedTo:8.
726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	3286	!
726e48d5a9bc comment Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	3287
5312 63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	3288	sizeInKiloBytesString
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	3289	\|locSize\|
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	3290
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	3291	locSize := self fileSize.
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	3292	locSize isNil ifTrue:[^ '???'].
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	3293
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	3294	(locSize \\ 1024) == 0 ifTrue:[
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	3295	^ (locSize // 1024) printString , ' '
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	3296	].
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	3297	^ ((locSize / 1024) asFixedPoint:1) printString
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	3298	!
63b275aa2c69 size in Kb Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	3299
3887 81925afd23fd initial checkin penk parents: diff changeset	3300	sizeString
5994 7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	3301	"returns the size of the file"
7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	3302
7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	3303	\| unitString locSize\|
3887 81925afd23fd initial checkin penk parents: diff changeset	3304
3967 09ec3349210c instable state penk parents: 3964 diff changeset	3305	locSize := self fileSize.
09ec3349210c instable state penk parents: 3964 diff changeset	3306	locSize isNil ifTrue:[^ '???'].
09ec3349210c instable state penk parents: 3964 diff changeset	3307
4402 c13678e65aa8 sizeCol is aligned on the decimalPoint Claus Gittinger <cg@exept.de> parents: 4376 diff changeset	3308	unitString := UnitConverter fileSizeStringFor:locSize.
c13678e65aa8 sizeCol is aligned on the decimalPoint Claus Gittinger <cg@exept.de> parents: 4376 diff changeset	3309	^ unitString withoutSeparators "/ leftPaddedTo:8.
3887 81925afd23fd initial checkin penk parents: diff changeset	3310	!
81925afd23fd initial checkin penk parents: diff changeset	3311
81925afd23fd initial checkin penk parents: diff changeset	3312	timeAndDate
5994 7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	3313	"returns the time- and date string"
7ba2a06e65f8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5974 diff changeset	3314
5338 393edc0a849a * empty log message * Claus Gittinger <cg@exept.de> parents: 5334 diff changeset	3315	\|resources format modTime date\|
3887 81925afd23fd initial checkin penk parents: diff changeset	3316
3967 09ec3349210c instable state penk parents: 3964 diff changeset	3317	modTime := self modificationTime.
09ec3349210c instable state penk parents: 3964 diff changeset	3318	modTime isNil ifTrue:[
09ec3349210c instable state penk parents: 3964 diff changeset	3319	^ '???'
3887 81925afd23fd initial checkin penk parents: diff changeset	3320	].
4938 c6d812095119 printFormat Claus Gittinger <cg@exept.de> parents: 4931 diff changeset	3321
5338 393edc0a849a * empty log message * Claus Gittinger <cg@exept.de> parents: 5334 diff changeset	3322	resources := FileBrowser resources.
393edc0a849a * empty log message * Claus Gittinger <cg@exept.de> parents: 5334 diff changeset	3323
4938 c6d812095119 printFormat Claus Gittinger <cg@exept.de> parents: 4931 diff changeset	3324	"/ format := '%(year)-%(mon)-%(day) %h:%m:%s'.
c6d812095119 printFormat Claus Gittinger <cg@exept.de> parents: 4931 diff changeset	3325	date := modTime asDate.
c6d812095119 printFormat Claus Gittinger <cg@exept.de> parents: 4931 diff changeset	3326	date = Date today ifTrue:[
5338 393edc0a849a * empty log message * Claus Gittinger <cg@exept.de> parents: 5334 diff changeset	3327	format := (resources string:'Today') , ' %(yearOrTime)'
4938 c6d812095119 printFormat Claus Gittinger <cg@exept.de> parents: 4931 diff changeset	3328	] ifFalse:[
c6d812095119 printFormat Claus Gittinger <cg@exept.de> parents: 4931 diff changeset	3329	false "date = Date yesterday" ifTrue:[
5338 393edc0a849a * empty log message * Claus Gittinger <cg@exept.de> parents: 5334 diff changeset	3330	format := (resources string:'Yesterday') , ' %(yearOrTime)'
4938 c6d812095119 printFormat Claus Gittinger <cg@exept.de> parents: 4931 diff changeset	3331	] ifFalse:[
8845 471945efed1c Smalltalk language -> UserPreferences current language Claus Gittinger <cg@exept.de> parents: 8715 diff changeset	3332	UserPreferences current languageTerritory == #us ifTrue:[
4938 c6d812095119 printFormat Claus Gittinger <cg@exept.de> parents: 4931 diff changeset	3333	format := '%(ShortMonthName), %(dayPadded) %(yearOrTime)'.
c6d812095119 printFormat Claus Gittinger <cg@exept.de> parents: 4931 diff changeset	3334	] ifFalse:[
c6d812095119 printFormat Claus Gittinger <cg@exept.de> parents: 4931 diff changeset	3335	format :='%(day)-%(ShortMonthName) %(yearOrTime)'.
c6d812095119 printFormat Claus Gittinger <cg@exept.de> parents: 4931 diff changeset	3336	].
c6d812095119 printFormat Claus Gittinger <cg@exept.de> parents: 4931 diff changeset	3337	].
3967 09ec3349210c instable state penk parents: 3964 diff changeset	3338	].
4938 c6d812095119 printFormat Claus Gittinger <cg@exept.de> parents: 4931 diff changeset	3339
c6d812095119 printFormat Claus Gittinger <cg@exept.de> parents: 4931 diff changeset	3340	^ modTime printStringFormat:format.
3887 81925afd23fd initial checkin penk parents: diff changeset	3341	! !
81925afd23fd initial checkin penk parents: diff changeset	3342
5716 66d5e36a16d8 update if fileItem is modified penk parents: 5676 diff changeset	3343	!DirectoryContentsBrowser::DirectoryContentsItem methodsFor:'printing'!
66d5e36a16d8 update if fileItem is modified penk parents: 5676 diff changeset	3344
66d5e36a16d8 update if fileItem is modified penk parents: 5676 diff changeset	3345	printOn:aStream
66d5e36a16d8 update if fileItem is modified penk parents: 5676 diff changeset	3346	super printOn:aStream.
8003 7af5b26e1723 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7963 diff changeset	3347	aStream
7af5b26e1723 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7963 diff changeset	3348	nextPut:$[;
7af5b26e1723 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7963 diff changeset	3349	nextPutAll:fileName asString;
7af5b26e1723 Define #printOn: for each method defining #printString Stefan Vogel <sv@exept.de> parents: 7963 diff changeset	3350	nextPut:$].
5716 66d5e36a16d8 update if fileItem is modified penk parents: 5676 diff changeset	3351	! !
66d5e36a16d8 update if fileItem is modified penk parents: 5676 diff changeset	3352
3887 81925afd23fd initial checkin penk parents: diff changeset	3353	!DirectoryContentsBrowser::DirectoryContentsItem methodsFor:'private'!
81925afd23fd initial checkin penk parents: diff changeset	3354
3967 09ec3349210c instable state penk parents: 3964 diff changeset	3355	getFileInfo
3887 81925afd23fd initial checkin penk parents: diff changeset	3356	fileInfo isNil ifTrue:[
3906 8a76cb4f5884 next stage penk parents: 3888 diff changeset	3357	self isRemoteDirectory ifTrue:[
8a76cb4f5884 next stage penk parents: 3888 diff changeset	3358	"/ do not access, to avoid automount
3887 81925afd23fd initial checkin penk parents: diff changeset	3359	] ifFalse:[
3967 09ec3349210c instable state penk parents: 3964 diff changeset	3360	fileInfo := fileName linkInfo.
09ec3349210c instable state penk parents: 3964 diff changeset	3361	].
09ec3349210c instable state penk parents: 3964 diff changeset	3362	].
09ec3349210c instable state penk parents: 3964 diff changeset	3363	^ fileInfo
3887 81925afd23fd initial checkin penk parents: diff changeset	3364	! !
81925afd23fd initial checkin penk parents: diff changeset	3365
81925afd23fd initial checkin penk parents: diff changeset	3366	!DirectoryContentsBrowser::DirectoryContentsItem methodsFor:'queries'!
81925afd23fd initial checkin penk parents: diff changeset	3367
3906 8a76cb4f5884 next stage penk parents: 3888 diff changeset	3368	beRemoteDirectory
8a76cb4f5884 next stage penk parents: 3888 diff changeset	3369	fileType := #remoteDirectory.
8a76cb4f5884 next stage penk parents: 3888 diff changeset	3370	!
8a76cb4f5884 next stage penk parents: 3888 diff changeset	3371
3887 81925afd23fd initial checkin penk parents: diff changeset	3372	exists
81925afd23fd initial checkin penk parents: diff changeset	3373	^ fileName exists
81925afd23fd initial checkin penk parents: diff changeset	3374	!
81925afd23fd initial checkin penk parents: diff changeset	3375
81925afd23fd initial checkin penk parents: diff changeset	3376	hasMimeType
81925afd23fd initial checkin penk parents: diff changeset	3377
81925afd23fd initial checkin penk parents: diff changeset	3378	^ (self mimeType ~= #unknown)
81925afd23fd initial checkin penk parents: diff changeset	3379	!
81925afd23fd initial checkin penk parents: diff changeset	3380
3906 8a76cb4f5884 next stage penk parents: 3888 diff changeset	3381	isRemoteDirectory
8a76cb4f5884 next stage penk parents: 3888 diff changeset	3382	^ fileType == #remoteDirectory
8a76cb4f5884 next stage penk parents: 3888 diff changeset	3383	!
8a76cb4f5884 next stage penk parents: 3888 diff changeset	3384
3887 81925afd23fd initial checkin penk parents: diff changeset	3385	mimeTypeForContents
81925afd23fd initial checkin penk parents: diff changeset	3386
81925afd23fd initial checkin penk parents: diff changeset	3387	mimeTypeForContents isNil ifTrue:[
81925afd23fd initial checkin penk parents: diff changeset	3388	mimeTypeForContents := MIMETypes mimeTypeOfContents:(self fileName).
81925afd23fd initial checkin penk parents: diff changeset	3389	mimeTypeForContents isNil ifTrue:[
81925afd23fd initial checkin penk parents: diff changeset	3390	mimeTypeForContents := #unknown
81925afd23fd initial checkin penk parents: diff changeset	3391	] ifFalse:[
81925afd23fd initial checkin penk parents: diff changeset	3392	" set mimeType to mimeType of contents if a better mimeType is found "
81925afd23fd initial checkin penk parents: diff changeset	3393	mimeType := mimeTypeForContents.
81925afd23fd initial checkin penk parents: diff changeset	3394	iconKey := mimeTypeForContents.
81925afd23fd initial checkin penk parents: diff changeset	3395	]
81925afd23fd initial checkin penk parents: diff changeset	3396	].
81925afd23fd initial checkin penk parents: diff changeset	3397	^ mimeTypeForContents
81925afd23fd initial checkin penk parents: diff changeset	3398	! !
81925afd23fd initial checkin penk parents: diff changeset	3399
81925afd23fd initial checkin penk parents: diff changeset	3400	!DirectoryContentsBrowser class methodsFor:'documentation'!
81925afd23fd initial checkin penk parents: diff changeset	3401
81925afd23fd initial checkin penk parents: diff changeset	3402	version
11445 7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	3403	^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.244 2012-03-20 12:14:11 cg Exp $'
8845 471945efed1c Smalltalk language -> UserPreferences current language Claus Gittinger <cg@exept.de> parents: 8715 diff changeset	3404	!
471945efed1c Smalltalk language -> UserPreferences current language Claus Gittinger <cg@exept.de> parents: 8715 diff changeset	3405
471945efed1c Smalltalk language -> UserPreferences current language Claus Gittinger <cg@exept.de> parents: 8715 diff changeset	3406	version_CVS
11445 7c94d9cad8b4 update fixed Claus Gittinger <cg@exept.de> parents: 11431 diff changeset	3407	^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.244 2012-03-20 12:14:11 cg Exp $'
3887 81925afd23fd initial checkin penk parents: diff changeset	3408	! !

author	Claus Gittinger <cg@exept.de>
	Tue, 20 Mar 2012 13:14:11 +0100
changeset 11445	7c94d9cad8b4
parent 11431	c67c0721764f
child 11446	5804c23cee35
permissions	-rw-r--r--