hg/stx-libtool: DirectoryTreeBrowser.st@c6ca1c3e0fd7 (annotated)

18737 d8370f93fd9b #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18269 diff changeset	1	"{ Encoding: utf8 }"
d8370f93fd9b #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18269 diff changeset	2
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5093 diff changeset	3	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5093 diff changeset	4	COPYRIGHT (c) 2002 by eXept Software AG
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5093 diff changeset	5	All Rights Reserved
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5093 diff changeset	6
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5093 diff changeset	7	This software is furnished under a license and may be used
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5093 diff changeset	8	only in accordance with the terms of that license and with the
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5093 diff changeset	9	inclusion of the above copyright notice. This software may not
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5093 diff changeset	10	be provided or otherwise made available to, or used by, any
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5093 diff changeset	11	other person. No title to or ownership of the software is
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5093 diff changeset	12	hereby transferred.
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5093 diff changeset	13	"
3892 321c1729db5b initial checkin penk parents: diff changeset	14	"{ Package: 'stx:libtool' }"
321c1729db5b initial checkin penk parents: diff changeset	15
15593 a0954ebf864c class: DirectoryTreeBrowser Stefan Vogel <sv@exept.de> parents: 14575 diff changeset	16	"{ NameSpace: Smalltalk }"
a0954ebf864c class: DirectoryTreeBrowser Stefan Vogel <sv@exept.de> parents: 14575 diff changeset	17
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	18	AbstractDirectoryBrowser subclass:#DirectoryTreeBrowser
4863 66a3c33f28a2 method category rename Claus Gittinger <cg@exept.de> parents: 4801 diff changeset	19	instanceVariableNames:'oldDropItem expandItemTimedBlock updateTreeSelection
66a3c33f28a2 method category rename Claus Gittinger <cg@exept.de> parents: 4801 diff changeset	20	doubleClickAction newVisibilityHolder allowFileOperations
66a3c33f28a2 method category rename Claus Gittinger <cg@exept.de> parents: 4801 diff changeset	21	multipleSelect treeSelectionHolder sortInTreeVisibilityHolder
19358 4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	22	sortPropertyInTree sortCaseless'
4863 66a3c33f28a2 method category rename Claus Gittinger <cg@exept.de> parents: 4801 diff changeset	23	classVariableNames:''
66a3c33f28a2 method category rename Claus Gittinger <cg@exept.de> parents: 4801 diff changeset	24	poolDictionaries:''
66a3c33f28a2 method category rename Claus Gittinger <cg@exept.de> parents: 4801 diff changeset	25	category:'Interface-Tools-File'
3892 321c1729db5b initial checkin penk parents: diff changeset	26	!
321c1729db5b initial checkin penk parents: diff changeset	27
321c1729db5b initial checkin penk parents: diff changeset	28	HierarchicalFileList subclass:#DirTreeBrowserHFL
4863 66a3c33f28a2 method category rename Claus Gittinger <cg@exept.de> parents: 4801 diff changeset	29	instanceVariableNames:'draggedItem grayDirectoryIcon'
66a3c33f28a2 method category rename Claus Gittinger <cg@exept.de> parents: 4801 diff changeset	30	classVariableNames:''
66a3c33f28a2 method category rename Claus Gittinger <cg@exept.de> parents: 4801 diff changeset	31	poolDictionaries:''
66a3c33f28a2 method category rename Claus Gittinger <cg@exept.de> parents: 4801 diff changeset	32	privateIn:DirectoryTreeBrowser
3892 321c1729db5b initial checkin penk parents: diff changeset	33	!
321c1729db5b initial checkin penk parents: diff changeset	34
321c1729db5b initial checkin penk parents: diff changeset	35	!DirectoryTreeBrowser class methodsFor:'documentation'!
321c1729db5b initial checkin penk parents: diff changeset	36
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5093 diff changeset	37	copyright
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5093 diff changeset	38	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5093 diff changeset	39	COPYRIGHT (c) 2002 by eXept Software AG
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5093 diff changeset	40	All Rights Reserved
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5093 diff changeset	41
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5093 diff changeset	42	This software is furnished under a license and may be used
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5093 diff changeset	43	only in accordance with the terms of that license and with the
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5093 diff changeset	44	inclusion of the above copyright notice. This software may not
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5093 diff changeset	45	be provided or otherwise made available to, or used by, any
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5093 diff changeset	46	other person. No title to or ownership of the software is
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5093 diff changeset	47	hereby transferred.
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5093 diff changeset	48	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5093 diff changeset	49	!
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5093 diff changeset	50
3892 321c1729db5b initial checkin penk parents: diff changeset	51	documentation
321c1729db5b initial checkin penk parents: diff changeset	52	"
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	53	An application for displaying directories as a tree.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	54	To be used as a building block in file browsers and fileSelection dialogs.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	55	This is used as the top-left component in the new fileBrowser.
3892 321c1729db5b initial checkin penk parents: diff changeset	56
321c1729db5b initial checkin penk parents: diff changeset	57	[author:]
321c1729db5b initial checkin penk parents: diff changeset	58	Christian Penk (penk@bierfix)
321c1729db5b initial checkin penk parents: diff changeset	59
321c1729db5b initial checkin penk parents: diff changeset	60	[see also:]
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	61	FileBrowserV2
3892 321c1729db5b initial checkin penk parents: diff changeset	62	"
321c1729db5b initial checkin penk parents: diff changeset	63	!
321c1729db5b initial checkin penk parents: diff changeset	64
321c1729db5b initial checkin penk parents: diff changeset	65	examples
321c1729db5b initial checkin penk parents: diff changeset	66	"
321c1729db5b initial checkin penk parents: diff changeset	67	[exBegin]
321c1729db5b initial checkin penk parents: diff changeset	68	DirectoryTreeBrowser open
321c1729db5b initial checkin penk parents: diff changeset	69	[exEnd]
321c1729db5b initial checkin penk parents: diff changeset	70	"
321c1729db5b initial checkin penk parents: diff changeset	71	! !
321c1729db5b initial checkin penk parents: diff changeset	72
321c1729db5b initial checkin penk parents: diff changeset	73	!DirectoryTreeBrowser class methodsFor:'instance creation'!
321c1729db5b initial checkin penk parents: diff changeset	74
12514 0b9385af333b class: DirectoryTreeBrowser Claus Gittinger <cg@exept.de> parents: 12114 diff changeset	75	openOn:aFileName
0b9385af333b class: DirectoryTreeBrowser Claus Gittinger <cg@exept.de> parents: 12114 diff changeset	76	\| file \|
3892 321c1729db5b initial checkin penk parents: diff changeset	77
321c1729db5b initial checkin penk parents: diff changeset	78	file := aFileName asFilename.
321c1729db5b initial checkin penk parents: diff changeset	79	file exists ifTrue:[
12514 0b9385af333b class: DirectoryTreeBrowser Claus Gittinger <cg@exept.de> parents: 12114 diff changeset	80	^ self openOn:aFileName withFiles:(file isDirectory not)
0b9385af333b class: DirectoryTreeBrowser Claus Gittinger <cg@exept.de> parents: 12114 diff changeset	81	].
0b9385af333b class: DirectoryTreeBrowser Claus Gittinger <cg@exept.de> parents: 12114 diff changeset	82	^ self open
3892 321c1729db5b initial checkin penk parents: diff changeset	83
321c1729db5b initial checkin penk parents: diff changeset	84	"
321c1729db5b initial checkin penk parents: diff changeset	85	DirectoryTreeBrowser openOn:Filename homeDirectory
321c1729db5b initial checkin penk parents: diff changeset	86	DirectoryTreeBrowser openOn:(Filename homeDirectory construct:'.bashrc')
321c1729db5b initial checkin penk parents: diff changeset	87	"
321c1729db5b initial checkin penk parents: diff changeset	88	!
321c1729db5b initial checkin penk parents: diff changeset	89
321c1729db5b initial checkin penk parents: diff changeset	90	openOn:aFileName withFiles:aBoolean
321c1729db5b initial checkin penk parents: diff changeset	91
5377 5b0ca5fafecd comments Stefan Vogel <sv@exept.de> parents: 5330 diff changeset	92	\|instance\|
3892 321c1729db5b initial checkin penk parents: diff changeset	93
17205 5f737b63fa71 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 15593 diff changeset	94	instance := self new.
3892 321c1729db5b initial checkin penk parents: diff changeset	95	instance open.
321c1729db5b initial checkin penk parents: diff changeset	96	instance viewFilesInDirectoryTree value:aBoolean.
321c1729db5b initial checkin penk parents: diff changeset	97	instance currentFileNameHolder value:(OrderedCollection with:aFileName).
12514 0b9385af333b class: DirectoryTreeBrowser Claus Gittinger <cg@exept.de> parents: 12114 diff changeset	98	^ instance
0b9385af333b class: DirectoryTreeBrowser Claus Gittinger <cg@exept.de> parents: 12114 diff changeset	99
3892 321c1729db5b initial checkin penk parents: diff changeset	100	"
321c1729db5b initial checkin penk parents: diff changeset	101	DirectoryTreeBrowser openOn:Filename homeDirectory
321c1729db5b initial checkin penk parents: diff changeset	102	DirectoryTreeBrowser openOn:(Filename homeDirectory construct:'.bashrc') withFiles:false
321c1729db5b initial checkin penk parents: diff changeset	103	"
321c1729db5b initial checkin penk parents: diff changeset	104	! !
321c1729db5b initial checkin penk parents: diff changeset	105
321c1729db5b initial checkin penk parents: diff changeset	106	!DirectoryTreeBrowser class methodsFor:'defaults'!
321c1729db5b initial checkin penk parents: diff changeset	107
321c1729db5b initial checkin penk parents: diff changeset	108	timeForExpandOnDropInMilliseconds
321c1729db5b initial checkin penk parents: diff changeset	109
321c1729db5b initial checkin penk parents: diff changeset	110	^ 1500
321c1729db5b initial checkin penk parents: diff changeset	111	! !
321c1729db5b initial checkin penk parents: diff changeset	112
321c1729db5b initial checkin penk parents: diff changeset	113	!DirectoryTreeBrowser class methodsFor:'interface specs'!
321c1729db5b initial checkin penk parents: diff changeset	114
321c1729db5b initial checkin penk parents: diff changeset	115	windowSpec
321c1729db5b initial checkin penk parents: diff changeset	116	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	117	by the UIPainter of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	118
321c1729db5b initial checkin penk parents: diff changeset	119	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	120	the UIPainter may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	121
321c1729db5b initial checkin penk parents: diff changeset	122	"
321c1729db5b initial checkin penk parents: diff changeset	123	UIPainter new openOnClass:DirectoryTreeBrowser andSelector:#windowSpec
321c1729db5b initial checkin penk parents: diff changeset	124	DirectoryTreeBrowser new openInterface:#windowSpec
321c1729db5b initial checkin penk parents: diff changeset	125	DirectoryTreeBrowser open
321c1729db5b initial checkin penk parents: diff changeset	126	"
321c1729db5b initial checkin penk parents: diff changeset	127
321c1729db5b initial checkin penk parents: diff changeset	128	<resource: #canvas>
321c1729db5b initial checkin penk parents: diff changeset	129
321c1729db5b initial checkin penk parents: diff changeset	130	^
5152 6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	131	#(FullSpec
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	132	name: windowSpec
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	133	window:
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	134	(WindowSpec
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	135	label: 'DirectoryTreeBrowser'
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	136	name: 'DirectoryTreeBrowser'
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	137	min: (Point 10 10)
6502 ce6d9b874420 autoScrollHoriz Claus Gittinger <cg@exept.de> parents: 6337 diff changeset	138	bounds: (Rectangle 0 0 300 300)
5152 6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	139	menu: mainMenu
3892 321c1729db5b initial checkin penk parents: diff changeset	140	)
5152 6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	141	component:
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	142	(SpecCollection
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	143	collection: (
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	144	(HierarchicalListViewSpec
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	145	name: 'HierarchicalListView'
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	146	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	147	model: treeSelectionHolder
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	148	menu: menu
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	149	hasHorizontalScrollBar: true
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	150	hasVerticalScrollBar: true
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	151	miniScrollerHorizontal: false
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	152	miniScrollerVertical: false
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	153	listModel: fileList
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	154	multipleSelectOk: true
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	155	useIndex: false
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	156	highlightMode: label
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	157	doubleClickSelector: doDoubleClick:
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	158	indicatorSelector: doIndicatorClick:
6502 ce6d9b874420 autoScrollHoriz Claus Gittinger <cg@exept.de> parents: 6337 diff changeset	159	autoScrollHorizontal: false
5152 6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	160	postBuildCallback: postBuildDirBrowser:
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	161	properties:
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	162	(PropertyListDictionary
6502 ce6d9b874420 autoScrollHoriz Claus Gittinger <cg@exept.de> parents: 6337 diff changeset	163	enterSelector: dropEnter:
5152 6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	164	dragArgument: directoryTreeBrowser
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	165	startDragSelector: doStartDrag:in:
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	166	displayObjectSelector: getDisplayObjects:
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	167	dropObjectSelector: getDropObjects:
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	168	overSelector: dropOver:
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	169	dropArgument: directoryTreeBrowser
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	170	canDropSelector: canDrop:
6c6716dd6642 Delete #max: (- windowsize) in windowSpecs Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	171	leaveSelector: dropLeave:
6502 ce6d9b874420 autoScrollHoriz Claus Gittinger <cg@exept.de> parents: 6337 diff changeset	172	dropSelector: doDrop:
3892 321c1729db5b initial checkin penk parents: diff changeset	173	)
321c1729db5b initial checkin penk parents: diff changeset	174	)
321c1729db5b initial checkin penk parents: diff changeset	175	)
321c1729db5b initial checkin penk parents: diff changeset	176
321c1729db5b initial checkin penk parents: diff changeset	177	)
321c1729db5b initial checkin penk parents: diff changeset	178	)
321c1729db5b initial checkin penk parents: diff changeset	179	! !
321c1729db5b initial checkin penk parents: diff changeset	180
321c1729db5b initial checkin penk parents: diff changeset	181	!DirectoryTreeBrowser class methodsFor:'menu specs'!
321c1729db5b initial checkin penk parents: diff changeset	182
321c1729db5b initial checkin penk parents: diff changeset	183	menu
321c1729db5b initial checkin penk parents: diff changeset	184	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	185	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	186
321c1729db5b initial checkin penk parents: diff changeset	187	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	188	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	189
321c1729db5b initial checkin penk parents: diff changeset	190	"
321c1729db5b initial checkin penk parents: diff changeset	191	MenuEditor new openOnClass:DirectoryTreeBrowser andSelector:#menu
321c1729db5b initial checkin penk parents: diff changeset	192	(Menu new fromLiteralArrayEncoding:(DirectoryTreeBrowser menu)) startUp
321c1729db5b initial checkin penk parents: diff changeset	193	"
321c1729db5b initial checkin penk parents: diff changeset	194
321c1729db5b initial checkin penk parents: diff changeset	195	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	196
321c1729db5b initial checkin penk parents: diff changeset	197	^
5425 fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	198	#(Menu
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	199	(
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	200	(MenuItem
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	201	label: 'Cut'
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	202	itemValue: doCut
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	203	translateLabel: true
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	204	isVisible: allowFileOperations
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	205	shortcutKey: Cut
4615 cc32f33b6b60 cut-copy-paste is the correct order Claus Gittinger <cg@exept.de> parents: 4611 diff changeset	206	)
5425 fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	207	(MenuItem
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	208	label: 'Copy'
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	209	itemValue: doCopy
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	210	translateLabel: true
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	211	isVisible: allowFileOperations
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	212	shortcutKey: Copy
3892 321c1729db5b initial checkin penk parents: diff changeset	213	)
5425 fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	214	(MenuItem
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	215	enabled: canPaste
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	216	label: 'Paste'
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	217	itemValue: pasteFiles
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	218	translateLabel: true
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	219	isVisible: allowFileOperations
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	220	shortcutKey: Paste
3892 321c1729db5b initial checkin penk parents: diff changeset	221	)
5425 fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	222	(MenuItem
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	223	label: 'Delete'
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	224	itemValue: doDelete
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	225	nameKey: delete
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	226	translateLabel: true
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	227	isVisible: allowFileOperations
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	228	shortcutKey: Delete
3892 321c1729db5b initial checkin penk parents: diff changeset	229	)
5425 fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	230	(MenuItem
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	231	label: '-'
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	232	isVisible: allowFileOperations
4383 2fc564ad0f70 same menu order as on the right side Claus Gittinger <cg@exept.de> parents: 4333 diff changeset	233	)
5425 fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	234	(MenuItem
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	235	label: 'New'
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	236	translateLabel: true
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	237	isVisible: newVisibilityHolder
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	238	submenuChannel: newMenu
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	239	keepLinkedMenu: true
4534 60139c1a36e6 menu Claus Gittinger <cg@exept.de> parents: 4532 diff changeset	240	)
5425 fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	241	(MenuItem
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	242	label: '-'
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	243	isVisible: newVisibilityHolder
4534 60139c1a36e6 menu Claus Gittinger <cg@exept.de> parents: 4532 diff changeset	244	)
5425 fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	245	(MenuItem
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	246	enabled: hasSelection
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	247	label: 'Rename'
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	248	itemValue: renameFileInTreeView
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	249	translateLabel: true
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	250	isVisible: allowFileOperations
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	251	shortcutKey: Rename
3907 a06fe9db6195 next stage penk parents: 3906 diff changeset	252	)
5425 fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	253	(MenuItem
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	254	enabled: hasSelection
9356 926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	255	label: 'Rename each to Include Directory in Name'
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	256	itemValue: renameToIncludeDirectoryInNameInTreeView
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	257	translateLabel: true
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	258	isVisible: allowFileOperations
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	259	)
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	260	(MenuItem
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	261	enabled: hasSelection
5425 fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	262	label: 'Properties...'
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	263	itemValue: doShowProperties
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	264	translateLabel: true
3892 321c1729db5b initial checkin penk parents: diff changeset	265	)
5425 fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	266	(MenuItem
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	267	label: '-'
3892 321c1729db5b initial checkin penk parents: diff changeset	268	)
5425 fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	269	(MenuItem
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	270	enabled: enableDirectoryUp
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	271	label: 'Directory Up'
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	272	itemValue: doGoDirectoryUp
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	273	translateLabel: true
4383 2fc564ad0f70 same menu order as on the right side Claus Gittinger <cg@exept.de> parents: 4333 diff changeset	274	)
5425 fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	275	(MenuItem
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	276	label: 'View'
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	277	translateLabel: true
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	278	submenu:
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	279	(Menu
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	280	(
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	281	(MenuItem
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	282	label: 'Sort'
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	283	nameKey: Sort
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	284	translateLabel: true
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	285	submenuChannel: sortInTreeMenu
4383 2fc564ad0f70 same menu order as on the right side Claus Gittinger <cg@exept.de> parents: 4333 diff changeset	286	)
5425 fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	287	(MenuItem
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	288	label: 'Show'
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	289	translateLabel: true
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	290	submenu:
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	291	(Menu
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	292	(
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	293	(MenuItem
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	294	label: 'Files'
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	295	translateLabel: true
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	296	indication: viewFilesInDirectoryTree
4410 b1972ecceb2a popup menu Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	297	)
b1972ecceb2a popup menu Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	298	)
b1972ecceb2a popup menu Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	299	nil
b1972ecceb2a popup menu Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	300	nil
b1972ecceb2a popup menu Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	301	)
b1972ecceb2a popup menu Claus Gittinger <cg@exept.de> parents: 4383 diff changeset	302	)
5425 fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	303	(MenuItem
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	304	label: '-'
4534 60139c1a36e6 menu Claus Gittinger <cg@exept.de> parents: 4532 diff changeset	305	)
5425 fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	306	(MenuItem
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	307	enabled: selectedFilesIncludesNonRootDirectory
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	308	label: 'Make Selected Directory new Root'
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	309	itemValue: doSetSelectionToRoot
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	310	translateLabel: true
4534 60139c1a36e6 menu Claus Gittinger <cg@exept.de> parents: 4532 diff changeset	311	)
5425 fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	312	(MenuItem
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	313	label: 'Re-/ Expand Directory'
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	314	itemValue: toggleExpandSelectedItem
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	315	translateLabel: true
4534 60139c1a36e6 menu Claus Gittinger <cg@exept.de> parents: 4532 diff changeset	316	)
4383 2fc564ad0f70 same menu order as on the right side Claus Gittinger <cg@exept.de> parents: 4333 diff changeset	317	)
2fc564ad0f70 same menu order as on the right side Claus Gittinger <cg@exept.de> parents: 4333 diff changeset	318	nil
2fc564ad0f70 same menu order as on the right side Claus Gittinger <cg@exept.de> parents: 4333 diff changeset	319	nil
2fc564ad0f70 same menu order as on the right side Claus Gittinger <cg@exept.de> parents: 4333 diff changeset	320	)
2fc564ad0f70 same menu order as on the right side Claus Gittinger <cg@exept.de> parents: 4333 diff changeset	321	)
5425 fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	322	(MenuItem
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	323	label: '-'
4383 2fc564ad0f70 same menu order as on the right side Claus Gittinger <cg@exept.de> parents: 4333 diff changeset	324	)
5425 fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	325	(MenuItem
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	326	label: 'Update'
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	327	itemValue: updateCurrentDirectory
fed05f7926d7 do not destroy linked menues penk parents: 5381 diff changeset	328	translateLabel: true
4383 2fc564ad0f70 same menu order as on the right side Claus Gittinger <cg@exept.de> parents: 4333 diff changeset	329	)
3892 321c1729db5b initial checkin penk parents: diff changeset	330	)
321c1729db5b initial checkin penk parents: diff changeset	331	nil
321c1729db5b initial checkin penk parents: diff changeset	332	nil
321c1729db5b initial checkin penk parents: diff changeset	333	)
4151 950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	334	!
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	335
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	336	sortInTreeMenu
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	337	"This resource specification was automatically generated
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	338	by the MenuEditor of ST/X."
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	339
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	340	"Do not manually edit this!! If it is corrupted,
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	341	the MenuEditor may not be able to read the specification."
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	342
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	343	"
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	344	MenuEditor new openOnClass:DirectoryTreeBrowser andSelector:#sortInTreeMenu
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	345	(Menu new fromLiteralArrayEncoding:(DirectoryTreeBrowser sortInTreeMenu)) startUp
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	346	"
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	347
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	348	<resource: #menu>
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	349
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	350	^
5970 4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	351	#(Menu
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	352	(
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	353	(MenuItem
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	354	label: 'By Filename'
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	355	translateLabel: true
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	356	isVisible: sortInTreeVisibilityHolder
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	357	hideMenuOnActivated: false
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	358	choice: sortPropertyInTree
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	359	choiceValue: baseName
4151 950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	360	)
5970 4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	361	(MenuItem
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	362	label: 'By Type'
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	363	translateLabel: true
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	364	isVisible: sortInTreeVisibilityHolder
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	365	hideMenuOnActivated: false
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	366	choice: sortPropertyInTree
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	367	choiceValue: suffix
4151 950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	368	)
5970 4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	369	(MenuItem
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	370	label: 'By Size'
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	371	translateLabel: true
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	372	isVisible: sortInTreeVisibilityHolder
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	373	hideMenuOnActivated: false
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	374	choice: sortPropertyInTree
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	375	choiceValue: fileSize
4151 950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	376	)
5970 4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	377	(MenuItem
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	378	label: 'By Date && Time'
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	379	translateLabel: true
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	380	isVisible: sortInTreeVisibilityHolder
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	381	hideMenuOnActivated: false
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	382	choice: sortPropertyInTree
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	383	choiceValue: modificationTime
4151 950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	384	)
5970 4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	385	(MenuItem
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	386	label: '-'
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	387	isVisible: sortInTreeVisibilityHolder
4151 950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	388	)
5970 4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	389	(MenuItem
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	390	label: 'Ignore Case in Sort'
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	391	translateLabel: true
4216f69b4c92 * empty log message * penk parents: 5959 diff changeset	392	hideMenuOnActivated: false
19358 4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	393	indication: sortCaseless
4151 950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	394	)
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	395	)
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	396	nil
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	397	nil
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	398	)
3892 321c1729db5b initial checkin penk parents: diff changeset	399	! !
321c1729db5b initial checkin penk parents: diff changeset	400
321c1729db5b initial checkin penk parents: diff changeset	401	!DirectoryTreeBrowser class methodsFor:'plugIn spec'!
321c1729db5b initial checkin penk parents: diff changeset	402
321c1729db5b initial checkin penk parents: diff changeset	403	aspectSelectors
321c1729db5b initial checkin penk parents: diff changeset	404	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	405	by the UIPainter of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	406
321c1729db5b initial checkin penk parents: diff changeset	407	"Do not manually edit this. If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	408	the UIPainter may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	409
321c1729db5b initial checkin penk parents: diff changeset	410	"Return a description of exported aspects;
321c1729db5b initial checkin penk parents: diff changeset	411	these can be connected to aspects of an embedding application
321c1729db5b initial checkin penk parents: diff changeset	412	(if this app is embedded in a subCanvas)."
321c1729db5b initial checkin penk parents: diff changeset	413
321c1729db5b initial checkin penk parents: diff changeset	414	^ #(
13154 2d99f6a0181b class: DirectoryTreeBrowser Claus Gittinger <cg@exept.de> parents: 12514 diff changeset	415	treeSelectionHolder
8190 03bd8b8b214f Make FileDialog usable as SubCanvas Stefan Vogel <sv@exept.de> parents: 8184 diff changeset	416	rootHolder
03bd8b8b214f Make FileDialog usable as SubCanvas Stefan Vogel <sv@exept.de> parents: 8184 diff changeset	417	filterModel
9109 7cb11e4eb582 changed: Claus Gittinger <cg@exept.de> parents: 9104 diff changeset	418	showFiles
7cb11e4eb582 changed: Claus Gittinger <cg@exept.de> parents: 9104 diff changeset	419	showHiddenFiles
3892 321c1729db5b initial checkin penk parents: diff changeset	420	).
321c1729db5b initial checkin penk parents: diff changeset	421	! !
321c1729db5b initial checkin penk parents: diff changeset	422
321c1729db5b initial checkin penk parents: diff changeset	423	!DirectoryTreeBrowser methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	424
5063 87f68877a3da no rename on one click anymore penk parents: 5010 diff changeset	425	allowRenameOnOneClick
87f68877a3da no rename on one click anymore penk parents: 5010 diff changeset	426
87f68877a3da no rename on one click anymore penk parents: 5010 diff changeset	427	^ false
87f68877a3da no rename on one click anymore penk parents: 5010 diff changeset	428	!
87f68877a3da no rename on one click anymore penk parents: 5010 diff changeset	429
4996 5927cc0508e8 close the editor in treebrowser on rename if ENTER is pressed penk parents: 4954 diff changeset	430	browser
5927cc0508e8 close the editor in treebrowser on rename if ENTER is pressed penk parents: 4954 diff changeset	431	"return the value of the instance variable 'browser' (automatically generated)"
5927cc0508e8 close the editor in treebrowser on rename if ENTER is pressed penk parents: 4954 diff changeset	432
5927cc0508e8 close the editor in treebrowser on rename if ENTER is pressed penk parents: 4954 diff changeset	433	^ browser
5927cc0508e8 close the editor in treebrowser on rename if ENTER is pressed penk parents: 4954 diff changeset	434	!
5927cc0508e8 close the editor in treebrowser on rename if ENTER is pressed penk parents: 4954 diff changeset	435
18269 e38a2d59333f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17825 diff changeset	436	directory
e38a2d59333f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17825 diff changeset	437	^ self fileList directory.
e38a2d59333f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17825 diff changeset	438
e38a2d59333f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17825 diff changeset	439	"Created: / 17-07-2018 / 12:55:22 / Claus Gittinger"
e38a2d59333f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17825 diff changeset	440	!
e38a2d59333f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17825 diff changeset	441
3952 c04d4781a37e next stage penk parents: 3942 diff changeset	442	doubleClickAction
c04d4781a37e next stage penk parents: 3942 diff changeset	443
c04d4781a37e next stage penk parents: 3942 diff changeset	444	^ doubleClickAction
c04d4781a37e next stage penk parents: 3942 diff changeset	445	!
c04d4781a37e next stage penk parents: 3942 diff changeset	446
c04d4781a37e next stage penk parents: 3942 diff changeset	447	doubleClickAction:aBlock
c04d4781a37e next stage penk parents: 3942 diff changeset	448
c04d4781a37e next stage penk parents: 3942 diff changeset	449	" aBlock is a one arg block with selected index as argument "
c04d4781a37e next stage penk parents: 3942 diff changeset	450
c04d4781a37e next stage penk parents: 3942 diff changeset	451	doubleClickAction := aBlock
c04d4781a37e next stage penk parents: 3942 diff changeset	452	!
c04d4781a37e next stage penk parents: 3942 diff changeset	453
3892 321c1729db5b initial checkin penk parents: diff changeset	454	updateTreeSelection
321c1729db5b initial checkin penk parents: diff changeset	455	updateTreeSelection isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	456	updateTreeSelection := self class newLock.
321c1729db5b initial checkin penk parents: diff changeset	457	].
321c1729db5b initial checkin penk parents: diff changeset	458	^ updateTreeSelection
321c1729db5b initial checkin penk parents: diff changeset	459	! !
321c1729db5b initial checkin penk parents: diff changeset	460
321c1729db5b initial checkin penk parents: diff changeset	461	!DirectoryTreeBrowser methodsFor:'actions'!
321c1729db5b initial checkin penk parents: diff changeset	462
321c1729db5b initial checkin penk parents: diff changeset	463	doDoubleClick:anIndex
321c1729db5b initial checkin penk parents: diff changeset	464	"handle a doubleClick on a directory
321c1729db5b initial checkin penk parents: diff changeset	465	"
3952 c04d4781a37e next stage penk parents: 3942 diff changeset	466	\| item file isDirectory\|
3892 321c1729db5b initial checkin penk parents: diff changeset	467
3952 c04d4781a37e next stage penk parents: 3942 diff changeset	468	self doubleClickAction notNil ifTrue:[
c04d4781a37e next stage penk parents: 3942 diff changeset	469	self doubleClickAction value:anIndex.
c04d4781a37e next stage penk parents: 3942 diff changeset	470	].
3892 321c1729db5b initial checkin penk parents: diff changeset	471	item := self fileList at:anIndex ifAbsent:nil.
321c1729db5b initial checkin penk parents: diff changeset	472	item notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	473	isDirectory := item isDirectory.
321c1729db5b initial checkin penk parents: diff changeset	474	file := item fileName.
321c1729db5b initial checkin penk parents: diff changeset	475	isDirectory ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	476	(file isReadable and:[file isExecutable]) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	477	self doExpand:item.
321c1729db5b initial checkin penk parents: diff changeset	478	]
321c1729db5b initial checkin penk parents: diff changeset	479	] ifFalse:[
3952 c04d4781a37e next stage penk parents: 3942 diff changeset	480	"/ self openApplByFileItem:item.
3892 321c1729db5b initial checkin penk parents: diff changeset	481	]
321c1729db5b initial checkin penk parents: diff changeset	482	]
321c1729db5b initial checkin penk parents: diff changeset	483	!
321c1729db5b initial checkin penk parents: diff changeset	484
321c1729db5b initial checkin penk parents: diff changeset	485	doExpand:anItem
321c1729db5b initial checkin penk parents: diff changeset	486	" expand the item; return true the item have expanded "
321c1729db5b initial checkin penk parents: diff changeset	487
321c1729db5b initial checkin penk parents: diff changeset	488	(anItem notNil and:[anItem isDirectory and:[anItem isExpanded not]]) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	489	anItem toggleExpand.
321c1729db5b initial checkin penk parents: diff changeset	490	^ true.
321c1729db5b initial checkin penk parents: diff changeset	491	].
321c1729db5b initial checkin penk parents: diff changeset	492	^ false
321c1729db5b initial checkin penk parents: diff changeset	493	!
321c1729db5b initial checkin penk parents: diff changeset	494
321c1729db5b initial checkin penk parents: diff changeset	495	doIndicatorClick:anIndex
321c1729db5b initial checkin penk parents: diff changeset	496	"handle a click on the indicator
321c1729db5b initial checkin penk parents: diff changeset	497	"
321c1729db5b initial checkin penk parents: diff changeset	498
4954 97e2552bf5a6 select the item if his indicator is clicked and only directories under this item are selected penk parents: 4887 diff changeset	499	\|indicatorItem selectedItemNotUnderIndicatorItem selection\|
3892 321c1729db5b initial checkin penk parents: diff changeset	500
4954 97e2552bf5a6 select the item if his indicator is clicked and only directories under this item are selected penk parents: 4887 diff changeset	501	indicatorItem := self fileList at:anIndex ifAbsent:nil.
97e2552bf5a6 select the item if his indicator is clicked and only directories under this item are selected penk parents: 4887 diff changeset	502	selection := self selectedItems asOrderedCollection.
9104 68659d07a842 code cleanup; care for showHidden Claus Gittinger <cg@exept.de> parents: 8495 diff changeset	503	selectedItemNotUnderIndicatorItem :=
68659d07a842 code cleanup; care for showHidden Claus Gittinger <cg@exept.de> parents: 8495 diff changeset	504	selection
68659d07a842 code cleanup; care for showHidden Claus Gittinger <cg@exept.de> parents: 8495 diff changeset	505	detect:[:anItem \|
68659d07a842 code cleanup; care for showHidden Claus Gittinger <cg@exept.de> parents: 8495 diff changeset	506	(anItem fileName directory asString startsWith:(indicatorItem fileName asString)) not]
68659d07a842 code cleanup; care for showHidden Claus Gittinger <cg@exept.de> parents: 8495 diff changeset	507	ifNone:[nil].
4954 97e2552bf5a6 select the item if his indicator is clicked and only directories under this item are selected penk parents: 4887 diff changeset	508	selectedItemNotUnderIndicatorItem isNil ifTrue:[
5959 27c1d00a790d * empty log message * Claus Gittinger <cg@exept.de> parents: 5926 diff changeset	509	self setCurrentFileName:(indicatorItem fileName).
4954 97e2552bf5a6 select the item if his indicator is clicked and only directories under this item are selected penk parents: 4887 diff changeset	510	].
97e2552bf5a6 select the item if his indicator is clicked and only directories under this item are selected penk parents: 4887 diff changeset	511	self toggleExpand:indicatorItem.
3892 321c1729db5b initial checkin penk parents: diff changeset	512	!
321c1729db5b initial checkin penk parents: diff changeset	513
4010 ae8dc4d9ff77 * empty log message * penk parents: 4009 diff changeset	514	doSetSelectionToRoot
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	515	\| selDir\|
fc30449d705d * empty log message * penk parents: 3969 diff changeset	516
fc30449d705d * empty log message * penk parents: 3969 diff changeset	517	selDir := self firstSelectedDirectory.
fc30449d705d * empty log message * penk parents: 3969 diff changeset	518	selDir notNil ifTrue:[
fc30449d705d * empty log message * penk parents: 3969 diff changeset	519	self rootHolder value asFilename = selDir ifTrue:[ ^ self].
fc30449d705d * empty log message * penk parents: 3969 diff changeset	520	self rootHolder value:selDir.
5959 27c1d00a790d * empty log message * Claus Gittinger <cg@exept.de> parents: 5926 diff changeset	521	self setCurrentFileName:selDir.
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	522	].
fc30449d705d * empty log message * penk parents: 3969 diff changeset	523	!
fc30449d705d * empty log message * penk parents: 3969 diff changeset	524
3892 321c1729db5b initial checkin penk parents: diff changeset	525	doUpdate
4422 98ccae19310a * empty log message * penk parents: 4410 diff changeset	526	"/ DirectoryContents flushCache.
98ccae19310a * empty log message * penk parents: 4410 diff changeset	527	self fileList updateList.
3892 321c1729db5b initial checkin penk parents: diff changeset	528	"/ self updateSelectedItem
321c1729db5b initial checkin penk parents: diff changeset	529	!
321c1729db5b initial checkin penk parents: diff changeset	530
4151 950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	531	evaluateSortBlockWith:aBlock
3989 7eec3cb5bce6 selectedFiles method name changed penk parents: 3986 diff changeset	532
4085 9e58ddfa6969 sort will be triggered from the FileBrowserV2 instance not from AbstractFileBrowser anymore penk parents: 4080 diff changeset	533	\| sel model\|
9e58ddfa6969 sort will be triggered from the FileBrowserV2 instance not from AbstractFileBrowser anymore penk parents: 4080 diff changeset	534
9e58ddfa6969 sort will be triggered from the FileBrowserV2 instance not from AbstractFileBrowser anymore penk parents: 4080 diff changeset	535	model := self treeSelectionHolder.
9e58ddfa6969 sort will be triggered from the FileBrowserV2 instance not from AbstractFileBrowser anymore penk parents: 4080 diff changeset	536	sel := model value.
9e58ddfa6969 sort will be triggered from the FileBrowserV2 instance not from AbstractFileBrowser anymore penk parents: 4080 diff changeset	537	model setValue:nil.
4151 950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	538	self fileList sortBlock:aBlock.
4085 9e58ddfa6969 sort will be triggered from the FileBrowserV2 instance not from AbstractFileBrowser anymore penk parents: 4080 diff changeset	539	model value:sel withoutNotifying:self.
3989 7eec3cb5bce6 selectedFiles method name changed penk parents: 3986 diff changeset	540	!
7eec3cb5bce6 selectedFiles method name changed penk parents: 3986 diff changeset	541
5926 935bac483454 expand selected directory item on startup penk parents: 5910 diff changeset	542	expandEnforceSelectedItems
935bac483454 expand selected directory item on startup penk parents: 5910 diff changeset	543	" expand the selected item if one directory selected"
935bac483454 expand selected directory item on startup penk parents: 5910 diff changeset	544
935bac483454 expand selected directory item on startup penk parents: 5910 diff changeset	545	\| items \|
935bac483454 expand selected directory item on startup penk parents: 5910 diff changeset	546
935bac483454 expand selected directory item on startup penk parents: 5910 diff changeset	547	items := self selectedDirectoryItems.
935bac483454 expand selected directory item on startup penk parents: 5910 diff changeset	548	items do:[:eachItem \|
935bac483454 expand selected directory item on startup penk parents: 5910 diff changeset	549	eachItem enforcedExpand
935bac483454 expand selected directory item on startup penk parents: 5910 diff changeset	550	].
935bac483454 expand selected directory item on startup penk parents: 5910 diff changeset	551	!
935bac483454 expand selected directory item on startup penk parents: 5910 diff changeset	552
4791 6ee342a60a85 checkin from browser penk parents: 4771 diff changeset	553	expandSelectedItems
6ee342a60a85 checkin from browser penk parents: 4771 diff changeset	554	" expand the selected item if one directory selected"
6ee342a60a85 checkin from browser penk parents: 4771 diff changeset	555
6ee342a60a85 checkin from browser penk parents: 4771 diff changeset	556	\| items \|
6ee342a60a85 checkin from browser penk parents: 4771 diff changeset	557
6ee342a60a85 checkin from browser penk parents: 4771 diff changeset	558	items := self selectedDirectoryItems.
5010 27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 4996 diff changeset	559	items do:[:eachItem \|
27aa6fa93dcd * empty log message * Claus Gittinger <cg@exept.de> parents: 4996 diff changeset	560	eachItem expand
4791 6ee342a60a85 checkin from browser penk parents: 4771 diff changeset	561	].
6ee342a60a85 checkin from browser penk parents: 4771 diff changeset	562	!
6ee342a60a85 checkin from browser penk parents: 4771 diff changeset	563
5063 87f68877a3da no rename on one click anymore penk parents: 5010 diff changeset	564	renameFileInTreeView
87f68877a3da no rename on one click anymore penk parents: 5010 diff changeset	565	self allowRenameOnOneClick ifTrue:[
87f68877a3da no rename on one click anymore penk parents: 5010 diff changeset	566	browser openEditor.
87f68877a3da no rename on one click anymore penk parents: 5010 diff changeset	567	] ifFalse:[
87f68877a3da no rename on one click anymore penk parents: 5010 diff changeset	568	browser openEditorAction:self openEditorAction.
5064 6c5d1f6dc118 no rename on one click anymore penk parents: 5063 diff changeset	569	[browser openEditor.] ensure:[
6c5d1f6dc118 no rename on one click anymore penk parents: 5063 diff changeset	570	browser openEditorAction:nil.
6c5d1f6dc118 no rename on one click anymore penk parents: 5063 diff changeset	571	].
5063 87f68877a3da no rename on one click anymore penk parents: 5010 diff changeset	572	].
87f68877a3da no rename on one click anymore penk parents: 5010 diff changeset	573	!
87f68877a3da no rename on one click anymore penk parents: 5010 diff changeset	574
9356 926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	575	renameToIncludeDirectoryInNameInTreeView
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	576	\|numAffected\|
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	577
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	578	numAffected := 0.
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	579	self withWaitCursorDo:[
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	580	self selectedDirectories do:[:eachDirectory \|
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	581	\|prefix\|
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	582
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	583	prefix := eachDirectory baseName , '_'.
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	584	eachDirectory directoryContentsAsFilenamesDo:[:eachFile \|
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	585	(eachFile baseName startsWith:prefix) ifFalse:[
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	586	numAffected := numAffected + 1.
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	587	].
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	588	].
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	589	].
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	590	].
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	591	numAffected == 0 ifTrue:[
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	592	Dialog information:(resources string:'No files to rename').
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	593	^ self.
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	594	].
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	595	(Dialog confirm:(resources stringWithCRs:'Continue renaming %1 files?' with:numAffected)) ifFalse:[^ self].
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	596
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	597	self withWaitCursorDo:[
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	598	self selectedDirectories do:[:eachDirectory \|
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	599	\|prefix\|
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	600
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	601	prefix := eachDirectory baseName , '_'.
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	602	eachDirectory directoryContentsAsFilenamesDo:[:eachFile \|
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	603	(eachFile baseName startsWith:prefix) ifFalse:[
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	604	eachFile renameTo:(eachDirectory construct:(prefix,eachFile baseName)).
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	605	].
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	606	].
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	607	].
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	608	].
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	609	!
926b7fe3db6a added: #renameToIncludeDirectoryInNameInTreeView Claus Gittinger <cg@exept.de> parents: 9112 diff changeset	610
9104 68659d07a842 code cleanup; care for showHidden Claus Gittinger <cg@exept.de> parents: 8495 diff changeset	611	setMatchBlockInList:list
3892 321c1729db5b initial checkin penk parents: diff changeset	612
4021 201bd62a53f3 * empty log message * penk parents: 4018 diff changeset	613	\| selection matchBlock filterBlock viewFiles\|
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	614
fc30449d705d * empty log message * penk parents: 3969 diff changeset	615	selection := self selectedItems.
4011 73fa35b1963b * empty log message * penk parents: 4010 diff changeset	616	filterBlock := self filterBlockHolder value.
73fa35b1963b * empty log message * penk parents: 4010 diff changeset	617	viewFiles := self viewFilesInDirectoryTree value.
7715 51deb2240d1f slight tuning Claus Gittinger <cg@exept.de> parents: 7583 diff changeset	618
4756 6178f02d1c38 checkin from browser Claus Gittinger <cg@exept.de> parents: 4746 diff changeset	619	matchBlock :=
6178f02d1c38 checkin from browser Claus Gittinger <cg@exept.de> parents: 4746 diff changeset	620	[:fileName :isDir\|
9104 68659d07a842 code cleanup; care for showHidden Claus Gittinger <cg@exept.de> parents: 8495 diff changeset	621	\|show\|
68659d07a842 code cleanup; care for showHidden Claus Gittinger <cg@exept.de> parents: 8495 diff changeset	622
68659d07a842 code cleanup; care for showHidden Claus Gittinger <cg@exept.de> parents: 8495 diff changeset	623	show := self showHiddenFiles value or:[fileName isHidden not].
68659d07a842 code cleanup; care for showHidden Claus Gittinger <cg@exept.de> parents: 8495 diff changeset	624	show
68659d07a842 code cleanup; care for showHidden Claus Gittinger <cg@exept.de> parents: 8495 diff changeset	625	and:[ isDir
9109 7cb11e4eb582 changed: Claus Gittinger <cg@exept.de> parents: 9104 diff changeset	626	or:[viewFiles and:[filterBlock value:fileName value:fileName baseName]]]
4756 6178f02d1c38 checkin from browser Claus Gittinger <cg@exept.de> parents: 4746 diff changeset	627	].
4011 73fa35b1963b * empty log message * penk parents: 4010 diff changeset	628	list matchBlock:matchBlock.
3892 321c1729db5b initial checkin penk parents: diff changeset	629	!
321c1729db5b initial checkin penk parents: diff changeset	630
4151 950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	631	sortFileListsBy:instanceName
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	632
19358 4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	633	\|aSymbol instanceSortBlock treeSortBlock locSortCaseless\|
4151 950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	634
19358 4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	635	locSortCaseless := self sortCaseless value.
4151 950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	636	aSymbol := instanceName asSymbol.
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	637
19358 4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	638	instanceSortBlock :=
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	639	[:a :b \|
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	640	\|entry1 entry2\|
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	641
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	642	entry1 := (a perform:aSymbol).
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	643	entry2 := (b perform:aSymbol).
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	644	((entry1 isNil) or:[entry2 isNil]) ifTrue:[
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	645	true
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	646	] ifFalse:[
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	647	(aSymbol = #baseName) ifTrue:[
4151 950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	648	entry1 := entry1 asString.
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	649	entry2 := entry2 asString.
19358 4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	650	locSortCaseless ifTrue:[
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	651	entry1 := entry1 asLowercase.
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	652	entry2 := entry2 asLowercase.
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	653	].
4151 950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	654	].
19358 4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	655	entry1 < entry2
4151 950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	656	]
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	657	].
19358 4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	658
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	659	treeSortBlock :=
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	660	[ :a :b \|
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	661	\|aIsDir bIsDir res entry1 entry2\|
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	662
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	663	aIsDir := a isDirectory.
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	664	bIsDir := b isDirectory.
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	665	(aIsDir and:[bIsDir]) ifTrue:[
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	666	entry1 := a baseName asString.
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	667	entry2 := b baseName asString.
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	668	locSortCaseless ifTrue:[
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	669	entry1 := entry1 asLowercase.
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	670	entry2 := entry2 asLowercase.
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	671	].
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	672	res := entry1 < entry2.
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	673	] ifFalse:[
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	674	(aIsDir or:[bIsDir]) ifTrue:[
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	675	res := aIsDir
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	676	] ifFalse:[
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	677	res := instanceSortBlock value:a value:b.
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	678	]
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	679	].
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	680	res
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	681	].
4151 950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	682	self evaluateSortBlockWith:treeSortBlock.
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	683	!
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	684
3892 321c1729db5b initial checkin penk parents: diff changeset	685	toggleExpand:anItem
321c1729db5b initial checkin penk parents: diff changeset	686	(anItem notNil and:[anItem isDirectory]) ifTrue:[
6830 8901380baeab wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6768 diff changeset	687	"/ self withWaitCursorDo:[
5219 344acd0fbb4e * empty log message * Claus Gittinger <cg@exept.de> parents: 5217 diff changeset	688	anItem toggleExpand
6830 8901380baeab wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6768 diff changeset	689	"/ ]
3892 321c1729db5b initial checkin penk parents: diff changeset	690	].
6830 8901380baeab wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6768 diff changeset	691
8901380baeab wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6768 diff changeset	692	"Modified: / 25-07-2006 / 09:09:05 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	693	!
321c1729db5b initial checkin penk parents: diff changeset	694
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	695	toggleExpandSelectedItem
fc30449d705d * empty log message * penk parents: 3969 diff changeset	696	\|selDir\|
fc30449d705d * empty log message * penk parents: 3969 diff changeset	697
fc30449d705d * empty log message * penk parents: 3969 diff changeset	698	selDir := self selectedDirectoryItems.
fc30449d705d * empty log message * penk parents: 3969 diff changeset	699	selDir do:[:item\|
fc30449d705d * empty log message * penk parents: 3969 diff changeset	700	self toggleExpand:item.
fc30449d705d * empty log message * penk parents: 3969 diff changeset	701	].
fc30449d705d * empty log message * penk parents: 3969 diff changeset	702	!
fc30449d705d * empty log message * penk parents: 3969 diff changeset	703
3892 321c1729db5b initial checkin penk parents: diff changeset	704	updateSelectedItem
321c1729db5b initial checkin penk parents: diff changeset	705	\| sel \|
321c1729db5b initial checkin penk parents: diff changeset	706
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	707	sel := self selectedItems.
3892 321c1729db5b initial checkin penk parents: diff changeset	708	sel isEmpty ifTrue:[ ^ self].
321c1729db5b initial checkin penk parents: diff changeset	709	sel do:[:item\|
321c1729db5b initial checkin penk parents: diff changeset	710	item invalidateRepairNow:true.
321c1729db5b initial checkin penk parents: diff changeset	711	]
321c1729db5b initial checkin penk parents: diff changeset	712	! !
321c1729db5b initial checkin penk parents: diff changeset	713
321c1729db5b initial checkin penk parents: diff changeset	714	!DirectoryTreeBrowser methodsFor:'aspects'!
321c1729db5b initial checkin penk parents: diff changeset	715
3956 617ef25f6d1e allow for loadDialog no fileoperations penk parents: 3952 diff changeset	716	allowFileOperations
617ef25f6d1e allow for loadDialog no fileoperations penk parents: 3952 diff changeset	717	"allowFileOperations
617ef25f6d1e allow for loadDialog no fileoperations penk parents: 3952 diff changeset	718	"
617ef25f6d1e allow for loadDialog no fileoperations penk parents: 3952 diff changeset	719	allowFileOperations isNil ifTrue:[
617ef25f6d1e allow for loadDialog no fileoperations penk parents: 3952 diff changeset	720	allowFileOperations := true asValue.
617ef25f6d1e allow for loadDialog no fileoperations penk parents: 3952 diff changeset	721	].
617ef25f6d1e allow for loadDialog no fileoperations penk parents: 3952 diff changeset	722	^ allowFileOperations.
617ef25f6d1e allow for loadDialog no fileoperations penk parents: 3952 diff changeset	723	!
617ef25f6d1e allow for loadDialog no fileoperations penk parents: 3952 diff changeset	724
3892 321c1729db5b initial checkin penk parents: diff changeset	725	fileList
321c1729db5b initial checkin penk parents: diff changeset	726	"holder, which keeps the current list of file entries shown by the directory-browser
321c1729db5b initial checkin penk parents: diff changeset	727	"
321c1729db5b initial checkin penk parents: diff changeset	728
321c1729db5b initial checkin penk parents: diff changeset	729	\|list\|
321c1729db5b initial checkin penk parents: diff changeset	730
321c1729db5b initial checkin penk parents: diff changeset	731	(list := builder bindingAt:#fileList) isNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	732	list := DirTreeBrowserHFL new.
321c1729db5b initial checkin penk parents: diff changeset	733	list application:self.
321c1729db5b initial checkin penk parents: diff changeset	734	list showRoot:true.
9104 68659d07a842 code cleanup; care for showHidden Claus Gittinger <cg@exept.de> parents: 8495 diff changeset	735	self setMatchBlockInList:list.
5672 dcfeb67da37f donot set the root item during startup ca parents: 5655 diff changeset	736	"/ do not set the directory holder in startup
dcfeb67da37f donot set the root item during startup ca parents: 5655 diff changeset	737	"/ list directory:(self rootHolder value).
3892 321c1729db5b initial checkin penk parents: diff changeset	738	builder aspectAt:#fileList put:list.
7098 73ef2073c628 dont do too much monitoring Claus Gittinger <cg@exept.de> parents: 6830 diff changeset	739	"/ list monitoringTaskDelay:2
3892 321c1729db5b initial checkin penk parents: diff changeset	740	].
321c1729db5b initial checkin penk parents: diff changeset	741	^ list
7098 73ef2073c628 dont do too much monitoring Claus Gittinger <cg@exept.de> parents: 6830 diff changeset	742
73ef2073c628 dont do too much monitoring Claus Gittinger <cg@exept.de> parents: 6830 diff changeset	743	"Modified: / 08-09-2006 / 13:29:17 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	744	!
321c1729db5b initial checkin penk parents: diff changeset	745
3958 39364b0202cf fileDialog multiple select changes penk parents: 3957 diff changeset	746	multipleSelect
4801 b52933a4ec20 multipleSelect Claus Gittinger <cg@exept.de> parents: 4794 diff changeset	747	^ multipleSelect ? false
3958 39364b0202cf fileDialog multiple select changes penk parents: 3957 diff changeset	748	!
39364b0202cf fileDialog multiple select changes penk parents: 3957 diff changeset	749
39364b0202cf fileDialog multiple select changes penk parents: 3957 diff changeset	750	multipleSelect:aBoolean
39364b0202cf fileDialog multiple select changes penk parents: 3957 diff changeset	751	multipleSelect := aBoolean.
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	752	browser notNil ifTrue:[
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	753	browser multipleSelectOk:aBoolean.
4670 a7169a7b43c3 allow multiple selection settings before open martin parents: 4615 diff changeset	754	].
3958 39364b0202cf fileDialog multiple select changes penk parents: 3957 diff changeset	755	!
39364b0202cf fileDialog multiple select changes penk parents: 3957 diff changeset	756
3956 617ef25f6d1e allow for loadDialog no fileoperations penk parents: 3952 diff changeset	757	newVisibilityHolder
9112 d028c545a011 changes for better FileDialog Claus Gittinger <cg@exept.de> parents: 9109 diff changeset	758	"newVisibilityHolder"
d028c545a011 changes for better FileDialog Claus Gittinger <cg@exept.de> parents: 9109 diff changeset	759
3956 617ef25f6d1e allow for loadDialog no fileoperations penk parents: 3952 diff changeset	760	newVisibilityHolder isNil ifTrue:[
617ef25f6d1e allow for loadDialog no fileoperations penk parents: 3952 diff changeset	761	newVisibilityHolder := true asValue.
617ef25f6d1e allow for loadDialog no fileoperations penk parents: 3952 diff changeset	762	].
617ef25f6d1e allow for loadDialog no fileoperations penk parents: 3952 diff changeset	763	^ newVisibilityHolder.
617ef25f6d1e allow for loadDialog no fileoperations penk parents: 3952 diff changeset	764	!
617ef25f6d1e allow for loadDialog no fileoperations penk parents: 3952 diff changeset	765
19358 4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	766	sortCaseless
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	767	sortCaseless isNil ifTrue:[
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	768	sortCaseless := super sortCaseless.
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	769	sortCaseless addDependent:self.
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	770	].
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	771	^ sortCaseless.
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	772	!
4151 950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	773
19358 4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	774	sortCaseless:aValueHolder
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	775	sortCaseless notNil ifTrue:[
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	776	sortCaseless removeDependent:self.
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	777	].
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	778	sortCaseless := aValueHolder.
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	779	sortCaseless notNil ifTrue:[
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	780	sortCaseless addDependent:self.
4151 950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	781	].
19358 4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	782	!
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	783
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	784	sortCaselessInTreeBrowser
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	785	<resource: #obsolete>
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	786
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	787	"only for backward compat.
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	788	We do not need two such flags"
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	789
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	790	^ self sortCaseless
4151 950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	791	!
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	792
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	793	sortInTreeVisibilityHolder
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	794	"newVisibilityHolder
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	795	"
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	796	sortInTreeVisibilityHolder isNil ifTrue:[
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	797	sortInTreeVisibilityHolder := self viewFilesInDirectoryTree value asValue.
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	798	].
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	799	^ sortInTreeVisibilityHolder.
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	800	!
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	801
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	802	sortPropertyInTree
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	803
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	804	sortPropertyInTree isNil ifTrue:[
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	805	sortPropertyInTree := #baseName asValue.
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	806	sortPropertyInTree addDependent:self.
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	807	].
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	808	^ sortPropertyInTree.
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	809	!
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	810
9112 d028c545a011 changes for better FileDialog Claus Gittinger <cg@exept.de> parents: 9109 diff changeset	811	sortPropertyInTree:aValueHolder
d028c545a011 changes for better FileDialog Claus Gittinger <cg@exept.de> parents: 9109 diff changeset	812	sortPropertyInTree removeDependent:self.
d028c545a011 changes for better FileDialog Claus Gittinger <cg@exept.de> parents: 9109 diff changeset	813	sortPropertyInTree := aValueHolder.
d028c545a011 changes for better FileDialog Claus Gittinger <cg@exept.de> parents: 9109 diff changeset	814	sortPropertyInTree addDependent:self.
d028c545a011 changes for better FileDialog Claus Gittinger <cg@exept.de> parents: 9109 diff changeset	815	!
d028c545a011 changes for better FileDialog Claus Gittinger <cg@exept.de> parents: 9109 diff changeset	816
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	817	treeSelectionHolder
fc30449d705d * empty log message * penk parents: 3969 diff changeset	818	treeSelectionHolder isNil ifTrue:[
fc30449d705d * empty log message * penk parents: 3969 diff changeset	819	treeSelectionHolder := ValueHolder new.
fc30449d705d * empty log message * penk parents: 3969 diff changeset	820	treeSelectionHolder addDependent:self.
fc30449d705d * empty log message * penk parents: 3969 diff changeset	821	].
fc30449d705d * empty log message * penk parents: 3969 diff changeset	822	^ treeSelectionHolder
13154 2d99f6a0181b class: DirectoryTreeBrowser Claus Gittinger <cg@exept.de> parents: 12514 diff changeset	823	!
2d99f6a0181b class: DirectoryTreeBrowser Claus Gittinger <cg@exept.de> parents: 12514 diff changeset	824
2d99f6a0181b class: DirectoryTreeBrowser Claus Gittinger <cg@exept.de> parents: 12514 diff changeset	825	treeSelectionHolder:aValueHolder
2d99f6a0181b class: DirectoryTreeBrowser Claus Gittinger <cg@exept.de> parents: 12514 diff changeset	826	treeSelectionHolder removeDependent:self.
2d99f6a0181b class: DirectoryTreeBrowser Claus Gittinger <cg@exept.de> parents: 12514 diff changeset	827	treeSelectionHolder := aValueHolder.
2d99f6a0181b class: DirectoryTreeBrowser Claus Gittinger <cg@exept.de> parents: 12514 diff changeset	828	treeSelectionHolder addDependent:self.
3892 321c1729db5b initial checkin penk parents: diff changeset	829	! !
321c1729db5b initial checkin penk parents: diff changeset	830
321c1729db5b initial checkin penk parents: diff changeset	831	!DirectoryTreeBrowser methodsFor:'change & update'!
321c1729db5b initial checkin penk parents: diff changeset	832
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	833	changeMatchBlock
9104 68659d07a842 code cleanup; care for showHidden Claus Gittinger <cg@exept.de> parents: 8495 diff changeset	834	self setMatchBlockInList:(self fileList).
4021 201bd62a53f3 * empty log message * penk parents: 4018 diff changeset	835	self currentFileNameHolderChanged.
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	836	!
3892 321c1729db5b initial checkin penk parents: diff changeset	837
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	838	currentFileNameHolderChanged
9104 68659d07a842 code cleanup; care for showHidden Claus Gittinger <cg@exept.de> parents: 8495 diff changeset	839	\|filesToSelect viewFiles\|
3892 321c1729db5b initial checkin penk parents: diff changeset	840
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	841	viewFiles:= self viewFilesInDirectoryTree value.
fc30449d705d * empty log message * penk parents: 3969 diff changeset	842	viewFiles ifTrue:[
7562 8657c393c928 * empty log message * Claus Gittinger <cg@exept.de> parents: 7098 diff changeset	843	filesToSelect := self currentSelectedObjects.
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	844	] ifFalse:[
6727 0d21cb8dfb21 code cleanup Claus Gittinger <cg@exept.de> parents: 6629 diff changeset	845	filesToSelect := self currentSelectedDirectories.
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	846	].
4018 43e02c59719d * empty log message * penk parents: 4011 diff changeset	847	self rootHolder notNil ifTrue:[
5655 799991c1c602 * empty log message * Claus Gittinger <cg@exept.de> parents: 5444 diff changeset	848	self selectFiles:filesToSelect.
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	849	].
7562 8657c393c928 * empty log message * Claus Gittinger <cg@exept.de> parents: 7098 diff changeset	850
8657c393c928 * empty log message * Claus Gittinger <cg@exept.de> parents: 7098 diff changeset	851	"Modified: / 04-12-2006 / 13:15:42 / cg"
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	852	!
fc30449d705d * empty log message * penk parents: 3969 diff changeset	853
4011 73fa35b1963b * empty log message * penk parents: 4010 diff changeset	854	rootHolderChanged
6764 baf25a331a67 remove dead code Stefan Vogel <sv@exept.de> parents: 6727 diff changeset	855	\|list file rootHolder\|
4011 73fa35b1963b * empty log message * penk parents: 4010 diff changeset	856
73fa35b1963b * empty log message * penk parents: 4010 diff changeset	857	list := self fileList.
73fa35b1963b * empty log message * penk parents: 4010 diff changeset	858	rootHolder := self rootHolder.
73fa35b1963b * empty log message * penk parents: 4010 diff changeset	859	file := rootHolder value.
73fa35b1963b * empty log message * penk parents: 4010 diff changeset	860	file notNil ifTrue:[
6764 baf25a331a67 remove dead code Stefan Vogel <sv@exept.de> parents: 6727 diff changeset	861	file := file asFilename.
4011 73fa35b1963b * empty log message * penk parents: 4010 diff changeset	862	file isDirectory ifTrue:[
6830 8901380baeab wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6768 diff changeset	863	"/ self withWaitCursorDo:[
6529 ad37d59d4211 * empty log message * Claus Gittinger <cg@exept.de> parents: 6502 diff changeset	864	list directory:file
6830 8901380baeab wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6768 diff changeset	865	"/ ].
4011 73fa35b1963b * empty log message * penk parents: 4010 diff changeset	866	]
73fa35b1963b * empty log message * penk parents: 4010 diff changeset	867	].
6764 baf25a331a67 remove dead code Stefan Vogel <sv@exept.de> parents: 6727 diff changeset	868	rootHolder value:(list directory asString) withoutNotifying:self.
19138 e276e89ad8e3 #TUNING by exept Claus Gittinger <cg@exept.de> parents: 19008 diff changeset	869	(list size == 1 and:[list first isDirectory]) ifTrue:[list first expand:true]
6830 8901380baeab wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6768 diff changeset	870
8901380baeab wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6768 diff changeset	871	"Modified: / 25-07-2006 / 09:08:59 / cg"
4011 73fa35b1963b * empty log message * penk parents: 4010 diff changeset	872	!
73fa35b1963b * empty log message * penk parents: 4010 diff changeset	873
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	874	selectionChanged
3995 8341aed594d2 Fix for single values and FileDialog Stefan Vogel <sv@exept.de> parents: 3989 diff changeset	875	\|sel currentFileDir\|
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	876
5377 5b0ca5fafecd comments Stefan Vogel <sv@exept.de> parents: 5330 diff changeset	877	"if viewFiles is false i can't take my
5b0ca5fafecd comments Stefan Vogel <sv@exept.de> parents: 5330 diff changeset	878	selection to overwrite currentFileNameHolder"
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	879	sel := self selectedFiles.
5377 5b0ca5fafecd comments Stefan Vogel <sv@exept.de> parents: 5330 diff changeset	880	self viewFilesInDirectoryTree value ifFalse:[
5b0ca5fafecd comments Stefan Vogel <sv@exept.de> parents: 5330 diff changeset	881	(self currentFilesAreInSameDirectory
7562 8657c393c928 * empty log message * Claus Gittinger <cg@exept.de> parents: 7098 diff changeset	882	and:[sel size == 1 and:[self currentSelectedObjects notEmpty]]) ifTrue:[
19008 302ee0e701e1 #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 18737 diff changeset	883	currentFileDir := self class getDirectoryOf:(self currentSelectedObjects first).
5377 5b0ca5fafecd comments Stefan Vogel <sv@exept.de> parents: 5330 diff changeset	884	sel first = currentFileDir ifTrue:[
3892 321c1729db5b initial checkin penk parents: diff changeset	885	^ self.
321c1729db5b initial checkin penk parents: diff changeset	886	].
321c1729db5b initial checkin penk parents: diff changeset	887	].
321c1729db5b initial checkin penk parents: diff changeset	888	].
5959 27c1d00a790d * empty log message * Claus Gittinger <cg@exept.de> parents: 5926 diff changeset	889	self setCurrentFileNames:sel.
7562 8657c393c928 * empty log message * Claus Gittinger <cg@exept.de> parents: 7098 diff changeset	890
8657c393c928 * empty log message * Claus Gittinger <cg@exept.de> parents: 7098 diff changeset	891	"Modified: / 04-12-2006 / 13:15:51 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	892	!
321c1729db5b initial checkin penk parents: diff changeset	893
321c1729db5b initial checkin penk parents: diff changeset	894	update:something with:aParameter from:aModel
5377 5b0ca5fafecd comments Stefan Vogel <sv@exept.de> parents: 5330 diff changeset	895	"one of my models changed"
3892 321c1729db5b initial checkin penk parents: diff changeset	896
5377 5b0ca5fafecd comments Stefan Vogel <sv@exept.de> parents: 5330 diff changeset	897	"the execution of selectionChanged and currentFileNameHolderChanged must
19358 4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	898	lock against each other because values aren't required to be the same
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	899	(e.g. no files in tree view)"
3892 321c1729db5b initial checkin penk parents: diff changeset	900
5444 02b2cd0dfd69 open treebrowser with empty window bug penk parents: 5442 diff changeset	901	(aModel == self currentFileNameHolder or:[aModel == self currentDirectories]) ifTrue:[
4003 4e74b3a853c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 4002 diff changeset	902	super update:something with:aParameter from:aModel.
3892 321c1729db5b initial checkin penk parents: diff changeset	903	self updateTreeSelection doIfUnLocked:[
321c1729db5b initial checkin penk parents: diff changeset	904	self updateToExternFileHolderLock doLocked:[
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	905	self currentFileNameHolderChanged.
3892 321c1729db5b initial checkin penk parents: diff changeset	906	].
321c1729db5b initial checkin penk parents: diff changeset	907	].
4003 4e74b3a853c1 * empty log message * Claus Gittinger <cg@exept.de> parents: 4002 diff changeset	908	^ self.
3892 321c1729db5b initial checkin penk parents: diff changeset	909	].
321c1729db5b initial checkin penk parents: diff changeset	910	aModel == self treeSelectionHolder ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	911	self updateToExternFileHolderLock doIfUnLocked:[
321c1729db5b initial checkin penk parents: diff changeset	912	self updateTreeSelection doLocked:[
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	913	self selectionChanged.
3892 321c1729db5b initial checkin penk parents: diff changeset	914	]
321c1729db5b initial checkin penk parents: diff changeset	915	].
321c1729db5b initial checkin penk parents: diff changeset	916	^ self
321c1729db5b initial checkin penk parents: diff changeset	917	].
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	918	aModel == self rootHolder ifTrue:[
4011 73fa35b1963b * empty log message * penk parents: 4010 diff changeset	919	self rootHolderChanged.
3892 321c1729db5b initial checkin penk parents: diff changeset	920	^ self.
321c1729db5b initial checkin penk parents: diff changeset	921	].
321c1729db5b initial checkin penk parents: diff changeset	922	aModel == self viewFilesInDirectoryTree ifTrue:[
4151 950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	923	self sortInTreeVisibilityHolder value:(aModel value).
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	924	self updateToExternFileHolderLock doLocked:[
fc30449d705d * empty log message * penk parents: 3969 diff changeset	925	self changeMatchBlock.
3892 321c1729db5b initial checkin penk parents: diff changeset	926	].
321c1729db5b initial checkin penk parents: diff changeset	927	^ self.
321c1729db5b initial checkin penk parents: diff changeset	928	].
4151 950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	929	aModel == self sortPropertyInTree ifTrue:[
950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	930	self sortFileListsBy:aModel value.
3989 7eec3cb5bce6 selectedFiles method name changed penk parents: 3986 diff changeset	931	^ self.
4151 950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	932	].
19358 4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	933	aModel == self sortCaseless ifTrue:[
4a5ebaaac37d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19326 diff changeset	934	self sortPropertyInTree setValue:#baseName; changed.
4151 950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	935	].
4011 73fa35b1963b * empty log message * penk parents: 4010 diff changeset	936	aModel == self filterBlockHolder ifTrue:[
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	937	" filter goes only on fileNames not on directories
fc30449d705d * empty log message * penk parents: 3969 diff changeset	938	have to change the matchBlock only if files are shown"
fc30449d705d * empty log message * penk parents: 3969 diff changeset	939	self viewFilesInDirectoryTree value ifTrue:[
4018 43e02c59719d * empty log message * penk parents: 4011 diff changeset	940	self changeMatchBlock.
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	941	].
fc30449d705d * empty log message * penk parents: 3969 diff changeset	942	^ self
3892 321c1729db5b initial checkin penk parents: diff changeset	943	].
321c1729db5b initial checkin penk parents: diff changeset	944	super update:something with:aParameter from:aModel.
321c1729db5b initial checkin penk parents: diff changeset	945	^ self
321c1729db5b initial checkin penk parents: diff changeset	946	! !
321c1729db5b initial checkin penk parents: diff changeset	947
321c1729db5b initial checkin penk parents: diff changeset	948	!DirectoryTreeBrowser methodsFor:'drag & drop'!
321c1729db5b initial checkin penk parents: diff changeset	949
4746 37dc71547964 * empty log message * Claus Gittinger <cg@exept.de> parents: 4713 diff changeset	950	dropDestinationPath
37dc71547964 * empty log message * Claus Gittinger <cg@exept.de> parents: 4713 diff changeset	951	\|destination\|
3892 321c1729db5b initial checkin penk parents: diff changeset	952
3952 c04d4781a37e next stage penk parents: 3942 diff changeset	953	destination := self fileList draggedItem.
7583 ce61a256e85a * empty log message * Claus Gittinger <cg@exept.de> parents: 7562 diff changeset	954	destination isNil ifTrue:[^ nil].
3952 c04d4781a37e next stage penk parents: 3942 diff changeset	955
4746 37dc71547964 * empty log message * Claus Gittinger <cg@exept.de> parents: 4713 diff changeset	956	^ destination fileName.
3892 321c1729db5b initial checkin penk parents: diff changeset	957	!
321c1729db5b initial checkin penk parents: diff changeset	958
4682 89db9d28788a autoScroll if drop-pointer is at top/bottom Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	959	dropOver:aDropContext
4611 ef3e46e49777 comment Claus Gittinger <cg@exept.de> parents: 4577 diff changeset	960	"called during drag & drop while moving over the widget."
ef3e46e49777 comment Claus Gittinger <cg@exept.de> parents: 4577 diff changeset	961
5330 db3c33306631 drag and drop scrolling penk parents: 5281 diff changeset	962	\|lineNr newDest\|
3952 c04d4781a37e next stage penk parents: 3942 diff changeset	963
c04d4781a37e next stage penk parents: 3942 diff changeset	964	inDropMode ifFalse:[^ self].
c04d4781a37e next stage penk parents: 3942 diff changeset	965
4682 89db9d28788a autoScroll if drop-pointer is at top/bottom Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	966	lineNr := self getLineNumberFor:aDropContext.
3952 c04d4781a37e next stage penk parents: 3942 diff changeset	967	lineNr notNil ifTrue:[
c04d4781a37e next stage penk parents: 3942 diff changeset	968	newDest := self fileList at:lineNr ifAbsent:nil.
c04d4781a37e next stage penk parents: 3942 diff changeset	969	].
4018 43e02c59719d * empty log message * penk parents: 4011 diff changeset	970	(newDest isNil or:[newDest == self fileList draggedItem]) ifTrue:[
3952 c04d4781a37e next stage penk parents: 3942 diff changeset	971	^ self
c04d4781a37e next stage penk parents: 3942 diff changeset	972	].
6250 5b0673ccff1c refactored intention revealing code: Claus Gittinger <cg@exept.de> parents: 6160 diff changeset	973	newDest isDirectory ifFalse:[
3952 c04d4781a37e next stage penk parents: 3942 diff changeset	974	newDest := nil.
c04d4781a37e next stage penk parents: 3942 diff changeset	975	canDropItem := false.
c04d4781a37e next stage penk parents: 3942 diff changeset	976	].
4682 89db9d28788a autoScroll if drop-pointer is at top/bottom Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	977	self dropTargetItemChangedTo:newDest in:aDropContext.
3952 c04d4781a37e next stage penk parents: 3942 diff changeset	978
c04d4781a37e next stage penk parents: 3942 diff changeset	979	newDest notNil ifTrue:[
4682 89db9d28788a autoScroll if drop-pointer is at top/bottom Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	980	aDropContext dropSource argument == #archivApplication ifTrue:[
3952 c04d4781a37e next stage penk parents: 3942 diff changeset	981	canDropItem := true.
c04d4781a37e next stage penk parents: 3942 diff changeset	982	] ifFalse:[
4682 89db9d28788a autoScroll if drop-pointer is at top/bottom Claus Gittinger <cg@exept.de> parents: 4670 diff changeset	983	canDropItem := self canDropFiles:(aDropContext dropObjects) for:newDest fileName.
3952 c04d4781a37e next stage penk parents: 3942 diff changeset	984	].
c04d4781a37e next stage penk parents: 3942 diff changeset	985	].
3892 321c1729db5b initial checkin penk parents: diff changeset	986	!
321c1729db5b initial checkin penk parents: diff changeset	987
3952 c04d4781a37e next stage penk parents: 3942 diff changeset	988	dropTargetItemChangedTo:anItem in:aDropContext
c04d4781a37e next stage penk parents: 3942 diff changeset	989	\|current\|
c04d4781a37e next stage penk parents: 3942 diff changeset	990
c04d4781a37e next stage penk parents: 3942 diff changeset	991	current := self fileList draggedItem.
c04d4781a37e next stage penk parents: 3942 diff changeset	992	current == anItem ifTrue:[^ self].
c04d4781a37e next stage penk parents: 3942 diff changeset	993
c04d4781a37e next stage penk parents: 3942 diff changeset	994	self fileList draggedItem:anItem.
c04d4781a37e next stage penk parents: 3942 diff changeset	995
c04d4781a37e next stage penk parents: 3942 diff changeset	996	aDropContext contentsWillChange.
9535 434bc2b7d085 changed: #dropTargetItemChangedTo:in: Claus Gittinger <cg@exept.de> parents: 9356 diff changeset	997	current notNil ifTrue:[
3952 c04d4781a37e next stage penk parents: 3942 diff changeset	998	current isDirectory ifTrue:[
c04d4781a37e next stage penk parents: 3942 diff changeset	999	self removeExpandItemTimedBlock.
4440 4db61cc77318 make icon for drop on directories in tree view gray penk parents: 4437 diff changeset	1000	current makeIconGray:false.
3952 c04d4781a37e next stage penk parents: 3942 diff changeset	1001	current changed:#icon.
c04d4781a37e next stage penk parents: 3942 diff changeset	1002	]
c04d4781a37e next stage penk parents: 3942 diff changeset	1003	].
3892 321c1729db5b initial checkin penk parents: diff changeset	1004
9535 434bc2b7d085 changed: #dropTargetItemChangedTo:in: Claus Gittinger <cg@exept.de> parents: 9356 diff changeset	1005	anItem notNil ifTrue:[
3952 c04d4781a37e next stage penk parents: 3942 diff changeset	1006	anItem isDirectory ifTrue:[
4440 4db61cc77318 make icon for drop on directories in tree view gray penk parents: 4437 diff changeset	1007	anItem makeIconGray:true.
3952 c04d4781a37e next stage penk parents: 3942 diff changeset	1008	anItem changed:#icon.
13296 05707d78a3cc class: DirectoryTreeBrowser Claus Gittinger <cg@exept.de> parents: 13236 diff changeset	1009	(anItem notNil and:[anItem fileName isWritableDirectory]) ifTrue:[
6337 76a3f145aaad code cleanup Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	1010	self
76a3f145aaad code cleanup Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	1011	setupAutoExpandItemTimedBlock:
76a3f145aaad code cleanup Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	1012	[
76a3f145aaad code cleanup Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	1013	self expandForDrop:anItem with:aDropContext.
76a3f145aaad code cleanup Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	1014	].
3952 c04d4781a37e next stage penk parents: 3942 diff changeset	1015	]
c04d4781a37e next stage penk parents: 3942 diff changeset	1016	].
c04d4781a37e next stage penk parents: 3942 diff changeset	1017	].
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1018	browser shown ifTrue:[
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1019	browser repairDamage.
3952 c04d4781a37e next stage penk parents: 3942 diff changeset	1020	].
9535 434bc2b7d085 changed: #dropTargetItemChangedTo:in: Claus Gittinger <cg@exept.de> parents: 9356 diff changeset	1021
434bc2b7d085 changed: #dropTargetItemChangedTo:in: Claus Gittinger <cg@exept.de> parents: 9356 diff changeset	1022	"Modified: / 08-08-2010 / 14:42:21 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	1023	!
321c1729db5b initial checkin penk parents: diff changeset	1024
321c1729db5b initial checkin penk parents: diff changeset	1025	expandForDrop:item with:aDropContext
321c1729db5b initial checkin penk parents: diff changeset	1026
321c1729db5b initial checkin penk parents: diff changeset	1027	aDropContext saveDraw:[
321c1729db5b initial checkin penk parents: diff changeset	1028	(self doExpand:item) ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	1029	self windowGroup processExposeEvents
321c1729db5b initial checkin penk parents: diff changeset	1030	].
321c1729db5b initial checkin penk parents: diff changeset	1031	]
321c1729db5b initial checkin penk parents: diff changeset	1032	!
321c1729db5b initial checkin penk parents: diff changeset	1033
321c1729db5b initial checkin penk parents: diff changeset	1034	getDisplayObjects:anArgument
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1035	\|selectedItems string fnName stream\|
3892 321c1729db5b initial checkin penk parents: diff changeset	1036
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1037	selectedItems := self selectedItems.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1038	selectedItems isEmpty ifTrue:[ ^ ''].
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1039
15593 a0954ebf864c class: DirectoryTreeBrowser Stefan Vogel <sv@exept.de> parents: 14575 diff changeset	1040	stream := CharacterWriteStream with:(selectedItems first baseName).
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1041	selectedItems size == 1 ifTrue:[
3892 321c1729db5b initial checkin penk parents: diff changeset	1042	fnName := 'ui_menuitem.xpm'.
321c1729db5b initial checkin penk parents: diff changeset	1043	] ifFalse:[
321c1729db5b initial checkin penk parents: diff changeset	1044	fnName := 'ui_submenu_open.xpm'.
321c1729db5b initial checkin penk parents: diff changeset	1045	stream nextPutAll:' ... '.
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1046	stream nextPutAll:(selectedItems last baseName).
3892 321c1729db5b initial checkin penk parents: diff changeset	1047	].
321c1729db5b initial checkin penk parents: diff changeset	1048	string := stream contents.
321c1729db5b initial checkin penk parents: diff changeset	1049	stream close.
321c1729db5b initial checkin penk parents: diff changeset	1050
321c1729db5b initial checkin penk parents: diff changeset	1051	fnName := 'ui_menuitem.xpm'.
17539 e0e5ab9149d0 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17205 diff changeset	1052	^ Array with:(LabelAndIcon icon:(Image fromFile:fnName) string:(string allBold))
e0e5ab9149d0 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17205 diff changeset	1053
e0e5ab9149d0 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17205 diff changeset	1054	"Modified (format): / 20-06-2017 / 08:17:36 / cg"
3892 321c1729db5b initial checkin penk parents: diff changeset	1055	!
321c1729db5b initial checkin penk parents: diff changeset	1056
321c1729db5b initial checkin penk parents: diff changeset	1057	removeExpandItemTimedBlock
6337 76a3f145aaad code cleanup Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	1058	\|b\|
3952 c04d4781a37e next stage penk parents: 3942 diff changeset	1059
6337 76a3f145aaad code cleanup Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	1060	(b := expandItemTimedBlock) notNil ifTrue:[
76a3f145aaad code cleanup Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	1061	expandItemTimedBlock := nil.
76a3f145aaad code cleanup Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	1062	Processor removeTimedBlock:b.
3892 321c1729db5b initial checkin penk parents: diff changeset	1063	]
6337 76a3f145aaad code cleanup Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	1064	!
76a3f145aaad code cleanup Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	1065
76a3f145aaad code cleanup Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	1066	setupAutoExpandItemTimedBlock:aBlock
76a3f145aaad code cleanup Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	1067	expandItemTimedBlock := aBlock.
76a3f145aaad code cleanup Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	1068	Processor
76a3f145aaad code cleanup Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	1069	addTimedBlock:expandItemTimedBlock
76a3f145aaad code cleanup Claus Gittinger <cg@exept.de> parents: 6250 diff changeset	1070	afterMilliseconds:(self class timeForExpandOnDropInMilliseconds).
3892 321c1729db5b initial checkin penk parents: diff changeset	1071	! !
321c1729db5b initial checkin penk parents: diff changeset	1072
321c1729db5b initial checkin penk parents: diff changeset	1073	!DirectoryTreeBrowser methodsFor:'event handling'!
321c1729db5b initial checkin penk parents: diff changeset	1074
321c1729db5b initial checkin penk parents: diff changeset	1075	processEvent:anEvent
321c1729db5b initial checkin penk parents: diff changeset	1076	"filter keyboard events.
321c1729db5b initial checkin penk parents: diff changeset	1077	Return true, if I have eaten the event"
321c1729db5b initial checkin penk parents: diff changeset	1078
12114 d3f28a282edd changed: #processEvent: Claus Gittinger <cg@exept.de> parents: 12101 diff changeset	1079	<resource: #keyboard (#CursorLeft #FocusPrevious #FocusNext
17825 83273b82d3a3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17539 diff changeset	1080	#Cut #Copy #Delete #Replace #Paste
83273b82d3a3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17539 diff changeset	1081	#BackSpace)>
12114 d3f28a282edd changed: #processEvent: Claus Gittinger <cg@exept.de> parents: 12101 diff changeset	1082
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1083	\|focusView key rawKey\|
3892 321c1729db5b initial checkin penk parents: diff changeset	1084
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1085	anEvent isKeyPressEvent ifFalse:[^ false].
3892 321c1729db5b initial checkin penk parents: diff changeset	1086
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1087	focusView := anEvent targetView.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1088	(focusView isNil or:[focusView ~~ browser]) ifTrue:[ ^ false].
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	1089
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1090	key := anEvent key.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1091	rawKey := anEvent rawKey.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1092
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1093	(key == #CursorLeft) ifTrue:[
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1094	"go to last selection in selection history"
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1095	(self rootSelected and:[(self fileList at:1) isExpanded not]) ifTrue:[
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1096	self doGoDirectoryUp.
4009 ed1a4c82901c * empty log message * penk parents: 4008 diff changeset	1097	^ true
ed1a4c82901c * empty log message * penk parents: 4008 diff changeset	1098	].
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1099	^ false
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1100	].
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1101	(key == #FocusPrevious) ifTrue:[
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1102	"go to last selection in selection history"
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1103	self doBack.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1104	^ true
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1105	].
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1106	(key == #FocusNext) ifTrue:[
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1107	"go to next selection in selection history"
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1108	self doForward.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1109	^ true
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1110	].
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1111	(key == #Replace) ifTrue:[
5063 87f68877a3da no rename on one click anymore penk parents: 5010 diff changeset	1112	self renameFileInTreeView.
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1113	^ true
3892 321c1729db5b initial checkin penk parents: diff changeset	1114	].
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1115	(key == #Cut) ifTrue:[
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1116	self doCut.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1117	^ true
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1118	].
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1119	(key == #Copy) ifTrue:[
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1120	self doCopy.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1121	^ true
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1122	].
17825 83273b82d3a3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17539 diff changeset	1123	((key == #Delete) or:[ key == #BackSpace ]) ifTrue:[
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1124	self doDelete.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1125	^ true
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1126	].
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1127	(key == #Paste) ifTrue:[
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1128	self pasteFiles.
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1129	^ true
37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1130	].
3892 321c1729db5b initial checkin penk parents: diff changeset	1131
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1132	^ false
3892 321c1729db5b initial checkin penk parents: diff changeset	1133	! !
321c1729db5b initial checkin penk parents: diff changeset	1134
321c1729db5b initial checkin penk parents: diff changeset	1135	!DirectoryTreeBrowser methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	1136
4996 5927cc0508e8 close the editor in treebrowser on rename if ENTER is pressed penk parents: 4954 diff changeset	1137	hasOpenEditor
5927cc0508e8 close the editor in treebrowser on rename if ENTER is pressed penk parents: 4954 diff changeset	1138
5927cc0508e8 close the editor in treebrowser on rename if ENTER is pressed penk parents: 4954 diff changeset	1139	^ browser hasOpenEditor
5927cc0508e8 close the editor in treebrowser on rename if ENTER is pressed penk parents: 4954 diff changeset	1140	!
5927cc0508e8 close the editor in treebrowser on rename if ENTER is pressed penk parents: 4954 diff changeset	1141
3892 321c1729db5b initial checkin penk parents: diff changeset	1142	masterIsFileBrowser
321c1729db5b initial checkin penk parents: diff changeset	1143
13824 1e6c41043aa4 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13296 diff changeset	1144	^ self masterApplication isKindOf: FileBrowserV2
1e6c41043aa4 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13296 diff changeset	1145
1e6c41043aa4 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13296 diff changeset	1146	"Modified: / 04-05-2012 / 16:24:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3892 321c1729db5b initial checkin penk parents: diff changeset	1147	!
321c1729db5b initial checkin penk parents: diff changeset	1148
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	1149	selectedFilesIncludesNonRootDirectory
6629 fe99eb7101a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 6529 diff changeset	1150	^ self selectedDirectories contains:[:aDir \| (aDir asString) ~= (self rootHolder value)].
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	1151
6629 fe99eb7101a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 6529 diff changeset	1152	"/ \|directories\|
fe99eb7101a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 6529 diff changeset	1153	"/
fe99eb7101a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 6529 diff changeset	1154	"/ directories := self selectedDirectories.
fe99eb7101a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 6529 diff changeset	1155	"/ directories isEmpty ifTrue:[^ false].
fe99eb7101a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 6529 diff changeset	1156	"/ directories do:[:aDir\|
fe99eb7101a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 6529 diff changeset	1157	"/ (aDir asString) ~= (self rootHolder value) ifTrue:[
fe99eb7101a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 6529 diff changeset	1158	"/ ^ true
fe99eb7101a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 6529 diff changeset	1159	"/ ]
fe99eb7101a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 6529 diff changeset	1160	"/ ].
fe99eb7101a7 * empty log message * Claus Gittinger <cg@exept.de> parents: 6529 diff changeset	1161	"/ ^ false
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	1162	! !
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1163
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1164	!DirectoryTreeBrowser methodsFor:'selection'!
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1165
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1166	firstSelectedDirectory
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1167
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1168	\| selection dirs dirIndices\|
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1169
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1170	selection := self selectedItems.
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1171	selection isEmpty ifTrue:[ ^ nil ].
3892 321c1729db5b initial checkin penk parents: diff changeset	1172
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	1173	dirs := selection collect:[:item\| item isDirectory].
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1174	dirs isEmpty ifTrue:[^ nil].
9104 68659d07a842 code cleanup; care for showHidden Claus Gittinger <cg@exept.de> parents: 8495 diff changeset	1175	dirIndices := selection
68659d07a842 code cleanup; care for showHidden Claus Gittinger <cg@exept.de> parents: 8495 diff changeset	1176	collect:[:item \|
68659d07a842 code cleanup; care for showHidden Claus Gittinger <cg@exept.de> parents: 8495 diff changeset	1177	self fileList identityIndexOf:item.
68659d07a842 code cleanup; care for showHidden Claus Gittinger <cg@exept.de> parents: 8495 diff changeset	1178	].
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	1179	^ (self fileList at:(dirIndices min)) fileName.
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1180	!
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1181
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1182	rootSelected
9104 68659d07a842 code cleanup; care for showHidden Claus Gittinger <cg@exept.de> parents: 8495 diff changeset	1183	\| selectedItems \|
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	1184
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1185	selectedItems := self selectedItems.
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1186	selectedItems isEmpty ifTrue:[^ false].
9104 68659d07a842 code cleanup; care for showHidden Claus Gittinger <cg@exept.de> parents: 8495 diff changeset	1187	^ selectedItems includesIdentical:(self fileList root)
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	1188	!
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1189
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1190	selectFiles:aColOfFileOrDirectory
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1191	"selects a file; if the file is not included in my
9112 d028c545a011 changes for better FileDialog Claus Gittinger <cg@exept.de> parents: 9109 diff changeset	1192	root directory, the root will be changed"
d028c545a011 changes for better FileDialog Claus Gittinger <cg@exept.de> parents: 9109 diff changeset	1193
10684 64469c214b9e changed: #selectFiles: Claus Gittinger <cg@exept.de> parents: 10680 diff changeset	1194	\|root items directory item newRoot rootDir\|
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	1195
19008 302ee0e701e1 #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 18737 diff changeset	1196	aColOfFileOrDirectory isEmpty ifTrue:[
302ee0e701e1 #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 18737 diff changeset	1197	self selectItems:#().
302ee0e701e1 #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 18737 diff changeset	1198	^ self.
302ee0e701e1 #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 18737 diff changeset	1199	].
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	1200
10684 64469c214b9e changed: #selectFiles: Claus Gittinger <cg@exept.de> parents: 10680 diff changeset	1201	root := self fileList root.
64469c214b9e changed: #selectFiles: Claus Gittinger <cg@exept.de> parents: 10680 diff changeset	1202	root notNil ifTrue:[ rootDir := root fileName asAbsoluteFilename ].
10680 d9518189dbcf changed: #selectFiles: Claus Gittinger <cg@exept.de> parents: 9881 diff changeset	1203
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	1204	items := OrderedCollection new.
12101 39ef9fd5fbbf class: DirectoryTreeBrowser Stefan Vogel <sv@exept.de> parents: 11593 diff changeset	1205	aColOfFileOrDirectory do:[:eachFile\|
39ef9fd5fbbf class: DirectoryTreeBrowser Stefan Vogel <sv@exept.de> parents: 11593 diff changeset	1206	(eachFile notNil and:[eachFile exists]) ifTrue:[
39ef9fd5fbbf class: DirectoryTreeBrowser Stefan Vogel <sv@exept.de> parents: 11593 diff changeset	1207	item := self fileList findLastForFile:eachFile inRoot:root directory:rootDir.
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	1208	item isNil ifTrue:[
6160 fe679d48ff9b expand directory item if file in directory not exists (for FileDialog) penk parents: 6149 diff changeset	1209	"/ set a new root directory
19008 302ee0e701e1 #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 18737 diff changeset	1210	newRoot := self commonPrefixOfFiles:(aColOfFileOrDirectory collect:[:each \| each directory]).
302ee0e701e1 #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 18737 diff changeset	1211	newRoot := self class getDirectoryOf:newRoot.
18737 d8370f93fd9b #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18269 diff changeset	1212	newRoot := newRoot pathName.
9881 773611cd28c8 changed: #selectFiles: Michael Beyl <mb@exept.de> parents: 9535 diff changeset	1213	newRoot ~= self rootHolder value ifTrue:[
773611cd28c8 changed: #selectFiles: Michael Beyl <mb@exept.de> parents: 9535 diff changeset	1214	self rootHolder value:newRoot.
773611cd28c8 changed: #selectFiles: Michael Beyl <mb@exept.de> parents: 9535 diff changeset	1215	].
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	1216	item := self fileList root.
3892 321c1729db5b initial checkin penk parents: diff changeset	1217
12101 39ef9fd5fbbf class: DirectoryTreeBrowser Stefan Vogel <sv@exept.de> parents: 11593 diff changeset	1218	eachFile isDirectory ifTrue:[ directory := eachFile ]
39ef9fd5fbbf class: DirectoryTreeBrowser Stefan Vogel <sv@exept.de> parents: 11593 diff changeset	1219	ifFalse:[ directory := eachFile directory ]
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	1220	.
12101 39ef9fd5fbbf class: DirectoryTreeBrowser Stefan Vogel <sv@exept.de> parents: 11593 diff changeset	1221	directory == eachFile ifFalse:[
39ef9fd5fbbf class: DirectoryTreeBrowser Stefan Vogel <sv@exept.de> parents: 11593 diff changeset	1222	item := item detect:[:el\| el fileName = eachFile ] ifNone:item.
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	1223	].
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1224	].
11593 4d7eb0d9a9ef changed: #selectFiles: Claus Gittinger <cg@exept.de> parents: 10685 diff changeset	1225	item notNil ifTrue:[
4d7eb0d9a9ef changed: #selectFiles: Claus Gittinger <cg@exept.de> parents: 10685 diff changeset	1226	"if it is a directory it should be expanded"
4d7eb0d9a9ef changed: #selectFiles: Claus Gittinger <cg@exept.de> parents: 10685 diff changeset	1227	"/ item enforcedExpand.
4d7eb0d9a9ef changed: #selectFiles: Claus Gittinger <cg@exept.de> parents: 10685 diff changeset	1228	items add:item.
4d7eb0d9a9ef changed: #selectFiles: Claus Gittinger <cg@exept.de> parents: 10685 diff changeset	1229	].
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	1230	].
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1231	].
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1232	self selectItems:items
10680 d9518189dbcf changed: #selectFiles: Claus Gittinger <cg@exept.de> parents: 9881 diff changeset	1233
11593 4d7eb0d9a9ef changed: #selectFiles: Claus Gittinger <cg@exept.de> parents: 10685 diff changeset	1234	"Modified: / 12-07-2012 / 11:31:20 / cg"
18737 d8370f93fd9b #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18269 diff changeset	1235	"Modified: / 11-04-2019 / 18:03:58 / Stefan Vogel"
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	1236	!
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1237
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1238	selectItems:aColOfItems
4011 73fa35b1963b * empty log message * penk parents: 4010 diff changeset	1239	\|currentSelection newSelection\|
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	1240
4011 73fa35b1963b * empty log message * penk parents: 4010 diff changeset	1241	currentSelection := self selectedItems.
8495 b691d1466034 test for isRootDirectory ca parents: 8295 diff changeset	1242	"/ aColOfItems do:[:anItem\| anItem isDirectory ifTrue:[ anItem expand ]].
b691d1466034 test for isRootDirectory ca parents: 8295 diff changeset	1243
4011 73fa35b1963b * empty log message * penk parents: 4010 diff changeset	1244	self multipleSelect ifTrue:[
73fa35b1963b * empty log message * penk parents: 4010 diff changeset	1245	currentSelection notNil ifTrue:[
73fa35b1963b * empty log message * penk parents: 4010 diff changeset	1246	aColOfItems size == currentSelection size ifTrue:[
73fa35b1963b * empty log message * penk parents: 4010 diff changeset	1247	(aColOfItems findFirst:[:item \| (currentSelection includesIdentical:item) not ]) ~~ 0 ifFalse:[
73fa35b1963b * empty log message * penk parents: 4010 diff changeset	1248	^ self
73fa35b1963b * empty log message * penk parents: 4010 diff changeset	1249	].
73fa35b1963b * empty log message * penk parents: 4010 diff changeset	1250	]
73fa35b1963b * empty log message * penk parents: 4010 diff changeset	1251	].
73fa35b1963b * empty log message * penk parents: 4010 diff changeset	1252	newSelection := aColOfItems.
73fa35b1963b * empty log message * penk parents: 4010 diff changeset	1253	] ifFalse:[
73fa35b1963b * empty log message * penk parents: 4010 diff changeset	1254	newSelection := aColOfItems isEmpty ifTrue:[nil] ifFalse:[aColOfItems first].
73fa35b1963b * empty log message * penk parents: 4010 diff changeset	1255	newSelection == currentSelection ifTrue:[
73fa35b1963b * empty log message * penk parents: 4010 diff changeset	1256	^ self
73fa35b1963b * empty log message * penk parents: 4010 diff changeset	1257	]
73fa35b1963b * empty log message * penk parents: 4010 diff changeset	1258	].
73fa35b1963b * empty log message * penk parents: 4010 diff changeset	1259
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	1260	aColOfItems notEmpty ifTrue:[
18269 e38a2d59333f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17825 diff changeset	1261	aColOfItems do:#makeVisible.
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	1262	].
4011 73fa35b1963b * empty log message * penk parents: 4010 diff changeset	1263	self updateToExternFileHolderLock doLocked:[
73fa35b1963b * empty log message * penk parents: 4010 diff changeset	1264	self treeSelectionHolder value:newSelection.
3989 7eec3cb5bce6 selectedFiles method name changed penk parents: 3986 diff changeset	1265	].
18269 e38a2d59333f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17825 diff changeset	1266
e38a2d59333f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17825 diff changeset	1267	"Modified: / 17-07-2018 / 13:29:56 / Claus Gittinger"
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	1268	!
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1269
14575 ef1331d0a99e class: DirectoryTreeBrowser Claus Gittinger <cg@exept.de> parents: 14301 diff changeset	1270	selectNextFile
ef1331d0a99e class: DirectoryTreeBrowser Claus Gittinger <cg@exept.de> parents: 14301 diff changeset	1271	self halt:'unimplemented'.
ef1331d0a99e class: DirectoryTreeBrowser Claus Gittinger <cg@exept.de> parents: 14301 diff changeset	1272	!
ef1331d0a99e class: DirectoryTreeBrowser Claus Gittinger <cg@exept.de> parents: 14301 diff changeset	1273
ef1331d0a99e class: DirectoryTreeBrowser Claus Gittinger <cg@exept.de> parents: 14301 diff changeset	1274	selectPreviousFile
ef1331d0a99e class: DirectoryTreeBrowser Claus Gittinger <cg@exept.de> parents: 14301 diff changeset	1275	self halt:'unimplemented'.
ef1331d0a99e class: DirectoryTreeBrowser Claus Gittinger <cg@exept.de> parents: 14301 diff changeset	1276	!
ef1331d0a99e class: DirectoryTreeBrowser Claus Gittinger <cg@exept.de> parents: 14301 diff changeset	1277
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	1278	selectedDirectories
9104 68659d07a842 code cleanup; care for showHidden Claus Gittinger <cg@exept.de> parents: 8495 diff changeset	1279	^ self selectedDirectoryItems collect:[: el \| el fileName ].
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	1280	!
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1281
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1282	selectedDirectoryItems
9104 68659d07a842 code cleanup; care for showHidden Claus Gittinger <cg@exept.de> parents: 8495 diff changeset	1283	^ self selectedItems select:[: el \| el isDirectory ].
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	1284	!
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1285
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1286	selectedFilenameDirectories
9104 68659d07a842 code cleanup; care for showHidden Claus Gittinger <cg@exept.de> parents: 8495 diff changeset	1287	^ self selectedItems
19008 302ee0e701e1 #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 18737 diff changeset	1288	collect:[:item \| self class getDirectoryOf:(item fileName)]
9104 68659d07a842 code cleanup; care for showHidden Claus Gittinger <cg@exept.de> parents: 8495 diff changeset	1289	as:Set
3982 fc30449d705d * empty log message * penk parents: 3969 diff changeset	1290	!
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1291
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1292	selectedItems
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1293	\| selection \|
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1294
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1295	selection := self treeSelectionHolder value.
fc30449d705d * empty log message * penk parents: 3969 diff changeset	1296	selection isNil ifTrue:[ ^ #() ].
4801 b52933a4ec20 multipleSelect Claus Gittinger <cg@exept.de> parents: 4794 diff changeset	1297	self multipleSelect ifTrue:[^ selection ].
4002 a403f257ff60 * empty log message * Claus Gittinger <cg@exept.de> parents: 3996 diff changeset	1298	^ Array with:selection. "Wrap single value into Array"
3892 321c1729db5b initial checkin penk parents: diff changeset	1299	! !
321c1729db5b initial checkin penk parents: diff changeset	1300
321c1729db5b initial checkin penk parents: diff changeset	1301	!DirectoryTreeBrowser methodsFor:'startup & release'!
321c1729db5b initial checkin penk parents: diff changeset	1302
321c1729db5b initial checkin penk parents: diff changeset	1303	makeDependent
321c1729db5b initial checkin penk parents: diff changeset	1304
4008 ea273bf34f63 * empty log message * penk parents: 4003 diff changeset	1305	super makeDependent.
3892 321c1729db5b initial checkin penk parents: diff changeset	1306	self currentFileNameHolder addDependent:self.
5444 02b2cd0dfd69 open treebrowser with empty window bug penk parents: 5442 diff changeset	1307	self currentDirectories addDependent:self.
4071 f923c8257818 * empty log message * penk parents: 4021 diff changeset	1308	self rootHolder addDependent:self.
3892 321c1729db5b initial checkin penk parents: diff changeset	1309	self viewFilesInDirectoryTree addDependent:self.
4011 73fa35b1963b * empty log message * penk parents: 4010 diff changeset	1310	self filterBlockHolder addDependent:self.
3892 321c1729db5b initial checkin penk parents: diff changeset	1311	!
321c1729db5b initial checkin penk parents: diff changeset	1312
5063 87f68877a3da no rename on one click anymore penk parents: 5010 diff changeset	1313	openEditorAction
87f68877a3da no rename on one click anymore penk parents: 5010 diff changeset	1314	^ [:ln :aGC \|
87f68877a3da no rename on one click anymore penk parents: 5010 diff changeset	1315	self openEditorIn:aGC forLine:ln
87f68877a3da no rename on one click anymore penk parents: 5010 diff changeset	1316	].
87f68877a3da no rename on one click anymore penk parents: 5010 diff changeset	1317	!
87f68877a3da no rename on one click anymore penk parents: 5010 diff changeset	1318
4887 13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1319	openEditorIn:aGC forLine:ln
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1320	\|item alreadyAccepted filename field newFileString newFilename\|
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1321
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1322	alreadyAccepted := false.
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1323	browser
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1324	closeEditorAction:[:editor \|
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1325	alreadyAccepted ifFalse:[
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1326	editor acceptAction value:(editor contents)
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1327	]
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1328	].
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1329
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1330	self allowFileOperations value ifFalse:[^ nil].
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1331
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1332	item := self fileList at:ln.
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1333	item label isString ifFalse:[
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1334	field := nil
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1335	] ifTrue:[
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1336	field := EditField new.
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1337	field level:0.
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1338	field acceptOnReturn:true.
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1339	field acceptOnLeave:true.
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1340	field
19326 aa5475080809 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19138 diff changeset	1341	acceptAction:[:x \|
4887 13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1342	alreadyAccepted := true.
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1343	filename := item fileName.
19326 aa5475080809 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 19138 diff changeset	1344	newFileString := field contents asString withoutSeparators.
4887 13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1345	filename baseName ~= newFileString ifTrue:[
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1346	(self
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1347	renameFile:filename
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1348	to:newFileString
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1349	update:false)
6768 aa5f98df1ec3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6764 diff changeset	1350	ifTrue:[
aa5f98df1ec3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6764 diff changeset	1351	newFilename := filename directory construct:newFileString.
6830 8901380baeab wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6768 diff changeset	1352	"/ self withWaitCursorDo:[
6768 aa5f98df1ec3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6764 diff changeset	1353	self updateAndSelect:(OrderedCollection with:newFilename)
6830 8901380baeab wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6768 diff changeset	1354	"/ ]
6768 aa5f98df1ec3 * empty log message * Claus Gittinger <cg@exept.de> parents: 6764 diff changeset	1355	]
4887 13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1356	].
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1357	aGC closeEditor.
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1358	(field leaveKey == #CursorUp or:[field leaveKey == #CursorDown]) ifTrue:[
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1359	browser
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1360	keyPress:field leaveKey
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1361	x:0
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1362	y:0
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1363	].
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1364	field destroy.
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1365	browser requestFocus "/ takes it from my windowGroup; prevents it from shifting focus
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1366	].
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1367	field font:(aGC font).
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1368	field contents:(item label)
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1369	].
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1370	^ field
6830 8901380baeab wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6768 diff changeset	1371
8901380baeab wait-cursor -> activity indication Claus Gittinger <cg@exept.de> parents: 6768 diff changeset	1372	"Modified: / 25-07-2006 / 09:08:45 / cg"
4887 13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1373	!
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1374
13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1375	postBuildDirBrowser:aWidget
4713 37f134e02205 refactored Claus Gittinger <cg@exept.de> parents: 4696 diff changeset	1376	browser := aWidget scrolledView.
14301 22794ffaad9c class: DirectoryTreeBrowser Claus Gittinger <cg@exept.de> parents: 14185 diff changeset	1377	"/ browser hasConstantHeight:true.
5063 87f68877a3da no rename on one click anymore penk parents: 5010 diff changeset	1378	self allowRenameOnOneClick ifTrue:[
87f68877a3da no rename on one click anymore penk parents: 5010 diff changeset	1379	browser openEditorAction:self openEditorAction
87f68877a3da no rename on one click anymore penk parents: 5010 diff changeset	1380	].
4887 13c22869307a checkin from browser Claus Gittinger <cg@exept.de> parents: 4885 diff changeset	1381	browser multipleSelectOk:self multipleSelect
3892 321c1729db5b initial checkin penk parents: diff changeset	1382	!
321c1729db5b initial checkin penk parents: diff changeset	1383
5444 02b2cd0dfd69 open treebrowser with empty window bug penk parents: 5442 diff changeset	1384	postOpenFromMaster:fromMaster
4071 f923c8257818 * empty log message * penk parents: 4021 diff changeset	1385
4885 9755e2925fac * empty log message * Claus Gittinger <cg@exept.de> parents: 4881 diff changeset	1386	"/ self windowGroup application class == FileBrowserV2 ifTrue:[
9755e2925fac * empty log message * Claus Gittinger <cg@exept.de> parents: 4881 diff changeset	1387	"/ self multipleSelect:true.
9755e2925fac * empty log message * Claus Gittinger <cg@exept.de> parents: 4881 diff changeset	1388	"/ ].
4071 f923c8257818 * empty log message * penk parents: 4021 diff changeset	1389	self rootHolderChanged.
5444 02b2cd0dfd69 open treebrowser with empty window bug penk parents: 5442 diff changeset	1390	fromMaster ifFalse:[
5442 4e025f6f8ed7 building not complete in open from master penk parents: 5425 diff changeset	1391	self currentFileNameHolderChangedForCommon.
4e025f6f8ed7 building not complete in open from master penk parents: 5425 diff changeset	1392	].
5444 02b2cd0dfd69 open treebrowser with empty window bug penk parents: 5442 diff changeset	1393	self currentFileNameHolderChanged.
4151 950e04fef4ba treeBrowser has his own sort now penk parents: 4085 diff changeset	1394	self sortFileListsBy:self sortPropertyInTree value.
4071 f923c8257818 * empty log message * penk parents: 4021 diff changeset	1395	self windowGroup addPreEventHook:self.
f923c8257818 * empty log message * penk parents: 4021 diff changeset	1396	!
f923c8257818 * empty log message * penk parents: 4021 diff changeset	1397
3892 321c1729db5b initial checkin penk parents: diff changeset	1398	release
321c1729db5b initial checkin penk parents: diff changeset	1399	self fileList stopMonitoringTask.
321c1729db5b initial checkin penk parents: diff changeset	1400	^ super release.
321c1729db5b initial checkin penk parents: diff changeset	1401	! !
321c1729db5b initial checkin penk parents: diff changeset	1402
321c1729db5b initial checkin penk parents: diff changeset	1403	!DirectoryTreeBrowser::DirTreeBrowserHFL methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	1404
3952 c04d4781a37e next stage penk parents: 3942 diff changeset	1405	draggedItem
3892 321c1729db5b initial checkin penk parents: diff changeset	1406
3952 c04d4781a37e next stage penk parents: 3942 diff changeset	1407	^ draggedItem
c04d4781a37e next stage penk parents: 3942 diff changeset	1408	!
3892 321c1729db5b initial checkin penk parents: diff changeset	1409
3952 c04d4781a37e next stage penk parents: 3942 diff changeset	1410	draggedItem:anItemOrNil
c04d4781a37e next stage penk parents: 3942 diff changeset	1411
c04d4781a37e next stage penk parents: 3942 diff changeset	1412	draggedItem := anItemOrNil.
3892 321c1729db5b initial checkin penk parents: diff changeset	1413	! !
321c1729db5b initial checkin penk parents: diff changeset	1414
321c1729db5b initial checkin penk parents: diff changeset	1415	!DirectoryTreeBrowser::DirTreeBrowserHFL methodsFor:'protocol'!
321c1729db5b initial checkin penk parents: diff changeset	1416
3969 ed8ba91e959c icon for drop changes changed penk parents: 3968 diff changeset	1417	grayDirectoryIcon
ed8ba91e959c icon for drop changes changed penk parents: 3968 diff changeset	1418
ed8ba91e959c icon for drop changes changed penk parents: 3968 diff changeset	1419	grayDirectoryIcon isNil ifTrue:[
14185 aef2b4ef5bda Do not refer to FileBrowser methods Stefan Vogel <sv@exept.de> parents: 13824 diff changeset	1420	grayDirectoryIcon := (MIMETypeIconLibrary iconForKeyMatching:#directoryOpenGray).
3969 ed8ba91e959c icon for drop changes changed penk parents: 3968 diff changeset	1421	].
ed8ba91e959c icon for drop changes changed penk parents: 3968 diff changeset	1422	^ grayDirectoryIcon
ed8ba91e959c icon for drop changes changed penk parents: 3968 diff changeset	1423	!
ed8ba91e959c icon for drop changes changed penk parents: 3968 diff changeset	1424
ed8ba91e959c icon for drop changes changed penk parents: 3968 diff changeset	1425	iconFor:anItem
ed8ba91e959c icon for drop changes changed penk parents: 3968 diff changeset	1426	"returns the icon for an item
ed8ba91e959c icon for drop changes changed penk parents: 3968 diff changeset	1427	"
4557 8aa2be8c22bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4534 diff changeset	1428	"/ Transcript showCR:'iconFor:anItem'.
3892 321c1729db5b initial checkin penk parents: diff changeset	1429	draggedItem == anItem ifTrue:[
3969 ed8ba91e959c icon for drop changes changed penk parents: 3968 diff changeset	1430	^ self grayDirectoryIcon.
3892 321c1729db5b initial checkin penk parents: diff changeset	1431	].
3969 ed8ba91e959c icon for drop changes changed penk parents: 3968 diff changeset	1432	^ super iconFor:anItem.
3892 321c1729db5b initial checkin penk parents: diff changeset	1433	! !
321c1729db5b initial checkin penk parents: diff changeset	1434
321c1729db5b initial checkin penk parents: diff changeset	1435	!DirectoryTreeBrowser class methodsFor:'documentation'!
321c1729db5b initial checkin penk parents: diff changeset	1436
321c1729db5b initial checkin penk parents: diff changeset	1437	version
17205 5f737b63fa71 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 15593 diff changeset	1438	^ '$Header$'
9104 68659d07a842 code cleanup; care for showHidden Claus Gittinger <cg@exept.de> parents: 8495 diff changeset	1439	!
68659d07a842 code cleanup; care for showHidden Claus Gittinger <cg@exept.de> parents: 8495 diff changeset	1440
68659d07a842 code cleanup; care for showHidden Claus Gittinger <cg@exept.de> parents: 8495 diff changeset	1441	version_CVS
17205 5f737b63fa71 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 15593 diff changeset	1442	^ '$Header$'
3892 321c1729db5b initial checkin penk parents: diff changeset	1443	! !
12101 39ef9fd5fbbf class: DirectoryTreeBrowser Stefan Vogel <sv@exept.de> parents: 11593 diff changeset	1444

author	Claus Gittinger <cg@exept.de>
	Mon, 20 Jan 2020 21:02:47 +0100
changeset 19422	c6ca1c3e0fd7
parent 19358	4a5ebaaac37d
child 19484	0724ad57f9b9
permissions	-rw-r--r--