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

author	penk
	Mon, 02 Feb 2004 17:29:14 +0100
changeset 5475	b14874ad8460
parent 5474	c1f778c85ec1
child 5544	e5ccc9372d6b
permissions	-rw-r--r--