hg/stx-libtool: DirectoryContentsBrowser.st@5a6b6ab5c1fa (annotated)

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

author	Claus Gittinger <cg@exept.de>
	Wed, 04 Dec 2019 14:21:11 +0100
changeset 19337	5a6b6ab5c1fa
parent 19014	6401bc2cfa4b
child 19420	c41df4d88ba6
permissions	-rw-r--r--