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

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

author	Claus Gittinger <cg@exept.de>
	Thu, 04 Mar 2004 10:34:25 +0100
changeset 5655	799991c1c602
parent 5444	02b2cd0dfd69
child 5672	dcfeb67da37f
permissions	-rw-r--r--