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

author	Claus Gittinger <cg@exept.de>
	Tue, 04 Jul 2006 11:42:45 +0200
changeset 6809	feff4e2a1c4b
parent 6770	26206f425ad8
child 6826	2b6bf0d725c2
permissions	-rw-r--r--