hg/stx-libtool: AbstractFileBrowser.st@be512c7e5ea8 (annotated)

3892 321c1729db5b initial checkin penk parents: diff changeset	1	"{ Package: 'stx:libtool' }"
321c1729db5b initial checkin penk parents: diff changeset	2
321c1729db5b initial checkin penk parents: diff changeset	3	ApplicationModel subclass:#AbstractFileBrowser
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	4	instanceVariableNames:'aspects'
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	5	classVariableNames:'DirectoryHistory DefaultCommandPerMIME RuntimeAspects
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	6	DirectoryBookmarks LastEnforcedNameSpace CommandHistory
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	7	DefaultCommandPerSuffix CommandHistorySize LastFileDiffFile
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	8	DefaultFilters'
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	9	poolDictionaries:''
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	10	category:'Interface-Tools-File'
3892 321c1729db5b initial checkin penk parents: diff changeset	11	!
321c1729db5b initial checkin penk parents: diff changeset	12
321c1729db5b initial checkin penk parents: diff changeset	13	AbstractFileBrowser class instanceVariableNames:'DisabledCursorImage EnabledCursorImage'
321c1729db5b initial checkin penk parents: diff changeset	14
321c1729db5b initial checkin penk parents: diff changeset	15	"
321c1729db5b initial checkin penk parents: diff changeset	16	The following class instance variables are inherited by this class:
321c1729db5b initial checkin penk parents: diff changeset	17
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	18	ApplicationModel - ClassResources
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	19	Model -
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	20	Object -
3892 321c1729db5b initial checkin penk parents: diff changeset	21	"
321c1729db5b initial checkin penk parents: diff changeset	22	!
321c1729db5b initial checkin penk parents: diff changeset	23
321c1729db5b initial checkin penk parents: diff changeset	24	Object subclass:#Clipboard
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	25	instanceVariableNames:'method files'
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	26	classVariableNames:''
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	27	poolDictionaries:''
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	28	privateIn:AbstractFileBrowser
3892 321c1729db5b initial checkin penk parents: diff changeset	29	!
321c1729db5b initial checkin penk parents: diff changeset	30
321c1729db5b initial checkin penk parents: diff changeset	31	Object subclass:#CodeExecutionLock
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	32	instanceVariableNames:'locked'
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	33	classVariableNames:''
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	34	poolDictionaries:''
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	35	privateIn:AbstractFileBrowser
3892 321c1729db5b initial checkin penk parents: diff changeset	36	!
321c1729db5b initial checkin penk parents: diff changeset	37
321c1729db5b initial checkin penk parents: diff changeset	38	OrderedCollection subclass:#DirectoryHistory
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	39	instanceVariableNames:'forwardList backList lastWasForwardPath lastBackPath lastAddPath'
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	40	classVariableNames:'HistorySize'
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	41	poolDictionaries:''
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	42	privateIn:AbstractFileBrowser
3952 c04d4781a37e next stage penk parents: 3949 diff changeset	43	!
c04d4781a37e next stage penk parents: 3949 diff changeset	44
c04d4781a37e next stage penk parents: 3949 diff changeset	45	Object subclass:#DirectoryHistoryItem
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	46	instanceVariableNames:'path position'
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	47	classVariableNames:''
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	48	poolDictionaries:''
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	49	privateIn:AbstractFileBrowser::DirectoryHistory
3892 321c1729db5b initial checkin penk parents: diff changeset	50	!
321c1729db5b initial checkin penk parents: diff changeset	51
321c1729db5b initial checkin penk parents: diff changeset	52	OrderedSet subclass:#FilenameHistory
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	53	instanceVariableNames:''
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	54	classVariableNames:''
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	55	poolDictionaries:''
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	56	privateIn:AbstractFileBrowser
3892 321c1729db5b initial checkin penk parents: diff changeset	57	!
321c1729db5b initial checkin penk parents: diff changeset	58
321c1729db5b initial checkin penk parents: diff changeset	59	Object subclass:#SaveAspectItem
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	60	instanceVariableNames:'value isHolder'
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	61	classVariableNames:''
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	62	poolDictionaries:''
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	63	privateIn:AbstractFileBrowser
3892 321c1729db5b initial checkin penk parents: diff changeset	64	!
321c1729db5b initial checkin penk parents: diff changeset	65
321c1729db5b initial checkin penk parents: diff changeset	66
321c1729db5b initial checkin penk parents: diff changeset	67	!AbstractFileBrowser class methodsFor:'classAccess'!
321c1729db5b initial checkin penk parents: diff changeset	68
3952 c04d4781a37e next stage penk parents: 3949 diff changeset	69	directoryHistoryClass
c04d4781a37e next stage penk parents: 3949 diff changeset	70
c04d4781a37e next stage penk parents: 3949 diff changeset	71	^ AbstractFileBrowser::DirectoryHistory
c04d4781a37e next stage penk parents: 3949 diff changeset	72	!
c04d4781a37e next stage penk parents: 3949 diff changeset	73
3892 321c1729db5b initial checkin penk parents: diff changeset	74	filenameHistoryClass
321c1729db5b initial checkin penk parents: diff changeset	75
321c1729db5b initial checkin penk parents: diff changeset	76	^ FilenameHistory
321c1729db5b initial checkin penk parents: diff changeset	77	! !
321c1729db5b initial checkin penk parents: diff changeset	78
3952 c04d4781a37e next stage penk parents: 3949 diff changeset	79	!AbstractFileBrowser class methodsFor:'classVarAccess'!
c04d4781a37e next stage penk parents: 3949 diff changeset	80
c04d4781a37e next stage penk parents: 3949 diff changeset	81	directoryHistory
c04d4781a37e next stage penk parents: 3949 diff changeset	82
c04d4781a37e next stage penk parents: 3949 diff changeset	83	DirectoryHistory isNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	84	DirectoryHistory := self directoryHistoryClass new.
3964 8697bad1c903 next stage for history penk parents: 3963 diff changeset	85	"/ DirectoryHistory inspect.
3952 c04d4781a37e next stage penk parents: 3949 diff changeset	86	].
c04d4781a37e next stage penk parents: 3949 diff changeset	87	^ DirectoryHistory
c04d4781a37e next stage penk parents: 3949 diff changeset	88	!
c04d4781a37e next stage penk parents: 3949 diff changeset	89
c04d4781a37e next stage penk parents: 3949 diff changeset	90	resetClassVars
c04d4781a37e next stage penk parents: 3949 diff changeset	91
c04d4781a37e next stage penk parents: 3949 diff changeset	92	DirectoryHistory := nil.
c04d4781a37e next stage penk parents: 3949 diff changeset	93
c04d4781a37e next stage penk parents: 3949 diff changeset	94	"
c04d4781a37e next stage penk parents: 3949 diff changeset	95	AbstractFileBrowser resetClassVars
c04d4781a37e next stage penk parents: 3949 diff changeset	96	"
c04d4781a37e next stage penk parents: 3949 diff changeset	97	! !
c04d4781a37e next stage penk parents: 3949 diff changeset	98
3892 321c1729db5b initial checkin penk parents: diff changeset	99	!AbstractFileBrowser class methodsFor:'defaults'!
321c1729db5b initial checkin penk parents: diff changeset	100
321c1729db5b initial checkin penk parents: diff changeset	101	commandHistory
321c1729db5b initial checkin penk parents: diff changeset	102
321c1729db5b initial checkin penk parents: diff changeset	103	CommandHistory isNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	104	CommandHistory := OrderedCollection new.
3892 321c1729db5b initial checkin penk parents: diff changeset	105	].
321c1729db5b initial checkin penk parents: diff changeset	106	^ CommandHistory
321c1729db5b initial checkin penk parents: diff changeset	107	!
321c1729db5b initial checkin penk parents: diff changeset	108
321c1729db5b initial checkin penk parents: diff changeset	109	commandHistorySize
321c1729db5b initial checkin penk parents: diff changeset	110
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	111	"max no of entries in the HistoryList "
3892 321c1729db5b initial checkin penk parents: diff changeset	112	CommandHistorySize isNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	113	CommandHistorySize := 50
3892 321c1729db5b initial checkin penk parents: diff changeset	114	].
321c1729db5b initial checkin penk parents: diff changeset	115	^ CommandHistorySize
321c1729db5b initial checkin penk parents: diff changeset	116	!
321c1729db5b initial checkin penk parents: diff changeset	117
321c1729db5b initial checkin penk parents: diff changeset	118	defaultCommandPerMIME
321c1729db5b initial checkin penk parents: diff changeset	119
321c1729db5b initial checkin penk parents: diff changeset	120	DefaultCommandPerMIME isNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	121	self initializeDefaultCommands
3892 321c1729db5b initial checkin penk parents: diff changeset	122	].
321c1729db5b initial checkin penk parents: diff changeset	123	^ DefaultCommandPerMIME
321c1729db5b initial checkin penk parents: diff changeset	124	!
321c1729db5b initial checkin penk parents: diff changeset	125
321c1729db5b initial checkin penk parents: diff changeset	126	defaultFilterList
321c1729db5b initial checkin penk parents: diff changeset	127
321c1729db5b initial checkin penk parents: diff changeset	128	DefaultFilters isNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	129	DefaultFilters := #( '*'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	130	'*.st'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	131	'.htm'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	132	'*.txt'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	133	'*.gif'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	134	'*.xpm'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	135	'*.jpg'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	136	'.[h,c]'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	137	)
3892 321c1729db5b initial checkin penk parents: diff changeset	138	].
321c1729db5b initial checkin penk parents: diff changeset	139	^ DefaultFilters.
321c1729db5b initial checkin penk parents: diff changeset	140	!
321c1729db5b initial checkin penk parents: diff changeset	141
321c1729db5b initial checkin penk parents: diff changeset	142	directoryBookmarks
321c1729db5b initial checkin penk parents: diff changeset	143
321c1729db5b initial checkin penk parents: diff changeset	144	DirectoryBookmarks isNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	145	DirectoryBookmarks := OrderedCollection new.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	146	DirectoryBookmarks add:Filename homeDirectory asAbsoluteFilename.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	147	DirectoryBookmarks add:Filename tempDirectory.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	148	DirectoryBookmarks add:Filename currentDirectory asAbsoluteFilename.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	149	Smalltalk systemPath do:[:path \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	150	((path ~= '.') and:[path asFilename exists]) ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	151	DirectoryBookmarks add:path asFilename.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	152	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	153	]
3892 321c1729db5b initial checkin penk parents: diff changeset	154	].
321c1729db5b initial checkin penk parents: diff changeset	155	^ DirectoryBookmarks
321c1729db5b initial checkin penk parents: diff changeset	156
321c1729db5b initial checkin penk parents: diff changeset	157	"/ DirectoryBookmarks := nil
321c1729db5b initial checkin penk parents: diff changeset	158	!
321c1729db5b initial checkin penk parents: diff changeset	159
321c1729db5b initial checkin penk parents: diff changeset	160	initializeDefaultCommands
321c1729db5b initial checkin penk parents: diff changeset	161	DefaultCommandPerMIME := Dictionary new.
321c1729db5b initial checkin penk parents: diff changeset	162
321c1729db5b initial checkin penk parents: diff changeset	163	DefaultCommandPerMIME at:'application/x-tar-compressed' put:'gunzip < %1 \| tar tvf -'.
321c1729db5b initial checkin penk parents: diff changeset	164	DefaultCommandPerMIME at:'application/pdf' put:'acroread -display %2 %1'.
321c1729db5b initial checkin penk parents: diff changeset	165
321c1729db5b initial checkin penk parents: diff changeset	166	"
321c1729db5b initial checkin penk parents: diff changeset	167	self initializeDefaultCommands
321c1729db5b initial checkin penk parents: diff changeset	168	"
321c1729db5b initial checkin penk parents: diff changeset	169	!
321c1729db5b initial checkin penk parents: diff changeset	170
321c1729db5b initial checkin penk parents: diff changeset	171	listOfRuntimeValuesToRemark
321c1729db5b initial checkin penk parents: diff changeset	172
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	173	" list of all aspects that will be saved after close of FileBrowserV2"
3892 321c1729db5b initial checkin penk parents: diff changeset	174
321c1729db5b initial checkin penk parents: diff changeset	175	^ #(
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	176	#rootHolder
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	177	#filterModel
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	178	#enableFileHistory
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	179	#fileHistory
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	180	#currentFileNameHolder
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	181	#currentSortOrder
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	182	#sortBlockProperty
3892 321c1729db5b initial checkin penk parents: diff changeset	183	)
321c1729db5b initial checkin penk parents: diff changeset	184	!
321c1729db5b initial checkin penk parents: diff changeset	185
321c1729db5b initial checkin penk parents: diff changeset	186	resetAspects
321c1729db5b initial checkin penk parents: diff changeset	187
321c1729db5b initial checkin penk parents: diff changeset	188	RuntimeAspects := nil.
321c1729db5b initial checkin penk parents: diff changeset	189
321c1729db5b initial checkin penk parents: diff changeset	190	"
321c1729db5b initial checkin penk parents: diff changeset	191	self resetAspects
321c1729db5b initial checkin penk parents: diff changeset	192	"
321c1729db5b initial checkin penk parents: diff changeset	193	!
321c1729db5b initial checkin penk parents: diff changeset	194
321c1729db5b initial checkin penk parents: diff changeset	195	runtimeAspects
321c1729db5b initial checkin penk parents: diff changeset	196
321c1729db5b initial checkin penk parents: diff changeset	197	RuntimeAspects isNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	198	RuntimeAspects := Dictionary new.
3892 321c1729db5b initial checkin penk parents: diff changeset	199	].
321c1729db5b initial checkin penk parents: diff changeset	200	^ RuntimeAspects
321c1729db5b initial checkin penk parents: diff changeset	201	!
321c1729db5b initial checkin penk parents: diff changeset	202
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	203	userPreferencesAspectList
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	204
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	205	" list of all aspects that will be saved with save settings
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	206	that aspects will be image consistent if the settings are saved in Launcher
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	207	dont forget to add a access methos in Userpreferences if you add a aspect here
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	208	"
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	209
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	210	^ #(
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	211	#viewDirsInContentsBrowser
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	212	#showDirectoryTree
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	213	#showHiddenFiles
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	214	#viewDescription
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	215	#viewDetails
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	216	#viewDirectoryDescription
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	217	#viewFilesInDirectoryTree
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	218	#viewGroup
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	219	#viewOwner
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	220	#viewPermissions
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	221	#viewPreview
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	222	#viewSize
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	223	#viewTime
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	224	#viewType
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	225	#openMultipleApplicationsForType
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	226	#filenameEntryFieldVisibleHolder
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	227	#toolBarVisibleHolder
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	228	#sortDirectoriesBeforeFiles
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	229	#openAlwaysInTextEditor
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	230	#sortCaseless
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	231	)
3892 321c1729db5b initial checkin penk parents: diff changeset	232	! !
321c1729db5b initial checkin penk parents: diff changeset	233
321c1729db5b initial checkin penk parents: diff changeset	234	!AbstractFileBrowser class methodsFor:'image'!
321c1729db5b initial checkin penk parents: diff changeset	235
321c1729db5b initial checkin penk parents: diff changeset	236	DisabledCursorImage
321c1729db5b initial checkin penk parents: diff changeset	237
321c1729db5b initial checkin penk parents: diff changeset	238	DisabledCursorImage isNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	239	DisabledCursorImage := Image fromFile:'xpmBitmaps/cursors/no_entry.xpm'
3892 321c1729db5b initial checkin penk parents: diff changeset	240	].
321c1729db5b initial checkin penk parents: diff changeset	241	^ DisabledCursorImage
321c1729db5b initial checkin penk parents: diff changeset	242	!
321c1729db5b initial checkin penk parents: diff changeset	243
321c1729db5b initial checkin penk parents: diff changeset	244	EnabledCursorImage
321c1729db5b initial checkin penk parents: diff changeset	245
321c1729db5b initial checkin penk parents: diff changeset	246	EnabledCursorImage isNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	247	EnabledCursorImage := Image fromFile:'xpmBitmaps/cursors/double_crossHair.xpm'
3892 321c1729db5b initial checkin penk parents: diff changeset	248	].
321c1729db5b initial checkin penk parents: diff changeset	249	^ EnabledCursorImage
321c1729db5b initial checkin penk parents: diff changeset	250	! !
321c1729db5b initial checkin penk parents: diff changeset	251
321c1729db5b initial checkin penk parents: diff changeset	252	!AbstractFileBrowser class methodsFor:'image specs'!
321c1729db5b initial checkin penk parents: diff changeset	253
321c1729db5b initial checkin penk parents: diff changeset	254	clearHistoryIcon
321c1729db5b initial checkin penk parents: diff changeset	255	^ Icon deleteIcon
321c1729db5b initial checkin penk parents: diff changeset	256	!
321c1729db5b initial checkin penk parents: diff changeset	257
321c1729db5b initial checkin penk parents: diff changeset	258	closeIcon
321c1729db5b initial checkin penk parents: diff changeset	259	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	260	by the ImageEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	261
321c1729db5b initial checkin penk parents: diff changeset	262	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	263	the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	264
321c1729db5b initial checkin penk parents: diff changeset	265	"
321c1729db5b initial checkin penk parents: diff changeset	266	self closeIcon inspect
321c1729db5b initial checkin penk parents: diff changeset	267	ImageEditor openOnClass:self andSelector:#closeIcon
321c1729db5b initial checkin penk parents: diff changeset	268	"
321c1729db5b initial checkin penk parents: diff changeset	269
321c1729db5b initial checkin penk parents: diff changeset	270	<resource: #image>
321c1729db5b initial checkin penk parents: diff changeset	271
321c1729db5b initial checkin penk parents: diff changeset	272	^Icon
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	273	constantNamed:#'AbstractFileBrowser class closeIcon'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	274	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892 321c1729db5b initial checkin penk parents: diff changeset	275	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ H@@@@@@@@@@@@B@ @@@@@@@@@@@@HB@ @@@@@@@@@B@ H@@@@@@@@@@@@@@ HB@@@@@@@B@ H@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	276	@@@@@@@B@ H@@@@B@ H@@@@@@@@@@@@@@@@@@@HB@ @B@ H@@@@@@@@@@@@@@@@@@@@@@ HB@ H@@@@@@@@@@@@@@@@@@@@@@@@B@ H@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	277	@@@@@@@B@ HB@ @@@@@@@@@@@@@@@@@@@@@B@ H@@ HB@@@@@@@@@@@@@@@@@@@B@ H@@@@B@ H@@@@@@@@A@@@@@@@B@ H@@@@@@@HB@ @@@@@@@@@@@@@B
321c1729db5b initial checkin penk parents: diff changeset	278	@ H@@@@@@@@@@ HB@@@@@@@@@@@@@ H@@@@@@@@@@@@B@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@PD@@P@@
321c1729db5b initial checkin penk parents: diff changeset	279	@@DA@@@@@PD@@@DA@@@@@P@@@@D@@@D@@@D@@P@@@@D@@@D@@@D@@@@A@@@A@@@A@@@A@@@A@PDA@@@A@@@@@P@@@P@@@P@@@@D@@P@@@@@@@@DA@@DA@@@A
321c1729db5b initial checkin penk parents: diff changeset	280	@P@@@PD@@@@A@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[255 255 255 0 0 0 255 0 0]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@A C@A0G@@8N@@\\@@N8@@G0@@C @@G0@@N8@@\\B@8N@A0G@A C@@@@@A@@@MFL0QIQHQII8QIE@M&X0@@@@') ; yourself); yourself]
321c1729db5b initial checkin penk parents: diff changeset	281	!
321c1729db5b initial checkin penk parents: diff changeset	282
321c1729db5b initial checkin penk parents: diff changeset	283	copyIcon
321c1729db5b initial checkin penk parents: diff changeset	284	<resource: #programImage>
321c1729db5b initial checkin penk parents: diff changeset	285
321c1729db5b initial checkin penk parents: diff changeset	286	^ ToolbarIconLibrary copy20x20Icon "copy28x28Icon"
321c1729db5b initial checkin penk parents: diff changeset	287	!
321c1729db5b initial checkin penk parents: diff changeset	288
321c1729db5b initial checkin penk parents: diff changeset	289	cutIcon
321c1729db5b initial checkin penk parents: diff changeset	290	<resource: #programImage>
321c1729db5b initial checkin penk parents: diff changeset	291
321c1729db5b initial checkin penk parents: diff changeset	292	^ ToolbarIconLibrary cut20x20Icon2 "cut28x28Icon"
321c1729db5b initial checkin penk parents: diff changeset	293	!
321c1729db5b initial checkin penk parents: diff changeset	294
321c1729db5b initial checkin penk parents: diff changeset	295	deleteIcon
321c1729db5b initial checkin penk parents: diff changeset	296	<resource: #programImage>
321c1729db5b initial checkin penk parents: diff changeset	297
321c1729db5b initial checkin penk parents: diff changeset	298	^ ToolbarIconLibrary erase20x20Icon "/ delete28x28Icon
321c1729db5b initial checkin penk parents: diff changeset	299	!
321c1729db5b initial checkin penk parents: diff changeset	300
321c1729db5b initial checkin penk parents: diff changeset	301	diffIcon
321c1729db5b initial checkin penk parents: diff changeset	302	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	303	by the ImageEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	304
321c1729db5b initial checkin penk parents: diff changeset	305	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	306	the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	307
321c1729db5b initial checkin penk parents: diff changeset	308	"
321c1729db5b initial checkin penk parents: diff changeset	309	self diffIcon inspect
321c1729db5b initial checkin penk parents: diff changeset	310	ImageEditor openOnClass:self andSelector:#diffIcon
321c1729db5b initial checkin penk parents: diff changeset	311	"
321c1729db5b initial checkin penk parents: diff changeset	312
321c1729db5b initial checkin penk parents: diff changeset	313	<resource: #image>
321c1729db5b initial checkin penk parents: diff changeset	314
321c1729db5b initial checkin penk parents: diff changeset	315	^Icon
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	316	constantNamed:#'AbstractFileBrowser class diffIcon'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	317	ifAbsentPut:[(Depth8Image new) width: 26; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892 321c1729db5b initial checkin penk parents: diff changeset	318	@@@@@@@@A@PDA@PDA@PD@@@@@@@@@@@@@@@@@@@@@@@DA XFA XFA P@@@@@@@@@@@@@@@@@@@@@@@PFA XF@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@XFA @F
321c1729db5b initial checkin penk parents: diff changeset	319	A XD@@@@@@@@@@@@@@@@@@@@@@@DA X@A XFA P@@@@@@@@@@@@@@@@@@@@@@@PFA @FA XFA@@@@@@@@@@@@@@@@@@@@@@@A@XF@@XFA XD@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	320	@@@@@@@@@@@DA X@A XFA P@@@@@@@@@@@@@@@@@@@@@@@PFA X@A XFA@@@@@@@@@@@@@@@@@@@@@@@A@XFA X@@@@@@@@@@@@@@@@@@@@@@@@@@@@DA XF
321c1729db5b initial checkin penk parents: diff changeset	321	A XFA P@@@@@@@@@@@@@@@@@@@@@@@PFA XFA XFA@@@@@@@@@@@@@@@@@@@@@@@A@PDA@PDA@PD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	322	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	323	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	324	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 129 129 129 0 0 0 194 194 194 132 132 132 198 198 198 255 255 255]; mask:((Depth1Image new) width: 26; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@?8@@@O>@@@C? @@@?<@@@O> @@C?(@@@?:@@@O> @@C?8@@@??@@@O>8@@C?''@@@?80@@@@@@@@T[@@@DI@@@GSX@@BT$@@@%I@@@IRP@@A4$@@@@@@@@@@a') ; yourself); yourself]
321c1729db5b initial checkin penk parents: diff changeset	325	!
321c1729db5b initial checkin penk parents: diff changeset	326
321c1729db5b initial checkin penk parents: diff changeset	327	fileInIcon
321c1729db5b initial checkin penk parents: diff changeset	328	<resource: #programImage>
321c1729db5b initial checkin penk parents: diff changeset	329
4094 aa3dbbfe7ea4 icons Claus Gittinger <cg@exept.de> parents: 4093 diff changeset	330	^ ToolbarIconLibrary fileIn20x20Icon3
3892 321c1729db5b initial checkin penk parents: diff changeset	331	!
321c1729db5b initial checkin penk parents: diff changeset	332
321c1729db5b initial checkin penk parents: diff changeset	333	goHomeIcon
321c1729db5b initial checkin penk parents: diff changeset	334	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	335	by the ImageEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	336
321c1729db5b initial checkin penk parents: diff changeset	337	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	338	the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	339
321c1729db5b initial checkin penk parents: diff changeset	340	"
321c1729db5b initial checkin penk parents: diff changeset	341	self goHomeIcon inspect
321c1729db5b initial checkin penk parents: diff changeset	342	ImageEditor openOnClass:self andSelector:#goHomeIcon
4084 cac21759ab0e reduce colors for buttons penk parents: 4080 diff changeset	343	Icon flushCachedIcons
3892 321c1729db5b initial checkin penk parents: diff changeset	344	"
321c1729db5b initial checkin penk parents: diff changeset	345
321c1729db5b initial checkin penk parents: diff changeset	346	<resource: #image>
321c1729db5b initial checkin penk parents: diff changeset	347
321c1729db5b initial checkin penk parents: diff changeset	348	^Icon
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	349	constantNamed:#'AbstractFileBrowser class goHomeIcon'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	350	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4093 ada0669d06bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	351	@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@DQ@@@@@@@@@@@@DQDP@@@@@@@@@@DQ@QD@@@@@@@@@DQH2DQ@@@@@@@@DQH4L!!DP@@@@@@DQH4QCHQD@@@@@
ada0669d06bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	352	DQH4QDP2DQ@@@@DQH4QDQDL!!DP@@DQH4QDQDQCHQD@D"H4QBH"ADP0@A@RH#QBH"H QC@@D@@@MDIUUUADL@@@@@@4P%UUTDP0@@@@@CQBUUUPQC@@@@@@MD
ada0669d06bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	353	IUUUADL@@@@@@4P%UUTDP0@@@@@CQBUUUPQC@@@@@@MDIUUUADL@@@@@@4P%UUTDP0@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 192 0 0 64 0 0 128 128 128 192 192 192 100 128 255]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@A@@@C @A''0@A/8@A?<@A?>@A??@C?? G??0O??8_??<_??<_??<C?? C?? C?? C?? C?? C?? C?? C?? C?? ') ; yourself); yourself]
3892 321c1729db5b initial checkin penk parents: diff changeset	354	!
321c1729db5b initial checkin penk parents: diff changeset	355
321c1729db5b initial checkin penk parents: diff changeset	356	hexToggle22x22Icon
321c1729db5b initial checkin penk parents: diff changeset	357	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	358	by the ImageEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	359
321c1729db5b initial checkin penk parents: diff changeset	360	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	361	the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	362
321c1729db5b initial checkin penk parents: diff changeset	363	"
321c1729db5b initial checkin penk parents: diff changeset	364	self hexToggle22x22Icon inspect
321c1729db5b initial checkin penk parents: diff changeset	365	ImageEditor openOnClass:self andSelector:#hexToggle22x22Icon
321c1729db5b initial checkin penk parents: diff changeset	366	"
321c1729db5b initial checkin penk parents: diff changeset	367
321c1729db5b initial checkin penk parents: diff changeset	368	<resource: #image>
321c1729db5b initial checkin penk parents: diff changeset	369
321c1729db5b initial checkin penk parents: diff changeset	370	^Icon
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	371	constantNamed:#'AbstractFileBrowser class hexToggle22x22Icon'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	372	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892 321c1729db5b initial checkin penk parents: diff changeset	373	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EAPTEAPTEAPTE@@@@@@@@@@@@@@@@AP@@@@T@@@@EAP@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	374	@@@@@@TEAP@E@@TEAPT@@@@@@@@@@@@@@@@EAP@@AP@@APTE@@@@@@@@@@@@@@@@APTE@@T@APTEAP@@@@@@@@@@@@@@@@T@@@@E@@TEAPT@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	375	@@@EAPTEAPTEAPTE@@@@@@@@@@@@@@@@AP@@@@T@@@@EAP@@@@@@@@@@@@@@@@T@AP@E@@T@APT@@@@@@@@@@@@@@@@E@@@@AP@@@@TE@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	376	AP@E@@T@AP@EAP@@@@@@@@@@@@@@@@T@AP@E@@@@APT@@@@@@@@@@@@@@@@EAPTEAPTEAPTE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	377	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	378	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 105 133 190 129 129 129 194 194 194 255 0 0 255 255 255]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@A?>@A?>@A?>@A?>@A?>@A?>@A?>@A?>@A?>@A?>@A?>@A?>@A?>@A?>@A?>@@@@@B''Q@B$J@C&D@B$J@B''Q@') ; yourself); yourself]
321c1729db5b initial checkin penk parents: diff changeset	379	!
321c1729db5b initial checkin penk parents: diff changeset	380
321c1729db5b initial checkin penk parents: diff changeset	381	historyIcon
321c1729db5b initial checkin penk parents: diff changeset	382	<resource: #programImage>
321c1729db5b initial checkin penk parents: diff changeset	383
321c1729db5b initial checkin penk parents: diff changeset	384	^ ToolbarIconLibrary history20x20Icon "/ history28x28Icon
321c1729db5b initial checkin penk parents: diff changeset	385	!
321c1729db5b initial checkin penk parents: diff changeset	386
321c1729db5b initial checkin penk parents: diff changeset	387	homeIcon
321c1729db5b initial checkin penk parents: diff changeset	388	<resource: #programImage>
321c1729db5b initial checkin penk parents: diff changeset	389
321c1729db5b initial checkin penk parents: diff changeset	390	^ ToolbarIconLibrary home28x28Icon
321c1729db5b initial checkin penk parents: diff changeset	391	!
321c1729db5b initial checkin penk parents: diff changeset	392
321c1729db5b initial checkin penk parents: diff changeset	393	htmlReloadIcon
321c1729db5b initial checkin penk parents: diff changeset	394	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	395	by the ImageEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	396
321c1729db5b initial checkin penk parents: diff changeset	397	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	398	the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	399
321c1729db5b initial checkin penk parents: diff changeset	400	"
321c1729db5b initial checkin penk parents: diff changeset	401	self htmlReloadIcon inspect
321c1729db5b initial checkin penk parents: diff changeset	402	ImageEditor openOnClass:self andSelector:#htmlReloadIcon
321c1729db5b initial checkin penk parents: diff changeset	403	"
321c1729db5b initial checkin penk parents: diff changeset	404
321c1729db5b initial checkin penk parents: diff changeset	405	<resource: #image>
321c1729db5b initial checkin penk parents: diff changeset	406
321c1729db5b initial checkin penk parents: diff changeset	407	^Icon
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	408	constantNamed:#'AbstractFileBrowser class htmlReloadIcon'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	409	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892 321c1729db5b initial checkin penk parents: diff changeset	410	@@@@@@@@@@@UT@@@@@EU@D@@@@UT@@@H@AUP@@@@@EU@@@@@@EU@@@@E@EU@@@@@@EU@@@@@AUUT@@@@@UUP@@@@@EU@@@@@@AT@@@@@@@P@@@@H@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	411	@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@G@@@@@@@J@@@@@@@I@@@@@@@@') ; colorMapFromArray:#[0 0 0 0 129 0]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@G<C@_?C@??#A?C3C>@;G<@KG<@CG<@C??$C_?NCO>_CG<?#C9?3A3?;@''??@@?#P@?C\A?COC>CG?<CC?8C@? C') ; yourself); yourself]
321c1729db5b initial checkin penk parents: diff changeset	412	!
321c1729db5b initial checkin penk parents: diff changeset	413
321c1729db5b initial checkin penk parents: diff changeset	414	leftArrow
321c1729db5b initial checkin penk parents: diff changeset	415	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	416	by the ImageEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	417
321c1729db5b initial checkin penk parents: diff changeset	418	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	419	the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	420
321c1729db5b initial checkin penk parents: diff changeset	421	"
321c1729db5b initial checkin penk parents: diff changeset	422	self leftArrow inspect
321c1729db5b initial checkin penk parents: diff changeset	423	ImageEditor openOnClass:self andSelector:#leftArrow
321c1729db5b initial checkin penk parents: diff changeset	424	"
321c1729db5b initial checkin penk parents: diff changeset	425
321c1729db5b initial checkin penk parents: diff changeset	426	<resource: #image>
321c1729db5b initial checkin penk parents: diff changeset	427
321c1729db5b initial checkin penk parents: diff changeset	428	^Icon
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	429	constantNamed:#'AbstractFileBrowser class leftArrow'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	430	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892 321c1729db5b initial checkin penk parents: diff changeset	431	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	432	@@@@@@@@@@@@@@@@@@@A@0D@@@@@@@@@@@@@@@@@@@@@@@@@@@DDAPH@@@@@@@@@@@@@@@@@@@@@@@@@@PX@A0D@@@@@@@@@@@@@@@@@@@@@@@@AB@@IB HK
321c1729db5b initial checkin penk parents: diff changeset	433	@0LA@PDK@@@@@@@@@@@@@@DL@@@MC <P@@@@DPLR@@@@@@@@@@@@@PX@@ALTEP8PDQDVE0\R@@@@@@@@@@@AAADQD1PUEQTNF@$SFP(R@@@@@@@@@@@KB!!P[
321c1729db5b initial checkin penk parents: diff changeset	434	GAPUEQT]GQ4]GP(R@@@@@@@@@@@@D (TG!!0TEA,_G1<[H@(R@@@@@@@@@@@@@AHJC!!< GQ4JB (JB"DK@@@@@@@@@@@@@@@RB 8^B DRD!!HRD!!HK@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	435	@@@@@@@@D (]H H@@@@@@@@@@@@@@@@@@@@@@@@@@AHJHPD@@@@@@@@@@@@@@@@@@@@@@@@@@@@K@PH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B0D@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	436	@@@@@@@@@@@@@@@@@@@@@@,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	437	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[224 224 224 0 32 64 0 32 96 32 64 96 96 128 160 64 96 128 128 160 192 32 96 128 128 160 160 160 192 224 0 96 128 0 0 0 128 128 160 64 192 192 32 160 192 64 128 192 128 192 224 192 224 224 0 0 32 96 192 224 0 160 192 0 128 192 160 224 224 96 160 192 128 192 192 64 160 192 192 192 192 32 192 192 0 192 224 0 128 160 32 192 224 64 192 224 0 192 192 0 64 96 0 64 128]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@B@@@F@@@N@@@^@@@>@@A??@C??@G??@O??@O??@G??@C??@A??@@>@@@^@@@N@@@F@@@B@@@@@@@@@@@@@@@@@@') ; yourself); yourself]
321c1729db5b initial checkin penk parents: diff changeset	438	!
321c1729db5b initial checkin penk parents: diff changeset	439
321c1729db5b initial checkin penk parents: diff changeset	440	leftArrow20x20Icon
321c1729db5b initial checkin penk parents: diff changeset	441	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	442	by the ImageEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	443
321c1729db5b initial checkin penk parents: diff changeset	444	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	445	the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	446
321c1729db5b initial checkin penk parents: diff changeset	447	"
321c1729db5b initial checkin penk parents: diff changeset	448	self leftArrow20x20Icon inspect
321c1729db5b initial checkin penk parents: diff changeset	449	ImageEditor openOnClass:self andSelector:#leftArrow20x20Icon
321c1729db5b initial checkin penk parents: diff changeset	450	Icon flushCachedIcons
321c1729db5b initial checkin penk parents: diff changeset	451	"
321c1729db5b initial checkin penk parents: diff changeset	452
321c1729db5b initial checkin penk parents: diff changeset	453	<resource: #image>
321c1729db5b initial checkin penk parents: diff changeset	454
321c1729db5b initial checkin penk parents: diff changeset	455	^Icon
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	456	constantNamed:#'AbstractFileBrowser class leftArrow20x20Icon'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	457	ifAbsentPut:[(Depth8Image new) width: 20; height: 20; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4093 ada0669d06bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	458	@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@@HB@ HB@ HB@ HB@ HB@ HB@ @@@ HB@ HB@ HB@ HB@ HB@ H@@ @B@ HB@ HB@ HB@ HB@ HB@@HA
ada0669d06bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	459	@@HB@ HB@ HB@ HB@ HB@ @B@PD@@ HB@ HB@ HB@ HB@ H@@ DA@P@@@@@@@@@@@ HB@ HB@@HA@PDA@ HB@ HB@ @B@ HB@ @B@PDA@PDA@PDA@PDB@@HB
ada0669d06bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	460	@ H@@ DA@PDA@PDA@PDA@PH@@ HB@ @B@PDA@PDA@PDA@PDA@ @B@ HB@ @B@PDA@PDA@PDA@PDB@@HB@ HB@ @B@PDA@PHB@ HB@ H@@ HB@ HB@ @B@PDA
ada0669d06bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	461	@@@@@@@@@@@B@ HB@ HB@ @B@PD@@ HB@ HB@ HB@ HB@ HB@ @B@P@B@ HB@ HB@ HB@ HB@ HB@ @B@@HB@ HB@ HB@ HB@ HB@ HB@ @@@ HB@ HB@ HB
ada0669d06bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	462	@ HB@ HB@ HB@ @B@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ @a') ; colorMapFromArray:#[0 0 0 100 128 255 128 128 128]; mask:((Depth1Image new) width: 20; height: 20; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@M@B@@@F@J@N@@@^@J@>@@A??@C??@G??OO??@O??@G??@C??@A??E@>@H@^@@@N@@@F@N@B@A@@@@') ; yourself); yourself]
3892 321c1729db5b initial checkin penk parents: diff changeset	463	!
321c1729db5b initial checkin penk parents: diff changeset	464
321c1729db5b initial checkin penk parents: diff changeset	465	leftArrow20x20PlusMenuIcon
321c1729db5b initial checkin penk parents: diff changeset	466	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	467	by the ImageEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	468
321c1729db5b initial checkin penk parents: diff changeset	469	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	470	the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	471
321c1729db5b initial checkin penk parents: diff changeset	472	"
321c1729db5b initial checkin penk parents: diff changeset	473	self leftArrow20x20PlusMenuIcon inspect
321c1729db5b initial checkin penk parents: diff changeset	474	ImageEditor openOnClass:self andSelector:#leftArrow20x20PlusMenuIcon
321c1729db5b initial checkin penk parents: diff changeset	475	Icon flushCachedIcons
321c1729db5b initial checkin penk parents: diff changeset	476	"
321c1729db5b initial checkin penk parents: diff changeset	477
321c1729db5b initial checkin penk parents: diff changeset	478	<resource: #image>
321c1729db5b initial checkin penk parents: diff changeset	479
321c1729db5b initial checkin penk parents: diff changeset	480	^Icon
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	481	constantNamed:#'AbstractFileBrowser class leftArrow20x20PlusMenuIcon'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	482	ifAbsentPut:[(Depth8Image new) width: 20; height: 20; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892 321c1729db5b initial checkin penk parents: diff changeset	483	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@A@ @@@@@@@@@@@@@@@@@@@@@@@PLA@@@@@@@@@@@@@@@@@@@@@@DD
321c1729db5b initial checkin penk parents: diff changeset	484	APH@@@@@@@@@@@@@@@@@@@@AA @G@P@@@@@@@@@@@@@@@@@@@P @BP(BB0LC@PDAB0@@@@@@@@DL@@@MC <P@@@@DPLR@@@@@@@AA @@D1PUC!!@QDQXWA1H@
321c1729db5b initial checkin penk parents: diff changeset	485	@@@@@PPQDQLTEQTUC!! ID1$JD @@@@@KB!!P[GAPUEQT]GQ4]GP(R@@@@@@@RB!!P^GAPTF1<_G1, B!!H@@@@@@@@RB 8_HA4]B (JB (!!B0@@@@@@@@@RB 8^
321c1729db5b initial checkin penk parents: diff changeset	486	B DRD!!HRD!!HK@@@@@@@@@@@RB!!4"@ @@@@@@@@@@@@@@@@@@@@@RB"DA@@@@@@@@@@@KB0,KB0,K@@@K@PH@@@@@@@@@@@@KB0,KB0@@@@@K@P@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	487	@@@KB0,@@@@@@@@K@@@@@@@@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[224 224 224 0 32 64 0 32 96 32 64 96 96 128 160 64 96 128 128 160 192 32 96 128 128 160 160 160 192 224 0 96 128 0 0 0 128 128 160 64 192 192 32 160 192 64 128 192 128 192 224 192 224 224 0 0 32 96 192 224 0 160 192 0 128 192 160 224 224 96 160 192 128 192 192 64 160 192 192 192 192 32 192 192 0 192 224 0 128 160 32 192 224 64 192 224 0 192 192 0 64 96 0 64 128]; mask:((Depth1Image new) width: 20; height: 20; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@A@@@C@@@G@@@O@@@_@@@?? A?? C?? G?? G?? C?? A?? @?? @_@@@O@@?''@@_C@@NA@@D@@@') ; yourself); yourself]
321c1729db5b initial checkin penk parents: diff changeset	488	!
321c1729db5b initial checkin penk parents: diff changeset	489
4094 aa3dbbfe7ea4 icons Claus Gittinger <cg@exept.de> parents: 4093 diff changeset	490	leftArrowIcon
aa3dbbfe7ea4 icons Claus Gittinger <cg@exept.de> parents: 4093 diff changeset	491	^ self leftArrow20x20Icon
aa3dbbfe7ea4 icons Claus Gittinger <cg@exept.de> parents: 4093 diff changeset	492	!
aa3dbbfe7ea4 icons Claus Gittinger <cg@exept.de> parents: 4093 diff changeset	493
3892 321c1729db5b initial checkin penk parents: diff changeset	494	leftArrowPlusMenu
321c1729db5b initial checkin penk parents: diff changeset	495	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	496	by the ImageEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	497
321c1729db5b initial checkin penk parents: diff changeset	498	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	499	the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	500
321c1729db5b initial checkin penk parents: diff changeset	501	"
321c1729db5b initial checkin penk parents: diff changeset	502	self leftArrowPlusMenu inspect
321c1729db5b initial checkin penk parents: diff changeset	503	ImageEditor openOnClass:self andSelector:#leftArrowPlusMenu
321c1729db5b initial checkin penk parents: diff changeset	504	"
321c1729db5b initial checkin penk parents: diff changeset	505
321c1729db5b initial checkin penk parents: diff changeset	506	<resource: #image>
321c1729db5b initial checkin penk parents: diff changeset	507
321c1729db5b initial checkin penk parents: diff changeset	508	^Icon
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	509	constantNamed:#'AbstractFileBrowser class leftArrowPlusMenu'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	510	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892 321c1729db5b initial checkin penk parents: diff changeset	511	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	512	@@@@@@@@@@@@@@@@@@@A@0D@@@@@@@@@@@@@@@@@@@@@@@@@@@DDAPH@@@@@@@@@@@@@@@@@@@@@@@@@@PX@A0D@@@@@@@@@@@@@@@@@@@@@@@@AB@@IB HK
321c1729db5b initial checkin penk parents: diff changeset	513	@0LA@PDK@@@@@@@@@@@@@@DL@@@MC <P@@@@DPLR@@@@@@@@@@@@@PX@@ALTEP8PDQDVE0\R@@@@@@@@@@@AAADQD1PUEQTNF@$SFP(R@@@@@@@@@@@KB!!P[
321c1729db5b initial checkin penk parents: diff changeset	514	GAPUEQT]GQ4]GP(R@@@@@@@@@@@@D (TG!!0TEA,_G1<[H@(R@@@@@@@@@@@@@AHJC!!< GQ4JB (JB"DK@@@@@@@@@@@@@@@RB 8^B DRD!!HRD!!HK@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	515	@@@@@@@@D (]H H@@@@@@@@@@@@@@@@@@@@@@@@@@AHJHPD@@@@@@@@@@@@@@@@@@@@@@@@@@@@K@PH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B0D@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	516	@@@@@@@@@@@@@@@@@@@@@@,@@@@@@@@KB0,KB0,K@@@@@@@@@@@@@@@@@@@@@@@@B0,KB0,@@@@@@@@@@@@@@@@@@@@@@@@@@@,KB0@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	517	@@@@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[224 224 224 0 32 64 0 32 96 32 64 96 96 128 160 64 96 128 128 160 192 32 96 128 128 160 160 160 192 224 0 96 128 0 0 0 128 128 160 64 192 192 32 160 192 64 128 192 128 192 224 192 224 224 0 0 32 96 192 224 0 160 192 0 128 192 160 224 224 96 160 192 128 192 192 64 160 192 192 192 192 32 192 192 0 192 224 0 128 160 32 192 224 64 192 224 0 192 192 0 64 96 0 64 128]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@B@@@F@@@N@@@^@@@>@@A??@C??@G??@O??@O??@G??@C??@A??@@>@@@^@@@N@@@F@@@BA?@@@>@@@\@@@H@@@@') ; yourself); yourself]
321c1729db5b initial checkin penk parents: diff changeset	518	!
321c1729db5b initial checkin penk parents: diff changeset	519
321c1729db5b initial checkin penk parents: diff changeset	520	leftDownIcon
321c1729db5b initial checkin penk parents: diff changeset	521	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	522	by the ImageEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	523
321c1729db5b initial checkin penk parents: diff changeset	524	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	525	the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	526
321c1729db5b initial checkin penk parents: diff changeset	527	"
321c1729db5b initial checkin penk parents: diff changeset	528	self leftDownIcon inspect
321c1729db5b initial checkin penk parents: diff changeset	529	ImageEditor openOnClass:self andSelector:#leftDownIcon
321c1729db5b initial checkin penk parents: diff changeset	530	"
321c1729db5b initial checkin penk parents: diff changeset	531
321c1729db5b initial checkin penk parents: diff changeset	532	<resource: #image>
321c1729db5b initial checkin penk parents: diff changeset	533
321c1729db5b initial checkin penk parents: diff changeset	534	^Icon
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	535	constantNamed:#'AbstractFileBrowser class leftDownIcon'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	536	ifAbsentPut:[(Depth2Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892 321c1729db5b initial checkin penk parents: diff changeset	537	UUUUUUUUUUUPAUUUUUUUP@UUUUUUUPB!!UUUUUU@BAUUUUU@B(UUUUUPB UUUUPBAUUUTB(EUUUB%UUUR**UUUUU@%UUUUUUPJ)UUUU
321c1729db5b initial checkin penk parents: diff changeset	538	UUTBUUUUUUU@%UUUUUUPJ)UUUUUUTBUUUUUUU@%UUUUUUPJ)UUUUUUTBUUUUUUU@$@@@@AUPJ***)UTB**UU@**%UPJ***)UTAUUUU
321c1729db5b initial checkin penk parents: diff changeset	539	UUUU@@@@@@@AUUUUUUUUUP@a') ; colorMapFromArray:#[255 255 255 0 0 0 40 40 100 255 0 0]; mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
321c1729db5b initial checkin penk parents: diff changeset	540	@@@@@@@@@@@@ @@@@\@@@@O @@@G<@@@C? @@A?<@@@?? @@_?<@@G?? @@C<@@@@?@@@@O0@@@C<@@@@?@@@@O0@@@C<@@@@?@@@@O0@@@C??? @???8@O?
321c1729db5b initial checkin penk parents: diff changeset	541	?>@C??? @???8@O??>@@@@@@@@@@@@@a') ; yourself); yourself]
321c1729db5b initial checkin penk parents: diff changeset	542	!
321c1729db5b initial checkin penk parents: diff changeset	543
321c1729db5b initial checkin penk parents: diff changeset	544	leftIcon
321c1729db5b initial checkin penk parents: diff changeset	545	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	546	by the ImageEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	547
321c1729db5b initial checkin penk parents: diff changeset	548	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	549	the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	550
321c1729db5b initial checkin penk parents: diff changeset	551	"
321c1729db5b initial checkin penk parents: diff changeset	552	self leftIcon inspect
321c1729db5b initial checkin penk parents: diff changeset	553	ImageEditor openOnClass:self andSelector:#leftIcon
321c1729db5b initial checkin penk parents: diff changeset	554	"
321c1729db5b initial checkin penk parents: diff changeset	555
321c1729db5b initial checkin penk parents: diff changeset	556	<resource: #image>
321c1729db5b initial checkin penk parents: diff changeset	557
321c1729db5b initial checkin penk parents: diff changeset	558	^Icon
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	559	constantNamed:#'AbstractFileBrowser class leftIcon'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	560	ifAbsentPut:[(Depth2Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892 321c1729db5b initial checkin penk parents: diff changeset	561	UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUPUUUUUUUUPUUUUUUUUP%UUUUUUUP)UUUUUUUPP@@@@@AP$@@@@@@P*******
321c1729db5b initial checkin penk parents: diff changeset	562	P*****$****)J****U*****%V%UUUUUUUZ)UUUUUUUP*UUUUUUUUV%UUUUUUUUYUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
321c1729db5b initial checkin penk parents: diff changeset	563	UUUUUUUUUUUUUUUUUUUUUP@a') ; colorMapFromArray:#[255 255 255 0 0 0 40 40 100 255 0 0]; mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
321c1729db5b initial checkin penk parents: diff changeset	564	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@F@@@@C @@@A8@@@@>@@@@_???0O???<G????C????0_???<C????@_???0C8@@@@^@@@@C @@@@X@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	565	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
321c1729db5b initial checkin penk parents: diff changeset	566	!
321c1729db5b initial checkin penk parents: diff changeset	567
321c1729db5b initial checkin penk parents: diff changeset	568	menuHistoryList9x20Icon
321c1729db5b initial checkin penk parents: diff changeset	569	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	570	by the ImageEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	571
321c1729db5b initial checkin penk parents: diff changeset	572	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	573	the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	574
321c1729db5b initial checkin penk parents: diff changeset	575	"
321c1729db5b initial checkin penk parents: diff changeset	576	self menuHistoryList9x20Icon inspect
321c1729db5b initial checkin penk parents: diff changeset	577	ImageEditor openOnClass:self andSelector:#menuHistoryList9x20Icon
321c1729db5b initial checkin penk parents: diff changeset	578	Icon flushCachedIcons
321c1729db5b initial checkin penk parents: diff changeset	579	"
321c1729db5b initial checkin penk parents: diff changeset	580
321c1729db5b initial checkin penk parents: diff changeset	581	<resource: #image>
321c1729db5b initial checkin penk parents: diff changeset	582
321c1729db5b initial checkin penk parents: diff changeset	583	^Icon
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	584	constantNamed:#'AbstractFileBrowser class menuHistoryList9x20Icon'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	585	ifAbsentPut:[(Depth1Image new) width: 9; height: 20; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@A0@G@@\@A0@G@@\@A0@G@@\@A0@G@A?@C8@G@@H@G<@@@@@@@@a') ; colorMapFromArray:#[255 255 255 0 0 0]; mask:((Depth1Image new) width: 9; height: 20; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@A0@G@@\@A0@G@@\@A0@G@@\@A0@G@A?@C8@G@@H@G<@@@@@@@@a') ; yourself); yourself]
3892 321c1729db5b initial checkin penk parents: diff changeset	586	!
321c1729db5b initial checkin penk parents: diff changeset	587
321c1729db5b initial checkin penk parents: diff changeset	588	menuHistoryListIcon
321c1729db5b initial checkin penk parents: diff changeset	589	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	590	by the ImageEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	591
321c1729db5b initial checkin penk parents: diff changeset	592	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	593	the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	594
321c1729db5b initial checkin penk parents: diff changeset	595	"
321c1729db5b initial checkin penk parents: diff changeset	596	self menuHistoryListIcon inspect
321c1729db5b initial checkin penk parents: diff changeset	597	ImageEditor openOnClass:self andSelector:#menuHistoryListIcon
321c1729db5b initial checkin penk parents: diff changeset	598	"
321c1729db5b initial checkin penk parents: diff changeset	599
321c1729db5b initial checkin penk parents: diff changeset	600	<resource: #image>
321c1729db5b initial checkin penk parents: diff changeset	601
321c1729db5b initial checkin penk parents: diff changeset	602	^Icon
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	603	constantNamed:#'AbstractFileBrowser class menuHistoryListIcon'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	604	ifAbsentPut:[(Depth1Image new) width: 12; height: 12; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??S?<O?0??C?<O?0??/?=_?0??C?<O?0') ; colorMapFromArray:#[255 255 255 0 0 0]; mask:((Depth1Image new) width: 12; height: 12; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@O@@<@C0A?8C?@G8@O@@X@@@A?8@@@') ; yourself); yourself]
3892 321c1729db5b initial checkin penk parents: diff changeset	605	!
321c1729db5b initial checkin penk parents: diff changeset	606
3923 2988fc3c88ab next stage penk parents: 3922 diff changeset	607	newDirectory20x20Icon
2988fc3c88ab next stage penk parents: 3922 diff changeset	608	"This resource specification was automatically generated
2988fc3c88ab next stage penk parents: 3922 diff changeset	609	by the ImageEditor of ST/X."
2988fc3c88ab next stage penk parents: 3922 diff changeset	610
2988fc3c88ab next stage penk parents: 3922 diff changeset	611	"Do not manually edit this!! If it is corrupted,
2988fc3c88ab next stage penk parents: 3922 diff changeset	612	the ImageEditor may not be able to read the specification."
2988fc3c88ab next stage penk parents: 3922 diff changeset	613
2988fc3c88ab next stage penk parents: 3922 diff changeset	614	"
2988fc3c88ab next stage penk parents: 3922 diff changeset	615	self newDirectory20x20Icon inspect
2988fc3c88ab next stage penk parents: 3922 diff changeset	616	ImageEditor openOnClass:self andSelector:#newDirectory20x20Icon
2988fc3c88ab next stage penk parents: 3922 diff changeset	617	Icon flushCachedIcons
2988fc3c88ab next stage penk parents: 3922 diff changeset	618	"
2988fc3c88ab next stage penk parents: 3922 diff changeset	619
2988fc3c88ab next stage penk parents: 3922 diff changeset	620	<resource: #image>
2988fc3c88ab next stage penk parents: 3922 diff changeset	621
2988fc3c88ab next stage penk parents: 3922 diff changeset	622	^Icon
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	623	constantNamed:#'AbstractFileBrowser class newDirectory20x20Icon'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	624	ifAbsentPut:[(Depth8Image new) width: 20; height: 20; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3923 2988fc3c88ab next stage penk parents: 3922 diff changeset	625	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PDA@PDA@P@@@@@@@@@@@@@@@@@A@ HB@ HA@@@@@@@@@@@@@@@@@PHB@ HB@ HA
2988fc3c88ab next stage penk parents: 3922 diff changeset	626	@@@@@@@@@@@@@@DA@PDA@PDA@P@@@@@@@@@@@@D@@PHB@ HB@ HB@ HB@@@@@ HB@P@A@ HB@ HB@ HB@ @B@@H@@ HA@@DB@ HB@ HB@ H@@ H@@ H@@ D@
2988fc3c88ab next stage penk parents: 3922 diff changeset	627	@PHB@ HB@ HB@@HB@ @B@ H@@P@A@ HB@ HB@ HB@ HB@ HB@ HA@@DB@ HB@ HB@ HB@ HB@ HB@ D@@PHB@ HB@ HB@ HB@ HB@ HB@P@A@ HB@ HB@ HB
2988fc3c88ab next stage penk parents: 3922 diff changeset	628	@ HB@ HB@ HA@@DB@ HB@ HB@ HB@ HB@ HB@ D@@PHB@ HB@ HB@ HB@ HB@ HB@P@A@ HB@ HB@ HB@ HB@ HB@ HA@@DA@PDA@PDA@PDA@PDA@PDA@PD@
2988fc3c88ab next stage penk parents: 3922 diff changeset	629	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[255 0 0 0 0 0 255 255 0]; mask:((Depth1Image new) width: 20; height: 20; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@DQ@O:R@O9T@_<8@??? ??? ??? ??? ??? ??? ??? ??? ??? ??? ??? ??? ??? @@@@@@@@') ; yourself); yourself]
2988fc3c88ab next stage penk parents: 3922 diff changeset	630	!
2988fc3c88ab next stage penk parents: 3922 diff changeset	631
3892 321c1729db5b initial checkin penk parents: diff changeset	632	pasteIcon
321c1729db5b initial checkin penk parents: diff changeset	633	<resource: #programImage>
321c1729db5b initial checkin penk parents: diff changeset	634
321c1729db5b initial checkin penk parents: diff changeset	635	^ ToolbarIconLibrary paste20x20Icon "/ paste28x28Icon
321c1729db5b initial checkin penk parents: diff changeset	636	!
321c1729db5b initial checkin penk parents: diff changeset	637
321c1729db5b initial checkin penk parents: diff changeset	638	rightArrow
321c1729db5b initial checkin penk parents: diff changeset	639	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	640	by the ImageEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	641
321c1729db5b initial checkin penk parents: diff changeset	642	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	643	the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	644
321c1729db5b initial checkin penk parents: diff changeset	645	"
321c1729db5b initial checkin penk parents: diff changeset	646	self rightArrow inspect
321c1729db5b initial checkin penk parents: diff changeset	647	ImageEditor openOnClass:self andSelector:#rightArrow
321c1729db5b initial checkin penk parents: diff changeset	648	"
321c1729db5b initial checkin penk parents: diff changeset	649
321c1729db5b initial checkin penk parents: diff changeset	650	<resource: #image>
321c1729db5b initial checkin penk parents: diff changeset	651
321c1729db5b initial checkin penk parents: diff changeset	652	^Icon
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	653	constantNamed:#'AbstractFileBrowser class rightArrow'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	654	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892 321c1729db5b initial checkin penk parents: diff changeset	655	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	656	@@@@@@@@@@@@@@@@@@@@@0PB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PTF@ @@@@@@@@@@@@@@@@@@@@@@@@@@@0\@A@H@@@@@@@@@@@@@@@@A@PDA@PDH@P\I
321c1729db5b initial checkin penk parents: diff changeset	657	@@XB@@@@@@@@@@@@@@@AA0(@@@@@B ,LB @D@ @@@@@@@@@@@@@MB \NB ,ODADRD0(@A H@@@@@@@@@@@@M@@TTEQLQE!!\WD 0K@@PB@@@@@@@@@@@MB <W
321c1729db5b initial checkin penk parents: diff changeset	658	E1\WD!!\WD!!LYDQ(B@@@@@@@@@@@AB <[D10[GQ8QG!!$QF H@@@@@@@@@@@@AA!!(ZF!!(ZE1H^FQDZ@ @@@@@@@@@@@@@A@ HB@ HB@1DYDQ(B@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	659	@@@@@@@@@@@@@QXQF H@@@@@@@@@@@@@@@@@@@@@@@@@@0PZ@ @@@@@@@@@@@@@@@@@@@@@@@@@@@Q(B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@0H@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	660	@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	661	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[224 224 224 0 32 64 0 0 0 0 64 96 32 128 160 128 160 192 32 96 128 128 192 192 0 64 64 160 192 192 192 224 224 160 192 224 96 192 224 32 64 96 160 224 224 128 192 224 96 160 192 0 160 192 0 128 192 64 192 192 64 160 192 96 192 192 32 160 192 0 128 160 192 192 192 64 224 224 0 96 128 32 192 192 64 192 224 0 192 224 0 192 192]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@D@@@F@@@G@@@G @@G0@O?8@O?<@O?>@O??@O??@O?>@O?<@O?8@@G0@@G @@G@@@F@@@D@@@@@@@@@@@@@@@@@@') ; yourself); yourself]
321c1729db5b initial checkin penk parents: diff changeset	662	!
321c1729db5b initial checkin penk parents: diff changeset	663
321c1729db5b initial checkin penk parents: diff changeset	664	rightArrow20x20Icon
321c1729db5b initial checkin penk parents: diff changeset	665	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	666	by the ImageEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	667
321c1729db5b initial checkin penk parents: diff changeset	668	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	669	the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	670
321c1729db5b initial checkin penk parents: diff changeset	671	"
321c1729db5b initial checkin penk parents: diff changeset	672	self rightArrow20x20Icon inspect
321c1729db5b initial checkin penk parents: diff changeset	673	ImageEditor openOnClass:self andSelector:#rightArrow20x20Icon
321c1729db5b initial checkin penk parents: diff changeset	674	Icon flushCachedIcons
321c1729db5b initial checkin penk parents: diff changeset	675	"
321c1729db5b initial checkin penk parents: diff changeset	676
321c1729db5b initial checkin penk parents: diff changeset	677	<resource: #image>
321c1729db5b initial checkin penk parents: diff changeset	678
321c1729db5b initial checkin penk parents: diff changeset	679	^Icon
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	680	constantNamed:#'AbstractFileBrowser class rightArrow20x20Icon'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	681	ifAbsentPut:[(Depth8Image new) width: 20; height: 20; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4093 ada0669d06bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	682	@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ H@@ HB@ HB@ HB@ HB@ HB@ HB@ @@@ HB@ HB@ HB@ HB@ HB@ HB@@H@@ HB@ HB@ HB@ HB@ HB@ H@
ada0669d06bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	683	@PH@@ HB@ HB@ HB@ HB@ HB@ @A@PH@@ HB@ HB@ H@@@@@@@@@@@DA@PH@@ HB@ HB@ @B@ HB@ HB@PDA@PH@@ HB@ HB@@HA@PDA@PDA@PDA@PH@@ HB
ada0669d06bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	684	@ H@@ DA@PDA@PDA@PDA@PH@@ HB@ @B@PDA@PDA@PDA@PDA@ @B@ HB@@HA@PDA@PDA@PDA@PH@@ HB@ H@@ HB@ HB@ DA@PDB@@HB@ HB@ @@@@@@@@@@
ada0669d06bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	685	@PDA@ @B@ HB@ HB@ HB@ HB@ @A@PH@@ HB@ HB@ HB@ HB@ HB@@DB@@HB@ HB@ HB@ HB@ HB@ H@@ @B@ HB@ HB@ HB@ HB@ HB@ @@@ HB@ HB@ HB
ada0669d06bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	686	@ HB@ HB@ HB@@HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ @a') ; colorMapFromArray:#[0 0 0 100 128 255 128 128 128]; mask:((Depth1Image new) width: 20; height: 20; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@D@@@F@H@G@@@G @@G0@O?8AO?<@O?>@O??@O??DO?>DO?<@O?8@@G0@@G @@G@@@F@@@D@J@@@@') ; yourself); yourself]
3892 321c1729db5b initial checkin penk parents: diff changeset	687	!
321c1729db5b initial checkin penk parents: diff changeset	688
4094 aa3dbbfe7ea4 icons Claus Gittinger <cg@exept.de> parents: 4093 diff changeset	689	rightArrowIcon
aa3dbbfe7ea4 icons Claus Gittinger <cg@exept.de> parents: 4093 diff changeset	690	^ self rightArrow20x20Icon
aa3dbbfe7ea4 icons Claus Gittinger <cg@exept.de> parents: 4093 diff changeset	691	!
aa3dbbfe7ea4 icons Claus Gittinger <cg@exept.de> parents: 4093 diff changeset	692
3892 321c1729db5b initial checkin penk parents: diff changeset	693	rightArrowPlusMenu
321c1729db5b initial checkin penk parents: diff changeset	694	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	695	by the ImageEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	696
321c1729db5b initial checkin penk parents: diff changeset	697	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	698	the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	699
321c1729db5b initial checkin penk parents: diff changeset	700	"
321c1729db5b initial checkin penk parents: diff changeset	701	self rightArrowPlusMenu inspect
321c1729db5b initial checkin penk parents: diff changeset	702	ImageEditor openOnClass:self andSelector:#rightArrowPlusMenu
321c1729db5b initial checkin penk parents: diff changeset	703	"
321c1729db5b initial checkin penk parents: diff changeset	704
321c1729db5b initial checkin penk parents: diff changeset	705	<resource: #image>
321c1729db5b initial checkin penk parents: diff changeset	706
321c1729db5b initial checkin penk parents: diff changeset	707	^Icon
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	708	constantNamed:#'AbstractFileBrowser class rightArrowPlusMenu'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	709	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892 321c1729db5b initial checkin penk parents: diff changeset	710	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	711	@@@@@@@@@@@@@@@@@@@@@0PB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PTF@ @@@@@@@@@@@@@@@@@@@@@@@@@@@0\@A@H@@@@@@@@@@@@@@@@A@PDA@PDH@P\I
321c1729db5b initial checkin penk parents: diff changeset	712	@@XB@@@@@@@@@@@@@@@AA0(@@@@@B ,LB @D@ @@@@@@@@@@@@@MB \NB ,ODADRD0(@A H@@@@@@@@@@@@M@@TTEQLQE!!\WD 0K@@PB@@@@@@@@@@@MB <W
321c1729db5b initial checkin penk parents: diff changeset	713	E1\WD!!\WD!!LYDQ(B@@@@@@@@@@@AB <[D10[GQ8QG!!$QF H@@@@@@@@@@@@AA!!(ZF!!(ZE1H^FQDZ@ @@@@@@@@@@@@@A@ HB@ HB@1DYDQ(B@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	714	@@@@@@@@@@@@@QXQF H@@@@@@@@@@@@@@@@@@@@@@@@@@0PZ@ @@@@@@@@@@@@@@@@@@@@@@@@@@@Q(B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@0H@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	715	@@@@@@@@@@@@@@@@@@@@@P@@@@@@@@@B@ HB@ HB@@@@@@@@@@@@@@@@@@@@@@@@@ HB@ H@@@@@@@@@@@@@@@@@@@@@@@@@@@HB@ @@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	716	@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[224 224 224 0 32 64 0 0 0 0 64 96 32 128 160 128 160 192 32 96 128 128 192 192 0 64 64 160 192 192 192 224 224 160 192 224 96 192 224 32 64 96 160 224 224 128 192 224 96 160 192 0 160 192 0 128 192 64 192 192 64 160 192 96 192 192 32 160 192 0 128 160 192 192 192 64 224 224 0 96 128 32 192 192 64 192 224 0 192 224 0 192 192]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@D@@@F@@@G@@@G @@G0@O?8@O?<@O?>@O??@O??@O?>@O?<@O?8@@G0@@G @@G@@@F@@@DA?@@@>@@@\@@@H@@@@') ; yourself); yourself]
321c1729db5b initial checkin penk parents: diff changeset	717	!
321c1729db5b initial checkin penk parents: diff changeset	718
321c1729db5b initial checkin penk parents: diff changeset	719	rightArrowPlusMenu20x20Icon
321c1729db5b initial checkin penk parents: diff changeset	720	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	721	by the ImageEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	722
321c1729db5b initial checkin penk parents: diff changeset	723	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	724	the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	725
321c1729db5b initial checkin penk parents: diff changeset	726	"
321c1729db5b initial checkin penk parents: diff changeset	727	self rightArrowPlusMenu20x20Icon inspect
321c1729db5b initial checkin penk parents: diff changeset	728	ImageEditor openOnClass:self andSelector:#rightArrowPlusMenu20x20Icon
321c1729db5b initial checkin penk parents: diff changeset	729	Icon flushCachedIcons
321c1729db5b initial checkin penk parents: diff changeset	730	"
321c1729db5b initial checkin penk parents: diff changeset	731
321c1729db5b initial checkin penk parents: diff changeset	732	<resource: #image>
321c1729db5b initial checkin penk parents: diff changeset	733
321c1729db5b initial checkin penk parents: diff changeset	734	^Icon
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	735	constantNamed:#'AbstractFileBrowser class rightArrowPlusMenu20x20Icon'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	736	ifAbsentPut:[(Depth8Image new) width: 20; height: 20; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892 321c1729db5b initial checkin penk parents: diff changeset	737	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@PH@@@@@@@@@@@@@@@@@@@@@@@@CA@H@@@@@@@@@@@@@@@@@@@@@@@DE
321c1729db5b initial checkin penk parents: diff changeset	738	A H@@@@@@@@@@@@@@@@@@@@@@0\@A@H@@@@@@@@@@@DA@PDA@P AA0$@A H@@@@@@@@@@P\J@@@@@@(KC@(@A@H@@@@@@@@MB \NB ,ODADRD0(@A H@@@@@
321c1729db5b initial checkin penk parents: diff changeset	739	@@4@AQPUD1DVE1\RC@,@A@H@@@@@CP(OE1\WE1HWE1HSFQDZ@ @@@@@AB <[D10[GQ8QG!!$QF H@@@@@@@DFF!!(ZF!!(WD!!8YDQ(B@@@@@@@@@PHB@ HB@ LQ
321c1729db5b initial checkin penk parents: diff changeset	740	FQDZ@ @@@@@@@@@@@@@@@@@@@QXQF H@@@@@@@@@@@@@@@@@@@@CAA(B@@@@@@@@@@@@@@@@@@@@@@DZ@ @@@ HB@ HB@ @@@@@@@@@@@0H@@@@@@ HB@ H@
321c1729db5b initial checkin penk parents: diff changeset	741	@@@@@@@@@@@A@@@@@@@@@ HB@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@a') ; colorMapFromArray:#[224 224 224 0 32 64 0 0 0 0 64 96 32 128 160 128 160 192 32 96 128 128 192 192 0 64 64 160 192 192 192 224 224 160 192 224 96 192 224 32 64 96 160 224 224 128 192 224 96 160 192 0 160 192 0 128 192 64 192 192 64 160 192 96 192 192 32 160 192 0 128 160 192 192 192 64 224 224 0 96 128 32 192 192 64 192 224 0 192 224 0 192 192]; mask:((Depth1Image new) width: 20; height: 20; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@H@@@L@@@N@@@O@@@O @_?0@_?8@_?<@_?>@_?>@_?<@_?8@_?0@@O @@O@@@N_0@LO @HG@@@B@') ; yourself); yourself]
321c1729db5b initial checkin penk parents: diff changeset	742	!
321c1729db5b initial checkin penk parents: diff changeset	743
321c1729db5b initial checkin penk parents: diff changeset	744	rightIcon
321c1729db5b initial checkin penk parents: diff changeset	745	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	746	by the ImageEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	747
321c1729db5b initial checkin penk parents: diff changeset	748	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	749	the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	750
321c1729db5b initial checkin penk parents: diff changeset	751	"
321c1729db5b initial checkin penk parents: diff changeset	752	self rightIcon inspect
321c1729db5b initial checkin penk parents: diff changeset	753	ImageEditor openOnClass:self andSelector:#rightIcon
321c1729db5b initial checkin penk parents: diff changeset	754	"
321c1729db5b initial checkin penk parents: diff changeset	755
321c1729db5b initial checkin penk parents: diff changeset	756	<resource: #image>
321c1729db5b initial checkin penk parents: diff changeset	757
321c1729db5b initial checkin penk parents: diff changeset	758	^Icon
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	759	constantNamed:#'AbstractFileBrowser class rightIcon'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	760	ifAbsentPut:[(Depth2Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892 321c1729db5b initial checkin penk parents: diff changeset	761	UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTIUUUUUUUUB%UEUUUUUPEP@@@@@@J)T@@@@@@B%B*******
321c1729db5b initial checkin penk parents: diff changeset	762	P*****(J****B****P*****PEUUUUUVQEUUUUUP*PUUUUUUTJQUUUUUUUBQUUUUUUUPQUUUUUUUPAUUUUUUUTUUUUUUUUUUUUUUUUUUU
321c1729db5b initial checkin penk parents: diff changeset	763	UUUUUUUUUUUUUUUUUUUUUP@a') ; colorMapFromArray:#[255 255 255 0 0 0 50 50 100 255 0 0]; mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
321c1729db5b initial checkin penk parents: diff changeset	764	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@@@@8@@@@O@@@@C8A????@_???8G????A????0_???<G???>A????@@@@O @@@C0@@@@8@@@@L@@@@
321c1729db5b initial checkin penk parents: diff changeset	765	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
321c1729db5b initial checkin penk parents: diff changeset	766	!
321c1729db5b initial checkin penk parents: diff changeset	767
321c1729db5b initial checkin penk parents: diff changeset	768	searchIcon
321c1729db5b initial checkin penk parents: diff changeset	769	<resource: #programImage>
321c1729db5b initial checkin penk parents: diff changeset	770
4094 aa3dbbfe7ea4 icons Claus Gittinger <cg@exept.de> parents: 4093 diff changeset	771	^ ToolbarIconLibrary search20x20Icon "/ search28x28Icon
aa3dbbfe7ea4 icons Claus Gittinger <cg@exept.de> parents: 4093 diff changeset	772	"/ ^ ToolbarIconLibrary search16x16Icon "/ search28x28Icon
3892 321c1729db5b initial checkin penk parents: diff changeset	773	!
321c1729db5b initial checkin penk parents: diff changeset	774
321c1729db5b initial checkin penk parents: diff changeset	775	shellIcon
321c1729db5b initial checkin penk parents: diff changeset	776	<resource: #programImage>
321c1729db5b initial checkin penk parents: diff changeset	777
321c1729db5b initial checkin penk parents: diff changeset	778	OperatingSystem isMSDOSlike ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	779	^ ToolbarIconLibrary dos20x20Icon
3892 321c1729db5b initial checkin penk parents: diff changeset	780	].
321c1729db5b initial checkin penk parents: diff changeset	781	^ ToolbarIconLibrary shell20x20Icon
321c1729db5b initial checkin penk parents: diff changeset	782	!
321c1729db5b initial checkin penk parents: diff changeset	783
4094 aa3dbbfe7ea4 icons Claus Gittinger <cg@exept.de> parents: 4093 diff changeset	784	shellWithoutTextIcon
aa3dbbfe7ea4 icons Claus Gittinger <cg@exept.de> parents: 4093 diff changeset	785	<resource: #programImage>
aa3dbbfe7ea4 icons Claus Gittinger <cg@exept.de> parents: 4093 diff changeset	786
aa3dbbfe7ea4 icons Claus Gittinger <cg@exept.de> parents: 4093 diff changeset	787	OperatingSystem isMSDOSlike ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	788	^ ToolbarIconLibrary dosWithoutText20x20Icon
4094 aa3dbbfe7ea4 icons Claus Gittinger <cg@exept.de> parents: 4093 diff changeset	789	].
aa3dbbfe7ea4 icons Claus Gittinger <cg@exept.de> parents: 4093 diff changeset	790	^ ToolbarIconLibrary shellWithoutText20x20Icon
aa3dbbfe7ea4 icons Claus Gittinger <cg@exept.de> parents: 4093 diff changeset	791	!
aa3dbbfe7ea4 icons Claus Gittinger <cg@exept.de> parents: 4093 diff changeset	792
3892 321c1729db5b initial checkin penk parents: diff changeset	793	upArrow
321c1729db5b initial checkin penk parents: diff changeset	794	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	795	by the ImageEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	796
321c1729db5b initial checkin penk parents: diff changeset	797	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	798	the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	799
321c1729db5b initial checkin penk parents: diff changeset	800	"
321c1729db5b initial checkin penk parents: diff changeset	801	self upArrow inspect
321c1729db5b initial checkin penk parents: diff changeset	802	ImageEditor openOnClass:self andSelector:#upArrow
321c1729db5b initial checkin penk parents: diff changeset	803	"
321c1729db5b initial checkin penk parents: diff changeset	804
321c1729db5b initial checkin penk parents: diff changeset	805	<resource: #image>
321c1729db5b initial checkin penk parents: diff changeset	806
321c1729db5b initial checkin penk parents: diff changeset	807	^Icon
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	808	constantNamed:#'AbstractFileBrowser class upArrow'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	809	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892 321c1729db5b initial checkin penk parents: diff changeset	810	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	811	@@@@@@@@@@@@@@@@@@@A@0PE@@@@@@@@@@@@@@@@@@@@@@@@@@DFA0 DAP@@@@@@@@@@@@@@@@@@@@@@@P$@A0(HA@T@@@@@@@@@@@@@@@@@@@@AB0@@C@4N
321c1729db5b initial checkin penk parents: diff changeset	812	C0PE@@@@@@@@@@@@@@@@@@DF@@@LB@ MD@<DAP@@@@@@@@@@@@@@@PLGDQHHD1LHE@8UA@H@@@@@@@@@@@@AE!!\XA@<SD1LHEPPYF DB@@@@@@@@@@D\@Q0A
321c1729db5b initial checkin penk parents: diff changeset	813	GA4OD1LJEPD\@Q0A@ @@@@@@@@@@@@@@@!!8^C1T_A@T@@@@@@@@@@@@@@@@@@@@@E @GHATRA@T@@@@@@@@@@@@@@@@@@@@@E @GDQT_A@T@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	814	@@@@@@@@@P@!!H!!TJA@T@@@@@@@@@@@@@@@@@@@@@@P\#IATTA@T@@@@@@@@@@@@@@@@@@@@@@QXXFPPDF H@@@@@@@@@@@@@@@@@@@@@@ TEAPTE@ H@@@@@
321c1729db5b initial checkin penk parents: diff changeset	815	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	816	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[224 224 224 0 32 64 0 0 0 96 128 160 0 96 128 0 0 32 128 160 192 192 224 224 0 160 192 128 128 160 32 192 192 128 160 160 96 192 224 0 192 224 32 192 224 32 160 192 64 224 224 160 192 224 64 192 192 0 128 192 0 192 192 0 128 160 32 64 96 64 96 128 32 96 128 0 64 128 0 64 96 192 192 192 0 32 96 32 128 192 128 192 224 64 192 224 128 192 192 160 224 224 96 192 192 96 160 192 64 160 192]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@F@@@O@@@_ @@?0@A?8@C?<@G?>@O??@_?? @?0@@?0@@?0@@?0@@?0@@?0@@?0@@@@@@@@@@@@@@@@@@@@@') ; yourself); yourself]
321c1729db5b initial checkin penk parents: diff changeset	817	!
321c1729db5b initial checkin penk parents: diff changeset	818
321c1729db5b initial checkin penk parents: diff changeset	819	upArrow20x20Icon
321c1729db5b initial checkin penk parents: diff changeset	820	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	821	by the ImageEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	822
321c1729db5b initial checkin penk parents: diff changeset	823	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	824	the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	825
321c1729db5b initial checkin penk parents: diff changeset	826	"
321c1729db5b initial checkin penk parents: diff changeset	827	self upArrow20x20Icon inspect
321c1729db5b initial checkin penk parents: diff changeset	828	ImageEditor openOnClass:self andSelector:#upArrow20x20Icon
321c1729db5b initial checkin penk parents: diff changeset	829	Icon flushCachedIcons
321c1729db5b initial checkin penk parents: diff changeset	830	"
321c1729db5b initial checkin penk parents: diff changeset	831
321c1729db5b initial checkin penk parents: diff changeset	832	<resource: #image>
321c1729db5b initial checkin penk parents: diff changeset	833
321c1729db5b initial checkin penk parents: diff changeset	834	^Icon
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	835	constantNamed:#'AbstractFileBrowser class upArrow20x20Icon'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	836	ifAbsentPut:[(Depth8Image new) width: 20; height: 20; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4093 ada0669d06bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	837	@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ @@@ HB@ HB@ HB@ HB@ HB@ H@@ H@@ HB@ HB@ HB@ HB@ HB@@HA
ada0669d06bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	838	@PH@@ HB@ HB@ HB@ HB@ @B@PDA@PH@@ HB@ HB@ HB@ H@@ DA@PDA@PH@@ HB@ HB@ HB@@HA@PDA@PDA@PH@@ HB@ HB@ @B@PDA@PDA@PDA@PH@@ HB
ada0669d06bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	839	@ H@@ DA@PDA@PDA@PDA@PH@@ HB@@@@@@@@@ DA@PDB@@@@@@@@@ HB@ HB@ @B@PDA@PH@@ HB@ HB@ HB@ HB@@HA@PDA@ @B@ HB@ HB@ HB@ H@@ DA
ada0669d06bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	840	@PDB@@HB@ HB@ HB@ HB@ @B@PDA@PH@@ HB@ HB@ HB@ HB@@HA@PDA@ @B@ HB@ HB@ HB@ H@@ HB@ HB@@HB@ HB@ HB@ HB@ @@@@@@@@@@@ HB@ HB
ada0669d06bd * empty log message * Claus Gittinger <cg@exept.de> parents: 4089 diff changeset	841	@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ @a') ; colorMapFromArray:#[0 0 0 100 128 255 128 128 128]; mask:((Depth1Image new) width: 20; height: 20; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@J@@@@@F@@@O@@@_ O@?0@A?8@C?<@G?>@O??E_??(@?0@@?0@@?0N@?0A@?0@@?0@@?0K@@@A@@@@') ; yourself); yourself]
4084 cac21759ab0e reduce colors for buttons penk parents: 4080 diff changeset	842	!
cac21759ab0e reduce colors for buttons penk parents: 4080 diff changeset	843
cac21759ab0e reduce colors for buttons penk parents: 4080 diff changeset	844	upArrow20x20IconOld
cac21759ab0e reduce colors for buttons penk parents: 4080 diff changeset	845	"This resource specification was automatically generated
cac21759ab0e reduce colors for buttons penk parents: 4080 diff changeset	846	by the ImageEditor of ST/X."
cac21759ab0e reduce colors for buttons penk parents: 4080 diff changeset	847
cac21759ab0e reduce colors for buttons penk parents: 4080 diff changeset	848	"Do not manually edit this!! If it is corrupted,
cac21759ab0e reduce colors for buttons penk parents: 4080 diff changeset	849	the ImageEditor may not be able to read the specification."
cac21759ab0e reduce colors for buttons penk parents: 4080 diff changeset	850
cac21759ab0e reduce colors for buttons penk parents: 4080 diff changeset	851	"
cac21759ab0e reduce colors for buttons penk parents: 4080 diff changeset	852	self upArrow20x20IconOld inspect
cac21759ab0e reduce colors for buttons penk parents: 4080 diff changeset	853	ImageEditor openOnClass:self andSelector:#upArrow20x20IconOld
cac21759ab0e reduce colors for buttons penk parents: 4080 diff changeset	854	Icon flushCachedIcons
cac21759ab0e reduce colors for buttons penk parents: 4080 diff changeset	855	"
cac21759ab0e reduce colors for buttons penk parents: 4080 diff changeset	856
cac21759ab0e reduce colors for buttons penk parents: 4080 diff changeset	857	<resource: #image>
cac21759ab0e reduce colors for buttons penk parents: 4080 diff changeset	858
cac21759ab0e reduce colors for buttons penk parents: 4080 diff changeset	859	^Icon
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	860	constantNamed:#'AbstractFileBrowser class upArrow20x20IconOld'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	861	ifAbsentPut:[(Depth8Image new) width: 20; height: 20; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892 321c1729db5b initial checkin penk parents: diff changeset	862	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DB@@@@@@@@@@@@@@@@@@@@@@@A@0PE@@@@@@@@@@@@@@@@@@@@@PXG
321c1729db5b initial checkin penk parents: diff changeset	863	B@PE@@@@@@@@@@@@@@@@@@DI@@\JB@PE@@@@@@@@@@@@@@@AB0@@C@4NC0PE@@@@@@@@@@@@@PX@@@0HB@4PC0PE@@@@@@@@@@DCA1DRBALSBAPNEPPB@@@@
321c1729db5b initial checkin penk parents: diff changeset	864	@@@AE!!\XA@<SD1LHEPPYF DB@@@@@Q0AG@D\GP<SD0(U@Q0AG@DB@@@@@@@@@@H^G <UG0PE@@@@@@@@@@@@@@@@E @GHATRA@T@@@@@@@@@@@@@@@@V@@\Q
321c1729db5b initial checkin penk parents: diff changeset	865	EQ<DAP@@@@@@@@@@@@@@@@D@HRHUB PE@@@@@@@@@@@@@@@@@P\#IATTA@T@@@@@@@@@@@@@@@@AE!! YA@PZ@ @@@@@@@@@@@@@@@@HEAPTEAPHB@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	866	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[224 224 224 0 32 64 0 0 0 96 128 160 0 96 128 0 0 32 128 160 192 192 224 224 0 160 192 128 128 160 32 192 192 128 160 160 96 192 224 0 192 224 32 192 224 32 160 192 64 224 224 160 192 224 64 192 192 0 128 192 0 192 192 0 128 160 32 64 96 64 96 128 32 96 128 0 64 128 0 64 96 192 192 192 0 32 96 32 128 192 128 192 224 64 192 224 128 192 192 160 224 224 96 192 192 96 160 192 64 160 192]; mask:((Depth1Image new) width: 20; height: 20; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@F@@@O@@@_ @@?0@A?8@C?<@G?>@O??@_?? @?0@@?0@@?0@@?0@@?0@@?0@@?0@@@@@@@@@') ; yourself); yourself]
321c1729db5b initial checkin penk parents: diff changeset	867	!
321c1729db5b initial checkin penk parents: diff changeset	868
4094 aa3dbbfe7ea4 icons Claus Gittinger <cg@exept.de> parents: 4093 diff changeset	869	upArrowIcon
aa3dbbfe7ea4 icons Claus Gittinger <cg@exept.de> parents: 4093 diff changeset	870	^ self upArrow20x20Icon
aa3dbbfe7ea4 icons Claus Gittinger <cg@exept.de> parents: 4093 diff changeset	871	!
aa3dbbfe7ea4 icons Claus Gittinger <cg@exept.de> parents: 4093 diff changeset	872
3892 321c1729db5b initial checkin penk parents: diff changeset	873	upArrowPlusMenu
321c1729db5b initial checkin penk parents: diff changeset	874	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	875	by the ImageEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	876
321c1729db5b initial checkin penk parents: diff changeset	877	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	878	the ImageEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	879
321c1729db5b initial checkin penk parents: diff changeset	880	"
321c1729db5b initial checkin penk parents: diff changeset	881	self upArrowPlusMenu inspect
321c1729db5b initial checkin penk parents: diff changeset	882	ImageEditor openOnClass:self andSelector:#upArrowPlusMenu
321c1729db5b initial checkin penk parents: diff changeset	883	"
321c1729db5b initial checkin penk parents: diff changeset	884
321c1729db5b initial checkin penk parents: diff changeset	885	<resource: #image>
321c1729db5b initial checkin penk parents: diff changeset	886
321c1729db5b initial checkin penk parents: diff changeset	887	^Icon
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	888	constantNamed:#'AbstractFileBrowser class upArrowPlusMenu'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	889	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3892 321c1729db5b initial checkin penk parents: diff changeset	890	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	891	@@@@@@@@@@@@@@@@@@@A@0PE@@@@@@@@@@@@@@@@@@@@@@@@@@DFA0 DAP@@@@@@@@@@@@@@@@@@@@@@@P$@A0(HA@T@@@@@@@@@@@@@@@@@@@@AB0@@C@4N
321c1729db5b initial checkin penk parents: diff changeset	892	C0PE@@@@@@@@@@@@@@@@@@DF@@@LB@ MD@<DAP@@@@@@@@@@@@@@@PLGDQHHD1LHE@8UA@H@@@@@@@@@@@@AE!!\XA@<SD1LHEPPYF DB@@@@@@@@@@D\@Q0A
321c1729db5b initial checkin penk parents: diff changeset	893	GA4OD1LJEPD\@Q0A@ @@@@@@@@@@@@@@@!!8^C1T_A@T@@@@@@@@@@@@@@@@@@@@@E @GHATRA@T@@@@@@@@@@@@@@@@@@@@@E @GDQT_A@T@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	894	@@@@@@@@@P@!!H!!TJA@T@@@@@@@@@@@@@@@@@@@@@@P\#IATTA@T@@@@@@@@@@@@@@@@@@@@@@QXXFPPDF H@@@@@@@@@@@@@@@@@@@@@@ TEAPTE@ H@@@@@
321c1729db5b initial checkin penk parents: diff changeset	895	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@ HB@ HB@@@@@@@@@@@@@@@@@@@@@@@@@ HB@ H@@@@@@@@@@@@@@@@@@@@@@@@@@@HB@ @@@@@@@@@@@@@@@@@@
321c1729db5b initial checkin penk parents: diff changeset	896	@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[224 224 224 0 32 64 0 0 0 96 128 160 0 96 128 0 0 32 128 160 192 192 224 224 0 160 192 128 128 160 32 192 192 128 160 160 96 192 224 0 192 224 32 192 224 32 160 192 64 224 224 160 192 224 64 192 192 0 128 192 0 192 192 0 128 160 32 64 96 64 96 128 32 96 128 0 64 128 0 64 96 192 192 192 0 32 96 32 128 192 128 192 224 64 192 224 128 192 192 160 224 224 96 192 192 96 160 192 64 160 192]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@F@@@O@@@_ @@?0@A?8@C?<@G?>@O??@_?? @?0@@?0@@?0@@?0@@?0@@?0@@?0@@@A?@@@>@@@\@@@H@@@@') ; yourself); yourself]
321c1729db5b initial checkin penk parents: diff changeset	897	!
321c1729db5b initial checkin penk parents: diff changeset	898
321c1729db5b initial checkin penk parents: diff changeset	899	vt100Terminal
321c1729db5b initial checkin penk parents: diff changeset	900	<resource: #programImage>
321c1729db5b initial checkin penk parents: diff changeset	901
321c1729db5b initial checkin penk parents: diff changeset	902	^ ToolbarIconLibrary shell20x20Icon
321c1729db5b initial checkin penk parents: diff changeset	903	! !
321c1729db5b initial checkin penk parents: diff changeset	904
321c1729db5b initial checkin penk parents: diff changeset	905	!AbstractFileBrowser class methodsFor:'menu specs'!
321c1729db5b initial checkin penk parents: diff changeset	906
321c1729db5b initial checkin penk parents: diff changeset	907	baseBookmarksMenuSpec
321c1729db5b initial checkin penk parents: diff changeset	908	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	909	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	910
321c1729db5b initial checkin penk parents: diff changeset	911	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	912	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	913
321c1729db5b initial checkin penk parents: diff changeset	914	"
321c1729db5b initial checkin penk parents: diff changeset	915	MenuEditor new openOnClass:AbstractFileBrowser andSelector:#baseBookmarksMenuSpec
321c1729db5b initial checkin penk parents: diff changeset	916	(Menu new fromLiteralArrayEncoding:(AbstractFileBrowser baseBookmarksMenuSpec)) startUp
321c1729db5b initial checkin penk parents: diff changeset	917	"
321c1729db5b initial checkin penk parents: diff changeset	918
321c1729db5b initial checkin penk parents: diff changeset	919	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	920
321c1729db5b initial checkin penk parents: diff changeset	921	^
321c1729db5b initial checkin penk parents: diff changeset	922	#(#Menu
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	923	#(
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	924	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	925	#label: 'Add Bookmark'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	926	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	927	#value: #addBookmark
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	928	#enabled: #currentFilesHasDirectories
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	929	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	930	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	931	#label: 'Remove Bookmark'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	932	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	933	#value: #removeBookmark
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	934	#enabled: #hasBookmarksToRemove
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	935	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	936	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	937	nil
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	938	nil
3892 321c1729db5b initial checkin penk parents: diff changeset	939	)
321c1729db5b initial checkin penk parents: diff changeset	940	!
321c1729db5b initial checkin penk parents: diff changeset	941
4110 79f87cb97704 * empty log message * penk parents: 4107 diff changeset	942	browserMenu
79f87cb97704 * empty log message * penk parents: 4107 diff changeset	943	"This resource specification was automatically generated
79f87cb97704 * empty log message * penk parents: 4107 diff changeset	944	by the MenuEditor of ST/X."
79f87cb97704 * empty log message * penk parents: 4107 diff changeset	945
79f87cb97704 * empty log message * penk parents: 4107 diff changeset	946	"Do not manually edit this!! If it is corrupted,
79f87cb97704 * empty log message * penk parents: 4107 diff changeset	947	the MenuEditor may not be able to read the specification."
79f87cb97704 * empty log message * penk parents: 4107 diff changeset	948
79f87cb97704 * empty log message * penk parents: 4107 diff changeset	949	"
79f87cb97704 * empty log message * penk parents: 4107 diff changeset	950	MenuEditor new openOnClass:AbstractFileBrowser andSelector:#browserMenu
79f87cb97704 * empty log message * penk parents: 4107 diff changeset	951	(Menu new fromLiteralArrayEncoding:(AbstractFileBrowser browserMenu)) startUp
79f87cb97704 * empty log message * penk parents: 4107 diff changeset	952	"
79f87cb97704 * empty log message * penk parents: 4107 diff changeset	953
79f87cb97704 * empty log message * penk parents: 4107 diff changeset	954	<resource: #menu>
79f87cb97704 * empty log message * penk parents: 4107 diff changeset	955
79f87cb97704 * empty log message * penk parents: 4107 diff changeset	956	^
79f87cb97704 * empty log message * penk parents: 4107 diff changeset	957	#(#Menu
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	958	#(
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	959	#(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	960	#label: 'Spawn'
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	961	#itemValue: #doSpawn
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	962	#translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	963	)
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	964	#(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	965	#label: 'Settings'
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	966	#translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	967	#submenu:
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	968	#(#Menu
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	969	#(
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	970	#(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	971	#label: 'Show'
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	972	#translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	973	#submenuChannel: #showMenuSpec
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	974	)
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	975	#(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	976	#label: 'Sort'
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	977	#translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	978	#submenuChannel: #sortMenu
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	979	)
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	980	#(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	981	#label: 'Details'
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	982	#translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	983	#submenuChannel: #viewInContentsBrowserMenu
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	984	)
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	985	#(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	986	#label: '-'
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	987	)
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	988	#(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	989	#label: 'Toolbar'
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	990	#translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	991	#hideMenuOnActivated: false
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	992	#indication: #toolBarVisibleHolder
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	993	)
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	994	#(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	995	#label: 'Path Entry && Filter'
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	996	#translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	997	#hideMenuOnActivated: false
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	998	#indication: #filenameEntryFieldVisibleHolder
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	999	)
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1000	#(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1001	#label: '-'
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1002	)
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1003	#(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1004	#label: 'Save Settings'
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1005	#itemValue: #saveAspectValues
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1006	#translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1007	)
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1008	)
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1009	nil
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1010	nil
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1011	)
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1012	)
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1013	#(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1014	#label: '-'
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1015	)
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1016	#(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1017	#label: 'Search Files'
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1018	#itemValue: #doOpenSearchFile
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1019	#translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1020	)
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1021	#(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1022	#label: 'Shell Terminal'
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1023	#itemValue: #doAddTerminal
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1024	#translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1025	)
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1026	#(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1027	#label: '-'
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1028	)
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1029	#(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1030	#label: 'Exit'
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1031	#itemValue: #closeRequest
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1032	#translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1033	)
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1034	)
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1035	nil
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1036	nil
4110 79f87cb97704 * empty log message * penk parents: 4107 diff changeset	1037	)
79f87cb97704 * empty log message * penk parents: 4107 diff changeset	1038	!
79f87cb97704 * empty log message * penk parents: 4107 diff changeset	1039
4107 d158469338e5 * empty log message * penk parents: 4101 diff changeset	1040	cvsMenu
d158469338e5 * empty log message * penk parents: 4101 diff changeset	1041	"This resource specification was automatically generated
d158469338e5 * empty log message * penk parents: 4101 diff changeset	1042	by the MenuEditor of ST/X."
d158469338e5 * empty log message * penk parents: 4101 diff changeset	1043
d158469338e5 * empty log message * penk parents: 4101 diff changeset	1044	"Do not manually edit this!! If it is corrupted,
d158469338e5 * empty log message * penk parents: 4101 diff changeset	1045	the MenuEditor may not be able to read the specification."
d158469338e5 * empty log message * penk parents: 4101 diff changeset	1046
d158469338e5 * empty log message * penk parents: 4101 diff changeset	1047	"
d158469338e5 * empty log message * penk parents: 4101 diff changeset	1048	MenuEditor new openOnClass:AbstractFileBrowser andSelector:#cvsMenu
d158469338e5 * empty log message * penk parents: 4101 diff changeset	1049	(Menu new fromLiteralArrayEncoding:(AbstractFileBrowser cvsMenu)) startUp
d158469338e5 * empty log message * penk parents: 4101 diff changeset	1050	"
d158469338e5 * empty log message * penk parents: 4101 diff changeset	1051
d158469338e5 * empty log message * penk parents: 4101 diff changeset	1052	<resource: #menu>
d158469338e5 * empty log message * penk parents: 4101 diff changeset	1053
d158469338e5 * empty log message * penk parents: 4101 diff changeset	1054	^
d158469338e5 * empty log message * penk parents: 4101 diff changeset	1055	#(#Menu
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1056	#(
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1057	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1058	#enabled: #hasSelection
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1059	#label: 'Update selected Files/Directories'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1060	#itemValue: #cvsUpdateSelection
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1061	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1062	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1063	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1064	#label: 'Update Directory Local'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1065	#itemValue: #cvsUpdateAll
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1066	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1067	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1068	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1069	#label: 'Update Directory Recursive'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1070	#itemValue: #cvsUpdateAllRecursive
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1071	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1072	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1073	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1074	#label: '-'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1075	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1076	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1077	#label: 'Commit...'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1078	#itemValue: #cvsCommit
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1079	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1080	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1081	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1082	#enabled: #canCvsAddAndCommit
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1083	#label: 'Add && Commit...'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1084	#itemValue: #cvsAddAndCommit
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1085	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1086	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1087	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1088	#label: '-'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1089	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1090	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1091	#enabled: #canRemoveCVSContainer
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1092	#label: 'Remove File && CVS Container...'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1093	#itemValue: #cvsRemoveFileAndCVSContainer
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1094	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1095	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1096	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1097	nil
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1098	nil
4107 d158469338e5 * empty log message * penk parents: 4101 diff changeset	1099	)
d158469338e5 * empty log message * penk parents: 4101 diff changeset	1100	!
d158469338e5 * empty log message * penk parents: 4101 diff changeset	1101
3892 321c1729db5b initial checkin penk parents: diff changeset	1102	directoryMenu
321c1729db5b initial checkin penk parents: diff changeset	1103	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	1104	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	1105
321c1729db5b initial checkin penk parents: diff changeset	1106	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	1107	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	1108
321c1729db5b initial checkin penk parents: diff changeset	1109	"
321c1729db5b initial checkin penk parents: diff changeset	1110	MenuEditor new openOnClass:AbstractFileBrowser andSelector:#directoryMenu
321c1729db5b initial checkin penk parents: diff changeset	1111	(Menu new fromLiteralArrayEncoding:(AbstractFileBrowser directoryMenu)) startUp
321c1729db5b initial checkin penk parents: diff changeset	1112	"
321c1729db5b initial checkin penk parents: diff changeset	1113
321c1729db5b initial checkin penk parents: diff changeset	1114	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	1115
321c1729db5b initial checkin penk parents: diff changeset	1116	^
321c1729db5b initial checkin penk parents: diff changeset	1117	#(#Menu
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1118	#(
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1119	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1120	#label: 'Up'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1121	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1122	#value: #doGoDirectoryUp
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1123	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1124	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1125	#label: '-'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1126	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1127	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1128	#label: 'Back'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1129	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1130	#value: #doBack
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1131	#activeHelpKey: #directoryBack
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1132	#enabled: #enableBack
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1133	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1134	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1135	#label: 'Forward'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1136	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1137	#value: #doForward
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1138	#activeHelpKey: #directoryBack
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1139	#enabled: #enableForward
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1140	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1141	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1142	#label: '-'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1143	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1144	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1145	#label: 'Default'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1146	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1147	#value: #doGotoDefaultDirectory
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1148	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1149	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1150	#label: 'Home'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1151	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1152	#value: #doGotoHomeDirectory
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1153	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1154	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1155	#label: 'Visited Directories'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1156	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1157	#submenuChannel: #visitedDirectoriesMenu
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1158	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1159	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1160	#label: 'Bookmarks'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1161	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1162	#submenuChannel: #bookmarksMenuSpec
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1163	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1164	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1165	nil
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1166	nil
3892 321c1729db5b initial checkin penk parents: diff changeset	1167	)
321c1729db5b initial checkin penk parents: diff changeset	1168	!
321c1729db5b initial checkin penk parents: diff changeset	1169
321c1729db5b initial checkin penk parents: diff changeset	1170	editMenu
321c1729db5b initial checkin penk parents: diff changeset	1171	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	1172	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	1173
321c1729db5b initial checkin penk parents: diff changeset	1174	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	1175	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	1176
321c1729db5b initial checkin penk parents: diff changeset	1177	"
321c1729db5b initial checkin penk parents: diff changeset	1178	MenuEditor new openOnClass:AbstractFileBrowser andSelector:#editMenu
321c1729db5b initial checkin penk parents: diff changeset	1179	(Menu new fromLiteralArrayEncoding:(AbstractFileBrowser editMenu)) startUp
321c1729db5b initial checkin penk parents: diff changeset	1180	"
321c1729db5b initial checkin penk parents: diff changeset	1181
321c1729db5b initial checkin penk parents: diff changeset	1182	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	1183
321c1729db5b initial checkin penk parents: diff changeset	1184	^
321c1729db5b initial checkin penk parents: diff changeset	1185	#(#Menu
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1186	#(
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1187	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1188	#label: 'Copy'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1189	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1190	#value: #copyInDirContentsBrowser
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1191	#enabled: #hasSelection
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1192	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1193	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1194	#label: 'Cut'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1195	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1196	#value: #cutInDirContentsBrowser
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1197	#enabled: #hasSelection
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1198	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1199	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1200	#label: 'Paste'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1201	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1202	#value: #pasteFiles
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1203	#enabled: #canPaste
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1204	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1205	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1206	#label: 'Delete'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1207	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1208	#value: #deleteInDirContentsBrowser
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1209	#enabled: #hasSelection
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1210	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1211	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1212	#label: '-'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1213	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1214	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1215	#label: 'Copy All Filenames'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1216	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1217	#value: #copyFileList
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1218	#enabled: #fileListIsNotEmpty
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1219	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1220	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1221	#label: 'Copy Selected Filenames'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1222	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1223	#value: #copySelectedFilenames
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1224	#enabled: #hasSelection
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1225	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1226	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1227	nil
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1228	nil
3892 321c1729db5b initial checkin penk parents: diff changeset	1229	)
321c1729db5b initial checkin penk parents: diff changeset	1230	!
321c1729db5b initial checkin penk parents: diff changeset	1231
321c1729db5b initial checkin penk parents: diff changeset	1232	fileMenu
321c1729db5b initial checkin penk parents: diff changeset	1233	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	1234	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	1235
321c1729db5b initial checkin penk parents: diff changeset	1236	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	1237	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	1238
321c1729db5b initial checkin penk parents: diff changeset	1239	"
321c1729db5b initial checkin penk parents: diff changeset	1240	MenuEditor new openOnClass:AbstractFileBrowser andSelector:#fileMenu
321c1729db5b initial checkin penk parents: diff changeset	1241	(Menu new fromLiteralArrayEncoding:(AbstractFileBrowser fileMenu)) startUp
321c1729db5b initial checkin penk parents: diff changeset	1242	"
321c1729db5b initial checkin penk parents: diff changeset	1243
321c1729db5b initial checkin penk parents: diff changeset	1244	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	1245
321c1729db5b initial checkin penk parents: diff changeset	1246	^
321c1729db5b initial checkin penk parents: diff changeset	1247	#(#Menu
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1248	#(
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1249	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1250	#label: 'New'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1251	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1252	#submenuChannel: #newMenu
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1253	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1254	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1255	#label: 'Rename'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1256	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1257	#value: #renameSelection
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1258	#enabled: #hasSelection
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1259	#shortcutKeyCharacter: #Replace
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1260	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1261	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1262	#label: '-'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1263	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1264	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1265	#label: 'Open in Text Editor'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1266	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1267	#value: #doShowFileContents
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1268	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1269	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1270	#label: 'Properties...'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1271	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1272	#value: #doShowProperties
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1273	#enabled: #hasSelection
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1274	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1275	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1276	#label: '-'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1277	#isVisible: #javaSupportLoaded
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1278	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1279	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1280	#label: 'File in'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1281	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1282	#value: #fileFileIn
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1283	#enabled: #hasSelection
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1284	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1285	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1286	#label: 'File in to Namespace...'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1287	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1288	#value: #fileFileInToNameSpace
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1289	#enabled: #hasSelection
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1290	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1291	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1292	#label: '-'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1293	#isVisible: #javaSupportLoaded
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1294	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1295	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1296	#label: 'Add to Java Class Path'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1297	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1298	#isVisible: #javaSupportLoaded
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1299	#enabled: #canAddToClassPath
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1300	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1301	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1302	#label: 'Remove from Java Class Path'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1303	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1304	#isVisible: #javaSupportLoaded
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1305	#enabled: #canRemoveFromClassPath
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1306	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1307	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1308	#label: 'Add to Java Source Path'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1309	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1310	#isVisible: #javaSupportLoaded
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1311	#enabled: #canAddToSourcePath
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1312	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1313	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1314	#label: 'Remove from Java Source Path'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1315	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1316	#isVisible: #javaSupportLoaded
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1317	#enabled: #canRemoveFromSourcePath
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1318	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1319	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1320	nil
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1321	nil
3892 321c1729db5b initial checkin penk parents: diff changeset	1322	)
321c1729db5b initial checkin penk parents: diff changeset	1323	!
321c1729db5b initial checkin penk parents: diff changeset	1324
321c1729db5b initial checkin penk parents: diff changeset	1325	newMenu
321c1729db5b initial checkin penk parents: diff changeset	1326	"This resource specification was automatically generated
321c1729db5b initial checkin penk parents: diff changeset	1327	by the MenuEditor of ST/X."
321c1729db5b initial checkin penk parents: diff changeset	1328
321c1729db5b initial checkin penk parents: diff changeset	1329	"Do not manually edit this!! If it is corrupted,
321c1729db5b initial checkin penk parents: diff changeset	1330	the MenuEditor may not be able to read the specification."
321c1729db5b initial checkin penk parents: diff changeset	1331
321c1729db5b initial checkin penk parents: diff changeset	1332	"
321c1729db5b initial checkin penk parents: diff changeset	1333	MenuEditor new openOnClass:DirectoryTreeBrowser andSelector:#newMenu
321c1729db5b initial checkin penk parents: diff changeset	1334	(Menu new fromLiteralArrayEncoding:(DirectoryTreeBrowser newMenu)) startUp
321c1729db5b initial checkin penk parents: diff changeset	1335	"
321c1729db5b initial checkin penk parents: diff changeset	1336
321c1729db5b initial checkin penk parents: diff changeset	1337	<resource: #menu>
321c1729db5b initial checkin penk parents: diff changeset	1338
321c1729db5b initial checkin penk parents: diff changeset	1339	^
321c1729db5b initial checkin penk parents: diff changeset	1340	#(#Menu
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1341	#(
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1342	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1343	#label: 'Directory...'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1344	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1345	#value: #newDirectory
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1346	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1347	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1348	#label: 'File...'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1349	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1350	#value: #newFile
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1351	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1352	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1353	#label: 'Hard Link...'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1354	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1355	#isVisible: #systemIsUnix
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1356	#value: #newHardLink
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1357	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1358	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1359	#label: 'Symbolic Link...'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1360	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1361	#isVisible: #systemIsUnix
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1362	#value: #newSoftLink
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1363	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1364	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1365	nil
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1366	nil
3892 321c1729db5b initial checkin penk parents: diff changeset	1367	)
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	1368	!
8a76cb4f5884 next stage penk parents: 3892 diff changeset	1369
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1370	showMenuSpec
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1371	"This resource specification was automatically generated
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1372	by the MenuEditor of ST/X."
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1373
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1374	"Do not manually edit this!! If it is corrupted,
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1375	the MenuEditor may not be able to read the specification."
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1376
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1377	"
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1378	MenuEditor new openOnClass:AbstractFileBrowser andSelector:#showMenuSpec
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1379	(Menu new fromLiteralArrayEncoding:(AbstractFileBrowser showMenuSpec)) startUp
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1380	"
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1381
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1382	<resource: #menu>
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1383
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1384	^
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1385	#(#Menu
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1386	#(
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1387	#(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1388	#label: 'Hidden Files'
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1389	#translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1390	#indication: #showHiddenFiles
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1391	)
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1392	#(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1393	#label: '-'
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1394	)
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1395	#(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1396	#label: 'Directory Tree'
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1397	#translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1398	#indication: #showDirectoryTree
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1399	)
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1400	#(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1401	#label: 'Regular Files in TreeView (Left)'
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1402	#translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1403	#indication: #viewFilesInDirectoryTree
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1404	)
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1405	#(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1406	#label: 'Directories in ContentsView (Right)'
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1407	#translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1408	#indication: #viewDirsInContentsBrowser
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1409	)
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1410	#(#MenuItem
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1411	#enabled: #enableViewNoteBookApplication
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1412	#label: 'File Applications'
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1413	#translateLabel: true
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1414	#indication: #viewNoteBookApplicationHolder
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1415	)
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1416	)
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1417	nil
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1418	nil
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1419	)
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1420	!
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	1421
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	1422	sortMenu
8a76cb4f5884 next stage penk parents: 3892 diff changeset	1423	"This resource specification was automatically generated
8a76cb4f5884 next stage penk parents: 3892 diff changeset	1424	by the MenuEditor of ST/X."
8a76cb4f5884 next stage penk parents: 3892 diff changeset	1425
8a76cb4f5884 next stage penk parents: 3892 diff changeset	1426	"Do not manually edit this!! If it is corrupted,
8a76cb4f5884 next stage penk parents: 3892 diff changeset	1427	the MenuEditor may not be able to read the specification."
8a76cb4f5884 next stage penk parents: 3892 diff changeset	1428
8a76cb4f5884 next stage penk parents: 3892 diff changeset	1429	"
3907 a06fe9db6195 next stage penk parents: 3906 diff changeset	1430	MenuEditor new openOnClass:AbstractFileBrowser andSelector:#sortMenu
a06fe9db6195 next stage penk parents: 3906 diff changeset	1431	(Menu new fromLiteralArrayEncoding:(AbstractFileBrowser sortMenu)) startUp
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	1432	"
8a76cb4f5884 next stage penk parents: 3892 diff changeset	1433
8a76cb4f5884 next stage penk parents: 3892 diff changeset	1434	<resource: #menu>
8a76cb4f5884 next stage penk parents: 3892 diff changeset	1435
8a76cb4f5884 next stage penk parents: 3892 diff changeset	1436	^
8a76cb4f5884 next stage penk parents: 3892 diff changeset	1437	#(#Menu
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1438	#(
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1439	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1440	#label: 'By Filename'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1441	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1442	#hideMenuOnActivated: false
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1443	#choice: #sortBlockProperty
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1444	#choiceValue: #baseName
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1445	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1446	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1447	#label: 'By Type'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1448	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1449	#hideMenuOnActivated: false
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1450	#choice: #sortBlockProperty
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1451	#choiceValue: #suffix
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1452	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1453	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1454	#label: 'By Permissions'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1455	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1456	#hideMenuOnActivated: false
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1457	#choice: #sortBlockProperty
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1458	#choiceValue: #permissions
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1459	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1460	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1461	#label: 'By Owner'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1462	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1463	#isVisible: #viewOwner
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1464	#hideMenuOnActivated: false
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1465	#choice: #sortBlockProperty
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1466	#choiceValue: #owner
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1467	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1468	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1469	#label: 'By Group'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1470	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1471	#isVisible: #viewOwner
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1472	#hideMenuOnActivated: false
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1473	#choice: #sortBlockProperty
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1474	#choiceValue: #group
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1475	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1476	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1477	#label: 'By Size'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1478	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1479	#hideMenuOnActivated: false
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1480	#choice: #sortBlockProperty
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1481	#choiceValue: #fileSize
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1482	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1483	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1484	#label: 'By Date && Time'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1485	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1486	#hideMenuOnActivated: false
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1487	#choice: #sortBlockProperty
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1488	#choiceValue: #modificationTime
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1489	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1490	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1491	#label: '-'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1492	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1493	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1494	#label: 'Ignore Case in Sort'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1495	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1496	#hideMenuOnActivated: false
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1497	#indication: #sortCaseless
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1498	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1499	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1500	#label: 'Directories before Files'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1501	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1502	#hideMenuOnActivated: false
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1503	#indication: #sortDirectoriesBeforeFiles
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1504	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1505	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1506	nil
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1507	nil
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	1508	)
4018 43e02c59719d * empty log message * penk parents: 4011 diff changeset	1509	!
43e02c59719d * empty log message * penk parents: 4011 diff changeset	1510
4164 81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser penk parents: 4163 diff changeset	1511	toolsMenuSpec
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser penk parents: 4163 diff changeset	1512	"This resource specification was automatically generated
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser penk parents: 4163 diff changeset	1513	by the MenuEditor of ST/X."
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser penk parents: 4163 diff changeset	1514
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser penk parents: 4163 diff changeset	1515	"Do not manually edit this!! If it is corrupted,
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser penk parents: 4163 diff changeset	1516	the MenuEditor may not be able to read the specification."
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser penk parents: 4163 diff changeset	1517
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser penk parents: 4163 diff changeset	1518	"
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser penk parents: 4163 diff changeset	1519	MenuEditor new openOnClass:FileBrowserV2 andSelector:#toolsMenuSpec
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser penk parents: 4163 diff changeset	1520	(Menu new fromLiteralArrayEncoding:(FileBrowserV2 toolsMenuSpec)) startUp
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser penk parents: 4163 diff changeset	1521	"
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser penk parents: 4163 diff changeset	1522
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser penk parents: 4163 diff changeset	1523	<resource: #menu>
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser penk parents: 4163 diff changeset	1524
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser penk parents: 4163 diff changeset	1525	^
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser penk parents: 4163 diff changeset	1526	#(#Menu
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1527	#(
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1528	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1529	#label: 'Execute Command...'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1530	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1531	#value: #doExecuteCommand
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1532	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1533	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1534	#label: 'Shell Terminal'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1535	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1536	#isVisible: #canDoTerminalAndSystemIsUnix
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1537	#value: #openTerminal
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1538	#enabled: #canDoTerminal
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1539	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1540	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1541	#label: 'DOS Terminal'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1542	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1543	#isVisible: #canDoTerminalAndSystemIsDOS
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1544	#value: #openTerminal
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1545	#enabled: #canDoTerminal
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1546	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1547	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1548	#label: '-'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1549	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1550	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1551	#label: 'Changes Browser'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1552	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1553	#value: #openChangesBrowser
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1554	#enabled: #hasSelection
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1555	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1556	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1557	#label: 'Snapshot Image Browser'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1558	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1559	#value: #openSnapshotImageBrowser
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1560	#enabled: #hasSnapshotSelection
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1561	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1562	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1563	#label: 'Create Smalltalk Project'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1564	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1565	#value: #createProjectAndOpenProjectBrowser
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1566	#enabled: #canCreateNewProject
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1567	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1568	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1569	#label: 'Install Autoloaded'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1570	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1571	#value: #readAbbrevFile
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1572	#enabled: #canReadAbbrevFile
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1573	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1574	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1575	#label: 'Install all as Autoloaded'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1576	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1577	#value: #installAllAsAutoloaded
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1578	#enabled: #anySTFilesPresent
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1579	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1580	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1581	#label: 'Editor'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1582	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1583	#value: #openEditor
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1584	#enabled: #hasSelection
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1585	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1586	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1587	#label: 'HTML Reader'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1588	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1589	#value: #openHTMLReader
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1590	#enabled: #hasSelection
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1591	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1592	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1593	#label: 'ASN1 Browser'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1594	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1595	#isVisible: #hasASN1
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1596	#value: #openASN1Browser
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1597	#enabled: #hasASN1AndSelection
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1598	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1599	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1600	#label: 'C Browser'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1601	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1602	#isVisible: #hasCBrowser
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1603	#value: #openCBrowser
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1604	#enabled: #hasCBrowser
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1605	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1606	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1607	#label: 'Applet Viewer'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1608	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1609	#isVisible: #hasJava
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1610	#value: #openAppletViewer
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1611	#enabled: #hasJavaAndSelection
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1612	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1613	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1614	#label: 'Image Inspector'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1615	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1616	#value: #openImageInspector
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1617	#enabled: #hasSelection
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1618	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1619	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1620	#label: 'Image Preview'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1621	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1622	#value: #openImagePreview
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1623	#enabled: #hasSelection
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1624	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1625	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1626	#label: 'Image Editor'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1627	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1628	#value: #openImageEditor
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1629	#enabled: #hasSelection
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1630	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1631	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1632	#label: 'MP3 Player'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1633	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1634	#isVisible: #hasMP3Player
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1635	#value: #openMP3Player
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1636	#enabled: #hasMP3PlayerAndSelection
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1637	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1638	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1639	#label: 'ZipFile Tool'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1640	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1641	#value: #openZipTool
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1642	#enabled: #hasZipFileSelected
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1643	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1644	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1645	#label: 'Slide Show'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1646	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1647	#isVisible: #hasSlideShow
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1648	#value: #openSlideShow
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1649	#enabled: #currentFilesAreInSameDirectory
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1650	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1651	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1652	#label: 'File Differences...'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1653	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1654	#value: #openDiffView
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1655	#enabled: #hasSelection
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1656	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1657	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1658	#label: 'Find Duplicate Files'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1659	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1660	#value: #fileFindDuplicates
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1661	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1662	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1663	#label: 'Find All Duplicate Files (Recursive)'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1664	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1665	#value: #fileFindAllDuplicates
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1666	#enabled: #hasSelection
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1667	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1668	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1669	#label: 'Find a File...'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1670	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1671	#value: #fileFindFile
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1672	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1673	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1674	#label: 'Hex Dump'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1675	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1676	#value: #fileHexDump
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1677	#enabled: #hasSelection
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1678	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1679	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1680	nil
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1681	nil
4164 81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser penk parents: 4163 diff changeset	1682	)
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser penk parents: 4163 diff changeset	1683	!
81154143d447 move toolsMenuSpec from FileBrowserV2 to AbstractFileBrowser penk parents: 4163 diff changeset	1684
4018 43e02c59719d * empty log message * penk parents: 4011 diff changeset	1685	viewDetailsMenuSpec
43e02c59719d * empty log message * penk parents: 4011 diff changeset	1686	"This resource specification was automatically generated
43e02c59719d * empty log message * penk parents: 4011 diff changeset	1687	by the MenuEditor of ST/X."
43e02c59719d * empty log message * penk parents: 4011 diff changeset	1688
43e02c59719d * empty log message * penk parents: 4011 diff changeset	1689	"Do not manually edit this!! If it is corrupted,
43e02c59719d * empty log message * penk parents: 4011 diff changeset	1690	the MenuEditor may not be able to read the specification."
43e02c59719d * empty log message * penk parents: 4011 diff changeset	1691
43e02c59719d * empty log message * penk parents: 4011 diff changeset	1692	"
43e02c59719d * empty log message * penk parents: 4011 diff changeset	1693	MenuEditor new openOnClass:DirectoryContentsBrowser andSelector:#viewBrowserMenu
43e02c59719d * empty log message * penk parents: 4011 diff changeset	1694	(Menu new fromLiteralArrayEncoding:(DirectoryContentsBrowser viewBrowserMenu)) startUp
43e02c59719d * empty log message * penk parents: 4011 diff changeset	1695	"
43e02c59719d * empty log message * penk parents: 4011 diff changeset	1696
43e02c59719d * empty log message * penk parents: 4011 diff changeset	1697	<resource: #menu>
43e02c59719d * empty log message * penk parents: 4011 diff changeset	1698
43e02c59719d * empty log message * penk parents: 4011 diff changeset	1699	^
43e02c59719d * empty log message * penk parents: 4011 diff changeset	1700	#(#Menu
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1701	#(
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1702	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1703	#label: 'Suffix'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1704	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1705	#hideMenuOnActivated: false
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1706	#enabled: #viewDetails
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1707	#indication: #viewType
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1708	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1709	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1710	#label: 'Permissions'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1711	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1712	#hideMenuOnActivated: false
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1713	#enabled: #viewDetails
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1714	#indication: #viewPermissions
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1715	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1716	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1717	#label: 'Owner'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1718	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1719	#hideMenuOnActivated: false
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1720	#enabled: #viewDetails
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1721	#indication: #viewOwner
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1722	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1723	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1724	#label: 'Group'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1725	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1726	#hideMenuOnActivated: false
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1727	#enabled: #viewDetails
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1728	#indication: #viewGroup
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1729	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1730	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1731	#label: 'Size'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1732	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1733	#hideMenuOnActivated: false
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1734	#enabled: #viewDetails
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1735	#indication: #viewSize
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1736	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1737	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1738	#label: 'Date && Time'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1739	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1740	#hideMenuOnActivated: false
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1741	#enabled: #viewDetails
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1742	#indication: #viewTime
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1743	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1744	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1745	#label: 'File Info'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1746	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1747	#hideMenuOnActivated: false
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1748	#enabled: #viewDetails
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1749	#indication: #viewDescription
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1750	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1751	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1752	#label: 'Preview'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1753	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1754	#hideMenuOnActivated: false
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1755	#enabled: #viewDetails
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1756	#indication: #viewPreview
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1757	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1758	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1759	#label: '-'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1760	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1761	#(#MenuItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1762	#label: 'Hidden Files'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1763	#translateLabel: true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1764	#indication: #showHiddenFiles
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1765	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1766	)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1767	nil
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1768	nil
4018 43e02c59719d * empty log message * penk parents: 4011 diff changeset	1769	)
3892 321c1729db5b initial checkin penk parents: diff changeset	1770	! !
321c1729db5b initial checkin penk parents: diff changeset	1771
321c1729db5b initial checkin penk parents: diff changeset	1772	!AbstractFileBrowser class methodsFor:'misc'!
321c1729db5b initial checkin penk parents: diff changeset	1773
321c1729db5b initial checkin penk parents: diff changeset	1774	newLock
321c1729db5b initial checkin penk parents: diff changeset	1775	^ CodeExecutionLock new
321c1729db5b initial checkin penk parents: diff changeset	1776	! !
321c1729db5b initial checkin penk parents: diff changeset	1777
321c1729db5b initial checkin penk parents: diff changeset	1778	!AbstractFileBrowser methodsFor:'actions'!
321c1729db5b initial checkin penk parents: diff changeset	1779
321c1729db5b initial checkin penk parents: diff changeset	1780	askForCommandFor:fileName thenDo:aBlock
321c1729db5b initial checkin penk parents: diff changeset	1781	"setup and launch a querybox to ask for unix command.
321c1729db5b initial checkin penk parents: diff changeset	1782	Then evaluate aBlock passing the command-string as argument."
321c1729db5b initial checkin penk parents: diff changeset	1783
321c1729db5b initial checkin penk parents: diff changeset	1784	\|box osName\|
321c1729db5b initial checkin penk parents: diff changeset	1785
321c1729db5b initial checkin penk parents: diff changeset	1786	osName := OperatingSystem platformName.
321c1729db5b initial checkin penk parents: diff changeset	1787
321c1729db5b initial checkin penk parents: diff changeset	1788	box := FilenameEnterBox
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1789	title:(resources string:'Execute %1 command:' with:osName)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1790	okText:(resources string:'Execute')
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1791	action:aBlock.
3892 321c1729db5b initial checkin penk parents: diff changeset	1792
321c1729db5b initial checkin penk parents: diff changeset	1793	fileName notNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1794	self initialCommandFor:fileName into:box.
3892 321c1729db5b initial checkin penk parents: diff changeset	1795	].
321c1729db5b initial checkin penk parents: diff changeset	1796	box directory:(self getDirWithoutFileName:fileName).
321c1729db5b initial checkin penk parents: diff changeset	1797	box showAtPointer.
321c1729db5b initial checkin penk parents: diff changeset	1798	box destroy.
321c1729db5b initial checkin penk parents: diff changeset	1799
321c1729db5b initial checkin penk parents: diff changeset	1800	"Modified: / 7.9.1995 / 10:31:54 / claus"
321c1729db5b initial checkin penk parents: diff changeset	1801	"Modified: / 16.9.1997 / 15:35:10 / stefan"
321c1729db5b initial checkin penk parents: diff changeset	1802	"Modified: / 14.8.1998 / 14:12:52 / cg"
321c1729db5b initial checkin penk parents: diff changeset	1803	!
321c1729db5b initial checkin penk parents: diff changeset	1804
321c1729db5b initial checkin penk parents: diff changeset	1805	changeFileBrowserTitleTo:aString
321c1729db5b initial checkin penk parents: diff changeset	1806
321c1729db5b initial checkin penk parents: diff changeset	1807	self application:#FileBrowserV2
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1808	do:#changeFileBrowserTitleTo:
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1809	withArg:aString
3892 321c1729db5b initial checkin penk parents: diff changeset	1810	!
321c1729db5b initial checkin penk parents: diff changeset	1811
321c1729db5b initial checkin penk parents: diff changeset	1812	copyFileList
321c1729db5b initial checkin penk parents: diff changeset	1813
321c1729db5b initial checkin penk parents: diff changeset	1814	\| fileList stream\|
321c1729db5b initial checkin penk parents: diff changeset	1815	fileList := self application:#DirectoryContentsBrowser do:#descriptions.
321c1729db5b initial checkin penk parents: diff changeset	1816	stream := WriteStream on:''.
321c1729db5b initial checkin penk parents: diff changeset	1817	fileList do:[: item \|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1818	stream nextPutAll:(item fileName asString).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1819	stream cr.
3892 321c1729db5b initial checkin penk parents: diff changeset	1820	].
321c1729db5b initial checkin penk parents: diff changeset	1821	self window setTextSelection:stream contents.
321c1729db5b initial checkin penk parents: diff changeset	1822	stream close.
321c1729db5b initial checkin penk parents: diff changeset	1823	!
321c1729db5b initial checkin penk parents: diff changeset	1824
321c1729db5b initial checkin penk parents: diff changeset	1825	copySelectedFilenames
321c1729db5b initial checkin penk parents: diff changeset	1826
321c1729db5b initial checkin penk parents: diff changeset	1827	\| fileList stream\|
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	1828	fileList := self application:#DirectoryContentsBrowser do:#selectedFiles.
3892 321c1729db5b initial checkin penk parents: diff changeset	1829	fileList isEmpty ifTrue:[^ self].
321c1729db5b initial checkin penk parents: diff changeset	1830	stream := WriteStream on:''.
321c1729db5b initial checkin penk parents: diff changeset	1831	fileList do:[: file \|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1832	stream nextPutAll:(file asString).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1833	stream cr.
3892 321c1729db5b initial checkin penk parents: diff changeset	1834	].
321c1729db5b initial checkin penk parents: diff changeset	1835	self window setTextSelection:stream contents.
321c1729db5b initial checkin penk parents: diff changeset	1836	stream close.
321c1729db5b initial checkin penk parents: diff changeset	1837	!
321c1729db5b initial checkin penk parents: diff changeset	1838
321c1729db5b initial checkin penk parents: diff changeset	1839	doAddTerminal
321c1729db5b initial checkin penk parents: diff changeset	1840
321c1729db5b initial checkin penk parents: diff changeset	1841	\| item dir directories\|
321c1729db5b initial checkin penk parents: diff changeset	1842
321c1729db5b initial checkin penk parents: diff changeset	1843	directories := self currentDirectories value.
321c1729db5b initial checkin penk parents: diff changeset	1844
321c1729db5b initial checkin penk parents: diff changeset	1845	directories isEmpty ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1846	dir := Filename homeDirectory
3892 321c1729db5b initial checkin penk parents: diff changeset	1847	] ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1848	dir := directories first.
3892 321c1729db5b initial checkin penk parents: diff changeset	1849	].
321c1729db5b initial checkin penk parents: diff changeset	1850
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	1851	item := (DirectoryContentsBrowser itemClass fileName:dir).
3892 321c1729db5b initial checkin penk parents: diff changeset	1852	self fileApplicationDo:#openTerminalApplication: withArg:item.
321c1729db5b initial checkin penk parents: diff changeset	1853	!
321c1729db5b initial checkin penk parents: diff changeset	1854
321c1729db5b initial checkin penk parents: diff changeset	1855	doExecuteCommand
321c1729db5b initial checkin penk parents: diff changeset	1856
321c1729db5b initial checkin penk parents: diff changeset	1857	\| action fileName\|
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	1858	fileName := self firstSelectedFile.
3892 321c1729db5b initial checkin penk parents: diff changeset	1859	action := [:command \|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1860	self addToCommandHistory:command for:fileName.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1861	self executeCommand:command.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1862	].
3892 321c1729db5b initial checkin penk parents: diff changeset	1863	self askForCommandFor:fileName thenDo:action
321c1729db5b initial checkin penk parents: diff changeset	1864	!
321c1729db5b initial checkin penk parents: diff changeset	1865
321c1729db5b initial checkin penk parents: diff changeset	1866	doGoDirectoryUp
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	1867	\| upDir directories rootInTreeView\|
3892 321c1729db5b initial checkin penk parents: diff changeset	1868
321c1729db5b initial checkin penk parents: diff changeset	1869	self enableDirectoryUp value ifFalse:[ ^ self].
321c1729db5b initial checkin penk parents: diff changeset	1870	self currentFilesAreInSameDirectory ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1871	directories := self currentDirectories value.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1872	upDir := directories first directory.
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	1873	] ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1874	rootInTreeView := self application:#DirectoryTreeBrowser do:#rootHolder.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1875	upDir := rootInTreeView value asFilename directory.
3892 321c1729db5b initial checkin penk parents: diff changeset	1876	].
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	1877	self currentFileNameHolder value:(OrderedCollection with:upDir).
3892 321c1729db5b initial checkin penk parents: diff changeset	1878	!
321c1729db5b initial checkin penk parents: diff changeset	1879
321c1729db5b initial checkin penk parents: diff changeset	1880	doGotoDefaultDirectory
321c1729db5b initial checkin penk parents: diff changeset	1881	self gotoFile:(Filename defaultDirectory).
321c1729db5b initial checkin penk parents: diff changeset	1882	!
321c1729db5b initial checkin penk parents: diff changeset	1883
321c1729db5b initial checkin penk parents: diff changeset	1884	doGotoHomeDirectory
321c1729db5b initial checkin penk parents: diff changeset	1885
321c1729db5b initial checkin penk parents: diff changeset	1886	\| home \|
321c1729db5b initial checkin penk parents: diff changeset	1887
321c1729db5b initial checkin penk parents: diff changeset	1888	home := Filename homeDirectory.
321c1729db5b initial checkin penk parents: diff changeset	1889	self gotoFile:home.
321c1729db5b initial checkin penk parents: diff changeset	1890	!
321c1729db5b initial checkin penk parents: diff changeset	1891
321c1729db5b initial checkin penk parents: diff changeset	1892	doOpenSearchFile
321c1729db5b initial checkin penk parents: diff changeset	1893
321c1729db5b initial checkin penk parents: diff changeset	1894	\|item files\|
321c1729db5b initial checkin penk parents: diff changeset	1895
4034 60b4a743012f * empty log message * penk parents: 4032 diff changeset	1896	files := self currentFileNameHolder value.
60b4a743012f * empty log message * penk parents: 4032 diff changeset	1897	files notEmpty ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1898	item := DirectoryContentsBrowser itemClass fileName:(files first).
4034 60b4a743012f * empty log message * penk parents: 4032 diff changeset	1899	] ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1900	item := DirectoryContentsBrowser itemClass fileName:(Filename homeDirectory asAbsoluteFilename).
3892 321c1729db5b initial checkin penk parents: diff changeset	1901	].
321c1729db5b initial checkin penk parents: diff changeset	1902	self openSearchFileOn:item.
321c1729db5b initial checkin penk parents: diff changeset	1903	!
321c1729db5b initial checkin penk parents: diff changeset	1904
321c1729db5b initial checkin penk parents: diff changeset	1905	doShowFileContents
321c1729db5b initial checkin penk parents: diff changeset	1906
321c1729db5b initial checkin penk parents: diff changeset	1907	^ self application:#DirectoryContentsBrowser do:#doShowFileContents.
321c1729db5b initial checkin penk parents: diff changeset	1908	!
321c1729db5b initial checkin penk parents: diff changeset	1909
321c1729db5b initial checkin penk parents: diff changeset	1910	doShowProperties
321c1729db5b initial checkin penk parents: diff changeset	1911
321c1729db5b initial checkin penk parents: diff changeset	1912	"show long stat (file)-info"
321c1729db5b initial checkin penk parents: diff changeset	1913
321c1729db5b initial checkin penk parents: diff changeset	1914	self fileGetInfo:true
321c1729db5b initial checkin penk parents: diff changeset	1915	!
321c1729db5b initial checkin penk parents: diff changeset	1916
321c1729db5b initial checkin penk parents: diff changeset	1917	fileApplicationDo:selector
321c1729db5b initial checkin penk parents: diff changeset	1918
321c1729db5b initial checkin penk parents: diff changeset	1919	^ self application:#FileApplicationNoteBook do:selector
321c1729db5b initial checkin penk parents: diff changeset	1920	!
321c1729db5b initial checkin penk parents: diff changeset	1921
321c1729db5b initial checkin penk parents: diff changeset	1922	fileApplicationDo:selector withArg:arg
321c1729db5b initial checkin penk parents: diff changeset	1923	^ self application:#FileApplicationNoteBook do:selector withArg:arg
321c1729db5b initial checkin penk parents: diff changeset	1924	!
321c1729db5b initial checkin penk parents: diff changeset	1925
321c1729db5b initial checkin penk parents: diff changeset	1926	fileGetInfo:longInfo
321c1729db5b initial checkin penk parents: diff changeset	1927	"get info on selected file - show it in a box"
321c1729db5b initial checkin penk parents: diff changeset	1928
321c1729db5b initial checkin penk parents: diff changeset	1929	\|string box updater\|
321c1729db5b initial checkin penk parents: diff changeset	1930
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	1931	string := self getFileInfoStringForFirstSelectedFile:longInfo.
3892 321c1729db5b initial checkin penk parents: diff changeset	1932	string notNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1933	box := InfoBox title:string.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1934	updater := [
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1935	[true] whileTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1936	Delay waitForSeconds:2.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1937	string := self getFileInfoStringForFirstSelectedFile:longInfo.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1938	string isNil ifTrue:[ ^ self].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1939	box title:string
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1940	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1941	] fork.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1942	box showAtPointer.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1943	updater terminate.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1944	box destroy
3892 321c1729db5b initial checkin penk parents: diff changeset	1945	]
321c1729db5b initial checkin penk parents: diff changeset	1946	!
321c1729db5b initial checkin penk parents: diff changeset	1947
321c1729db5b initial checkin penk parents: diff changeset	1948	gotoFile:aFilename
321c1729db5b initial checkin penk parents: diff changeset	1949
3964 8697bad1c903 next stage for history penk parents: 3963 diff changeset	1950	" select only if the file is not already in selection"
8697bad1c903 next stage for history penk parents: 3963 diff changeset	1951	\| currentSel \|
8697bad1c903 next stage for history penk parents: 3963 diff changeset	1952
8697bad1c903 next stage for history penk parents: 3963 diff changeset	1953	currentSel := self currentFileNameHolder value.
8697bad1c903 next stage for history penk parents: 3963 diff changeset	1954	((currentSel findFirst:[:aFile\| aFile = aFilename]) == 0) ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	1955	self currentFileNameHolder value:(OrderedCollection with:(aFilename asAbsoluteFilename)).
3964 8697bad1c903 next stage for history penk parents: 3963 diff changeset	1956	].
3892 321c1729db5b initial checkin penk parents: diff changeset	1957	!
321c1729db5b initial checkin penk parents: diff changeset	1958
321c1729db5b initial checkin penk parents: diff changeset	1959	openApplByFileItem:aItem
321c1729db5b initial checkin penk parents: diff changeset	1960
4148 ce9d04dc8512 return the application after open penk parents: 4110 diff changeset	1961	^ self fileApplicationDo:#openApplByFileItem: withArg:aItem
3892 321c1729db5b initial checkin penk parents: diff changeset	1962	!
321c1729db5b initial checkin penk parents: diff changeset	1963
321c1729db5b initial checkin penk parents: diff changeset	1964	openCommandResultApplication
321c1729db5b initial checkin penk parents: diff changeset	1965
321c1729db5b initial checkin penk parents: diff changeset	1966	^ self fileApplicationDo:#openCommandResultApplication
321c1729db5b initial checkin penk parents: diff changeset	1967	!
321c1729db5b initial checkin penk parents: diff changeset	1968
321c1729db5b initial checkin penk parents: diff changeset	1969	openSearchFileOn:aItem
321c1729db5b initial checkin penk parents: diff changeset	1970
321c1729db5b initial checkin penk parents: diff changeset	1971	^ self fileApplicationDo:#openSearchFileOn: withArg:aItem
321c1729db5b initial checkin penk parents: diff changeset	1972	!
321c1729db5b initial checkin penk parents: diff changeset	1973
321c1729db5b initial checkin penk parents: diff changeset	1974	openTextEditorOn:aItem
321c1729db5b initial checkin penk parents: diff changeset	1975
321c1729db5b initial checkin penk parents: diff changeset	1976	^ self fileApplicationDo:#openTextEditorOn: withArg:aItem
321c1729db5b initial checkin penk parents: diff changeset	1977	!
321c1729db5b initial checkin penk parents: diff changeset	1978
321c1729db5b initial checkin penk parents: diff changeset	1979	updateAndSelect:aColOfFiles
321c1729db5b initial checkin penk parents: diff changeset	1980
321c1729db5b initial checkin penk parents: diff changeset	1981	self application:#DirectoryContentsBrowser do:#doUpdate.
321c1729db5b initial checkin penk parents: diff changeset	1982	self application:#DirectoryTreeBrowser do:#doUpdate.
321c1729db5b initial checkin penk parents: diff changeset	1983
321c1729db5b initial checkin penk parents: diff changeset	1984	aColOfFiles notNil ifTrue:[ self currentFileNameHolder value:aColOfFiles ].
321c1729db5b initial checkin penk parents: diff changeset	1985	!
321c1729db5b initial checkin penk parents: diff changeset	1986
321c1729db5b initial checkin penk parents: diff changeset	1987	updateCurrentDirectory
321c1729db5b initial checkin penk parents: diff changeset	1988
321c1729db5b initial checkin penk parents: diff changeset	1989	self updateAndSelect:nil
321c1729db5b initial checkin penk parents: diff changeset	1990	! !
321c1729db5b initial checkin penk parents: diff changeset	1991
321c1729db5b initial checkin penk parents: diff changeset	1992	!AbstractFileBrowser methodsFor:'actions bookmarks'!
321c1729db5b initial checkin penk parents: diff changeset	1993
321c1729db5b initial checkin penk parents: diff changeset	1994	addBookmark
321c1729db5b initial checkin penk parents: diff changeset	1995
321c1729db5b initial checkin penk parents: diff changeset	1996	\|directories\|
321c1729db5b initial checkin penk parents: diff changeset	1997
321c1729db5b initial checkin penk parents: diff changeset	1998	self currentFilesAreInSameDirectory ifFalse:[^ self].
321c1729db5b initial checkin penk parents: diff changeset	1999	directories := self currentDirectories value.
321c1729db5b initial checkin penk parents: diff changeset	2000	self addBookmark:directories.
321c1729db5b initial checkin penk parents: diff changeset	2001	!
321c1729db5b initial checkin penk parents: diff changeset	2002
321c1729db5b initial checkin penk parents: diff changeset	2003	addBookmark:aColOfDirectories
321c1729db5b initial checkin penk parents: diff changeset	2004	\|idx bookmarks\|
321c1729db5b initial checkin penk parents: diff changeset	2005
321c1729db5b initial checkin penk parents: diff changeset	2006	aColOfDirectories do:[ : path \|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2007	bookmarks := self class directoryBookmarks.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2008	idx := bookmarks indexOf:path.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2009	idx == 0 ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2010	bookmarks addLast:path.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2011	].
3892 321c1729db5b initial checkin penk parents: diff changeset	2012	].
321c1729db5b initial checkin penk parents: diff changeset	2013	!
321c1729db5b initial checkin penk parents: diff changeset	2014
321c1729db5b initial checkin penk parents: diff changeset	2015	hasBookmarks
321c1729db5b initial checkin penk parents: diff changeset	2016	^ self class directoryBookmarks size > 0
321c1729db5b initial checkin penk parents: diff changeset	2017	!
321c1729db5b initial checkin penk parents: diff changeset	2018
321c1729db5b initial checkin penk parents: diff changeset	2019	hasBookmarksToRemove
321c1729db5b initial checkin penk parents: diff changeset	2020
321c1729db5b initial checkin penk parents: diff changeset	2021	\|bookmarks directories\|
321c1729db5b initial checkin penk parents: diff changeset	2022
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	2023	directories := self currentSelectedDirectories.
3892 321c1729db5b initial checkin penk parents: diff changeset	2024	bookmarks := self class directoryBookmarks.
321c1729db5b initial checkin penk parents: diff changeset	2025	^ (bookmarks size > 0 and:[directories notEmpty])
321c1729db5b initial checkin penk parents: diff changeset	2026	!
321c1729db5b initial checkin penk parents: diff changeset	2027
321c1729db5b initial checkin penk parents: diff changeset	2028	removeBookmark
321c1729db5b initial checkin penk parents: diff changeset	2029
321c1729db5b initial checkin penk parents: diff changeset	2030	\|bookmarks directories\|
321c1729db5b initial checkin penk parents: diff changeset	2031
321c1729db5b initial checkin penk parents: diff changeset	2032	bookmarks := self class directoryBookmarks.
321c1729db5b initial checkin penk parents: diff changeset	2033	bookmarks isNil ifTrue:[ ^ self].
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	2034	directories := self currentSelectedDirectories.
3892 321c1729db5b initial checkin penk parents: diff changeset	2035	directories isEmpty ifTrue:[^ self].
321c1729db5b initial checkin penk parents: diff changeset	2036	directories do:[:dir\|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2037	bookmarks remove:dir ifAbsent:nil.
3892 321c1729db5b initial checkin penk parents: diff changeset	2038	].
321c1729db5b initial checkin penk parents: diff changeset	2039	! !
321c1729db5b initial checkin penk parents: diff changeset	2040
321c1729db5b initial checkin penk parents: diff changeset	2041	!AbstractFileBrowser methodsFor:'actions history'!
321c1729db5b initial checkin penk parents: diff changeset	2042
321c1729db5b initial checkin penk parents: diff changeset	2043	addToCommandHistory:aCommandString for:aFilename
321c1729db5b initial checkin penk parents: diff changeset	2044	\|cmd suffix cmdHist\|
321c1729db5b initial checkin penk parents: diff changeset	2045
321c1729db5b initial checkin penk parents: diff changeset	2046	cmdHist := self class commandHistory.
321c1729db5b initial checkin penk parents: diff changeset	2047	(aCommandString notNil and:[aCommandString notEmpty]) ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2048	cmdHist notNil ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2049	cmdHist addFirst:aCommandString.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2050	cmdHist size > self class commandHistorySize ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2051	cmdHist removeLast
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2052	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2053	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2054	aFilename notNil ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2055	cmd := aCommandString copyTo:(aCommandString indexOf:Character space ifAbsent:[aCommandString size + 1])-1.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2056	DefaultCommandPerSuffix isNil ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2057	DefaultCommandPerSuffix := Dictionary new.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2058	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2059	suffix := aFilename asFilename suffix.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2060	suffix notNil ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2061	DefaultCommandPerSuffix at:suffix put:cmd.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2062	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2063	]
3892 321c1729db5b initial checkin penk parents: diff changeset	2064	]
321c1729db5b initial checkin penk parents: diff changeset	2065	!
321c1729db5b initial checkin penk parents: diff changeset	2066
321c1729db5b initial checkin penk parents: diff changeset	2067	doBack
321c1729db5b initial checkin penk parents: diff changeset	2068
4022 87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	2069	\| fileName\|
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	2070
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	2071	fileName := self dirHistory goBack.
3892 321c1729db5b initial checkin penk parents: diff changeset	2072	fileName notNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2073	self gotoFile:(fileName asFilename).
3892 321c1729db5b initial checkin penk parents: diff changeset	2074	]
321c1729db5b initial checkin penk parents: diff changeset	2075	!
321c1729db5b initial checkin penk parents: diff changeset	2076
321c1729db5b initial checkin penk parents: diff changeset	2077	doForward
321c1729db5b initial checkin penk parents: diff changeset	2078
3964 8697bad1c903 next stage for history penk parents: 3963 diff changeset	2079	\| fileName\|
8697bad1c903 next stage for history penk parents: 3963 diff changeset	2080
3952 c04d4781a37e next stage penk parents: 3949 diff changeset	2081	fileName := self dirHistory goForward.
3892 321c1729db5b initial checkin penk parents: diff changeset	2082	fileName notNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2083	self gotoFile:(fileName asFilename).
4022 87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	2084	] ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2085	self enableForward value:false.
4022 87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	2086
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	2087	].
3892 321c1729db5b initial checkin penk parents: diff changeset	2088	! !
321c1729db5b initial checkin penk parents: diff changeset	2089
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	2090	!AbstractFileBrowser methodsFor:'actions-app-common'!
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	2091
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	2092	openApplForFile:aFilename
4148 ce9d04dc8512 return the application after open penk parents: 4110 diff changeset	2093	^ self openApplByFileItem:(DirectoryContentsBrowser itemClass fileName:aFilename).
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	2094	! !
cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	2095
3892 321c1729db5b initial checkin penk parents: diff changeset	2096	!AbstractFileBrowser methodsFor:'applications'!
321c1729db5b initial checkin penk parents: diff changeset	2097
321c1729db5b initial checkin penk parents: diff changeset	2098	application:aApplication do:aMethod
321c1729db5b initial checkin penk parents: diff changeset	2099
4191 441ab27e2c7e * empty log message * penk parents: 4190 diff changeset	2100	" perform a Method for a application "
3892 321c1729db5b initial checkin penk parents: diff changeset	2101	\|appl\|
321c1729db5b initial checkin penk parents: diff changeset	2102
321c1729db5b initial checkin penk parents: diff changeset	2103	appl := self applications at:aApplication ifAbsent:nil.
321c1729db5b initial checkin penk parents: diff changeset	2104	appl notNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2105	^ appl perform:aMethod.
3892 321c1729db5b initial checkin penk parents: diff changeset	2106	].
321c1729db5b initial checkin penk parents: diff changeset	2107	^ nil.
321c1729db5b initial checkin penk parents: diff changeset	2108	!
321c1729db5b initial checkin penk parents: diff changeset	2109
321c1729db5b initial checkin penk parents: diff changeset	2110	application:aApplication do:aMethod withArg:arg
321c1729db5b initial checkin penk parents: diff changeset	2111	\|appl\|
321c1729db5b initial checkin penk parents: diff changeset	2112
321c1729db5b initial checkin penk parents: diff changeset	2113	appl := self applications at:aApplication ifAbsent:nil.
321c1729db5b initial checkin penk parents: diff changeset	2114	appl notNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2115	^ appl perform:aMethod with:arg
3892 321c1729db5b initial checkin penk parents: diff changeset	2116	].
321c1729db5b initial checkin penk parents: diff changeset	2117	^ nil
321c1729db5b initial checkin penk parents: diff changeset	2118	!
321c1729db5b initial checkin penk parents: diff changeset	2119
321c1729db5b initial checkin penk parents: diff changeset	2120	application:aApplication do:aMethod withArg:arg1 withArg:arg2
321c1729db5b initial checkin penk parents: diff changeset	2121	\|appl\|
321c1729db5b initial checkin penk parents: diff changeset	2122
321c1729db5b initial checkin penk parents: diff changeset	2123	appl := self applications at:aApplication ifAbsent:nil.
321c1729db5b initial checkin penk parents: diff changeset	2124	appl notNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2125	(arg1 notNil and:[arg2 notNil]) ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2126	^ appl perform:aMethod with:arg1 with:arg2
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2127	]
3892 321c1729db5b initial checkin penk parents: diff changeset	2128	].
321c1729db5b initial checkin penk parents: diff changeset	2129	^ nil
4004 f97168a68093 * empty log message * Claus Gittinger <cg@exept.de> parents: 4000 diff changeset	2130	!
f97168a68093 * empty log message * Claus Gittinger <cg@exept.de> parents: 4000 diff changeset	2131
f97168a68093 * empty log message * Claus Gittinger <cg@exept.de> parents: 4000 diff changeset	2132	directoryContentsBrowser
f97168a68093 * empty log message * Claus Gittinger <cg@exept.de> parents: 4000 diff changeset	2133	^ self applications at:#DirectoryContentsBrowser ifAbsent:nil.
3892 321c1729db5b initial checkin penk parents: diff changeset	2134	! !
321c1729db5b initial checkin penk parents: diff changeset	2135
321c1729db5b initial checkin penk parents: diff changeset	2136	!AbstractFileBrowser methodsFor:'aspects'!
321c1729db5b initial checkin penk parents: diff changeset	2137
321c1729db5b initial checkin penk parents: diff changeset	2138	applications
321c1729db5b initial checkin penk parents: diff changeset	2139	"returns the list of registered applications
321c1729db5b initial checkin penk parents: diff changeset	2140	"
321c1729db5b initial checkin penk parents: diff changeset	2141	^ aspects at:#applications
321c1729db5b initial checkin penk parents: diff changeset	2142	!
321c1729db5b initial checkin penk parents: diff changeset	2143
321c1729db5b initial checkin penk parents: diff changeset	2144	backgroundProcesses
321c1729db5b initial checkin penk parents: diff changeset	2145
321c1729db5b initial checkin penk parents: diff changeset	2146	^ self aspectFor:#backgroundProcesses ifAbsent:[List new]
321c1729db5b initial checkin penk parents: diff changeset	2147	!
321c1729db5b initial checkin penk parents: diff changeset	2148
321c1729db5b initial checkin penk parents: diff changeset	2149	currentDirectories
321c1729db5b initial checkin penk parents: diff changeset	2150
321c1729db5b initial checkin penk parents: diff changeset	2151	" returns a Ordered Collection of all directories currently selected
321c1729db5b initial checkin penk parents: diff changeset	2152	if only a file is selected currentDirectories holds the directory of the file
321c1729db5b initial checkin penk parents: diff changeset	2153	"
321c1729db5b initial checkin penk parents: diff changeset	2154
321c1729db5b initial checkin penk parents: diff changeset	2155	^ self aspectFor:#currentDirectories ifAbsent:[ (OrderedCollection new) asValue ].
321c1729db5b initial checkin penk parents: diff changeset	2156	!
321c1729db5b initial checkin penk parents: diff changeset	2157
321c1729db5b initial checkin penk parents: diff changeset	2158	currentFileNameHolder
321c1729db5b initial checkin penk parents: diff changeset	2159
321c1729db5b initial checkin penk parents: diff changeset	2160	" returns a OrderedCollection of all files that are selected
321c1729db5b initial checkin penk parents: diff changeset	2161	if no file but a directory is selected it contains the directories
321c1729db5b initial checkin penk parents: diff changeset	2162	in contrast to currentDirectories wich have only the directories
321c1729db5b initial checkin penk parents: diff changeset	2163	"
321c1729db5b initial checkin penk parents: diff changeset	2164
321c1729db5b initial checkin penk parents: diff changeset	2165	^ self aspectFor:#currentFileNameHolder ifAbsent:[(OrderedCollection with:(Filename currentDirectory asAbsoluteFilename)) asValue]
321c1729db5b initial checkin penk parents: diff changeset	2166	!
321c1729db5b initial checkin penk parents: diff changeset	2167
321c1729db5b initial checkin penk parents: diff changeset	2168	enableDirectoryUp
321c1729db5b initial checkin penk parents: diff changeset	2169
321c1729db5b initial checkin penk parents: diff changeset	2170	^ self aspectFor:#enableDirectoryUp ifAbsent:[false asValue]
321c1729db5b initial checkin penk parents: diff changeset	2171	!
321c1729db5b initial checkin penk parents: diff changeset	2172
321c1729db5b initial checkin penk parents: diff changeset	2173	enableHome
321c1729db5b initial checkin penk parents: diff changeset	2174
321c1729db5b initial checkin penk parents: diff changeset	2175	^ self aspectFor:#enableHome ifAbsent:[ true asValue ].
321c1729db5b initial checkin penk parents: diff changeset	2176	!
321c1729db5b initial checkin penk parents: diff changeset	2177
321c1729db5b initial checkin penk parents: diff changeset	2178	enableViewNoteBookApplication
321c1729db5b initial checkin penk parents: diff changeset	2179
321c1729db5b initial checkin penk parents: diff changeset	2180	^ self aspectFor:#enableViewNoteBookApplication ifAbsent:[false asValue]
321c1729db5b initial checkin penk parents: diff changeset	2181	!
321c1729db5b initial checkin penk parents: diff changeset	2182
321c1729db5b initial checkin penk parents: diff changeset	2183	hasSelection
321c1729db5b initial checkin penk parents: diff changeset	2184
321c1729db5b initial checkin penk parents: diff changeset	2185	^ self aspectFor:#hasSelection ifAbsent:[ false asValue ].
321c1729db5b initial checkin penk parents: diff changeset	2186	!
321c1729db5b initial checkin penk parents: diff changeset	2187
321c1729db5b initial checkin penk parents: diff changeset	2188	notifyChannel
321c1729db5b initial checkin penk parents: diff changeset	2189
321c1729db5b initial checkin penk parents: diff changeset	2190	^ self aspectFor:#notifyChannel ifAbsent:['' asValue]
4071 f923c8257818 * empty log message * penk parents: 4060 diff changeset	2191	!
f923c8257818 * empty log message * penk parents: 4060 diff changeset	2192
f923c8257818 * empty log message * penk parents: 4060 diff changeset	2193	rootHolder
f923c8257818 * empty log message * penk parents: 4060 diff changeset	2194	"holder, which keeps the rootHolder of the treeView
f923c8257818 * empty log message * penk parents: 4060 diff changeset	2195	"
f923c8257818 * empty log message * penk parents: 4060 diff changeset	2196
f923c8257818 * empty log message * penk parents: 4060 diff changeset	2197	^ self aspectFor:#rootHolder ifAbsent:[ValueHolder new].
3892 321c1729db5b initial checkin penk parents: diff changeset	2198	! !
321c1729db5b initial checkin penk parents: diff changeset	2199
321c1729db5b initial checkin penk parents: diff changeset	2200	!AbstractFileBrowser methodsFor:'aspects handling'!
321c1729db5b initial checkin penk parents: diff changeset	2201
321c1729db5b initial checkin penk parents: diff changeset	2202	aspectFor:something ifAbsent:aBlock
321c1729db5b initial checkin penk parents: diff changeset	2203	"returns the model for an aspect
321c1729db5b initial checkin penk parents: diff changeset	2204	"
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2205	\|holder saveAspectItem aspect\|
3892 321c1729db5b initial checkin penk parents: diff changeset	2206
321c1729db5b initial checkin penk parents: diff changeset	2207	(holder := aspects at:something ifAbsent:nil) isNil ifTrue:[
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2208	saveAspectItem := self runtimeAspectValueFor:something.
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2209	saveAspectItem notNil ifTrue:[
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2210	saveAspectItem isHolder ifTrue:[
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2211	holder := ValueHolder with:saveAspectItem value
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2212	] ifFalse:[
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2213	holder := saveAspectItem value
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2214	].
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2215	] ifFalse:[
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2216	aspect := self userPreferencesAspectValueFor:something.
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2217	aspect notNil ifTrue:[
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2218	holder := aspect asValue
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2219	] ifFalse:[
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2220	holder := aBlock value.
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2221	]
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2222	].
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2223	holder notNil ifTrue:[
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2224	aspects at:something put:holder
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2225	]
3892 321c1729db5b initial checkin penk parents: diff changeset	2226	].
321c1729db5b initial checkin penk parents: diff changeset	2227	^ holder
321c1729db5b initial checkin penk parents: diff changeset	2228	!
321c1729db5b initial checkin penk parents: diff changeset	2229
321c1729db5b initial checkin penk parents: diff changeset	2230	aspects
321c1729db5b initial checkin penk parents: diff changeset	2231	^ aspects
321c1729db5b initial checkin penk parents: diff changeset	2232	!
321c1729db5b initial checkin penk parents: diff changeset	2233
321c1729db5b initial checkin penk parents: diff changeset	2234	runtimeAspectValueFor:something
321c1729db5b initial checkin penk parents: diff changeset	2235	"returns the default aspect item from the class variable RuntimeAspects
321c1729db5b initial checkin penk parents: diff changeset	2236	"
321c1729db5b initial checkin penk parents: diff changeset	2237	^ self class runtimeAspects at:something ifAbsent:nil.
321c1729db5b initial checkin penk parents: diff changeset	2238	!
321c1729db5b initial checkin penk parents: diff changeset	2239
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2240	saveAspectValues
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2241	\|saveAspects aspectValue\|
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2242
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2243
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2244	saveAspects := self class userPreferencesAspectList.
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2245	saveAspects do:[ : aspectKey \|
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2246	aspectValue := (self perform:aspectKey) value.
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2247	UserPreferences current perform:((aspectKey asString, ':') asSymbol) with:aspectValue.
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2248	].
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2249	!
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2250
3892 321c1729db5b initial checkin penk parents: diff changeset	2251	saveRuntimeAspectValues
321c1729db5b initial checkin penk parents: diff changeset	2252	\|savedAspects dictionary value isHolder aspect\|
321c1729db5b initial checkin penk parents: diff changeset	2253
321c1729db5b initial checkin penk parents: diff changeset	2254	savedAspects := self class listOfRuntimeValuesToRemark.
321c1729db5b initial checkin penk parents: diff changeset	2255	dictionary := Dictionary new.
321c1729db5b initial checkin penk parents: diff changeset	2256	savedAspects do:[ : aspectKey \|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2257	aspect := self perform:aspectKey.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2258	isHolder := aspect isValueModel.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2259	isHolder ifTrue:[value:= aspect value] ifFalse:[ value := aspect].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2260	dictionary at:aspectKey
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2261	put:(SaveAspectItem withValue:value isHolder:isHolder)
3892 321c1729db5b initial checkin penk parents: diff changeset	2262	].
321c1729db5b initial checkin penk parents: diff changeset	2263
321c1729db5b initial checkin penk parents: diff changeset	2264	RuntimeAspects := dictionary.
321c1729db5b initial checkin penk parents: diff changeset	2265	!
321c1729db5b initial checkin penk parents: diff changeset	2266
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2267	userPreferencesAspectValueFor:something
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2268	"returns the default aspect from the Userpreferences
3892 321c1729db5b initial checkin penk parents: diff changeset	2269	"
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2270
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2271	(self class userPreferencesAspectList includes:something) not ifTrue:[ ^ nil].
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2272	^ UserPreferences current perform:something.
3892 321c1729db5b initial checkin penk parents: diff changeset	2273	! !
321c1729db5b initial checkin penk parents: diff changeset	2274
4011 73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2275	!AbstractFileBrowser methodsFor:'aspects-filter'!
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2276
4018 43e02c59719d * empty log message * penk parents: 4011 diff changeset	2277	filterBackgroundColor
43e02c59719d * empty log message * penk parents: 4011 diff changeset	2278
43e02c59719d * empty log message * penk parents: 4011 diff changeset	2279	^ self aspectFor:#filterBackgroundColor ifAbsent:[Color white asValue]
43e02c59719d * empty log message * penk parents: 4011 diff changeset	2280	!
43e02c59719d * empty log message * penk parents: 4011 diff changeset	2281
4011 73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2282	filterBlockHolder
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2283
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2284	^ self aspectFor:#filterBlockHolder ifAbsent:[self getFilter asValue]
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2285	!
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2286
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2287	filterListModel
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2288
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2289	^ self aspectFor:#filterListModel ifAbsent:[self class defaultFilterList]
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2290	!
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2291
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2292	filterModel
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2293
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2294	^ self aspectFor:#filterModel ifAbsent:[(self filterListModel at:1) asValue]
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2295	!
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2296
4018 43e02c59719d * empty log message * penk parents: 4011 diff changeset	2297	filterValueBox
43e02c59719d * empty log message * penk parents: 4011 diff changeset	2298
43e02c59719d * empty log message * penk parents: 4011 diff changeset	2299	^ self aspectFor:#filterValueBox ifAbsent:[ValueHolder new]
43e02c59719d * empty log message * penk parents: 4011 diff changeset	2300	!
43e02c59719d * empty log message * penk parents: 4011 diff changeset	2301
4011 73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2302	getFilter
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2303	\| filter showHidden\|
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2304
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2305	filter := self filterModel value.
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2306	filter = '' ifTrue:[filter := '*'].
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2307	showHidden := self showHiddenFiles value.
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2308	showHidden ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2309	^ [: el \| filter match:el].
4011 73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2310	] ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2311	^ [: el \| ((el asString startsWith:'.') not) and:[filter match:el]].
4011 73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2312	]
4018 43e02c59719d * empty log message * penk parents: 4011 diff changeset	2313	!
43e02c59719d * empty log message * penk parents: 4011 diff changeset	2314
43e02c59719d * empty log message * penk parents: 4011 diff changeset	2315	shownFiles
43e02c59719d * empty log message * penk parents: 4011 diff changeset	2316
43e02c59719d * empty log message * penk parents: 4011 diff changeset	2317	^ self aspectFor:#shownFiles ifAbsent:['-/-' asValue]
4011 73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2318	! !
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2319
3892 321c1729db5b initial checkin penk parents: diff changeset	2320	!AbstractFileBrowser methodsFor:'aspects-history'!
321c1729db5b initial checkin penk parents: diff changeset	2321
321c1729db5b initial checkin penk parents: diff changeset	2322	dirHistory
321c1729db5b initial checkin penk parents: diff changeset	2323
3952 c04d4781a37e next stage penk parents: 3949 diff changeset	2324	^ self class directoryHistory
3892 321c1729db5b initial checkin penk parents: diff changeset	2325	!
321c1729db5b initial checkin penk parents: diff changeset	2326
321c1729db5b initial checkin penk parents: diff changeset	2327	enableBack
321c1729db5b initial checkin penk parents: diff changeset	2328
321c1729db5b initial checkin penk parents: diff changeset	2329	^ self aspectFor:#enableBack ifAbsent:[false asValue]
321c1729db5b initial checkin penk parents: diff changeset	2330	!
321c1729db5b initial checkin penk parents: diff changeset	2331
321c1729db5b initial checkin penk parents: diff changeset	2332	enableFileHistory
321c1729db5b initial checkin penk parents: diff changeset	2333
321c1729db5b initial checkin penk parents: diff changeset	2334	^ self aspectFor:#enableFileHistory ifAbsent:[false asValue]
321c1729db5b initial checkin penk parents: diff changeset	2335	!
321c1729db5b initial checkin penk parents: diff changeset	2336
321c1729db5b initial checkin penk parents: diff changeset	2337	enableForward
321c1729db5b initial checkin penk parents: diff changeset	2338
321c1729db5b initial checkin penk parents: diff changeset	2339	^ self aspectFor:#enableForward ifAbsent:[false asValue]
321c1729db5b initial checkin penk parents: diff changeset	2340	!
321c1729db5b initial checkin penk parents: diff changeset	2341
321c1729db5b initial checkin penk parents: diff changeset	2342	fileHistory
321c1729db5b initial checkin penk parents: diff changeset	2343
321c1729db5b initial checkin penk parents: diff changeset	2344	^ self aspectFor:#fileHistory ifAbsent:[FilenameHistory new]
321c1729db5b initial checkin penk parents: diff changeset	2345	! !
321c1729db5b initial checkin penk parents: diff changeset	2346
321c1729db5b initial checkin penk parents: diff changeset	2347	!AbstractFileBrowser methodsFor:'aspects-visibility'!
321c1729db5b initial checkin penk parents: diff changeset	2348
321c1729db5b initial checkin penk parents: diff changeset	2349	filenameEntryFieldVisibleHolder
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2350	" aspect for show FileEntryField "
3892 321c1729db5b initial checkin penk parents: diff changeset	2351
321c1729db5b initial checkin penk parents: diff changeset	2352	^ self aspectFor:#filenameEntryFieldVisibleHolder ifAbsent:[true asValue]
321c1729db5b initial checkin penk parents: diff changeset	2353	!
321c1729db5b initial checkin penk parents: diff changeset	2354
4110 79f87cb97704 * empty log message * penk parents: 4107 diff changeset	2355	openAlwaysInTextEditor
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2356	" aspect for open every file in TextEditor dont use e.g. HtmlEditor for *.html'"
4110 79f87cb97704 * empty log message * penk parents: 4107 diff changeset	2357
79f87cb97704 * empty log message * penk parents: 4107 diff changeset	2358	^ self aspectFor:#openAlwaysInTextEditor ifAbsent:[ false asValue ].
79f87cb97704 * empty log message * penk parents: 4107 diff changeset	2359	!
79f87cb97704 * empty log message * penk parents: 4107 diff changeset	2360
3892 321c1729db5b initial checkin penk parents: diff changeset	2361	openMultipleApplicationsForType
321c1729db5b initial checkin penk parents: diff changeset	2362
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2363	" aspect for open more applications for e.g. TextEditor and not change the contents of already
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2364	open TextEditor "
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2365
3892 321c1729db5b initial checkin penk parents: diff changeset	2366	^ self aspectFor:#openMultipleApplicationsForType ifAbsent:[ false asValue ].
321c1729db5b initial checkin penk parents: diff changeset	2367	!
321c1729db5b initial checkin penk parents: diff changeset	2368
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2369	showDirectoryTree
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2370
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2371	^ self aspectFor:#showDirectoryTree ifAbsent:[ true asValue ]
3892 321c1729db5b initial checkin penk parents: diff changeset	2372	!
321c1729db5b initial checkin penk parents: diff changeset	2373
321c1729db5b initial checkin penk parents: diff changeset	2374	showHiddenFiles
321c1729db5b initial checkin penk parents: diff changeset	2375
321c1729db5b initial checkin penk parents: diff changeset	2376	^ self aspectFor:#showHiddenFiles ifAbsent:[ true asValue ].
321c1729db5b initial checkin penk parents: diff changeset	2377	!
321c1729db5b initial checkin penk parents: diff changeset	2378
321c1729db5b initial checkin penk parents: diff changeset	2379	toolBarVisibleHolder
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2380	" aspect for show toolbar in FileBrowserV2"
3892 321c1729db5b initial checkin penk parents: diff changeset	2381
321c1729db5b initial checkin penk parents: diff changeset	2382	^ self aspectFor:#toolBarVisibleHolder ifAbsent:[true asValue]
321c1729db5b initial checkin penk parents: diff changeset	2383	!
321c1729db5b initial checkin penk parents: diff changeset	2384
321c1729db5b initial checkin penk parents: diff changeset	2385	viewDescription
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2386	"get the user preferences for show file description row in DirectoryContentsBrowser"
3892 321c1729db5b initial checkin penk parents: diff changeset	2387
321c1729db5b initial checkin penk parents: diff changeset	2388	^ self aspectFor:#viewDescription ifAbsent:[ false asValue ].
321c1729db5b initial checkin penk parents: diff changeset	2389	!
321c1729db5b initial checkin penk parents: diff changeset	2390
321c1729db5b initial checkin penk parents: diff changeset	2391	viewDetails
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2392	"get the user preferences for view more file properties in rows in DirectoryContentsBrowser
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2393	"
3892 321c1729db5b initial checkin penk parents: diff changeset	2394
321c1729db5b initial checkin penk parents: diff changeset	2395	^ self aspectFor:#viewDetails ifAbsent:[ false asValue ].
321c1729db5b initial checkin penk parents: diff changeset	2396	!
321c1729db5b initial checkin penk parents: diff changeset	2397
321c1729db5b initial checkin penk parents: diff changeset	2398	viewDirectoryDescription
321c1729db5b initial checkin penk parents: diff changeset	2399
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2400	" aspect for auto open a TextView for Readme and other see getInfoItem Method files
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2401	on change directory "
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2402
3892 321c1729db5b initial checkin penk parents: diff changeset	2403	^ self aspectFor:#viewDirectoryDescription ifAbsent:[ true asValue ].
321c1729db5b initial checkin penk parents: diff changeset	2404	!
321c1729db5b initial checkin penk parents: diff changeset	2405
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2406	viewDirsInContentsBrowser
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2407
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2408	^ self aspectFor:#viewDirsInContentsBrowser ifAbsent:[ false asValue ].
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2409	!
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2410
3892 321c1729db5b initial checkin penk parents: diff changeset	2411	viewFilesInDirectoryTree
321c1729db5b initial checkin penk parents: diff changeset	2412
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2413	" aspect for view files in tree view (not only directories) "
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2414
3892 321c1729db5b initial checkin penk parents: diff changeset	2415	^ self aspectFor:#viewFilesInDirectoryTree ifAbsent:[ false asValue ].
321c1729db5b initial checkin penk parents: diff changeset	2416	!
321c1729db5b initial checkin penk parents: diff changeset	2417
321c1729db5b initial checkin penk parents: diff changeset	2418	viewGroup
321c1729db5b initial checkin penk parents: diff changeset	2419
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2420	" aspect for show group information row in DirectoryContentsBrowser "
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2421
3892 321c1729db5b initial checkin penk parents: diff changeset	2422	^ self aspectFor:#viewGroup ifAbsent:[ false asValue ].
321c1729db5b initial checkin penk parents: diff changeset	2423	!
321c1729db5b initial checkin penk parents: diff changeset	2424
321c1729db5b initial checkin penk parents: diff changeset	2425	viewNoteBookApplicationHolder
321c1729db5b initial checkin penk parents: diff changeset	2426
321c1729db5b initial checkin penk parents: diff changeset	2427	^ self aspectFor:#viewNoteBookApplicationHolder ifAbsent:[ false asValue].
321c1729db5b initial checkin penk parents: diff changeset	2428	!
321c1729db5b initial checkin penk parents: diff changeset	2429
321c1729db5b initial checkin penk parents: diff changeset	2430	viewOwner
321c1729db5b initial checkin penk parents: diff changeset	2431
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2432	" aspect for show owner information row in DirectoryContentsBrowser "
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2433
3892 321c1729db5b initial checkin penk parents: diff changeset	2434	^ self aspectFor:#viewOwner ifAbsent:[ false asValue ].
321c1729db5b initial checkin penk parents: diff changeset	2435	!
321c1729db5b initial checkin penk parents: diff changeset	2436
321c1729db5b initial checkin penk parents: diff changeset	2437	viewPermissions
321c1729db5b initial checkin penk parents: diff changeset	2438
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2439	" aspect for show permission information row in DirectoryContentsBrowser "
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2440
3892 321c1729db5b initial checkin penk parents: diff changeset	2441	^ self aspectFor:#viewPermissions ifAbsent:[ false asValue ].
321c1729db5b initial checkin penk parents: diff changeset	2442	!
321c1729db5b initial checkin penk parents: diff changeset	2443
321c1729db5b initial checkin penk parents: diff changeset	2444	viewPreview
321c1729db5b initial checkin penk parents: diff changeset	2445
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2446	" aspect for show image previev row in DirectoryContentsBrowser "
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2447
3892 321c1729db5b initial checkin penk parents: diff changeset	2448	^ self aspectFor:#viewPreview ifAbsent:[ false asValue ].
321c1729db5b initial checkin penk parents: diff changeset	2449	!
321c1729db5b initial checkin penk parents: diff changeset	2450
321c1729db5b initial checkin penk parents: diff changeset	2451	viewSize
321c1729db5b initial checkin penk parents: diff changeset	2452
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2453	" aspect for show size information row in DirectoryContentsBrowser "
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2454
3892 321c1729db5b initial checkin penk parents: diff changeset	2455	^ self aspectFor:#viewSize ifAbsent:[ false asValue ].
321c1729db5b initial checkin penk parents: diff changeset	2456	!
321c1729db5b initial checkin penk parents: diff changeset	2457
321c1729db5b initial checkin penk parents: diff changeset	2458	viewTime
321c1729db5b initial checkin penk parents: diff changeset	2459
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2460	" aspect for show time information row in DirectoryContentsBrowser "
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2461
3892 321c1729db5b initial checkin penk parents: diff changeset	2462	^ self aspectFor:#viewTime ifAbsent:[ false asValue ].
321c1729db5b initial checkin penk parents: diff changeset	2463	!
321c1729db5b initial checkin penk parents: diff changeset	2464
321c1729db5b initial checkin penk parents: diff changeset	2465	viewType
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	2466	" aspect for show suffix (type) information row in DirectoryContentsBrowser "
3892 321c1729db5b initial checkin penk parents: diff changeset	2467
321c1729db5b initial checkin penk parents: diff changeset	2468	^ self aspectFor:#viewType ifAbsent:[ false asValue ].
321c1729db5b initial checkin penk parents: diff changeset	2469	! !
321c1729db5b initial checkin penk parents: diff changeset	2470
321c1729db5b initial checkin penk parents: diff changeset	2471	!AbstractFileBrowser methodsFor:'background processing'!
321c1729db5b initial checkin penk parents: diff changeset	2472
321c1729db5b initial checkin penk parents: diff changeset	2473	executeCommand:cmd
321c1729db5b initial checkin penk parents: diff changeset	2474
321c1729db5b initial checkin penk parents: diff changeset	2475	self executeCommand:cmd inDirectory:nil
321c1729db5b initial checkin penk parents: diff changeset	2476	!
321c1729db5b initial checkin penk parents: diff changeset	2477
321c1729db5b initial checkin penk parents: diff changeset	2478	executeCommand:cmd inDirectory:aDir
321c1729db5b initial checkin penk parents: diff changeset	2479
321c1729db5b initial checkin penk parents: diff changeset	2480	\| nameString executionBlock\|
321c1729db5b initial checkin penk parents: diff changeset	2481
321c1729db5b initial checkin penk parents: diff changeset	2482	executionBlock := self getExecutionBlockForCommand:cmd inDirectory:aDir.
321c1729db5b initial checkin penk parents: diff changeset	2483	nameString := 'Command> ', cmd.
321c1729db5b initial checkin penk parents: diff changeset	2484	self makeExecutionResultProcessFor:executionBlock withName:nameString.
321c1729db5b initial checkin penk parents: diff changeset	2485	!
321c1729db5b initial checkin penk parents: diff changeset	2486
321c1729db5b initial checkin penk parents: diff changeset	2487	getExecutionBlockForCommand:cmd
321c1729db5b initial checkin penk parents: diff changeset	2488
321c1729db5b initial checkin penk parents: diff changeset	2489	^ self getExecutionBlockForCommand:cmd inDirectory:nil
321c1729db5b initial checkin penk parents: diff changeset	2490	!
321c1729db5b initial checkin penk parents: diff changeset	2491
321c1729db5b initial checkin penk parents: diff changeset	2492	getExecutionBlockForCommand:cmd inDirectory:aDir
321c1729db5b initial checkin penk parents: diff changeset	2493
321c1729db5b initial checkin penk parents: diff changeset	2494	\| dir dirs\|
321c1729db5b initial checkin penk parents: diff changeset	2495
321c1729db5b initial checkin penk parents: diff changeset	2496	dir := aDir.
321c1729db5b initial checkin penk parents: diff changeset	2497	aDir isNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2498	dirs := self currentSelectedDirectories.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2499	dirs size ~= 1 ifTrue:[ ^ self].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2500	dir := dirs anElement.
3892 321c1729db5b initial checkin penk parents: diff changeset	2501	].
321c1729db5b initial checkin penk parents: diff changeset	2502	^ [:stream\| stream notNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2503	OperatingSystem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2504	executeCommand:cmd
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2505	inputFrom:nil
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2506	outputTo:stream
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2507	errorTo:stream
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2508	inDirectory:dir
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2509	onError:[:status\| false].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2510	]
3892 321c1729db5b initial checkin penk parents: diff changeset	2511	].
321c1729db5b initial checkin penk parents: diff changeset	2512	!
321c1729db5b initial checkin penk parents: diff changeset	2513
321c1729db5b initial checkin penk parents: diff changeset	2514	killAllRunningBackgroundProcesses
321c1729db5b initial checkin penk parents: diff changeset	2515
321c1729db5b initial checkin penk parents: diff changeset	2516	self backgroundProcesses do:[ : process \|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2517	self notifyChannel value:'kill ', process name.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2518	process terminate.
3892 321c1729db5b initial checkin penk parents: diff changeset	2519	].
321c1729db5b initial checkin penk parents: diff changeset	2520	!
321c1729db5b initial checkin penk parents: diff changeset	2521
321c1729db5b initial checkin penk parents: diff changeset	2522	makeExecutionResultProcessFor:aBlock withName:aString
321c1729db5b initial checkin penk parents: diff changeset	2523	\| stream process appl nameString\|
321c1729db5b initial checkin penk parents: diff changeset	2524
321c1729db5b initial checkin penk parents: diff changeset	2525	appl := self openCommandResultApplication.
321c1729db5b initial checkin penk parents: diff changeset	2526	stream := appl resultStream.
321c1729db5b initial checkin penk parents: diff changeset	2527	nameString := aString ? 'Execution Result'.
321c1729db5b initial checkin penk parents: diff changeset	2528	appl changeTabTo:nameString.
321c1729db5b initial checkin penk parents: diff changeset	2529	process := [ [aBlock value:stream] valueNowOrOnUnwindDo:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2530	self backgroundProcesses remove:process ifAbsent:[].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2531	appl process value:nil.
3892 321c1729db5b initial checkin penk parents: diff changeset	2532	]] newProcess.
321c1729db5b initial checkin penk parents: diff changeset	2533	process priority:(Processor userBackgroundPriority).
321c1729db5b initial checkin penk parents: diff changeset	2534	process name:nameString.
321c1729db5b initial checkin penk parents: diff changeset	2535	self backgroundProcesses add:process.
321c1729db5b initial checkin penk parents: diff changeset	2536	appl process value:process.
321c1729db5b initial checkin penk parents: diff changeset	2537	process resume.
321c1729db5b initial checkin penk parents: diff changeset	2538	! !
321c1729db5b initial checkin penk parents: diff changeset	2539
321c1729db5b initial checkin penk parents: diff changeset	2540	!AbstractFileBrowser methodsFor:'change & update'!
321c1729db5b initial checkin penk parents: diff changeset	2541
4011 73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2542	abstractCurrentFileNameHolderChanged
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2543	" do here all the things that have to be done for every part of the FileBrowserV2
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2544	and the things that have to be done if it runs standalone "
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2545
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2546	\| newDirectories oldDirectories size rootInTreeView holder\|
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2547
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2548	holder := self currentFileNameHolder value.
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2549	self hasSelection value:(holder value notEmpty).
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2550	newDirectories := self directoriesForFiles:(holder value).
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2551	oldDirectories := self currentDirectories value.
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2552	oldDirectories ~= newDirectories ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2553	self currentDirectories value:newDirectories.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2554	size := newDirectories size.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2555	rootInTreeView := self application:#DirectoryTreeBrowser do:#rootHolder.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2556	rootInTreeView := rootInTreeView notNil ifTrue:[rootInTreeView value].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2557	self enableDirectoryUp value:(((size == 1) and:[newDirectories first isRootDirectory not]) or:[(rootInTreeView notNil and:[rootInTreeView value asFilename isRootDirectory not])]).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2558	newDirectories notEmpty ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2559	newDirectories do:[: dir \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2560	self dirHistory addToHistory:(dir asString).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2561	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2562	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2563	self enableHome value:((newDirectories includes:(Filename homeDirectory))not).
4011 73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2564	].
4022 87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	2565	self enableForward value:self canForward.
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	2566	self enableBack value:self canBack.
4011 73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2567	^ self
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2568	!
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2569
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2570	filterModelChanged
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2571
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2572	self filterBlockHolder value:(self getFilter).
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2573	!
73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2574
3892 321c1729db5b initial checkin penk parents: diff changeset	2575	update:something with:aParameter from:changedObject
321c1729db5b initial checkin penk parents: diff changeset	2576
321c1729db5b initial checkin penk parents: diff changeset	2577	" do here all the things that have to be done for every part of the FileBrowserV2
321c1729db5b initial checkin penk parents: diff changeset	2578	and the things that have to be done if it runs standalone "
321c1729db5b initial checkin penk parents: diff changeset	2579
321c1729db5b initial checkin penk parents: diff changeset	2580	changedObject == self currentFileNameHolder ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2581	self abstractCurrentFileNameHolderChanged.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2582	^ self
3892 321c1729db5b initial checkin penk parents: diff changeset	2583	].
3989 7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	2584	changedObject == self sortCaseless ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2585	self sortFileListsBy:#baseName withReverse:false.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2586	^ self
3989 7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	2587	].
4011 73fa35b1963b * empty log message * penk parents: 4004 diff changeset	2588	(changedObject == self filterModel or:[changedObject == self showHiddenFiles]) ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2589	self filterModelChanged.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2590	^ self
4004 f97168a68093 * empty log message * Claus Gittinger <cg@exept.de> parents: 4000 diff changeset	2591	].
3989 7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	2592
3892 321c1729db5b initial checkin penk parents: diff changeset	2593	super update:something with:aParameter from:changedObject
321c1729db5b initial checkin penk parents: diff changeset	2594	! !
321c1729db5b initial checkin penk parents: diff changeset	2595
321c1729db5b initial checkin penk parents: diff changeset	2596	!AbstractFileBrowser methodsFor:'clipboard'!
321c1729db5b initial checkin penk parents: diff changeset	2597
321c1729db5b initial checkin penk parents: diff changeset	2598	canPaste
321c1729db5b initial checkin penk parents: diff changeset	2599
321c1729db5b initial checkin penk parents: diff changeset	2600	^ self aspectFor:#canPaste ifAbsent:[ false asValue ].
321c1729db5b initial checkin penk parents: diff changeset	2601	!
321c1729db5b initial checkin penk parents: diff changeset	2602
321c1729db5b initial checkin penk parents: diff changeset	2603	clipboard
321c1729db5b initial checkin penk parents: diff changeset	2604
321c1729db5b initial checkin penk parents: diff changeset	2605	^ self aspectFor:#clipboard ifAbsent:[Clipboard new]
321c1729db5b initial checkin penk parents: diff changeset	2606	!
321c1729db5b initial checkin penk parents: diff changeset	2607
321c1729db5b initial checkin penk parents: diff changeset	2608	copyFilesToClipBoard:colOfFiles
321c1729db5b initial checkin penk parents: diff changeset	2609	"defete current selected files/directories
321c1729db5b initial checkin penk parents: diff changeset	2610	"
321c1729db5b initial checkin penk parents: diff changeset	2611	self putInClipBoard:colOfFiles as:#copy.
321c1729db5b initial checkin penk parents: diff changeset	2612	!
321c1729db5b initial checkin penk parents: diff changeset	2613
321c1729db5b initial checkin penk parents: diff changeset	2614	cutFilesToClipBoard:colOfFiles
321c1729db5b initial checkin penk parents: diff changeset	2615	"defete current selected files/directories
321c1729db5b initial checkin penk parents: diff changeset	2616	"
321c1729db5b initial checkin penk parents: diff changeset	2617	self putInClipBoard:colOfFiles as:#cut.
321c1729db5b initial checkin penk parents: diff changeset	2618	!
321c1729db5b initial checkin penk parents: diff changeset	2619
321c1729db5b initial checkin penk parents: diff changeset	2620	emptyClipBoard
321c1729db5b initial checkin penk parents: diff changeset	2621
321c1729db5b initial checkin penk parents: diff changeset	2622	self clipboard files:nil.
321c1729db5b initial checkin penk parents: diff changeset	2623	self canPaste value:false.
321c1729db5b initial checkin penk parents: diff changeset	2624	!
321c1729db5b initial checkin penk parents: diff changeset	2625
321c1729db5b initial checkin penk parents: diff changeset	2626	putInClipBoard:colOfFiles as:aSymbol
321c1729db5b initial checkin penk parents: diff changeset	2627
321c1729db5b initial checkin penk parents: diff changeset	2628	\| stream clp\|
321c1729db5b initial checkin penk parents: diff changeset	2629
321c1729db5b initial checkin penk parents: diff changeset	2630	colOfFiles isEmpty ifTrue:[ ^ self].
321c1729db5b initial checkin penk parents: diff changeset	2631	clp := self clipboard.
321c1729db5b initial checkin penk parents: diff changeset	2632	clp files:nil.
321c1729db5b initial checkin penk parents: diff changeset	2633	clp method:aSymbol.
321c1729db5b initial checkin penk parents: diff changeset	2634	stream := WriteStream on:''.
321c1729db5b initial checkin penk parents: diff changeset	2635	stream nextPutAll:aSymbol asString.
321c1729db5b initial checkin penk parents: diff changeset	2636	stream nextPutAll:' <'.
321c1729db5b initial checkin penk parents: diff changeset	2637	stream nextPutAll:colOfFiles first asString.
321c1729db5b initial checkin penk parents: diff changeset	2638	colOfFiles size > 1 ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2639	stream nextPutAll:' ...'.
3892 321c1729db5b initial checkin penk parents: diff changeset	2640	].
321c1729db5b initial checkin penk parents: diff changeset	2641	stream nextPutAll:'> to clipboard'.
321c1729db5b initial checkin penk parents: diff changeset	2642
321c1729db5b initial checkin penk parents: diff changeset	2643	self notifyChannel value:stream contents.
321c1729db5b initial checkin penk parents: diff changeset	2644	stream close.
321c1729db5b initial checkin penk parents: diff changeset	2645	clp files:colOfFiles.
321c1729db5b initial checkin penk parents: diff changeset	2646	self canPaste value:true.
321c1729db5b initial checkin penk parents: diff changeset	2647	! !
321c1729db5b initial checkin penk parents: diff changeset	2648
321c1729db5b initial checkin penk parents: diff changeset	2649	!AbstractFileBrowser methodsFor:'drag & drop'!
321c1729db5b initial checkin penk parents: diff changeset	2650
321c1729db5b initial checkin penk parents: diff changeset	2651	canDropArchiv:dropedObjects for:filename
321c1729db5b initial checkin penk parents: diff changeset	2652
321c1729db5b initial checkin penk parents: diff changeset	2653	(filename isDirectory
321c1729db5b initial checkin penk parents: diff changeset	2654	and:[filename isWritable and:[dropedObjects notEmpty]]) ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2655	^ true
3892 321c1729db5b initial checkin penk parents: diff changeset	2656	].
321c1729db5b initial checkin penk parents: diff changeset	2657	^ false
321c1729db5b initial checkin penk parents: diff changeset	2658	!
321c1729db5b initial checkin penk parents: diff changeset	2659
321c1729db5b initial checkin penk parents: diff changeset	2660	canDropFiles:dropedObjects for:filename
321c1729db5b initial checkin penk parents: diff changeset	2661	\| checkObject filenameDirString checkObjectString filenameDir\|
321c1729db5b initial checkin penk parents: diff changeset	2662
321c1729db5b initial checkin penk parents: diff changeset	2663	dropedObjects isEmpty ifTrue:[^ false].
321c1729db5b initial checkin penk parents: diff changeset	2664	filenameDir := self getDirWithoutFileName:filename.
321c1729db5b initial checkin penk parents: diff changeset	2665	filenameDir isWritable not ifTrue:[^ false].
321c1729db5b initial checkin penk parents: diff changeset	2666	filenameDirString := filenameDir asString.
321c1729db5b initial checkin penk parents: diff changeset	2667	dropedObjects do:[:aObject \|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2668	checkObject := aObject theObject.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2669	checkObjectString := checkObject asString.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2670	checkObject isDirectory ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2671	(self fileName:filenameDirString startsWith:checkObjectString) ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2672	" can not drop a directory in his parents "
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2673	^ false
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2674	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2675	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2676	(filenameDirString = checkObject directory asString
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2677	or:[ filenameDirString = checkObject physicalPathName asFilename directory asString ]) ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2678	" can not drop a file in same directory "
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2679	^ false
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2680	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2681	]
3892 321c1729db5b initial checkin penk parents: diff changeset	2682	].
321c1729db5b initial checkin penk parents: diff changeset	2683	^ true
321c1729db5b initial checkin penk parents: diff changeset	2684	!
321c1729db5b initial checkin penk parents: diff changeset	2685
321c1729db5b initial checkin penk parents: diff changeset	2686	doStartDrag:aDropSource in:aView
321c1729db5b initial checkin penk parents: diff changeset	2687	"set the cursors before starting the drag & drop operation
321c1729db5b initial checkin penk parents: diff changeset	2688	"
321c1729db5b initial checkin penk parents: diff changeset	2689	\|hdl\|
321c1729db5b initial checkin penk parents: diff changeset	2690
321c1729db5b initial checkin penk parents: diff changeset	2691
321c1729db5b initial checkin penk parents: diff changeset	2692	hdl := DragAndDropManager new.
321c1729db5b initial checkin penk parents: diff changeset	2693
321c1729db5b initial checkin penk parents: diff changeset	2694	hdl disabledCursor:self class DisabledCursorImage.
321c1729db5b initial checkin penk parents: diff changeset	2695	hdl enabledCursor:self class EnabledCursorImage.
321c1729db5b initial checkin penk parents: diff changeset	2696	hdl alienCursor:nil.
321c1729db5b initial checkin penk parents: diff changeset	2697
321c1729db5b initial checkin penk parents: diff changeset	2698	hdl startDragFrom:aView dropSource:aDropSource offset:#topLeft
321c1729db5b initial checkin penk parents: diff changeset	2699	! !
321c1729db5b initial checkin penk parents: diff changeset	2700
321c1729db5b initial checkin penk parents: diff changeset	2701	!AbstractFileBrowser methodsFor:'file operations'!
321c1729db5b initial checkin penk parents: diff changeset	2702
321c1729db5b initial checkin penk parents: diff changeset	2703	copyFile:aSourceFile to:aDestFile
321c1729db5b initial checkin penk parents: diff changeset	2704	"copy to
321c1729db5b initial checkin penk parents: diff changeset	2705	"
321c1729db5b initial checkin penk parents: diff changeset	2706	\|copy\|
321c1729db5b initial checkin penk parents: diff changeset	2707
321c1729db5b initial checkin penk parents: diff changeset	2708	copy := FileOperation copy copyFile:aSourceFile to:aDestFile withOverWriteWarning:true copyFileIfSame:true.
321c1729db5b initial checkin penk parents: diff changeset	2709	copy result ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2710	self notifyChannel value:('copy ', aSourceFile baseName, ' to:,', aDestFile baseName).
3892 321c1729db5b initial checkin penk parents: diff changeset	2711	] ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2712	self notifyChannel value:copy errorString.
3892 321c1729db5b initial checkin penk parents: diff changeset	2713	].
321c1729db5b initial checkin penk parents: diff changeset	2714	^ copy result
321c1729db5b initial checkin penk parents: diff changeset	2715	!
321c1729db5b initial checkin penk parents: diff changeset	2716
321c1729db5b initial checkin penk parents: diff changeset	2717	copyFiles:aColOfSourceFiles to:aDirectory
321c1729db5b initial checkin penk parents: diff changeset	2718	"copy aColOfSourceFiles to aDirectory
321c1729db5b initial checkin penk parents: diff changeset	2719	"
321c1729db5b initial checkin penk parents: diff changeset	2720	\|copy\|
321c1729db5b initial checkin penk parents: diff changeset	2721
321c1729db5b initial checkin penk parents: diff changeset	2722	copy := FileOperation copy copyFiles:aColOfSourceFiles to:aDirectory.
321c1729db5b initial checkin penk parents: diff changeset	2723	copy result ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2724	self notifyChannel value:copy errorString.
3892 321c1729db5b initial checkin penk parents: diff changeset	2725	].
321c1729db5b initial checkin penk parents: diff changeset	2726	self updateCurrentDirectory.
321c1729db5b initial checkin penk parents: diff changeset	2727	^ copy colOfCopiedFiles
321c1729db5b initial checkin penk parents: diff changeset	2728	!
321c1729db5b initial checkin penk parents: diff changeset	2729
321c1729db5b initial checkin penk parents: diff changeset	2730	copyOrMoveDialog:aCol
321c1729db5b initial checkin penk parents: diff changeset	2731
321c1729db5b initial checkin penk parents: diff changeset	2732	\| size stream dialog\|
321c1729db5b initial checkin penk parents: diff changeset	2733
321c1729db5b initial checkin penk parents: diff changeset	2734	size := aCol size.
321c1729db5b initial checkin penk parents: diff changeset	2735	stream := WriteStream on:''.
321c1729db5b initial checkin penk parents: diff changeset	2736	stream nextPutAll:'copy or move file'.
321c1729db5b initial checkin penk parents: diff changeset	2737	size == 1 ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2738	stream nextPutAll:'s'.
3892 321c1729db5b initial checkin penk parents: diff changeset	2739	].
321c1729db5b initial checkin penk parents: diff changeset	2740	stream nextPutAll:': '.
321c1729db5b initial checkin penk parents: diff changeset	2741	stream nextPutAll:aCol first baseName asString.
321c1729db5b initial checkin penk parents: diff changeset	2742	size == 1 ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2743	stream nextPutAll:' ... '.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2744	stream nextPutAll:aCol last baseName asString.
3892 321c1729db5b initial checkin penk parents: diff changeset	2745	].
321c1729db5b initial checkin penk parents: diff changeset	2746
321c1729db5b initial checkin penk parents: diff changeset	2747	dialog := OptionBox
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2748	request:stream contents
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2749	label:'move or copy'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2750	form:(WarningBox iconBitmap)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2751	buttonLabels:#('cancel' 'move' 'copy')
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2752	values:#(#cancel #move #copy)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2753	default:#copy.
3892 321c1729db5b initial checkin penk parents: diff changeset	2754	dialog isNil ifTrue:[dialog := #cancel].
321c1729db5b initial checkin penk parents: diff changeset	2755	^ dialog.
321c1729db5b initial checkin penk parents: diff changeset	2756	!
321c1729db5b initial checkin penk parents: diff changeset	2757
321c1729db5b initial checkin penk parents: diff changeset	2758	copyOrMoveFiles:aColOfSourceFiles to:aDirectory
321c1729db5b initial checkin penk parents: diff changeset	2759	"copy aColOfSourceFiles to aDirectory
321c1729db5b initial checkin penk parents: diff changeset	2760	"
321c1729db5b initial checkin penk parents: diff changeset	2761	\|dialog\|
321c1729db5b initial checkin penk parents: diff changeset	2762
321c1729db5b initial checkin penk parents: diff changeset	2763	dialog := self copyOrMoveDialog:aColOfSourceFiles.
321c1729db5b initial checkin penk parents: diff changeset	2764	dialog == #copy ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2765	self copyFiles:aColOfSourceFiles to:aDirectory.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2766	^ self.
3892 321c1729db5b initial checkin penk parents: diff changeset	2767	].
321c1729db5b initial checkin penk parents: diff changeset	2768	dialog == #move ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2769	self moveFiles:aColOfSourceFiles to:aDirectory.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2770	^ self.
3892 321c1729db5b initial checkin penk parents: diff changeset	2771	].
321c1729db5b initial checkin penk parents: diff changeset	2772	!
321c1729db5b initial checkin penk parents: diff changeset	2773
321c1729db5b initial checkin penk parents: diff changeset	2774	deleteFile:aFile
321c1729db5b initial checkin penk parents: diff changeset	2775	"delete current selected files/directories
321c1729db5b initial checkin penk parents: diff changeset	2776	"
321c1729db5b initial checkin penk parents: diff changeset	2777
321c1729db5b initial checkin penk parents: diff changeset	2778	^ self deleteFiles:(OrderedCollection with:aFile).
321c1729db5b initial checkin penk parents: diff changeset	2779	!
321c1729db5b initial checkin penk parents: diff changeset	2780
321c1729db5b initial checkin penk parents: diff changeset	2781	deleteFiles:colOfFiles
321c1729db5b initial checkin penk parents: diff changeset	2782	"delete current selected files/directories
321c1729db5b initial checkin penk parents: diff changeset	2783	"
321c1729db5b initial checkin penk parents: diff changeset	2784	\|delete\|
321c1729db5b initial checkin penk parents: diff changeset	2785
321c1729db5b initial checkin penk parents: diff changeset	2786	delete := FileOperation delete deleteFiles:colOfFiles.
321c1729db5b initial checkin penk parents: diff changeset	2787	delete result ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2788	self notifyChannel value:delete errorString.
3892 321c1729db5b initial checkin penk parents: diff changeset	2789	].
321c1729db5b initial checkin penk parents: diff changeset	2790	self updateCurrentDirectory.
321c1729db5b initial checkin penk parents: diff changeset	2791	^ delete result.
321c1729db5b initial checkin penk parents: diff changeset	2792	!
321c1729db5b initial checkin penk parents: diff changeset	2793
321c1729db5b initial checkin penk parents: diff changeset	2794	moveFile:aSourceFile to:aDestFile
321c1729db5b initial checkin penk parents: diff changeset	2795	"defete current selected files/directories
321c1729db5b initial checkin penk parents: diff changeset	2796	"
321c1729db5b initial checkin penk parents: diff changeset	2797
321c1729db5b initial checkin penk parents: diff changeset	2798	\|move\|
321c1729db5b initial checkin penk parents: diff changeset	2799
321c1729db5b initial checkin penk parents: diff changeset	2800	move := FileOperation move moveFile:aSourceFile to:aDestFile.
321c1729db5b initial checkin penk parents: diff changeset	2801	move result ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2802	self notifyChannel value:('move ', aSourceFile asString, ' to ', aDestFile asString).
3892 321c1729db5b initial checkin penk parents: diff changeset	2803	] ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2804	self notifyChannel value:move errorString.
3892 321c1729db5b initial checkin penk parents: diff changeset	2805	].
321c1729db5b initial checkin penk parents: diff changeset	2806	self updateCurrentDirectory.
321c1729db5b initial checkin penk parents: diff changeset	2807	^ move result
321c1729db5b initial checkin penk parents: diff changeset	2808	!
321c1729db5b initial checkin penk parents: diff changeset	2809
321c1729db5b initial checkin penk parents: diff changeset	2810	moveFiles:aColOfSourceFiles to:aDirectory
321c1729db5b initial checkin penk parents: diff changeset	2811	"move aColOfSourceFiles to aDirectory
321c1729db5b initial checkin penk parents: diff changeset	2812	"
321c1729db5b initial checkin penk parents: diff changeset	2813	\|move\|
321c1729db5b initial checkin penk parents: diff changeset	2814
321c1729db5b initial checkin penk parents: diff changeset	2815	move := FileOperation move moveFiles:aColOfSourceFiles to:aDirectory.
321c1729db5b initial checkin penk parents: diff changeset	2816	move result ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2817	self notifyChannel value:move errorString.
3892 321c1729db5b initial checkin penk parents: diff changeset	2818	].
321c1729db5b initial checkin penk parents: diff changeset	2819	self updateCurrentDirectory.
321c1729db5b initial checkin penk parents: diff changeset	2820	^ move colOfMovedFiles
321c1729db5b initial checkin penk parents: diff changeset	2821	!
321c1729db5b initial checkin penk parents: diff changeset	2822
321c1729db5b initial checkin penk parents: diff changeset	2823	newDirectory
321c1729db5b initial checkin penk parents: diff changeset	2824	"ask for and create a new directory"
321c1729db5b initial checkin penk parents: diff changeset	2825
321c1729db5b initial checkin penk parents: diff changeset	2826	\| directories directory create newFile\|
321c1729db5b initial checkin penk parents: diff changeset	2827
321c1729db5b initial checkin penk parents: diff changeset	2828	directories := self currentDirectories value.
321c1729db5b initial checkin penk parents: diff changeset	2829	(directories size ~= 1) ifTrue:[^ self].
321c1729db5b initial checkin penk parents: diff changeset	2830	directory := directories first.
321c1729db5b initial checkin penk parents: diff changeset	2831	create := FileOperation create createDirectoryIn:directory.
321c1729db5b initial checkin penk parents: diff changeset	2832	create result ifFalse:[ ^ self].
321c1729db5b initial checkin penk parents: diff changeset	2833	newFile := create createdFile.
321c1729db5b initial checkin penk parents: diff changeset	2834	newFile notNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2835	self updateCurrentDirectory.
3892 321c1729db5b initial checkin penk parents: diff changeset	2836	]
321c1729db5b initial checkin penk parents: diff changeset	2837	!
321c1729db5b initial checkin penk parents: diff changeset	2838
321c1729db5b initial checkin penk parents: diff changeset	2839	newFile
321c1729db5b initial checkin penk parents: diff changeset	2840	"ask for and create a new file"
321c1729db5b initial checkin penk parents: diff changeset	2841
321c1729db5b initial checkin penk parents: diff changeset	2842	\| curFile directories directory create file\|
321c1729db5b initial checkin penk parents: diff changeset	2843
321c1729db5b initial checkin penk parents: diff changeset	2844	directories := self currentDirectories value.
321c1729db5b initial checkin penk parents: diff changeset	2845	(directories size ~= 1) ifTrue:[^ self].
321c1729db5b initial checkin penk parents: diff changeset	2846	directory := directories first.
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	2847	curFile := self firstSelectedFile.
3892 321c1729db5b initial checkin penk parents: diff changeset	2848	curFile notNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2849	file := curFile.
3892 321c1729db5b initial checkin penk parents: diff changeset	2850	] ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2851	file := directory.
3892 321c1729db5b initial checkin penk parents: diff changeset	2852	].
321c1729db5b initial checkin penk parents: diff changeset	2853	create := FileOperation create createFileIn:file.
321c1729db5b initial checkin penk parents: diff changeset	2854	create result ifFalse:[ ^ self].
321c1729db5b initial checkin penk parents: diff changeset	2855	self updateAndSelect:(OrderedCollection with:(create createdFile)).
321c1729db5b initial checkin penk parents: diff changeset	2856	!
321c1729db5b initial checkin penk parents: diff changeset	2857
321c1729db5b initial checkin penk parents: diff changeset	2858	newHardLink
321c1729db5b initial checkin penk parents: diff changeset	2859	"ask for and create a hard link (unix only)"
321c1729db5b initial checkin penk parents: diff changeset	2860
321c1729db5b initial checkin penk parents: diff changeset	2861	self newLink:false.
321c1729db5b initial checkin penk parents: diff changeset	2862	!
321c1729db5b initial checkin penk parents: diff changeset	2863
321c1729db5b initial checkin penk parents: diff changeset	2864	newLink:symbolic
321c1729db5b initial checkin penk parents: diff changeset	2865
321c1729db5b initial checkin penk parents: diff changeset	2866	"ask for and create a symbolic if symbolic is true otherwise a hard link (unix only)"
321c1729db5b initial checkin penk parents: diff changeset	2867
321c1729db5b initial checkin penk parents: diff changeset	2868	\| sel create createdFile\|
321c1729db5b initial checkin penk parents: diff changeset	2869
321c1729db5b initial checkin penk parents: diff changeset	2870	sel := self currentFileNameHolder value.
321c1729db5b initial checkin penk parents: diff changeset	2871	(sel size ~= 1) ifTrue:[^ self].
321c1729db5b initial checkin penk parents: diff changeset	2872	symbolic ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2873	create := FileOperation create createSoftLinkIn:(sel first).
3892 321c1729db5b initial checkin penk parents: diff changeset	2874	] ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2875	create := FileOperation create createHardLinkIn:(sel first).
3892 321c1729db5b initial checkin penk parents: diff changeset	2876	].
321c1729db5b initial checkin penk parents: diff changeset	2877	create result ifFalse:[ ^ self].
321c1729db5b initial checkin penk parents: diff changeset	2878	createdFile := create createdFile.
321c1729db5b initial checkin penk parents: diff changeset	2879	createdFile notNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2880	self updateAndSelect:(OrderedCollection with:createdFile).
3892 321c1729db5b initial checkin penk parents: diff changeset	2881	].
321c1729db5b initial checkin penk parents: diff changeset	2882	!
321c1729db5b initial checkin penk parents: diff changeset	2883
321c1729db5b initial checkin penk parents: diff changeset	2884	newSoftLink
321c1729db5b initial checkin penk parents: diff changeset	2885	"ask for and create a soft link (unix only)"
321c1729db5b initial checkin penk parents: diff changeset	2886
321c1729db5b initial checkin penk parents: diff changeset	2887	self newLink:true.
321c1729db5b initial checkin penk parents: diff changeset	2888	!
321c1729db5b initial checkin penk parents: diff changeset	2889
321c1729db5b initial checkin penk parents: diff changeset	2890	pasteFiles
321c1729db5b initial checkin penk parents: diff changeset	2891	"defete current selected files/directories
321c1729db5b initial checkin penk parents: diff changeset	2892	"
321c1729db5b initial checkin penk parents: diff changeset	2893	\| buffer destination files directories copiedFiles\|
321c1729db5b initial checkin penk parents: diff changeset	2894
321c1729db5b initial checkin penk parents: diff changeset	2895	files := self clipboard files.
321c1729db5b initial checkin penk parents: diff changeset	2896	(files isNil or:[files isEmpty]) ifTrue:[ ^ self ].
321c1729db5b initial checkin penk parents: diff changeset	2897	buffer := self clipboard copy.
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	2898	directories := self currentSelectedDirectories.
3892 321c1729db5b initial checkin penk parents: diff changeset	2899	directories isEmpty ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2900	\|box dirStringCol\|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2901	dirStringCol := directories collect:[:aDir\| aDir asString].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2902	box := ListSelectionBox new.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2903	box title:'In which directory you want to paste ?'.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2904	box list:dirStringCol.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2905	box okAction:[:sel \| destination := sel asFilename].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2906	box showAtPointer
3892 321c1729db5b initial checkin penk parents: diff changeset	2907	] ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2908	destination := directories first.
3892 321c1729db5b initial checkin penk parents: diff changeset	2909	].
321c1729db5b initial checkin penk parents: diff changeset	2910	copiedFiles := self copyFiles:(buffer files) to:destination.
321c1729db5b initial checkin penk parents: diff changeset	2911
321c1729db5b initial checkin penk parents: diff changeset	2912	(self clipboard method == #cut) ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2913	self deleteFiles:copiedFiles.
3892 321c1729db5b initial checkin penk parents: diff changeset	2914	]
321c1729db5b initial checkin penk parents: diff changeset	2915	!
321c1729db5b initial checkin penk parents: diff changeset	2916
321c1729db5b initial checkin penk parents: diff changeset	2917	renameFile:aFile
321c1729db5b initial checkin penk parents: diff changeset	2918	"rename the selected file(s)"
321c1729db5b initial checkin penk parents: diff changeset	2919
321c1729db5b initial checkin penk parents: diff changeset	2920	^ self renameFiles:(OrderedCollection with:aFile).
321c1729db5b initial checkin penk parents: diff changeset	2921	!
321c1729db5b initial checkin penk parents: diff changeset	2922
321c1729db5b initial checkin penk parents: diff changeset	2923	renameFile:filename to:newFileString update:aBoolean
321c1729db5b initial checkin penk parents: diff changeset	2924	"rename filename to newFileString"
321c1729db5b initial checkin penk parents: diff changeset	2925
321c1729db5b initial checkin penk parents: diff changeset	2926	\|rename\|
321c1729db5b initial checkin penk parents: diff changeset	2927
321c1729db5b initial checkin penk parents: diff changeset	2928	rename := FileOperation rename renameFile:filename to:newFileString.
321c1729db5b initial checkin penk parents: diff changeset	2929	rename result ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2930	aBoolean ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2931	self updateAndSelect:(rename renamedFiles).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2932	].
3892 321c1729db5b initial checkin penk parents: diff changeset	2933	] ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2934	self notifyChannel value:rename errorString.
3892 321c1729db5b initial checkin penk parents: diff changeset	2935	].
321c1729db5b initial checkin penk parents: diff changeset	2936	^ rename result
321c1729db5b initial checkin penk parents: diff changeset	2937	!
321c1729db5b initial checkin penk parents: diff changeset	2938
321c1729db5b initial checkin penk parents: diff changeset	2939	renameFiles:aColOfFiles
321c1729db5b initial checkin penk parents: diff changeset	2940	"rename the selected file(s)"
321c1729db5b initial checkin penk parents: diff changeset	2941
321c1729db5b initial checkin penk parents: diff changeset	2942	\|rename\|
321c1729db5b initial checkin penk parents: diff changeset	2943
321c1729db5b initial checkin penk parents: diff changeset	2944	rename := FileOperation rename renameFiles:aColOfFiles.
321c1729db5b initial checkin penk parents: diff changeset	2945	rename result ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2946	self notifyChannel value:rename errorString
3892 321c1729db5b initial checkin penk parents: diff changeset	2947	] ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2948	self updateAndSelect:(rename renamedFiles)
3892 321c1729db5b initial checkin penk parents: diff changeset	2949	].
321c1729db5b initial checkin penk parents: diff changeset	2950	^ rename result
321c1729db5b initial checkin penk parents: diff changeset	2951	!
321c1729db5b initial checkin penk parents: diff changeset	2952
321c1729db5b initial checkin penk parents: diff changeset	2953	renameSelection
321c1729db5b initial checkin penk parents: diff changeset	2954	"rename the selected file(s)"
321c1729db5b initial checkin penk parents: diff changeset	2955
321c1729db5b initial checkin penk parents: diff changeset	2956	\|rename\|
321c1729db5b initial checkin penk parents: diff changeset	2957
321c1729db5b initial checkin penk parents: diff changeset	2958	rename := FileOperation rename renameFiles:self currentFileNameHolder value.
321c1729db5b initial checkin penk parents: diff changeset	2959	rename result ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2960	self notifyChannel value:rename errorString
3892 321c1729db5b initial checkin penk parents: diff changeset	2961	] ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2962	self updateAndSelect:(rename renamedFiles)
3892 321c1729db5b initial checkin penk parents: diff changeset	2963	].
321c1729db5b initial checkin penk parents: diff changeset	2964	^ rename result
321c1729db5b initial checkin penk parents: diff changeset	2965	! !
321c1729db5b initial checkin penk parents: diff changeset	2966
4080 c32f68f51f47 translation to german penk parents: 4075 diff changeset	2967	!AbstractFileBrowser methodsFor:'menu accessing'!
3892 321c1729db5b initial checkin penk parents: diff changeset	2968
3952 c04d4781a37e next stage penk parents: 3949 diff changeset	2969	bookmarksMenuSpec
c04d4781a37e next stage penk parents: 3949 diff changeset	2970	"This resource specification was automatically generated
c04d4781a37e next stage penk parents: 3949 diff changeset	2971	by the MenuEditor of ST/X."
c04d4781a37e next stage penk parents: 3949 diff changeset	2972
c04d4781a37e next stage penk parents: 3949 diff changeset	2973	"Do not manually edit this!! If it is corrupted,
c04d4781a37e next stage penk parents: 3949 diff changeset	2974	the MenuEditor may not be able to read the specification."
c04d4781a37e next stage penk parents: 3949 diff changeset	2975
c04d4781a37e next stage penk parents: 3949 diff changeset	2976	"
c04d4781a37e next stage penk parents: 3949 diff changeset	2977	MenuEditor new openOnClass:FileBrowser andSelector:#bookmarksMenuSpec
c04d4781a37e next stage penk parents: 3949 diff changeset	2978	(Menu new fromLiteralArrayEncoding:(AbstractFileBrowser bookmarksMenuSpec)) startUp
c04d4781a37e next stage penk parents: 3949 diff changeset	2979	"
c04d4781a37e next stage penk parents: 3949 diff changeset	2980	<resource: #programMenu>
c04d4781a37e next stage penk parents: 3949 diff changeset	2981
4080 c32f68f51f47 translation to german penk parents: 4075 diff changeset	2982	\|menuSpec menu bookmarks\|
c32f68f51f47 translation to german penk parents: 4075 diff changeset	2983
c32f68f51f47 translation to german penk parents: 4075 diff changeset	2984	menuSpec := self class baseBookmarksMenuSpec.
c32f68f51f47 translation to german penk parents: 4075 diff changeset	2985	menu := menuSpec decodeAsLiteralArray.
c32f68f51f47 translation to german penk parents: 4075 diff changeset	2986	menu findGuiResourcesIn:self.
3952 c04d4781a37e next stage penk parents: 3949 diff changeset	2987	menu receiver:self.
c04d4781a37e next stage penk parents: 3949 diff changeset	2988	bookmarks := self class directoryBookmarks.
c04d4781a37e next stage penk parents: 3949 diff changeset	2989	"/ add the history items ...
c04d4781a37e next stage penk parents: 3949 diff changeset	2990
c04d4781a37e next stage penk parents: 3949 diff changeset	2991	bookmarks size > 0 ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2992	menu addItem:(MenuItem labeled:'-').
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2993	bookmarks do:[:dirName \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2994	menu addItem:((MenuItem label:dirName asString value:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2995	(self currentDirectories value includes:dirName) ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2996	self currentFileNameHolder value:(OrderedCollection with:dirName).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2997	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2998	])).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	2999	].
3952 c04d4781a37e next stage penk parents: 3949 diff changeset	3000	].
c04d4781a37e next stage penk parents: 3949 diff changeset	3001	^ menu
c04d4781a37e next stage penk parents: 3949 diff changeset	3002
c04d4781a37e next stage penk parents: 3949 diff changeset	3003	"Modified: / 17.8.1998 / 10:13:05 / cg"
c04d4781a37e next stage penk parents: 3949 diff changeset	3004	!
c04d4781a37e next stage penk parents: 3949 diff changeset	3005
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	3006	canBack
8a76cb4f5884 next stage penk parents: 3892 diff changeset	3007
4024 c7f8d1ad4bc5 history penk parents: 4022 diff changeset	3008
c7f8d1ad4bc5 history penk parents: 4022 diff changeset	3009	^ self dirHistory canBack.
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	3010	!
8a76cb4f5884 next stage penk parents: 3892 diff changeset	3011
8a76cb4f5884 next stage penk parents: 3892 diff changeset	3012	canForward
8a76cb4f5884 next stage penk parents: 3892 diff changeset	3013
3964 8697bad1c903 next stage for history penk parents: 3963 diff changeset	3014	"/ \| currentSelection \|
8697bad1c903 next stage for history penk parents: 3963 diff changeset	3015	"/
8697bad1c903 next stage for history penk parents: 3963 diff changeset	3016	"/ currentSelection := self currentDirectories value.
8697bad1c903 next stage for history penk parents: 3963 diff changeset	3017	"/ currentSelection size ~~ 1 ifTrue:[ ^ false].
8697bad1c903 next stage for history penk parents: 3963 diff changeset	3018
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	3019	^ self dirHistory canForward.
8a76cb4f5884 next stage penk parents: 3892 diff changeset	3020	!
8a76cb4f5884 next stage penk parents: 3892 diff changeset	3021
3892 321c1729db5b initial checkin penk parents: diff changeset	3022	menuDirHistory:backOrForward
321c1729db5b initial checkin penk parents: diff changeset	3023	"initialize the directory menu
321c1729db5b initial checkin penk parents: diff changeset	3024	"
321c1729db5b initial checkin penk parents: diff changeset	3025	<resource: #programMenu >
321c1729db5b initial checkin penk parents: diff changeset	3026
3964 8697bad1c903 next stage for history penk parents: 3963 diff changeset	3027	\|menu pathList currentSel currentPath\|
3892 321c1729db5b initial checkin penk parents: diff changeset	3028
321c1729db5b initial checkin penk parents: diff changeset	3029	menu := Menu new.
321c1729db5b initial checkin penk parents: diff changeset	3030	menu receiver:self.
321c1729db5b initial checkin penk parents: diff changeset	3031
321c1729db5b initial checkin penk parents: diff changeset	3032	self dirHistory isEmpty ifTrue:[^ nil].
321c1729db5b initial checkin penk parents: diff changeset	3033	backOrForward == #back ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3034	currentSel := self currentDirectories value.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3035	currentSel size == 1 ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3036	currentPath := currentSel first asString.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3037	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3038	currentPath := nil.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3039	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3040	pathList := self dirHistory getBackCollectionFrom:currentPath.
3892 321c1729db5b initial checkin penk parents: diff changeset	3041	] ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3042	pathList := self dirHistory getForwardCollection.
3892 321c1729db5b initial checkin penk parents: diff changeset	3043	].
4022 87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	3044	pathList isEmpty ifTrue:[ ^ nil].
3964 8697bad1c903 next stage for history penk parents: 3963 diff changeset	3045	pathList do:[:aPath\|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3046	\| menuItem \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3047	menuItem := MenuItem new.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3048	menuItem label:aPath.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3049	menuItem value:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3050	self currentFileNameHolder value:(OrderedCollection with:(aPath asFilename)).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3051	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3052	menu addItem:menuItem.
3952 c04d4781a37e next stage penk parents: 3949 diff changeset	3053	].
3892 321c1729db5b initial checkin penk parents: diff changeset	3054	^ menu
321c1729db5b initial checkin penk parents: diff changeset	3055	!
321c1729db5b initial checkin penk parents: diff changeset	3056
321c1729db5b initial checkin penk parents: diff changeset	3057	menuDirHistoryBack
321c1729db5b initial checkin penk parents: diff changeset	3058	"initialize the directory menu
321c1729db5b initial checkin penk parents: diff changeset	3059	"
321c1729db5b initial checkin penk parents: diff changeset	3060	<resource: #programMenu >
321c1729db5b initial checkin penk parents: diff changeset	3061
321c1729db5b initial checkin penk parents: diff changeset	3062	^ self menuDirHistory:#back.
321c1729db5b initial checkin penk parents: diff changeset	3063	!
321c1729db5b initial checkin penk parents: diff changeset	3064
321c1729db5b initial checkin penk parents: diff changeset	3065	menuDirHistoryForward
321c1729db5b initial checkin penk parents: diff changeset	3066	"initialize the directory menu
321c1729db5b initial checkin penk parents: diff changeset	3067	"
321c1729db5b initial checkin penk parents: diff changeset	3068	<resource: #programMenu >
321c1729db5b initial checkin penk parents: diff changeset	3069
321c1729db5b initial checkin penk parents: diff changeset	3070	^ self menuDirHistory:#forward.
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	3071	!
8a76cb4f5884 next stage penk parents: 3892 diff changeset	3072
8a76cb4f5884 next stage penk parents: 3892 diff changeset	3073	menuFileHistory
8a76cb4f5884 next stage penk parents: 3892 diff changeset	3074	"initialize the file history menu
8a76cb4f5884 next stage penk parents: 3892 diff changeset	3075	"
8a76cb4f5884 next stage penk parents: 3892 diff changeset	3076	<resource: #programMenu >
8a76cb4f5884 next stage penk parents: 3892 diff changeset	3077
8a76cb4f5884 next stage penk parents: 3892 diff changeset	3078	\|menu hist text removeItem removeCol\|
8a76cb4f5884 next stage penk parents: 3892 diff changeset	3079
8a76cb4f5884 next stage penk parents: 3892 diff changeset	3080	menu := Menu new.
4080 c32f68f51f47 translation to german penk parents: 4075 diff changeset	3081	menu findGuiResourcesIn:self.
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	3082	menu receiver:self.
8a76cb4f5884 next stage penk parents: 3892 diff changeset	3083
8a76cb4f5884 next stage penk parents: 3892 diff changeset	3084	hist := self fileHistory.
8a76cb4f5884 next stage penk parents: 3892 diff changeset	3085	hist isEmpty ifTrue:[^ nil].
4080 c32f68f51f47 translation to german penk parents: 4075 diff changeset	3086	text := LabelAndIcon icon:(self class clearHistoryIcon) string:(resources string:'Clear File History').
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	3087	removeCol := OrderedCollection new.
8a76cb4f5884 next stage penk parents: 3892 diff changeset	3088	hist do:[:aFileItem\|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3089	aFileItem fileName exists ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3090	menu addItem:(MenuItem label: aFileItem fileName asString value:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3091	self currentFileNameHolder value:(OrderedCollection with:(aFileItem fileName)).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3092	self openApplByFileItem:aFileItem
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3093	]).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3094	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3095	removeCol add:aFileItem.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3096	]
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	3097	].
8a76cb4f5884 next stage penk parents: 3892 diff changeset	3098	"/ remove all not existing history entries
8a76cb4f5884 next stage penk parents: 3892 diff changeset	3099	removeCol do:[ : el \|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3100	hist remove:el.
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	3101	].
4080 c32f68f51f47 translation to german penk parents: 4075 diff changeset	3102	removeItem := MenuItem new.
c32f68f51f47 translation to german penk parents: 4075 diff changeset	3103	removeItem translateLabel:true.
c32f68f51f47 translation to german penk parents: 4075 diff changeset	3104	removeItem label:text.
c32f68f51f47 translation to german penk parents: 4075 diff changeset	3105	removeItem value:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3106	self fileHistory removeAll.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3107	self enableFileHistory value:false.
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	3108	].
8a76cb4f5884 next stage penk parents: 3892 diff changeset	3109	menu addItem:(MenuItem label:'-').
8a76cb4f5884 next stage penk parents: 3892 diff changeset	3110	menu addItem:removeItem.
8a76cb4f5884 next stage penk parents: 3892 diff changeset	3111	^ menu
3952 c04d4781a37e next stage penk parents: 3949 diff changeset	3112	!
c04d4781a37e next stage penk parents: 3949 diff changeset	3113
4080 c32f68f51f47 translation to german penk parents: 4075 diff changeset	3114	sortMenu
c32f68f51f47 translation to german penk parents: 4075 diff changeset	3115
c32f68f51f47 translation to german penk parents: 4075 diff changeset	3116	<resource: #programMenu >
c32f68f51f47 translation to german penk parents: 4075 diff changeset	3117
c32f68f51f47 translation to german penk parents: 4075 diff changeset	3118	\|menu\|
c32f68f51f47 translation to german penk parents: 4075 diff changeset	3119
c32f68f51f47 translation to german penk parents: 4075 diff changeset	3120	menu := Menu new fromLiteralArrayEncoding:self class sortMenu.
c32f68f51f47 translation to german penk parents: 4075 diff changeset	3121	menu ifNil:[ ^ nil ].
c32f68f51f47 translation to german penk parents: 4075 diff changeset	3122	menu findGuiResourcesIn:self.
c32f68f51f47 translation to german penk parents: 4075 diff changeset	3123	menu receiver:self.
c32f68f51f47 translation to german penk parents: 4075 diff changeset	3124	^ menu
c32f68f51f47 translation to german penk parents: 4075 diff changeset	3125	!
c32f68f51f47 translation to german penk parents: 4075 diff changeset	3126
c32f68f51f47 translation to german penk parents: 4075 diff changeset	3127	viewDetailsMenuSpec
c32f68f51f47 translation to german penk parents: 4075 diff changeset	3128	^self class viewDetailsMenuSpec
c32f68f51f47 translation to german penk parents: 4075 diff changeset	3129	!
c32f68f51f47 translation to german penk parents: 4075 diff changeset	3130
c32f68f51f47 translation to german penk parents: 4075 diff changeset	3131	viewInContentsBrowserMenu
c32f68f51f47 translation to german penk parents: 4075 diff changeset	3132
c32f68f51f47 translation to german penk parents: 4075 diff changeset	3133	^ self application:#DirectoryContentsBrowser do:#viewBrowserMenu
c32f68f51f47 translation to german penk parents: 4075 diff changeset	3134	!
c32f68f51f47 translation to german penk parents: 4075 diff changeset	3135
3952 c04d4781a37e next stage penk parents: 3949 diff changeset	3136	visitedDirectoriesMenu
c04d4781a37e next stage penk parents: 3949 diff changeset	3137
c04d4781a37e next stage penk parents: 3949 diff changeset	3138	<resource: #programMenu >
c04d4781a37e next stage penk parents: 3949 diff changeset	3139
c04d4781a37e next stage penk parents: 3949 diff changeset	3140	\|menu histCopy text removeItem\|
c04d4781a37e next stage penk parents: 3949 diff changeset	3141
c04d4781a37e next stage penk parents: 3949 diff changeset	3142	menu := Menu new.
c04d4781a37e next stage penk parents: 3949 diff changeset	3143	menu receiver:self.
c04d4781a37e next stage penk parents: 3949 diff changeset	3144
c04d4781a37e next stage penk parents: 3949 diff changeset	3145	self dirHistory isEmpty ifTrue:[^ nil].
4040 c880438f2554 * empty log message * penk parents: 4034 diff changeset	3146	text := LabelAndIcon icon:(self class clearHistoryIcon) string:(resources string:'Clear History').
3952 c04d4781a37e next stage penk parents: 3949 diff changeset	3147	removeItem := MenuItem new.
4040 c880438f2554 * empty log message * penk parents: 4034 diff changeset	3148	removeItem translateLabel:true.
3952 c04d4781a37e next stage penk parents: 3949 diff changeset	3149	removeItem label:text.
c04d4781a37e next stage penk parents: 3949 diff changeset	3150	removeItem value:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3151	self dirHistory removeAll.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3152	self enableForward value:self canForward.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3153	self enableBack value:self canBack.
3952 c04d4781a37e next stage penk parents: 3949 diff changeset	3154	].
c04d4781a37e next stage penk parents: 3949 diff changeset	3155	histCopy := self dirHistory.
c04d4781a37e next stage penk parents: 3949 diff changeset	3156	histCopy do:[:aFile\|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3157	menu addItem:(MenuItem label:aFile asString value:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3158	self currentFileNameHolder value:(OrderedCollection with:(aFile path asFilename)).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3159	]).
3952 c04d4781a37e next stage penk parents: 3949 diff changeset	3160	].
c04d4781a37e next stage penk parents: 3949 diff changeset	3161	menu addItem:(MenuItem label:'-').
c04d4781a37e next stage penk parents: 3949 diff changeset	3162	menu addItem:removeItem.
c04d4781a37e next stage penk parents: 3949 diff changeset	3163	^ menu
3892 321c1729db5b initial checkin penk parents: diff changeset	3164	! !
321c1729db5b initial checkin penk parents: diff changeset	3165
321c1729db5b initial checkin penk parents: diff changeset	3166	!AbstractFileBrowser methodsFor:'menu actions cvs'!
321c1729db5b initial checkin penk parents: diff changeset	3167
321c1729db5b initial checkin penk parents: diff changeset	3168	cvsAddAndCommit
321c1729db5b initial checkin penk parents: diff changeset	3169
4046 2f096def132b commit in after add checks now only the added files in not all penk parents: 4040 diff changeset	3170	\|sel log cmd dir executionBlock nameString block\|
3892 321c1729db5b initial checkin penk parents: diff changeset	3171
321c1729db5b initial checkin penk parents: diff changeset	3172	log := Dialog
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3173	requestText:(resources string:'enter initial log message')
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3174	lines:10
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3175	columns:70
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3176	initialAnswer:nil.
3892 321c1729db5b initial checkin penk parents: diff changeset	3177
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	3178	sel := self currentSelectedFiles.
3892 321c1729db5b initial checkin penk parents: diff changeset	3179	executionBlock := [ : stream \|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3180	log notNil ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3181	sel size > 0 ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3182	sel do:[:fn \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3183	dir := self getDirWithoutFileName:fn.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3184	cmd := ('cvs add -m ''' , log , ''' ' , fn baseName).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3185	block := self getExecutionBlockForCommand:cmd inDirectory:dir.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3186	block value:stream.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3187	cmd := ('cvs commit -l -m ''' , log , ''' ' , fn baseName).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3188	block := self getExecutionBlockForCommand:cmd inDirectory:dir.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3189	block value:stream.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3190	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3191	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3192	]
3892 321c1729db5b initial checkin penk parents: diff changeset	3193	].
4107 d158469338e5 * empty log message * penk parents: 4101 diff changeset	3194	nameString := 'Command> cvs add and commit'.
3892 321c1729db5b initial checkin penk parents: diff changeset	3195	self makeExecutionResultProcessFor:executionBlock withName:nameString.
321c1729db5b initial checkin penk parents: diff changeset	3196	!
321c1729db5b initial checkin penk parents: diff changeset	3197
321c1729db5b initial checkin penk parents: diff changeset	3198	cvsCommit
321c1729db5b initial checkin penk parents: diff changeset	3199
4107 d158469338e5 * empty log message * penk parents: 4101 diff changeset	3200	\|nSel log msg cmd selectedFiles sel executionBlock nameString\|
3892 321c1729db5b initial checkin penk parents: diff changeset	3201
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	3202	selectedFiles:= self currentSelectedFiles.
3892 321c1729db5b initial checkin penk parents: diff changeset	3203	nSel := selectedFiles size.
321c1729db5b initial checkin penk parents: diff changeset	3204
321c1729db5b initial checkin penk parents: diff changeset	3205	nSel == 1 ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3206	msg := resources string:'enter log message for checkIn of ''%1''' with:(selectedFiles first baseName)
3892 321c1729db5b initial checkin penk parents: diff changeset	3207	] ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3208	nSel > 1 ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3209	msg := resources string:'enter log message for %1 files to checkIn' with:nSel printString
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3210	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3211	msg := resources string:'enter log message for checkIn'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3212	]
3892 321c1729db5b initial checkin penk parents: diff changeset	3213	].
321c1729db5b initial checkin penk parents: diff changeset	3214
321c1729db5b initial checkin penk parents: diff changeset	3215	log := Dialog
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3216	requestText:msg
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3217	lines:10
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3218	columns:70
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3219	initialAnswer:nil.
3892 321c1729db5b initial checkin penk parents: diff changeset	3220
321c1729db5b initial checkin penk parents: diff changeset	3221	log notNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3222	sel := self currentFileNameHolder value.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3223	sel isEmpty ifTrue:[ ^ self ].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3224	executionBlock := [ : stream \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3225	log notNil ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3226	sel size > 0 ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3227	sel do:[:fn \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3228	\| dir block \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3229	dir := fn directory.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3230	cmd := ('cvs commit -m ''' , log , ''' ' , fn baseName).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3231	block := self getExecutionBlockForCommand:cmd inDirectory:dir.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3232	block value:stream.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3233	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3234	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3235	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3236	].
4107 d158469338e5 * empty log message * penk parents: 4101 diff changeset	3237	].
d158469338e5 * empty log message * penk parents: 4101 diff changeset	3238	nameString := 'Command> cvs commit'.
d158469338e5 * empty log message * penk parents: 4101 diff changeset	3239	self makeExecutionResultProcessFor:executionBlock withName:nameString.
3892 321c1729db5b initial checkin penk parents: diff changeset	3240	!
321c1729db5b initial checkin penk parents: diff changeset	3241
321c1729db5b initial checkin penk parents: diff changeset	3242	cvsRemoveAndRemoveFromCVS:filesToRemove
321c1729db5b initial checkin penk parents: diff changeset	3243	"remove the selected file(s) and their CVS containers - no questions asked"
321c1729db5b initial checkin penk parents: diff changeset	3244
321c1729db5b initial checkin penk parents: diff changeset	3245	\|msg toRemove updateRunning cmd executionBlock nameString\|
321c1729db5b initial checkin penk parents: diff changeset	3246
321c1729db5b initial checkin penk parents: diff changeset	3247	updateRunning := self backgroundProcesses value notEmpty.
321c1729db5b initial checkin penk parents: diff changeset	3248	self killAllRunningBackgroundProcesses.
321c1729db5b initial checkin penk parents: diff changeset	3249	toRemove := OrderedCollection new.
321c1729db5b initial checkin penk parents: diff changeset	3250
321c1729db5b initial checkin penk parents: diff changeset	3251	executionBlock := [ : stream \|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3252	\| block \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3253	filesToRemove do:[:fileName \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3254	OperatingSystem accessDeniedErrorSignal handle:[:ex\|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3255	"was not able to remove it"
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3256	\| lastError \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3257	lastError := OperatingSystem lastErrorString.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3258	msg := (resources string:'cannot remove ''%1'' !!' with:fileName).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3259	lastError isNil ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3260	msg := msg , '\\(' , lastError , ')'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3261	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3262	Dialog warn:msg withCRs
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3263	] do:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3264	\|answer contents\|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3265
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3266	(fileName isSymbolicLink not) ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3267	fileName remove.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3268	cmd := ('cvs remove -f ' , fileName baseName).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3269	block := self getExecutionBlockForCommand:cmd.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3270	block value:stream.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3271	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3272	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3273	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3274
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3275	cmd := ('cvs commit -m ''removed via FileBrowser''').
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3276	block := self getExecutionBlockForCommand:cmd.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3277	block value:stream.
3892 321c1729db5b initial checkin penk parents: diff changeset	3278	].
4107 d158469338e5 * empty log message * penk parents: 4101 diff changeset	3279	nameString := 'Command> cvs remove and commit ', filesToRemove first baseName.
3892 321c1729db5b initial checkin penk parents: diff changeset	3280	filesToRemove size > 1 ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3281	nameString := nameString, ' ...'.
3892 321c1729db5b initial checkin penk parents: diff changeset	3282	].
321c1729db5b initial checkin penk parents: diff changeset	3283	self makeExecutionResultProcessFor:executionBlock withName:nameString.
321c1729db5b initial checkin penk parents: diff changeset	3284	!
321c1729db5b initial checkin penk parents: diff changeset	3285
321c1729db5b initial checkin penk parents: diff changeset	3286	cvsRemoveFileAndCVSContainer
321c1729db5b initial checkin penk parents: diff changeset	3287
321c1729db5b initial checkin penk parents: diff changeset	3288	\|sel question aswer\|
321c1729db5b initial checkin penk parents: diff changeset	3289
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	3290	sel := self currentSelectedFiles.
3892 321c1729db5b initial checkin penk parents: diff changeset	3291
321c1729db5b initial checkin penk parents: diff changeset	3292	sel size > 0 ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3293	sel size > 1 ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3294	question := resources string:'Remove %1 selected files and their CVS containers ?' with:(sel size)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3295	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3296	question := resources string:'Remove ''%1'' and its CVS container ?' with:(sel first baseName allBold)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3297	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3298
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3299	aswer := Dialog
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3300	confirm:question withCRs
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3301	yesLabel:(resources at:'Remove')
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3302	noLabel:(resources at:'Cancel').
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3303	aswer ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3304	self withCursor:(Cursor wait) do:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3305	self cvsRemoveAndRemoveFromCVS:sel
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3306	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3307	]
3892 321c1729db5b initial checkin penk parents: diff changeset	3308	]
321c1729db5b initial checkin penk parents: diff changeset	3309	!
321c1729db5b initial checkin penk parents: diff changeset	3310
321c1729db5b initial checkin penk parents: diff changeset	3311	cvsUpdateAll
321c1729db5b initial checkin penk parents: diff changeset	3312
321c1729db5b initial checkin penk parents: diff changeset	3313	\| cmd \|
321c1729db5b initial checkin penk parents: diff changeset	3314
321c1729db5b initial checkin penk parents: diff changeset	3315	cmd := 'cvs upd -l'.
321c1729db5b initial checkin penk parents: diff changeset	3316	self executeCommand:cmd.
321c1729db5b initial checkin penk parents: diff changeset	3317	!
321c1729db5b initial checkin penk parents: diff changeset	3318
321c1729db5b initial checkin penk parents: diff changeset	3319	cvsUpdateAllRecursive
321c1729db5b initial checkin penk parents: diff changeset	3320
321c1729db5b initial checkin penk parents: diff changeset	3321	\| cmd \|
321c1729db5b initial checkin penk parents: diff changeset	3322
321c1729db5b initial checkin penk parents: diff changeset	3323	cmd := 'cvs upd -d'.
321c1729db5b initial checkin penk parents: diff changeset	3324	self executeCommand:cmd.
321c1729db5b initial checkin penk parents: diff changeset	3325	!
321c1729db5b initial checkin penk parents: diff changeset	3326
321c1729db5b initial checkin penk parents: diff changeset	3327	cvsUpdateSelection
321c1729db5b initial checkin penk parents: diff changeset	3328
321c1729db5b initial checkin penk parents: diff changeset	3329	\| selectedFiles stream\|
321c1729db5b initial checkin penk parents: diff changeset	3330
321c1729db5b initial checkin penk parents: diff changeset	3331
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	3332	selectedFiles:= self currentSelectedFiles.
3892 321c1729db5b initial checkin penk parents: diff changeset	3333	stream := WriteStream on:''.
321c1729db5b initial checkin penk parents: diff changeset	3334	stream nextPutAll:'cvs upd '.
321c1729db5b initial checkin penk parents: diff changeset	3335	selectedFiles do:[: file \|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3336	stream nextPutAll:file baseName.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3337	stream space.
3892 321c1729db5b initial checkin penk parents: diff changeset	3338	].
321c1729db5b initial checkin penk parents: diff changeset	3339	self executeCommand:stream contents.
321c1729db5b initial checkin penk parents: diff changeset	3340	stream close.
321c1729db5b initial checkin penk parents: diff changeset	3341	! !
321c1729db5b initial checkin penk parents: diff changeset	3342
321c1729db5b initial checkin penk parents: diff changeset	3343	!AbstractFileBrowser methodsFor:'menu actions edit'!
321c1729db5b initial checkin penk parents: diff changeset	3344
321c1729db5b initial checkin penk parents: diff changeset	3345	copyInDirContentsBrowser
321c1729db5b initial checkin penk parents: diff changeset	3346
321c1729db5b initial checkin penk parents: diff changeset	3347	^ self application:#DirectoryContentsBrowser do:#doCopy.
321c1729db5b initial checkin penk parents: diff changeset	3348	!
321c1729db5b initial checkin penk parents: diff changeset	3349
321c1729db5b initial checkin penk parents: diff changeset	3350	cutInDirContentsBrowser
321c1729db5b initial checkin penk parents: diff changeset	3351
321c1729db5b initial checkin penk parents: diff changeset	3352	^ self application:#DirectoryContentsBrowser do:#doCut.
321c1729db5b initial checkin penk parents: diff changeset	3353	!
321c1729db5b initial checkin penk parents: diff changeset	3354
321c1729db5b initial checkin penk parents: diff changeset	3355	deleteInDirContentsBrowser
321c1729db5b initial checkin penk parents: diff changeset	3356
321c1729db5b initial checkin penk parents: diff changeset	3357	^ self application:#DirectoryContentsBrowser do:#doDelete.
321c1729db5b initial checkin penk parents: diff changeset	3358	! !
321c1729db5b initial checkin penk parents: diff changeset	3359
321c1729db5b initial checkin penk parents: diff changeset	3360	!AbstractFileBrowser methodsFor:'menu actions tools'!
321c1729db5b initial checkin penk parents: diff changeset	3361
321c1729db5b initial checkin penk parents: diff changeset	3362	createProjectAndOpenProjectBrowser
321c1729db5b initial checkin penk parents: diff changeset	3363	\|nm f s directory\|
321c1729db5b initial checkin penk parents: diff changeset	3364
321c1729db5b initial checkin penk parents: diff changeset	3365	self currentFilesAreInSameDirectory ifFalse:[^ self].
321c1729db5b initial checkin penk parents: diff changeset	3366	directory := self currentDirectories value first.
321c1729db5b initial checkin penk parents: diff changeset	3367	nm := directory baseName.
321c1729db5b initial checkin penk parents: diff changeset	3368	f := (directory construct:nm) withSuffix:'prj'.
321c1729db5b initial checkin penk parents: diff changeset	3369	f exists ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3370	Dialog warn:'A file named ' , f baseName , ' already exists.'.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3371	^ self.
3892 321c1729db5b initial checkin penk parents: diff changeset	3372	].
321c1729db5b initial checkin penk parents: diff changeset	3373	s := f writeStream.
321c1729db5b initial checkin penk parents: diff changeset	3374	s nextPutAll:'
321c1729db5b initial checkin penk parents: diff changeset	3375	name ''' , nm , '''
321c1729db5b initial checkin penk parents: diff changeset	3376	type #classLibrary
321c1729db5b initial checkin penk parents: diff changeset	3377	package #''private:' , nm , '''
321c1729db5b initial checkin penk parents: diff changeset	3378	prerequisites nil
321c1729db5b initial checkin penk parents: diff changeset	3379
321c1729db5b initial checkin penk parents: diff changeset	3380	classes #( )
321c1729db5b initial checkin penk parents: diff changeset	3381	'.
321c1729db5b initial checkin penk parents: diff changeset	3382	s close.
321c1729db5b initial checkin penk parents: diff changeset	3383	ProjectBrowser openOnFile:f.
321c1729db5b initial checkin penk parents: diff changeset	3384	!
321c1729db5b initial checkin penk parents: diff changeset	3385
321c1729db5b initial checkin penk parents: diff changeset	3386	fileFileIn
321c1729db5b initial checkin penk parents: diff changeset	3387	"fileIn the selected file(s)"
321c1729db5b initial checkin penk parents: diff changeset	3388
321c1729db5b initial checkin penk parents: diff changeset	3389	self fileFileInLazy:false
321c1729db5b initial checkin penk parents: diff changeset	3390	!
321c1729db5b initial checkin penk parents: diff changeset	3391
321c1729db5b initial checkin penk parents: diff changeset	3392	fileFileInLazy
321c1729db5b initial checkin penk parents: diff changeset	3393	"fileIn the selected file(s). Do a quick load (no compilation)"
321c1729db5b initial checkin penk parents: diff changeset	3394
321c1729db5b initial checkin penk parents: diff changeset	3395	self fileFileInLazy:true
321c1729db5b initial checkin penk parents: diff changeset	3396	!
321c1729db5b initial checkin penk parents: diff changeset	3397
321c1729db5b initial checkin penk parents: diff changeset	3398	fileFileInLazy:lazy
321c1729db5b initial checkin penk parents: diff changeset	3399	"fileIn the selected file(s)"
321c1729db5b initial checkin penk parents: diff changeset	3400
321c1729db5b initial checkin penk parents: diff changeset	3401	\| selectedFiles\|
321c1729db5b initial checkin penk parents: diff changeset	3402
4156 28bd97c1bf64 show a busy cursor, while filing in Claus Gittinger <cg@exept.de> parents: 4151 diff changeset	3403	self withWaitCursorDo:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3404	selectedFiles:= self currentSelectedFiles.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3405	selectedFiles do:[:fileName \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3406	self singleFileFileIn:fileName lazy:lazy
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3407	].
3892 321c1729db5b initial checkin penk parents: diff changeset	3408	].
321c1729db5b initial checkin penk parents: diff changeset	3409	!
321c1729db5b initial checkin penk parents: diff changeset	3410
321c1729db5b initial checkin penk parents: diff changeset	3411	fileFileInToNameSpace
321c1729db5b initial checkin penk parents: diff changeset	3412	"fileIn the selected file(s)<into a nameSpace"
321c1729db5b initial checkin penk parents: diff changeset	3413
321c1729db5b initial checkin penk parents: diff changeset	3414	\|ns listOfKnownNameSpaces\|
321c1729db5b initial checkin penk parents: diff changeset	3415
321c1729db5b initial checkin penk parents: diff changeset	3416	listOfKnownNameSpaces := Set new.
321c1729db5b initial checkin penk parents: diff changeset	3417	NameSpace
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3418	allNamespaces
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3419	do:[:eachNameSpace \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3420	listOfKnownNameSpaces add:eachNameSpace name
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3421	].
3892 321c1729db5b initial checkin penk parents: diff changeset	3422	listOfKnownNameSpaces := listOfKnownNameSpaces asOrderedCollection sort.
321c1729db5b initial checkin penk parents: diff changeset	3423
321c1729db5b initial checkin penk parents: diff changeset	3424	ns := Dialog
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3425	request:'During fileIn, new classes are created in nameSpace:'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3426	initialAnswer:(LastEnforcedNameSpace ? Class nameSpaceQuerySignal query name)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3427	list:listOfKnownNameSpaces.
3892 321c1729db5b initial checkin penk parents: diff changeset	3428	ns isEmptyOrNil ifTrue:[^ self].
321c1729db5b initial checkin penk parents: diff changeset	3429
321c1729db5b initial checkin penk parents: diff changeset	3430	LastEnforcedNameSpace := ns.
321c1729db5b initial checkin penk parents: diff changeset	3431	ns := NameSpace name:ns.
321c1729db5b initial checkin penk parents: diff changeset	3432
321c1729db5b initial checkin penk parents: diff changeset	3433	Class nameSpaceQuerySignal
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3434	answer:ns
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3435	do:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3436	self fileFileInLazy:false
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3437	]
3892 321c1729db5b initial checkin penk parents: diff changeset	3438	!
321c1729db5b initial checkin penk parents: diff changeset	3439
321c1729db5b initial checkin penk parents: diff changeset	3440	fileFindAllDuplicates
321c1729db5b initial checkin penk parents: diff changeset	3441	"scan directory and all subdirs for duplicate files"
321c1729db5b initial checkin penk parents: diff changeset	3442
321c1729db5b initial checkin penk parents: diff changeset	3443	\|fileNames dir infoDir filesBySize
321c1729db5b initial checkin penk parents: diff changeset	3444	result info dirPrefix myName stream textBox maxLength directories\|
321c1729db5b initial checkin penk parents: diff changeset	3445
321c1729db5b initial checkin penk parents: diff changeset	3446
321c1729db5b initial checkin penk parents: diff changeset	3447	self withWaitCursorDo:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3448	result := Dictionary new.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3449	myName := self class name asString.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3450	directories := self currentSelectedDirectories.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3451	directories isEmpty ifTrue:[^ self].
3892 321c1729db5b initial checkin penk parents: diff changeset	3452
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3453	dir := directories first.
3892 321c1729db5b initial checkin penk parents: diff changeset	3454	"/ self label: myName, '- gathering file names ...'.
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3455	fileNames := dir recursiveDirectoryContents.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3456	fileNames := fileNames collect:[:fn \| dir construct:fn].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3457	fileNames := fileNames select:[:fn \| fn isDirectory not].
3892 321c1729db5b initial checkin penk parents: diff changeset	3458
321c1729db5b initial checkin penk parents: diff changeset	3459	"/ self label:myName , '- gathering sizes ...'.
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3460	infoDir := Dictionary new.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3461	fileNames do:[:fn \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3462	infoDir at:fn put:(fn fileSize)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3463	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3464
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3465	"/ for each, get the files size.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3466	"/ in a first pass, look for files of the same size and
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3467	"/ compare them ...
3892 321c1729db5b initial checkin penk parents: diff changeset	3468
321c1729db5b initial checkin penk parents: diff changeset	3469	"/ self label:myName , '- preselect possible duplicates ...'.
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3470	filesBySize := Dictionary new.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3471	infoDir keysAndValuesDo:[:fn :sz \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3472	\|entry\|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3473
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3474	entry := filesBySize at:sz ifAbsentPut:[Set new].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3475	entry add:fn.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3476	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3477
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3478	"/ any of same size ?
3892 321c1729db5b initial checkin penk parents: diff changeset	3479
321c1729db5b initial checkin penk parents: diff changeset	3480	"/ self label:myName , '- checking for duplicates ...'.
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3481	filesBySize do:[:entry \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3482	\|files\|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3483
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3484	entry size > 1 ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3485	files := entry asArray.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3486	1 to:files size-1 do:[:idx1 \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3487	idx1+1 to:files size do:[:idx2 \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3488	\|fn1 fn2\|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3489
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3490	fn1 := files at:idx1.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3491	fn2 := files at:idx2.
3892 321c1729db5b initial checkin penk parents: diff changeset	3492
321c1729db5b initial checkin penk parents: diff changeset	3493	"/ self label:myName , '- checking ' , fn1 baseName , ' vs. ' , fn2 baseName , ' ...'.
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3494	(result at:fn2 ifAbsent:nil) ~= fn1 ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3495	"/ compare the files
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3496	(fn1 sameContentsAs:fn2) ifTrue:[
3892 321c1729db5b initial checkin penk parents: diff changeset	3497	"/ Transcript show:'Same: '; show:fn1 baseName; show:' and '; showCR:fn2 baseName.
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3498	result at:fn1 put:fn2.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3499	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3500	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3501	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3502	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3503	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3504	].
3892 321c1729db5b initial checkin penk parents: diff changeset	3505
321c1729db5b initial checkin penk parents: diff changeset	3506	"/ self label:myName , '- sorting ...'.
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3507	dirPrefix := dir pathName.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3508	result := result associations.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3509	result := result collect:[:assoc \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3510	\|f1 f2\|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3511
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3512	f1 := assoc key name.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3513	f2 := assoc value name.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3514	(f1 startsWith:dirPrefix) ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3515	f1 := f1 copyFrom:dirPrefix size + 2.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3516	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3517	(f2 startsWith:dirPrefix) ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3518	f2 := f2 copyFrom:dirPrefix size + 2.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3519	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3520	f1 < f2 ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3521	f2 -> f1
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3522	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3523	f1 -> f2
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3524	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3525	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3526	result sort:[:f1 :f2 \| f2 value < f1 value].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3527
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3528	info := OrderedCollection new.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3529	result do:[:assoc \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3530	info add:(assoc key , ' same as ' , assoc value)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3531	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3532	info isEmpty ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3533	info := 'No duplicate files found.'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3534	].
3892 321c1729db5b initial checkin penk parents: diff changeset	3535	].
321c1729db5b initial checkin penk parents: diff changeset	3536
321c1729db5b initial checkin penk parents: diff changeset	3537	stream := WriteStream on:''.
321c1729db5b initial checkin penk parents: diff changeset	3538	info do:[:el\|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3539	stream nextPutAll:el.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3540	stream cr.
3892 321c1729db5b initial checkin penk parents: diff changeset	3541	].
321c1729db5b initial checkin penk parents: diff changeset	3542	textBox := TextBox new.
321c1729db5b initial checkin penk parents: diff changeset	3543	textBox initialText:(stream contents).
321c1729db5b initial checkin penk parents: diff changeset	3544	textBox title:'File dublicates in directory: ', dir asString.
321c1729db5b initial checkin penk parents: diff changeset	3545	textBox readOnly:true.
321c1729db5b initial checkin penk parents: diff changeset	3546	textBox noCancel.
321c1729db5b initial checkin penk parents: diff changeset	3547	textBox label:'Dublicates in ', dir asString.
321c1729db5b initial checkin penk parents: diff changeset	3548	maxLength := 10.
321c1729db5b initial checkin penk parents: diff changeset	3549	info do:[: el \|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3550	maxLength := maxLength max:(el size).
3892 321c1729db5b initial checkin penk parents: diff changeset	3551	].
321c1729db5b initial checkin penk parents: diff changeset	3552	textBox extent:((maxLength * 5)@(info size * 20)); sizeFixed:false.
321c1729db5b initial checkin penk parents: diff changeset	3553	textBox showAtPointer.
321c1729db5b initial checkin penk parents: diff changeset	3554	stream close.
321c1729db5b initial checkin penk parents: diff changeset	3555	"/ subView contents:info.
321c1729db5b initial checkin penk parents: diff changeset	3556	"/ self label:myName.
321c1729db5b initial checkin penk parents: diff changeset	3557	!
321c1729db5b initial checkin penk parents: diff changeset	3558
321c1729db5b initial checkin penk parents: diff changeset	3559	fileFindDuplicates
321c1729db5b initial checkin penk parents: diff changeset	3560	"scan directory for duplicate files"
321c1729db5b initial checkin penk parents: diff changeset	3561
4050 d63d33ad9c41 * empty log message * penk parents: 4046 diff changeset	3562	\|fileNames infoDir filesBySize
3892 321c1729db5b initial checkin penk parents: diff changeset	3563	result info stream textBox maxLength directories allFiles titleStream size\|
321c1729db5b initial checkin penk parents: diff changeset	3564
321c1729db5b initial checkin penk parents: diff changeset	3565	"/ (self askIfModified:'contents has not been saved.\\Modifications will be lost when you proceed.'
321c1729db5b initial checkin penk parents: diff changeset	3566	"/ yesButton:'proceed') ifFalse:[^ self].
321c1729db5b initial checkin penk parents: diff changeset	3567
321c1729db5b initial checkin penk parents: diff changeset	3568	self withWaitCursorDo:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3569	result := Dictionary new.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3570
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3571	directories := self currentSelectedDirectories.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3572	directories isEmpty ifTrue:[^ self].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3573
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3574	allFiles := OrderedCollection new.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3575	directories do:[ : dir\|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3576	fileNames := dir directoryContents.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3577	fileNames := fileNames collect:[:fn \| dir construct:fn].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3578	fileNames := fileNames select:[:fn \| fn isDirectory not].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3579	allFiles addAll:fileNames.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3580	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3581
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3582	infoDir := Dictionary new.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3583	allFiles do:[:fn \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3584	infoDir at:fn put:(fn info)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3585	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3586
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3587	"/ for each, get the files size.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3588	"/ in a first pass, look for files of the same size and
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3589	"/ compare them ...
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3590
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3591	filesBySize := Dictionary new.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3592	infoDir keysAndValuesDo:[:fn :info \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3593	\|sz entry\|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3594
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3595	sz := info size.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3596	entry := filesBySize at:sz ifAbsentPut:[Set new].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3597	entry add:fn.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3598	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3599
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3600	"/ any of same size ?
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3601
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3602	filesBySize do:[:entry \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3603	\|files\|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3604
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3605	entry size > 1 ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3606	files := entry asArray.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3607	1 to:files size-1 do:[:idx1 \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3608	idx1+1 to:files size do:[:idx2 \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3609	\|fn1 fn2\|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3610
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3611	fn1 := files at:idx1.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3612	fn2 := files at:idx2.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3613
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3614	(result at:fn2 ifAbsent:nil) ~= fn1 ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3615	"/ compare the files
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3616	(fn1 sameContentsAs:fn2) ifTrue:[
3892 321c1729db5b initial checkin penk parents: diff changeset	3617	"/ Transcript show:'Same: '; show:fn1 baseName; show:' and '; showCR:fn2 baseName.
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3618	result at:fn1 put:fn2.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3619	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3620	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3621	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3622	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3623	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3624	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3625
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3626	result := result associations.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3627	result := result collect:[:assoc \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3628	\|f1 f2\|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3629
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3630	f1 := assoc key asString.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3631	f2 := assoc value asString.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3632	f1 < f2 ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3633	f2 -> f1
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3634	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3635	f1 -> f2
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3636	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3637	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3638	result sort:[:f1 :f2 \| f2 value < f1 value].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3639
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3640	info := OrderedCollection new.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3641	size := self getBestDirectory asString size.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3642	result do:[:assoc \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3643	\|fn1 fn2\|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3644
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3645	fn1 := assoc key.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3646	fn2 := assoc value.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3647	size > 1 ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3648	fn1 := ('..', (fn1 copyFrom:(size + 1))).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3649	fn2 := ('..', (fn2 copyFrom:(size + 1))).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3650	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3651	(fn1 includes:Character space) ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3652	fn1 := '"' , fn1 , '"'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3653	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3654	(fn2 includes:Character space) ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3655	fn2 := '"' , fn2 , '"'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3656	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3657	info add:(fn1 , ' same as ' , fn2)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3658	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3659	info isEmpty ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3660	info add:'No duplicate files found.'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3661	].
3892 321c1729db5b initial checkin penk parents: diff changeset	3662	].
321c1729db5b initial checkin penk parents: diff changeset	3663	stream := WriteStream on:''.
321c1729db5b initial checkin penk parents: diff changeset	3664	info do:[:el\|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3665	stream nextPutAll:el.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3666	stream cr.
3892 321c1729db5b initial checkin penk parents: diff changeset	3667	].
321c1729db5b initial checkin penk parents: diff changeset	3668	titleStream := WriteStream on:''.
321c1729db5b initial checkin penk parents: diff changeset	3669	titleStream nextPutAll:'File dublicates in director'.
321c1729db5b initial checkin penk parents: diff changeset	3670	directories size == 1 ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3671	titleStream nextPutAll:'y: ', directories first asString.
3892 321c1729db5b initial checkin penk parents: diff changeset	3672	] ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3673	titleStream nextPutAll:'ies: '.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3674	titleStream cr.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3675	directories do:[:dir\|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3676	size > 1 ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3677	titleStream nextPutAll:'..'.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3678	titleStream nextPutAll:((dir asString) copyFrom:(size + 1)).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3679	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3680	titleStream nextPutAll:(dir asString).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3681	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3682	titleStream cr.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3683	]
3892 321c1729db5b initial checkin penk parents: diff changeset	3684	].
321c1729db5b initial checkin penk parents: diff changeset	3685
321c1729db5b initial checkin penk parents: diff changeset	3686	textBox := TextBox new.
321c1729db5b initial checkin penk parents: diff changeset	3687	textBox initialText:(stream contents).
321c1729db5b initial checkin penk parents: diff changeset	3688	textBox title:(titleStream contents).
321c1729db5b initial checkin penk parents: diff changeset	3689	textBox readOnly:true.
321c1729db5b initial checkin penk parents: diff changeset	3690	textBox noCancel.
4170 d01b3e418209 * empty log message * penk parents: 4164 diff changeset	3691	stream := WriteStream on:'Dublicates in '.
d01b3e418209 * empty log message * penk parents: 4164 diff changeset	3692	directories do:[ :aDirectory \|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3693	stream nextPutAll:aDirectory baseName
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3694	stream space
4050 d63d33ad9c41 * empty log message * penk parents: 4046 diff changeset	3695	].
4170 d01b3e418209 * empty log message * penk parents: 4164 diff changeset	3696	textBox label:stream contents.
3892 321c1729db5b initial checkin penk parents: diff changeset	3697	maxLength := 10.
321c1729db5b initial checkin penk parents: diff changeset	3698	info do:[: el \|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3699	maxLength := maxLength max:(el size).
3892 321c1729db5b initial checkin penk parents: diff changeset	3700	].
321c1729db5b initial checkin penk parents: diff changeset	3701	textBox extent:((maxLength * 5)@(info size * 10)); sizeFixed:false.
321c1729db5b initial checkin penk parents: diff changeset	3702	textBox showAtPointer.
321c1729db5b initial checkin penk parents: diff changeset	3703	titleStream close.
321c1729db5b initial checkin penk parents: diff changeset	3704	stream close.
321c1729db5b initial checkin penk parents: diff changeset	3705	!
321c1729db5b initial checkin penk parents: diff changeset	3706
321c1729db5b initial checkin penk parents: diff changeset	3707	fileFindFile
321c1729db5b initial checkin penk parents: diff changeset	3708	\|filename files\|
321c1729db5b initial checkin penk parents: diff changeset	3709
321c1729db5b initial checkin penk parents: diff changeset	3710	files := self currentFileNameHolder value.
321c1729db5b initial checkin penk parents: diff changeset	3711	files notEmpty ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3712	filename := files first.
3892 321c1729db5b initial checkin penk parents: diff changeset	3713	] ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3714	filename := (Filename homeDirectory).
3892 321c1729db5b initial checkin penk parents: diff changeset	3715	].
4101 cc9cdc23b789 select & doubleClick Claus Gittinger <cg@exept.de> parents: 4094 diff changeset	3716	FindFileApplication openOnFileName:filename for:self.
3892 321c1729db5b initial checkin penk parents: diff changeset	3717	!
321c1729db5b initial checkin penk parents: diff changeset	3718
321c1729db5b initial checkin penk parents: diff changeset	3719	installAllAsAutoloaded
321c1729db5b initial checkin penk parents: diff changeset	3720	"install all classes found here as autoloaded classes"
321c1729db5b initial checkin penk parents: diff changeset	3721
321c1729db5b initial checkin penk parents: diff changeset	3722	self allItemsOfCurrentDirectory do:[:fileItem \|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3723	(fileItem hasMimeType and:[fileItem mimeType isSmalltalkSource]) ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3724	self installAsAutoloaded:(fileItem fileName).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3725	]
3892 321c1729db5b initial checkin penk parents: diff changeset	3726	].
321c1729db5b initial checkin penk parents: diff changeset	3727	!
321c1729db5b initial checkin penk parents: diff changeset	3728
321c1729db5b initial checkin penk parents: diff changeset	3729	installAsAutoloaded:aFilename
321c1729db5b initial checkin penk parents: diff changeset	3730	"install aFilename as autoloaded class"
321c1729db5b initial checkin penk parents: diff changeset	3731
321c1729db5b initial checkin penk parents: diff changeset	3732	\|chunks s\|
321c1729db5b initial checkin penk parents: diff changeset	3733
321c1729db5b initial checkin penk parents: diff changeset	3734	chunks := ChangeSet fromStream:(s := aFilename asFilename readStream). s close.
321c1729db5b initial checkin penk parents: diff changeset	3735	chunks
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3736	select:[:eachChunk \| eachChunk isClassDefinitionChange]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3737	thenDo:[:eachClassChunk \| eachClassChunk installAsAutoloadedClassIfNotPrivate].
3892 321c1729db5b initial checkin penk parents: diff changeset	3738	!
321c1729db5b initial checkin penk parents: diff changeset	3739
321c1729db5b initial checkin penk parents: diff changeset	3740	loadImageAndPerform:aSelectorOrBlock
321c1729db5b initial checkin penk parents: diff changeset	3741
321c1729db5b initial checkin penk parents: diff changeset	3742	\|img path files\|
321c1729db5b initial checkin penk parents: diff changeset	3743
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	3744	files := self currentSelectedFiles.
3892 321c1729db5b initial checkin penk parents: diff changeset	3745	files isEmpty ifTrue:[ ^ self].
321c1729db5b initial checkin penk parents: diff changeset	3746	files do:[:fileName \|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3747	path := fileName.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3748	path isDirectory ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3749	img := Image fromFile:(path pathName).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3750	img notNil ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3751	aSelectorOrBlock isSymbol ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3752	img perform:aSelectorOrBlock
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3753	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3754	aSelectorOrBlock value:img
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3755	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3756	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3757	Dialog warn:'unknown format: ' , fileName asString
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3758	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3759	]
3892 321c1729db5b initial checkin penk parents: diff changeset	3760	].
321c1729db5b initial checkin penk parents: diff changeset	3761	!
321c1729db5b initial checkin penk parents: diff changeset	3762
321c1729db5b initial checkin penk parents: diff changeset	3763	openASN1Browser
321c1729db5b initial checkin penk parents: diff changeset	3764
321c1729db5b initial checkin penk parents: diff changeset	3765	self openTool:OSI::ASN1Browser
321c1729db5b initial checkin penk parents: diff changeset	3766	!
321c1729db5b initial checkin penk parents: diff changeset	3767
321c1729db5b initial checkin penk parents: diff changeset	3768	openAppletViewer
321c1729db5b initial checkin penk parents: diff changeset	3769	\|numItems files\|
321c1729db5b initial checkin penk parents: diff changeset	3770
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	3771	files := self currentSelectedFiles.
3892 321c1729db5b initial checkin penk parents: diff changeset	3772	(numItems := files size) > 2 ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3773	(self
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3774	confirm:(resources string:'open for each of the %1 items ?'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3775	with:numItems)) ifFalse:[^ self].
3892 321c1729db5b initial checkin penk parents: diff changeset	3776	].
321c1729db5b initial checkin penk parents: diff changeset	3777
321c1729db5b initial checkin penk parents: diff changeset	3778	Java startupJavaSystem.
321c1729db5b initial checkin penk parents: diff changeset	3779	"/ Java markAllClassesUninitialized.
321c1729db5b initial checkin penk parents: diff changeset	3780	"/ Java initAllStaticFields.
321c1729db5b initial checkin penk parents: diff changeset	3781	"/ Java initAllClasses.
321c1729db5b initial checkin penk parents: diff changeset	3782
321c1729db5b initial checkin penk parents: diff changeset	3783	files do:[:fileName \|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3784	\|p path\|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3785
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3786	path := fileName.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3787	path isDirectory ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3788	p := Java
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3789	javaProcessForMainOf:(Java classForName:'sun.applet.AppletViewer')
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3790	argumentString:path pathName.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3791	p resume.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3792	]
3892 321c1729db5b initial checkin penk parents: diff changeset	3793	].
321c1729db5b initial checkin penk parents: diff changeset	3794	!
321c1729db5b initial checkin penk parents: diff changeset	3795
321c1729db5b initial checkin penk parents: diff changeset	3796	openCBrowser
321c1729db5b initial checkin penk parents: diff changeset	3797
321c1729db5b initial checkin penk parents: diff changeset	3798	\|directories\|
321c1729db5b initial checkin penk parents: diff changeset	3799
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	3800	directories := self currentSelectedDirectories.
3892 321c1729db5b initial checkin penk parents: diff changeset	3801	directories isEmpty ifTrue:[ ^ self].
321c1729db5b initial checkin penk parents: diff changeset	3802	self withWaitCursorDo:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3803	CBrowser::Browser openIn:directories first.
3892 321c1729db5b initial checkin penk parents: diff changeset	3804	]
321c1729db5b initial checkin penk parents: diff changeset	3805	!
321c1729db5b initial checkin penk parents: diff changeset	3806
321c1729db5b initial checkin penk parents: diff changeset	3807	openChangesBrowser
321c1729db5b initial checkin penk parents: diff changeset	3808	"open a change browser on the selected file(s)"
321c1729db5b initial checkin penk parents: diff changeset	3809
321c1729db5b initial checkin penk parents: diff changeset	3810	self openTool:(UserPreferences current changesBrowserClass)
321c1729db5b initial checkin penk parents: diff changeset	3811	!
321c1729db5b initial checkin penk parents: diff changeset	3812
321c1729db5b initial checkin penk parents: diff changeset	3813	openDiffView
321c1729db5b initial checkin penk parents: diff changeset	3814	"open a diff-view"
321c1729db5b initial checkin penk parents: diff changeset	3815
4170 d01b3e418209 * empty log message * penk parents: 4164 diff changeset	3816	\| name1 name2 text1 text2 d err nm l1 files title defaultName lastFile\|
3892 321c1729db5b initial checkin penk parents: diff changeset	3817
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	3818	files := self currentSelectedFiles.
3892 321c1729db5b initial checkin penk parents: diff changeset	3819	files isEmpty ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3820	Dialog warn:'you have to select a file first'.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3821	^ self.
3892 321c1729db5b initial checkin penk parents: diff changeset	3822	].
321c1729db5b initial checkin penk parents: diff changeset	3823	(files size == 2) ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3824	name1 := files last.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3825	name2 := files first.
3892 321c1729db5b initial checkin penk parents: diff changeset	3826	] ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3827	LastFileDiffFile notNil ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3828	\| directories \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3829	directories := self currentDirectories value.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3830	directories notEmpty ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3831	lastFile := directories first asFilename construct:(LastFileDiffFile baseName).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3832	(lastFile exists and:[lastFile isReadable]) ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3833	name1 := lastFile.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3834	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3835	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3836	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3837	name2 := files first.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3838	title := 'show difference between ', name2 baseName, ' and:'.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3839	defaultName := name1 notNil ifTrue:[name1 baseName] ifFalse:[nil].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3840	name1 := DialogBox
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3841	requestFileName:title
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3842	default:defaultName
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3843	ok:'OK'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3844	abort:'Use File List'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3845	pattern:'*'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3846	fromDirectory:(name2 asFilename directory).
4060 efb0431e606d * empty log message * penk parents: 4050 diff changeset	3847
efb0431e606d * empty log message * penk parents: 4050 diff changeset	3848
efb0431e606d * empty log message * penk parents: 4050 diff changeset	3849
3892 321c1729db5b initial checkin penk parents: diff changeset	3850	].
321c1729db5b initial checkin penk parents: diff changeset	3851
321c1729db5b initial checkin penk parents: diff changeset	3852	(name1 isNil or:[name1 asString isEmpty]) ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3853	text1 := self getAllFilesAsStringCollection asStringCollection withTabs.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3854	text1 := text1 collect:[:l \| l isNil ifTrue:[' '] ifFalse:[l]].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3855	name1 := nil.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3856	l1 := 'browser contents'
3892 321c1729db5b initial checkin penk parents: diff changeset	3857	] ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3858	name1 := name1 asFilename.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3859	LastFileDiffFile := name1.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3860	name1 asFilename isReadable ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3861	nm := name1.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3862	name1 asFilename exists ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3863	err := '%1 does not exist'.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3864	] ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3865	err := '%1 is not readable'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3866	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3867	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3868	l1 := name1
3892 321c1729db5b initial checkin penk parents: diff changeset	3869	].
321c1729db5b initial checkin penk parents: diff changeset	3870
321c1729db5b initial checkin penk parents: diff changeset	3871	err isNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3872	name2 isReadable ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3873	nm := name2.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3874	name2 exists ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3875	err := '%1 does not exist'.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3876	] ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3877	err := '%1 is not readable'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3878	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3879	].
3892 321c1729db5b initial checkin penk parents: diff changeset	3880	].
321c1729db5b initial checkin penk parents: diff changeset	3881	err notNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3882	Dialog warn:(resources string:err with:nm pathName).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3883	^ self
3892 321c1729db5b initial checkin penk parents: diff changeset	3884	].
321c1729db5b initial checkin penk parents: diff changeset	3885
321c1729db5b initial checkin penk parents: diff changeset	3886	self withWaitCursorDo:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3887	name1 notNil ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3888	text1 := name1 contents.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3889	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3890	text2 := name2 contents.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3891	text1 = text2 ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3892	self information:'same contents'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3893	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3894	d := DiffTextView
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3895	openOn:text1 label:l1
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3896	and:text2 label:name2 pathName.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3897	d topView label:'file differences'.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3898	]
3892 321c1729db5b initial checkin penk parents: diff changeset	3899	]
321c1729db5b initial checkin penk parents: diff changeset	3900	!
321c1729db5b initial checkin penk parents: diff changeset	3901
321c1729db5b initial checkin penk parents: diff changeset	3902	openEditor
321c1729db5b initial checkin penk parents: diff changeset	3903	self openTool:EditTextView
321c1729db5b initial checkin penk parents: diff changeset	3904	!
321c1729db5b initial checkin penk parents: diff changeset	3905
321c1729db5b initial checkin penk parents: diff changeset	3906	openHTMLReader
321c1729db5b initial checkin penk parents: diff changeset	3907
321c1729db5b initial checkin penk parents: diff changeset	3908	self openTool:HTMLDocumentView ignoreDirectories:false
321c1729db5b initial checkin penk parents: diff changeset	3909	!
321c1729db5b initial checkin penk parents: diff changeset	3910
321c1729db5b initial checkin penk parents: diff changeset	3911	openImageEditor
321c1729db5b initial checkin penk parents: diff changeset	3912
321c1729db5b initial checkin penk parents: diff changeset	3913	[self loadImageAndPerform:#edit] fork
321c1729db5b initial checkin penk parents: diff changeset	3914	!
321c1729db5b initial checkin penk parents: diff changeset	3915
321c1729db5b initial checkin penk parents: diff changeset	3916	openImageInspector
321c1729db5b initial checkin penk parents: diff changeset	3917	[self loadImageAndPerform:#inspect] fork
321c1729db5b initial checkin penk parents: diff changeset	3918	!
321c1729db5b initial checkin penk parents: diff changeset	3919
321c1729db5b initial checkin penk parents: diff changeset	3920	openImagePreview
321c1729db5b initial checkin penk parents: diff changeset	3921
321c1729db5b initial checkin penk parents: diff changeset	3922	[self loadImageAndPerform:[:img \|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3923	\|i top viewer\|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3924
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3925	top := StandardSystemView new.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3926
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3927	viewer := ImageView origin:0.0@0.0 corner:1.0@1.0 in:top.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3928	i := img.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3929	top extent:200@200.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3930	top label:(img fileName asFilename directoryName asFilename baseName , '/' , img fileName asFilename baseName).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3931	top openAndWait.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3932
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3933	(i width > 200 or:[i height > 200]) ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3934	i := i magnifiedPreservingRatioTo:200@200.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3935	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3936	viewer image:i.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3937	].
3892 321c1729db5b initial checkin penk parents: diff changeset	3938	] fork
321c1729db5b initial checkin penk parents: diff changeset	3939	!
321c1729db5b initial checkin penk parents: diff changeset	3940
321c1729db5b initial checkin penk parents: diff changeset	3941	openMP3Player
321c1729db5b initial checkin penk parents: diff changeset	3942	\|file\|
321c1729db5b initial checkin penk parents: diff changeset	3943
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	3944	file := self currentSelectedFiles.
3892 321c1729db5b initial checkin penk parents: diff changeset	3945	(file isEmpty) ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3946	^ self.
3892 321c1729db5b initial checkin penk parents: diff changeset	3947	].
321c1729db5b initial checkin penk parents: diff changeset	3948	file := file first.
321c1729db5b initial checkin penk parents: diff changeset	3949	(MP3PlayerApplication ? SaugFix::MP3PlayerApplication) playSong:file.
321c1729db5b initial checkin penk parents: diff changeset	3950	!
321c1729db5b initial checkin penk parents: diff changeset	3951
321c1729db5b initial checkin penk parents: diff changeset	3952	openSlideShow
321c1729db5b initial checkin penk parents: diff changeset	3953
321c1729db5b initial checkin penk parents: diff changeset	3954	\|directories dir\|
321c1729db5b initial checkin penk parents: diff changeset	3955
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	3956	directories := self currentSelectedDirectories.
3892 321c1729db5b initial checkin penk parents: diff changeset	3957	directories isEmpty ifTrue:[^ self].
321c1729db5b initial checkin penk parents: diff changeset	3958
321c1729db5b initial checkin penk parents: diff changeset	3959	dir := directories first.
321c1729db5b initial checkin penk parents: diff changeset	3960	CodingExamples_GUI::SlideShow openIn:dir.
321c1729db5b initial checkin penk parents: diff changeset	3961	!
321c1729db5b initial checkin penk parents: diff changeset	3962
321c1729db5b initial checkin penk parents: diff changeset	3963	openSnapshotImageBrowser
321c1729db5b initial checkin penk parents: diff changeset	3964	^ self openTool:SystemBrowser with:#openOnSnapShotImage: ignoreDirectories:true
321c1729db5b initial checkin penk parents: diff changeset	3965	!
321c1729db5b initial checkin penk parents: diff changeset	3966
321c1729db5b initial checkin penk parents: diff changeset	3967	openTerminal
321c1729db5b initial checkin penk parents: diff changeset	3968
321c1729db5b initial checkin penk parents: diff changeset	3969	\|directories dir\|
321c1729db5b initial checkin penk parents: diff changeset	3970
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	3971	directories := self currentSelectedDirectories.
3892 321c1729db5b initial checkin penk parents: diff changeset	3972	directories isEmpty ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3973	dir := Filename homeDirectory.
3892 321c1729db5b initial checkin penk parents: diff changeset	3974	] ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3975	dir := directories first.
3892 321c1729db5b initial checkin penk parents: diff changeset	3976	].
321c1729db5b initial checkin penk parents: diff changeset	3977
321c1729db5b initial checkin penk parents: diff changeset	3978	VT100TerminalView openShellIn:dir.
321c1729db5b initial checkin penk parents: diff changeset	3979	!
321c1729db5b initial checkin penk parents: diff changeset	3980
321c1729db5b initial checkin penk parents: diff changeset	3981	openTool:aToolClass
321c1729db5b initial checkin penk parents: diff changeset	3982	"open a tool on the selected file(s)"
321c1729db5b initial checkin penk parents: diff changeset	3983
321c1729db5b initial checkin penk parents: diff changeset	3984	^ self openTool:aToolClass ignoreDirectories:true
321c1729db5b initial checkin penk parents: diff changeset	3985	!
321c1729db5b initial checkin penk parents: diff changeset	3986
321c1729db5b initial checkin penk parents: diff changeset	3987	openTool:aToolClass ignoreDirectories:ignoreDirs
321c1729db5b initial checkin penk parents: diff changeset	3988	"open a tool on the selected file(s)"
321c1729db5b initial checkin penk parents: diff changeset	3989
321c1729db5b initial checkin penk parents: diff changeset	3990	^ self
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3991	openTool:aToolClass
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3992	with:#openOn:
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	3993	ignoreDirectories:ignoreDirs
3892 321c1729db5b initial checkin penk parents: diff changeset	3994	!
321c1729db5b initial checkin penk parents: diff changeset	3995
321c1729db5b initial checkin penk parents: diff changeset	3996	openTool:aToolClass with:aSelector ignoreDirectories:ignoreDirs
321c1729db5b initial checkin penk parents: diff changeset	3997	"open a tool on the selected file(s)"
321c1729db5b initial checkin penk parents: diff changeset	3998
321c1729db5b initial checkin penk parents: diff changeset	3999	\|numItems path tool files\|
321c1729db5b initial checkin penk parents: diff changeset	4000
321c1729db5b initial checkin penk parents: diff changeset	4001	aToolClass isNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4002	Dialog warn:'Sorry, that tool seems to be not available'.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4003	^ nil.
3892 321c1729db5b initial checkin penk parents: diff changeset	4004	].
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	4005	files := self currentSelectedFiles.
3892 321c1729db5b initial checkin penk parents: diff changeset	4006
321c1729db5b initial checkin penk parents: diff changeset	4007	(numItems := files size) > 2 ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4008	(self
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4009	confirm:(resources string:'open for each of the %1 items ?'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4010	with:numItems)) ifFalse:[^ self].
3892 321c1729db5b initial checkin penk parents: diff changeset	4011	].
321c1729db5b initial checkin penk parents: diff changeset	4012
321c1729db5b initial checkin penk parents: diff changeset	4013	self withWaitCursorDo:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4014	files do:[:fileName \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4015	(ignoreDirs not or:[fileName isDirectory not]) ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4016	fileName isAbsolute ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4017	path := fileName getName.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4018	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4019	path := fileName pathName.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4020	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4021	tool := aToolClass perform:aSelector with:path.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4022	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4023	].
3892 321c1729db5b initial checkin penk parents: diff changeset	4024	].
321c1729db5b initial checkin penk parents: diff changeset	4025	^ tool
321c1729db5b initial checkin penk parents: diff changeset	4026	!
321c1729db5b initial checkin penk parents: diff changeset	4027
321c1729db5b initial checkin penk parents: diff changeset	4028	openZipTool
321c1729db5b initial checkin penk parents: diff changeset	4029	\|zipTool directories dir\|
321c1729db5b initial checkin penk parents: diff changeset	4030
321c1729db5b initial checkin penk parents: diff changeset	4031	(zipTool := self openTool:ZipTool) notNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4032	directories := self currentSelectedDirectories.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4033	directories isEmpty ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4034	dir := directories first.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4035	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4036	dir := Filename homeDirectory.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4037	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4038
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4039	zipTool initialExtractDirectory:dir.
3892 321c1729db5b initial checkin penk parents: diff changeset	4040	].
321c1729db5b initial checkin penk parents: diff changeset	4041	!
321c1729db5b initial checkin penk parents: diff changeset	4042
321c1729db5b initial checkin penk parents: diff changeset	4043	readAbbrevFile
321c1729db5b initial checkin penk parents: diff changeset	4044	"read the abbrev file and install classes found there as autoloaded classes"
321c1729db5b initial checkin penk parents: diff changeset	4045
321c1729db5b initial checkin penk parents: diff changeset	4046	\| directories dir\|
321c1729db5b initial checkin penk parents: diff changeset	4047
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	4048	directories := self currentSelectedDirectories.
3892 321c1729db5b initial checkin penk parents: diff changeset	4049	directories isEmpty ifTrue:[^ self].
321c1729db5b initial checkin penk parents: diff changeset	4050
321c1729db5b initial checkin penk parents: diff changeset	4051	dir := directories first.
321c1729db5b initial checkin penk parents: diff changeset	4052	Smalltalk installAutoloadedClassesFrom:(dir construct:'abbrev.stc').
321c1729db5b initial checkin penk parents: diff changeset	4053	!
321c1729db5b initial checkin penk parents: diff changeset	4054
321c1729db5b initial checkin penk parents: diff changeset	4055	singleFileFileIn:fileName lazy:lazy
321c1729db5b initial checkin penk parents: diff changeset	4056	"fileIn the selected file(s)"
321c1729db5b initial checkin penk parents: diff changeset	4057
321c1729db5b initial checkin penk parents: diff changeset	4058	\|aStream wasLazy\|
321c1729db5b initial checkin penk parents: diff changeset	4059
321c1729db5b initial checkin penk parents: diff changeset	4060	fileName type == #regular ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	4061
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4062	(ObjectFileLoader notNil
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4063	and:[ObjectFileLoader hasValidBinaryExtension:fileName]) ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4064	AbortOperationRequest catch:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4065	\|p\|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4066
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4067	"/
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4068	"/ look if already loaded ... then unload first
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4069	"/
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4070	p := fileName pathName.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4071	(ObjectFileLoader loadedObjectFiles includes:p) ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4072	(Dialog confirm:(resources
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4073	string:'%1 is already loaded; load anyway ?'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4074	with:p)) ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4075	^ self
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4076	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4077	Transcript showCR:'unloading old ' , p , ' ...'.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4078	ObjectFileLoader unloadObjectFile:p.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4079	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4080
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4081	Transcript showCR:'loading ' , p , ' ...'.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4082	ObjectFileLoader loadObjectFile:p.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4083	Class addInfoRecord:('fileIn ' , fileName asFilename pathName)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4084	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4085	] ifFalse:[ ((fileName hasSuffix:'cls')
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4086	and:[((fileName mimeTypeOfContents ? '') startsWith:'application/x-smalltalk-source') not ]) ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4087	"/ loading a binary class file
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4088	aStream := fileName readStream.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4089	aStream notNil ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4090	aStream fileInBinary.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4091	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4092	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4093	((fileName hasSuffix:'class')
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4094	or:[(fileName hasSuffix:'cla')]) ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4095	"/ loading a java class file
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4096	JavaClassReader notNil ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4097	JavaClassReader loadFile:(fileName pathName)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4098	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4099	] ifFalse:[ (fileName hasSuffix:'sif') ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4100	"/ loading a sif (smalltalk interchange format) file
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4101	SmalltalkInterchangeSTXFileInManager autoload.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4102	SmalltalkInterchangeFileManager newForFileIn
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4103	fileName: fileName pathName;
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4104	fileIn.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4105	] ifFalse:[ (fileName hasSuffix:'pcl') ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4106	Parcel isNil ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4107	Dialog warn:'Parcel support not loaded.'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4108	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4109	Parcel loadParcelFrom: fileName pathName
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4110	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4111	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4112	"/ loading a regular (chunk) or xml source file
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4113	aStream := fileName readStream.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4114	aStream notNil ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4115	Error handle:[ : ex \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4116	Dialog warn:'Error on file in: ', ex errorString.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4117	] do:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4118	[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4119	Class withoutUpdatingChangesDo:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4120	wasLazy := Compiler compileLazy:lazy.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4121	aStream fileIn.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4122	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4123	Class addInfoRecord:('fileIn ' , fileName asString)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4124	] ensure:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4125	Compiler compileLazy:wasLazy.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4126	aStream close
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4127	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4128	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4129	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4130	]]]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4131	]]
3892 321c1729db5b initial checkin penk parents: diff changeset	4132	].
321c1729db5b initial checkin penk parents: diff changeset	4133	! !
321c1729db5b initial checkin penk parents: diff changeset	4134
321c1729db5b initial checkin penk parents: diff changeset	4135	!AbstractFileBrowser methodsFor:'menu queries cvs'!
321c1729db5b initial checkin penk parents: diff changeset	4136
321c1729db5b initial checkin penk parents: diff changeset	4137	canCvsAddAndCommit
321c1729db5b initial checkin penk parents: diff changeset	4138
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	4139	\|selectedFiles\|
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4140
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4141	selectedFiles := self currentSelectedFiles.
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4142	^ (selectedFiles notEmpty and:[self currentFilesAreInSameDirectory]).
3892 321c1729db5b initial checkin penk parents: diff changeset	4143	!
321c1729db5b initial checkin penk parents: diff changeset	4144
321c1729db5b initial checkin penk parents: diff changeset	4145	canRemoveCVSContainer
321c1729db5b initial checkin penk parents: diff changeset	4146
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	4147	\|selectedFiles dirOfFile cvsDir\|
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4148
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4149	selectedFiles := self currentSelectedFiles.
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4150	selectedFiles isEmpty ifTrue:[^ false].
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4151	^ ((selectedFiles detect:[:fileName\|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4152	dirOfFile := self getDirWithoutFileName:fileName.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4153	cvsDir := dirOfFile construct:'CVS'.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4154	(cvsDir isDirectory and:[cvsDir exists])
3892 321c1729db5b initial checkin penk parents: diff changeset	4155	] ifNone:[nil]) notNil).
321c1729db5b initial checkin penk parents: diff changeset	4156	! !
321c1729db5b initial checkin penk parents: diff changeset	4157
321c1729db5b initial checkin penk parents: diff changeset	4158	!AbstractFileBrowser methodsFor:'menu queries tools'!
321c1729db5b initial checkin penk parents: diff changeset	4159
321c1729db5b initial checkin penk parents: diff changeset	4160	anySTFilesPresent
321c1729db5b initial checkin penk parents: diff changeset	4161
321c1729db5b initial checkin penk parents: diff changeset	4162	^ self anyFilesPresentWithSuffix:'st'
321c1729db5b initial checkin penk parents: diff changeset	4163	!
321c1729db5b initial checkin penk parents: diff changeset	4164
321c1729db5b initial checkin penk parents: diff changeset	4165	canCreateNewProject
321c1729db5b initial checkin penk parents: diff changeset	4166
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	4167	\| selectedFiles \|
3892 321c1729db5b initial checkin penk parents: diff changeset	4168
321c1729db5b initial checkin penk parents: diff changeset	4169	self currentFilesAreInSameDirectory ifFalse:[^ false].
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	4170	selectedFiles := self currentSelectedFiles.
3892 321c1729db5b initial checkin penk parents: diff changeset	4171	^ [
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4172	((selectedFiles detect:[:fileName\| \| suffix\|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4173	suffix := fileName suffix asLowercase.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4174	(suffix = 'prj' or:[suffix = 'st'])
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4175	] ifNone:[nil]) notNil)
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	4176	]
3892 321c1729db5b initial checkin penk parents: diff changeset	4177	!
321c1729db5b initial checkin penk parents: diff changeset	4178
321c1729db5b initial checkin penk parents: diff changeset	4179	canDoTerminal
321c1729db5b initial checkin penk parents: diff changeset	4180
321c1729db5b initial checkin penk parents: diff changeset	4181	^ OperatingSystem isUNIXlike
321c1729db5b initial checkin penk parents: diff changeset	4182	or:[OperatingSystem isMSWINDOWSlike]
321c1729db5b initial checkin penk parents: diff changeset	4183	!
321c1729db5b initial checkin penk parents: diff changeset	4184
321c1729db5b initial checkin penk parents: diff changeset	4185	canDoTerminalAndSystemIsDOS
321c1729db5b initial checkin penk parents: diff changeset	4186
321c1729db5b initial checkin penk parents: diff changeset	4187	^ self canDoTerminal and:[OperatingSystem isMSWINDOWSlike]
321c1729db5b initial checkin penk parents: diff changeset	4188	!
321c1729db5b initial checkin penk parents: diff changeset	4189
321c1729db5b initial checkin penk parents: diff changeset	4190	canDoTerminalAndSystemIsUnix
321c1729db5b initial checkin penk parents: diff changeset	4191
321c1729db5b initial checkin penk parents: diff changeset	4192	^ self canDoTerminal and:[OperatingSystem isUNIXlike]
321c1729db5b initial checkin penk parents: diff changeset	4193	!
321c1729db5b initial checkin penk parents: diff changeset	4194
321c1729db5b initial checkin penk parents: diff changeset	4195	canReadAbbrevFile
321c1729db5b initial checkin penk parents: diff changeset	4196
321c1729db5b initial checkin penk parents: diff changeset	4197
321c1729db5b initial checkin penk parents: diff changeset	4198	self currentFilesAreInSameDirectory ifFalse:[^ false].
321c1729db5b initial checkin penk parents: diff changeset	4199	^ (self currentDirectories value first construct:'abbrev.stc') exists
321c1729db5b initial checkin penk parents: diff changeset	4200	!
321c1729db5b initial checkin penk parents: diff changeset	4201
321c1729db5b initial checkin penk parents: diff changeset	4202	canRemoveFromSourcePath
321c1729db5b initial checkin penk parents: diff changeset	4203
321c1729db5b initial checkin penk parents: diff changeset	4204	^ false
321c1729db5b initial checkin penk parents: diff changeset	4205	!
321c1729db5b initial checkin penk parents: diff changeset	4206
321c1729db5b initial checkin penk parents: diff changeset	4207	hasASN1
321c1729db5b initial checkin penk parents: diff changeset	4208	^ [ OSI::ASN1Parser notNil
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4209	and:[OSI::ASN1Parser isLoaded]]
3892 321c1729db5b initial checkin penk parents: diff changeset	4210
321c1729db5b initial checkin penk parents: diff changeset	4211	!
321c1729db5b initial checkin penk parents: diff changeset	4212
321c1729db5b initial checkin penk parents: diff changeset	4213	hasASN1AndSelection
321c1729db5b initial checkin penk parents: diff changeset	4214	^ [ self hasSelection value
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4215	and:[self currentSelectedFiles size > 0
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4216	and:[OSI::ASN1Parser notNil
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4217	and:[OSI::ASN1Parser isLoaded]]]]
3892 321c1729db5b initial checkin penk parents: diff changeset	4218	!
321c1729db5b initial checkin penk parents: diff changeset	4219
321c1729db5b initial checkin penk parents: diff changeset	4220	hasCBrowser
321c1729db5b initial checkin penk parents: diff changeset	4221	^ [ CBrowser::Browser notNil ]
321c1729db5b initial checkin penk parents: diff changeset	4222	!
321c1729db5b initial checkin penk parents: diff changeset	4223
321c1729db5b initial checkin penk parents: diff changeset	4224	hasJava
321c1729db5b initial checkin penk parents: diff changeset	4225
321c1729db5b initial checkin penk parents: diff changeset	4226	^ [ JavaClassReader notNil
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4227	and:[JavaClassReader isLoaded]]
3892 321c1729db5b initial checkin penk parents: diff changeset	4228	!
321c1729db5b initial checkin penk parents: diff changeset	4229
321c1729db5b initial checkin penk parents: diff changeset	4230	hasJavaAndSelection
321c1729db5b initial checkin penk parents: diff changeset	4231
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	4232	^ [ self currentSelectedFiles size > 0
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4233	and:[JavaClassReader notNil
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4234	and:[JavaClassReader isLoaded]]]
3892 321c1729db5b initial checkin penk parents: diff changeset	4235	!
321c1729db5b initial checkin penk parents: diff changeset	4236
321c1729db5b initial checkin penk parents: diff changeset	4237	hasMP3Player
321c1729db5b initial checkin penk parents: diff changeset	4238
321c1729db5b initial checkin penk parents: diff changeset	4239	^ [ MP3PlayerApplication notNil
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4240	or:[SaugFix::MP3PlayerApplication notNil ]]
3892 321c1729db5b initial checkin penk parents: diff changeset	4241	!
321c1729db5b initial checkin penk parents: diff changeset	4242
321c1729db5b initial checkin penk parents: diff changeset	4243	hasMP3PlayerAndSelection
321c1729db5b initial checkin penk parents: diff changeset	4244
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	4245	^ [ self currentSelectedFiles size > 0
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4246	and:[ self hasMP3Player value]]
3892 321c1729db5b initial checkin penk parents: diff changeset	4247	!
321c1729db5b initial checkin penk parents: diff changeset	4248
321c1729db5b initial checkin penk parents: diff changeset	4249	hasSlideShow
321c1729db5b initial checkin penk parents: diff changeset	4250
321c1729db5b initial checkin penk parents: diff changeset	4251	^ [CodingExamples_GUI::SlideShow notNil]
321c1729db5b initial checkin penk parents: diff changeset	4252	!
321c1729db5b initial checkin penk parents: diff changeset	4253
321c1729db5b initial checkin penk parents: diff changeset	4254	hasSnapshotSelection
321c1729db5b initial checkin penk parents: diff changeset	4255
321c1729db5b initial checkin penk parents: diff changeset	4256	^ [
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4257	\| files \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4258	files := self currentSelectedFiles.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4259	((files size == 1)
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4260	and:[ files first hasSuffix:'img' ])
3892 321c1729db5b initial checkin penk parents: diff changeset	4261	]
321c1729db5b initial checkin penk parents: diff changeset	4262	!
321c1729db5b initial checkin penk parents: diff changeset	4263
321c1729db5b initial checkin penk parents: diff changeset	4264	hasZipFileSelected
321c1729db5b initial checkin penk parents: diff changeset	4265
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	4266	^ [\|sel fileName fn suff\|
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4267
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4268	sel := self currentSelectedFiles.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4269	sel size == 1 ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4270	fileName := sel first.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4271	fileName notNil ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4272	suff := fileName suffix asLowercase.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4273	suff = 'zip' or:[suff = 'jar']
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4274	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4275	false
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4276	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4277	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4278	false
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4279	]
3892 321c1729db5b initial checkin penk parents: diff changeset	4280	]
321c1729db5b initial checkin penk parents: diff changeset	4281	!
321c1729db5b initial checkin penk parents: diff changeset	4282
321c1729db5b initial checkin penk parents: diff changeset	4283	javaSupportLoaded
321c1729db5b initial checkin penk parents: diff changeset	4284
321c1729db5b initial checkin penk parents: diff changeset	4285	^ false
321c1729db5b initial checkin penk parents: diff changeset	4286	! !
321c1729db5b initial checkin penk parents: diff changeset	4287
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	4288	!AbstractFileBrowser methodsFor:'presentation'!
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4289
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4290	getModeString:modeBits
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4291	"convert file-mode bits into a more user-friendly string.
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4292	This is wrong here - should be moved into OperatingSystem."
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4293
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4294	^ self getModeString:modeBits
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4295	with:#( 'owner:' $r $w $x
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4296	' group:' $r $w $x
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4297	' others:' $r $w $x )
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	4298	!
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4299
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4300	getModeString:modeBits with:texts
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4301	"convert file-mode bits into a more user-friendly string.
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4302	This is wrong here - should be moved into OperatingSystem."
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4303
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4304	\|bits modeString\|
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4305
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4306	bits := modeBits bitAnd:8r777.
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4307	modeString := ''.
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4308
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4309	#( nil 8r400 8r200 8r100 nil 8r040 8r020 8r010 nil 8r004 8r002 8r001 )
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4310	with: texts do:[:bitMask :access \|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4311	\|ch\|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4312
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4313	bitMask isNil ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4314	modeString := modeString , access
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4315	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4316	(bits bitAnd:bitMask) == 0 ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4317	ch := $-
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4318	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4319	ch := access
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4320	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4321	modeString := modeString copyWith:ch
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4322	]
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	4323	].
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4324	^ modeString
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4325	! !
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4326
3892 321c1729db5b initial checkin penk parents: diff changeset	4327	!AbstractFileBrowser methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	4328
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	4329	getFileInfoStringForFirstSelectedFile:longInfo
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4330	"get stat info on selected file - return a string which can be
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4331	shown in a box"
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4332
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4333	\| selFiles filename text fileOutput type modeBits modeString s ts isLink info\|
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4334
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4335	selFiles := self currentFileNameHolder value.
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4336	((selFiles size == 1) not) ifTrue:[ ^ nil].
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4337	filename := selFiles first.
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4338
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4339	text := StringCollection new.
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4340
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4341	text add:('filename: ', filename asString).
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4342	isLink := filename isSymbolicLink.
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4343	isLink ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4344	text add:('symbolic link to: ', (filename linkInfo path))
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	4345	].
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4346
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4347	info := filename info.
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4348	type := info type.
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4349	(longInfo and:[type == #regular]) ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4350	fileOutput := filename fileType.
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	4351	].
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4352
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4353	s := ('type: ').
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4354	fileOutput isNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4355	s := s , type asString
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	4356	] ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4357	s := s , 'regular (' , fileOutput , ')'
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	4358	].
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4359	text add:s.
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4360	isLink = true ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4361	info := filename linkInfo
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	4362	] ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4363	info := filename info
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	4364	].
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4365
4000 31abf5426b87 #size -> #fileSize Claus Gittinger <cg@exept.de> parents: 3989 diff changeset	4366	text add:('size: ', (info fileSize) printString).
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	4367
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4368	modeBits := info mode.
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4369	modeString := self getModeString:modeBits.
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4370	longInfo ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4371	text add:('access: ', modeString,' ', (modeBits printStringRadix:8)).
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	4372	] ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4373	text add:('access: ', modeString)
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	4374	].
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4375	text add:('owner: ',
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4376	(OperatingSystem getUserNameFromID:(info uid))).
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	4377	longInfo ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4378	text add:('group: ',
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4379	(OperatingSystem getGroupNameFromID:(info gid))).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4380
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4381	ts := info accessTime.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4382	text add:('last access: ',ts asTime printString ,' ', ts asDate printString).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4383
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4384	ts := info modificationTime.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4385	text add:('last modification: ', ts asTime printString, ' ', ts asDate printString).
3906 8a76cb4f5884 next stage penk parents: 3892 diff changeset	4386	].
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4387	^ text asString
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4388	!
8a76cb4f5884 next stage penk parents: 3892 diff changeset	4389
3892 321c1729db5b initial checkin penk parents: diff changeset	4390	initialCommandFor:fileName into:aBox
321c1729db5b initial checkin penk parents: diff changeset	4391	"set a useful initial command for execute box."
321c1729db5b initial checkin penk parents: diff changeset	4392
321c1729db5b initial checkin penk parents: diff changeset	4393	\|mime cmd select path suffix\|
321c1729db5b initial checkin penk parents: diff changeset	4394
321c1729db5b initial checkin penk parents: diff changeset	4395	path := self getDirWithoutFileName:fileName.
321c1729db5b initial checkin penk parents: diff changeset	4396	suffix := fileName asFilename suffix.
321c1729db5b initial checkin penk parents: diff changeset	4397	DefaultCommandPerSuffix notNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4398	cmd := DefaultCommandPerSuffix at:suffix ifAbsent:nil.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4399	cmd notNil ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4400	aBox initialText:(cmd , ' ' , fileName baseName) selectFrom:1 to:cmd size.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4401	^ self
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4402	].
3892 321c1729db5b initial checkin penk parents: diff changeset	4403	].
321c1729db5b initial checkin penk parents: diff changeset	4404	mime := MIMETypes mimeTypeForSuffix:suffix.
321c1729db5b initial checkin penk parents: diff changeset	4405	"/ mime notNil ifTrue:[
321c1729db5b initial checkin penk parents: diff changeset	4406	"/ cmd := self initialCommandForMIME:mime file:path
321c1729db5b initial checkin penk parents: diff changeset	4407	"/ ].
321c1729db5b initial checkin penk parents: diff changeset	4408
321c1729db5b initial checkin penk parents: diff changeset	4409	"/ XXX should be changed to take stuff from a config file
321c1729db5b initial checkin penk parents: diff changeset	4410	"/ XXX or from resources.
321c1729db5b initial checkin penk parents: diff changeset	4411
321c1729db5b initial checkin penk parents: diff changeset	4412	(path type == #regular) ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4413	path isExecutableProgram ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4414	aBox initialText:(fileName , ' <arguments>').
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4415	^ self
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4416	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4417
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4418	select := true.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4419
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4420	"some heuristics - my personal preferences ...
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4421	(actually this should come from a configfile)"
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4422
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4423	(fileName endsWith:'akefile') ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4424	aBox initialText:'make target' selectFrom:6 to:11.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4425	^ self
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4426	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4427
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4428	cmd := self class defaultCommandPerMIME at:mime ifAbsent:nil.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4429	cmd notNil ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4430	select := false
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4431	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4432
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4433	cmd isNil ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4434
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4435	suffix := path suffix.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4436	(suffix = 'C') ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4437	cmd := 'g++ -c %1'.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4438	select := 6.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4439	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4440	suffix := suffix asLowercase.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4441
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4442	(suffix = 'taz') ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4443	aBox initialText:'zcat %1 \| tar tvf -'.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4444	select := false.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4445	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4446	(suffix = 'tar') ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4447	cmd := 'tar tvf %1'.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4448	select := 7.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4449	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4450	(suffix = 'zoo') ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4451	cmd := 'zoo -list %1'.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4452	select := 9.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4453	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4454	(suffix = 'zip') ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4455	cmd := 'unzip -l %1'.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4456	select := 8.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4457	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4458	(suffix = 'jar') ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4459	cmd := 'unzip -l %1'.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4460	select := 8.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4461	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4462	(suffix = 'z') ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4463	(fileName asLowercase endsWith:'tar.z') ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4464	cmd := 'zcat %1 \| tar tvf -'.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4465	select := false.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4466	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4467	cmd := 'uncompress %1'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4468	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4469	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4470	(suffix = 'gz') ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4471	(fileName asLowercase endsWith:'tar.gz') ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4472	cmd := ('gunzip < %1 \| tar tvf -' ).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4473	select := false.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4474	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4475	cmd := 'gunzip %1'.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4476	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4477	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4478	(suffix = 'html') ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4479	cmd := 'netscape %1'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4480	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4481	(suffix = 'htm') ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4482	cmd := 'netscape %1'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4483	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4484	(suffix = 'uue') ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4485	cmd := 'uudecode %1'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4486	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4487	(suffix = 'c') ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4488	cmd := 'cc -c %1'.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4489	select := 5.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4490	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4491	(suffix = 'cc') ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4492	cmd := 'g++ -c %1'.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4493	select := 6.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4494	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4495	(suffix = 'xbm') ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4496	cmd := 'bitmap %1'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4497	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4498	(suffix = 'ps') ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4499	cmd := 'ghostview %1'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4500	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4501	((suffix = '1') or:[suffix = 'man']) ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4502	cmd := 'nroff -man %1'.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4503	select := 10.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4504	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4505	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4506	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4507
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4508	cmd isNil ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4509	DefaultCommandPerSuffix isNil ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4510	cmd := '<cmd>'
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4511	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4512	cmd := DefaultCommandPerSuffix
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4513	at:suffix
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4514	ifAbsent:'<cmd>'.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4515	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4516	cmd := cmd , ' %1'.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4517	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4518
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4519	cmd := cmd bindWith:fileName.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4520	select == false ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4521	aBox initialText:cmd
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4522	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4523	select class == Interval ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4524	aBox initialText:cmd selectFrom:select start to:select stop
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4525	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4526	select isInteger ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4527	select := (cmd indexOf:Character space ifAbsent:[cmd size + 1]) - 1.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4528	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4529	aBox initialText:cmd selectFrom:1 to:select
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4530	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4531	]
3892 321c1729db5b initial checkin penk parents: diff changeset	4532	]
321c1729db5b initial checkin penk parents: diff changeset	4533	!
321c1729db5b initial checkin penk parents: diff changeset	4534
321c1729db5b initial checkin penk parents: diff changeset	4535	isAbstractFileBrowser
321c1729db5b initial checkin penk parents: diff changeset	4536
321c1729db5b initial checkin penk parents: diff changeset	4537	^ true
321c1729db5b initial checkin penk parents: diff changeset	4538	!
321c1729db5b initial checkin penk parents: diff changeset	4539
321c1729db5b initial checkin penk parents: diff changeset	4540	systemIsDOS
321c1729db5b initial checkin penk parents: diff changeset	4541
321c1729db5b initial checkin penk parents: diff changeset	4542	^ OperatingSystem isMSDOSlike
321c1729db5b initial checkin penk parents: diff changeset	4543	!
321c1729db5b initial checkin penk parents: diff changeset	4544
321c1729db5b initial checkin penk parents: diff changeset	4545	systemIsUnix
321c1729db5b initial checkin penk parents: diff changeset	4546	^ OperatingSystem isUNIXlike
321c1729db5b initial checkin penk parents: diff changeset	4547	! !
321c1729db5b initial checkin penk parents: diff changeset	4548
321c1729db5b initial checkin penk parents: diff changeset	4549	!AbstractFileBrowser methodsFor:'queries-file'!
321c1729db5b initial checkin penk parents: diff changeset	4550
321c1729db5b initial checkin penk parents: diff changeset	4551	allItemsOfCurrentDirectory
321c1729db5b initial checkin penk parents: diff changeset	4552
321c1729db5b initial checkin penk parents: diff changeset	4553	^ self application:#DirectoryContentsBrowser do:#allItemsOfCurrentDirectory.
321c1729db5b initial checkin penk parents: diff changeset	4554	!
321c1729db5b initial checkin penk parents: diff changeset	4555
321c1729db5b initial checkin penk parents: diff changeset	4556	anyFilesPresentWithSuffix:suffix
321c1729db5b initial checkin penk parents: diff changeset	4557
321c1729db5b initial checkin penk parents: diff changeset	4558	\| directories \|
321c1729db5b initial checkin penk parents: diff changeset	4559
321c1729db5b initial checkin penk parents: diff changeset	4560	directories := self currentDirectories value.
321c1729db5b initial checkin penk parents: diff changeset	4561	directories do:[ : dir\|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4562	(dir directoryContents do:[:f\| (f asFilename suffix = suffix) ifTrue:[ ^ true]])
3892 321c1729db5b initial checkin penk parents: diff changeset	4563	].
321c1729db5b initial checkin penk parents: diff changeset	4564	^ false.
321c1729db5b initial checkin penk parents: diff changeset	4565	!
321c1729db5b initial checkin penk parents: diff changeset	4566
321c1729db5b initial checkin penk parents: diff changeset	4567	currentFilesAreInSameDirectory
321c1729db5b initial checkin penk parents: diff changeset	4568
321c1729db5b initial checkin penk parents: diff changeset	4569	^ (self currentDirectories value size == 1).
321c1729db5b initial checkin penk parents: diff changeset	4570	!
321c1729db5b initial checkin penk parents: diff changeset	4571
321c1729db5b initial checkin penk parents: diff changeset	4572	currentFilesHasDirectories
321c1729db5b initial checkin penk parents: diff changeset	4573
321c1729db5b initial checkin penk parents: diff changeset	4574	^ self currentDirectories value notEmpty.
321c1729db5b initial checkin penk parents: diff changeset	4575	!
321c1729db5b initial checkin penk parents: diff changeset	4576
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	4577	directoriesForFiles:aFileCol
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4578
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4579	^ ((aFileCol collect:[:file\| self getDirWithoutFileName:file]) asSet).
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4580	!
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4581
3892 321c1729db5b initial checkin penk parents: diff changeset	4582	fileListIsEmpty
321c1729db5b initial checkin penk parents: diff changeset	4583
321c1729db5b initial checkin penk parents: diff changeset	4584	^ self application:#DirectoryContentsBrowser do:#fileListIsEmpty.
321c1729db5b initial checkin penk parents: diff changeset	4585	!
321c1729db5b initial checkin penk parents: diff changeset	4586
321c1729db5b initial checkin penk parents: diff changeset	4587	fileListIsNotEmpty
321c1729db5b initial checkin penk parents: diff changeset	4588
321c1729db5b initial checkin penk parents: diff changeset	4589	^ self fileListIsEmpty not.
321c1729db5b initial checkin penk parents: diff changeset	4590	!
321c1729db5b initial checkin penk parents: diff changeset	4591
321c1729db5b initial checkin penk parents: diff changeset	4592	fileName:aFilename1 startsWith:aFilename2
321c1729db5b initial checkin penk parents: diff changeset	4593
321c1729db5b initial checkin penk parents: diff changeset	4594	" check if aFilename2 starts with the same directories like aFilename1 "
321c1729db5b initial checkin penk parents: diff changeset	4595
321c1729db5b initial checkin penk parents: diff changeset	4596	\| file1 file2 \|
321c1729db5b initial checkin penk parents: diff changeset	4597
321c1729db5b initial checkin penk parents: diff changeset	4598	aFilename2 isNil ifTrue:[ ^ false].
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	4599	aFilename1 isNil ifTrue:[ ^ false].
3892 321c1729db5b initial checkin penk parents: diff changeset	4600	file1 := aFilename1 asFilename.
321c1729db5b initial checkin penk parents: diff changeset	4601	file2 := aFilename2 asFilename.
321c1729db5b initial checkin penk parents: diff changeset	4602	file2 isRootDirectory ifTrue:[ ^ true].
321c1729db5b initial checkin penk parents: diff changeset	4603	((file1 isDirectory)
321c1729db5b initial checkin penk parents: diff changeset	4604	and:[(file2 isDirectory)
321c1729db5b initial checkin penk parents: diff changeset	4605	and:[file1 directory = file2 directory]]) ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4606	^ file1 baseName = file2 baseName
3892 321c1729db5b initial checkin penk parents: diff changeset	4607	].
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	4608	^ (file1 pathName) startsWith:(file2 pathName)
3892 321c1729db5b initial checkin penk parents: diff changeset	4609	!
321c1729db5b initial checkin penk parents: diff changeset	4610
321c1729db5b initial checkin penk parents: diff changeset	4611	getAllFilesAsStringCollection
321c1729db5b initial checkin penk parents: diff changeset	4612
321c1729db5b initial checkin penk parents: diff changeset	4613	^ self application:#DirectoryContentsBrowser do:#getAllFilesAsStringCollection.
321c1729db5b initial checkin penk parents: diff changeset	4614	!
321c1729db5b initial checkin penk parents: diff changeset	4615
321c1729db5b initial checkin penk parents: diff changeset	4616	getBestDirectory
321c1729db5b initial checkin penk parents: diff changeset	4617
321c1729db5b initial checkin penk parents: diff changeset	4618	\|selFiles stringCol firstPre\|
321c1729db5b initial checkin penk parents: diff changeset	4619
321c1729db5b initial checkin penk parents: diff changeset	4620	selFiles := self currentDirectories value.
321c1729db5b initial checkin penk parents: diff changeset	4621	selFiles isEmpty ifTrue:[^ nil].
321c1729db5b initial checkin penk parents: diff changeset	4622	selFiles size == 1 ifTrue:[^ selFiles first].
321c1729db5b initial checkin penk parents: diff changeset	4623	stringCol := (selFiles collect:[: file\| file asString]) asOrderedCollection.
321c1729db5b initial checkin penk parents: diff changeset	4624	firstPre := stringCol at:1.
321c1729db5b initial checkin penk parents: diff changeset	4625	stringCol from:2 do:[:el\|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4626	firstPre := firstPre commonPrefixWith:el.
3892 321c1729db5b initial checkin penk parents: diff changeset	4627	].
321c1729db5b initial checkin penk parents: diff changeset	4628	(firstPre endsWith:(OperatingSystem fileSeparator)) ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4629	firstPre removeLast.
3892 321c1729db5b initial checkin penk parents: diff changeset	4630	].
321c1729db5b initial checkin penk parents: diff changeset	4631	^ firstPre asFilename
321c1729db5b initial checkin penk parents: diff changeset	4632	!
321c1729db5b initial checkin penk parents: diff changeset	4633
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	4634	getCommonForCurrentFiles
3892 321c1729db5b initial checkin penk parents: diff changeset	4635
321c1729db5b initial checkin penk parents: diff changeset	4636	\|selFiles stringCol firtsPre\|
321c1729db5b initial checkin penk parents: diff changeset	4637
321c1729db5b initial checkin penk parents: diff changeset	4638	selFiles := self currentFileNameHolder value.
321c1729db5b initial checkin penk parents: diff changeset	4639	selFiles isEmpty ifTrue:[^ nil].
321c1729db5b initial checkin penk parents: diff changeset	4640	stringCol := selFiles collect:[: file\| file asString].
321c1729db5b initial checkin penk parents: diff changeset	4641	firtsPre := stringCol at:1.
321c1729db5b initial checkin penk parents: diff changeset	4642	stringCol from:2 do:[:el\|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4643	firtsPre := firtsPre commonPrefixWith:el.
3892 321c1729db5b initial checkin penk parents: diff changeset	4644	].
321c1729db5b initial checkin penk parents: diff changeset	4645	^ firtsPre asFilename
321c1729db5b initial checkin penk parents: diff changeset	4646	!
321c1729db5b initial checkin penk parents: diff changeset	4647
321c1729db5b initial checkin penk parents: diff changeset	4648	getDirWithoutFileName:aFileName
321c1729db5b initial checkin penk parents: diff changeset	4649
321c1729db5b initial checkin penk parents: diff changeset	4650	\| dir \|
321c1729db5b initial checkin penk parents: diff changeset	4651	aFileName isNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4652	^ aFileName.
3892 321c1729db5b initial checkin penk parents: diff changeset	4653	].
321c1729db5b initial checkin penk parents: diff changeset	4654	dir := aFileName asFilename.
321c1729db5b initial checkin penk parents: diff changeset	4655	dir isDirectory ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4656	dir := dir directory.
3892 321c1729db5b initial checkin penk parents: diff changeset	4657	].
321c1729db5b initial checkin penk parents: diff changeset	4658	^ dir.
321c1729db5b initial checkin penk parents: diff changeset	4659	!
321c1729db5b initial checkin penk parents: diff changeset	4660
321c1729db5b initial checkin penk parents: diff changeset	4661	getInfoItem
321c1729db5b initial checkin penk parents: diff changeset	4662	"get filename of a description-file (.dir.info, README etc.);
321c1729db5b initial checkin penk parents: diff changeset	4663	This file is automatically shown when a directory is enterred.
321c1729db5b initial checkin penk parents: diff changeset	4664	You can add more names below if you like."
321c1729db5b initial checkin penk parents: diff changeset	4665
321c1729db5b initial checkin penk parents: diff changeset	4666	\|directories\|
321c1729db5b initial checkin penk parents: diff changeset	4667
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	4668	directories := self currentSelectedDirectories.
3892 321c1729db5b initial checkin penk parents: diff changeset	4669	(directories size ~= 1) ifTrue:[ ^ nil].
321c1729db5b initial checkin penk parents: diff changeset	4670
321c1729db5b initial checkin penk parents: diff changeset	4671	#(
321c1729db5b initial checkin penk parents: diff changeset	4672	'.dir.info'
321c1729db5b initial checkin penk parents: diff changeset	4673	'README'
321c1729db5b initial checkin penk parents: diff changeset	4674	'ReadMe'
321c1729db5b initial checkin penk parents: diff changeset	4675	'Readme'
321c1729db5b initial checkin penk parents: diff changeset	4676	'readme'
321c1729db5b initial checkin penk parents: diff changeset	4677	'read.me'
321c1729db5b initial checkin penk parents: diff changeset	4678	'Read.me'
321c1729db5b initial checkin penk parents: diff changeset	4679	'READ.ME'
321c1729db5b initial checkin penk parents: diff changeset	4680	'README.TXT'
321c1729db5b initial checkin penk parents: diff changeset	4681	'readme.txt'
321c1729db5b initial checkin penk parents: diff changeset	4682	'Readme.txt'
321c1729db5b initial checkin penk parents: diff changeset	4683	'Info.txt'
321c1729db5b initial checkin penk parents: diff changeset	4684	'info.txt'
321c1729db5b initial checkin penk parents: diff changeset	4685	'INFO.TXT'
321c1729db5b initial checkin penk parents: diff changeset	4686	) do:[:f \|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4687	\|n dir\|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4688
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4689	n := (directories first) construct:f.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4690	(n isReadable and:[n isDirectory not]) ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4691	^ DirectoryContentsBrowser itemClass fileName:n
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4692	]
3892 321c1729db5b initial checkin penk parents: diff changeset	4693	].
321c1729db5b initial checkin penk parents: diff changeset	4694	^ nil
3982 fc30449d705d * empty log message * penk parents: 3980 diff changeset	4695	! !
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4696
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4697	!AbstractFileBrowser methodsFor:'selection'!
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4698
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4699	currentSelectedDirectories
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4700
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4701	^ self currentDirectories value.
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4702	!
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4703
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4704	currentSelectedFiles
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4705
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4706	\| files \|
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4707	files := self currentFileNameHolder value.
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4708	^ (files select:[: file \| file isDirectory not]).
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4709	!
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4710
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4711	firstSelectedFile
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4712
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4713	\| files \|
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4714	files := self currentFileNameHolder value.
fc30449d705d * empty log message * penk parents: 3980 diff changeset	4715	^ (files detect:[: file \| file isDirectory not] ifNone:[nil]).
3892 321c1729db5b initial checkin penk parents: diff changeset	4716	! !
321c1729db5b initial checkin penk parents: diff changeset	4717
3964 8697bad1c903 next stage for history penk parents: 3963 diff changeset	4718	!AbstractFileBrowser methodsFor:'sorting'!
8697bad1c903 next stage for history penk parents: 3963 diff changeset	4719
3989 7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4720	currentSortOrder
7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4721
7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4722	" returns a Ordered Collection of all directories currently selected
7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4723	if only a file is selected currentDirectories holds the directory of the file
7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4724	"
7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4725
4027 c662c75b6bf9 * empty log message * penk parents: 4024 diff changeset	4726	^ self aspectFor:#currentSortOrder ifAbsent:[ Dictionary new asValue ].
3989 7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4727	!
7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4728
7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4729	makeDirectorySortBlockFor:aSortBlock
7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4730
4074 53cef1b0cdfc allow sort without directories always at first penk parents: 4071 diff changeset	4731	self sortDirectoriesBeforeFiles value ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4732	^ [:a :b\|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4733	\|aIsDir bIsDir res\|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4734
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4735	aIsDir := a isDirectory.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4736	bIsDir := b isDirectory.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4737	(aIsDir ~~ bIsDir) ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4738	res := aIsDir
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4739	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4740	res := aSortBlock value:a value:b.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4741	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4742	res
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4743	].
4074 53cef1b0cdfc allow sort without directories always at first penk parents: 4071 diff changeset	4744	] ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4745	^ aSortBlock
4074 53cef1b0cdfc allow sort without directories always at first penk parents: 4071 diff changeset	4746	].
3989 7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4747	!
7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4748
7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4749	sortBlockHolder
7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4750	\|nameSortBlock\|
7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4751
7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4752	^ self aspectFor:#sortBlockHolder ifAbsent:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4753	self sortCaseless value ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4754	nameSortBlock := [ :a :b \| a asString asLowercase < b asString asLowercase.].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4755	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4756	nameSortBlock := [ :a :b \| a asString < b asString.].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4757	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4758	(self makeDirectorySortBlockFor:nameSortBlock) asValue.
3989 7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4759	].
7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4760	!
7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4761
7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4762	sortBlockProperty
7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4763
4027 c662c75b6bf9 * empty log message * penk parents: 4024 diff changeset	4764
3989 7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4765	^ self aspectFor:#sortBlockProperty ifAbsent:[ #baseName asValue ].
7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4766	!
7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4767
7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4768	sortCaseless
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	4769	" aspect for sort caseless "
3989 7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4770
7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4771	^ self aspectFor:#sortCaseless ifAbsent:[
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	4772	\| holder \|
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	4773	holder := (Filename isCaseSensitive not) asValue.
be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	4774	holder
3989 7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4775	]
7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4776	!
7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4777
4074 53cef1b0cdfc allow sort without directories always at first penk parents: 4071 diff changeset	4778	sortDirectoriesBeforeFiles
53cef1b0cdfc allow sort without directories always at first penk parents: 4071 diff changeset	4779
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	4780	" aspect for sort directories always before files"
4074 53cef1b0cdfc allow sort without directories always at first penk parents: 4071 diff changeset	4781	^ self aspectFor:#sortDirectoriesBeforeFiles ifAbsent:[ true asValue ].
53cef1b0cdfc allow sort without directories always at first penk parents: 4071 diff changeset	4782	!
53cef1b0cdfc allow sort without directories always at first penk parents: 4071 diff changeset	4783
3989 7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4784	sortFileListsBy:instanceName
7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4785
7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4786	self sortFileListsBy:instanceName withReverse:true
7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4787	!
7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4788
7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4789	sortFileListsBy:instanceName withReverse:aBoolean
7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4790
4011 73fa35b1963b * empty log message * penk parents: 4004 diff changeset	4791	\| aSymbol sortCaselessLocal currentSortOrder cmpOp instanceSortBlock sortReverse\|
3964 8697bad1c903 next stage for history penk parents: 3963 diff changeset	4792
8697bad1c903 next stage for history penk parents: 3963 diff changeset	4793	aSymbol := instanceName asSymbol.
4027 c662c75b6bf9 * empty log message * penk parents: 4024 diff changeset	4794	self sortBlockProperty setValue:instanceName asSymbol.
4151 950e04fef4ba treeBrowser has his own sort now penk parents: 4148 diff changeset	4795	sortCaselessLocal := self sortCaseless value.
4027 c662c75b6bf9 * empty log message * penk parents: 4024 diff changeset	4796	currentSortOrder := self currentSortOrder value.
3989 7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4797	currentSortOrder isEmpty ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4798	currentSortOrder at:#column put:aSymbol.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4799	currentSortOrder at:#reverse put:false.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4800	currentSortOrder at:#sortCaseless put:sortCaselessLocal.
3964 8697bad1c903 next stage for history penk parents: 3963 diff changeset	4801	] ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4802	(currentSortOrder at:#sortCaseless) ~= sortCaselessLocal ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4803	"/ sort caseless changed
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4804	currentSortOrder at:#sortCaseless put:sortCaselessLocal.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4805	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4806	(currentSortOrder at:#column) = aSymbol ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4807	"/ same column like before - change sort order ifReverse is true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4808	aBoolean ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4809	\| isReverse \|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4810	isReverse := currentSortOrder at:#reverse.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4811	currentSortOrder at:#reverse put:(isReverse not).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4812	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4813	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4814	"/ another column - remark column
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4815	currentSortOrder at:#column put:aSymbol.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4816	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4817	]
3964 8697bad1c903 next stage for history penk parents: 3963 diff changeset	4818	].
4027 c662c75b6bf9 * empty log message * penk parents: 4024 diff changeset	4819	self currentSortOrder changed.
3989 7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4820	(currentSortOrder at:#reverse) ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4821	cmpOp := #'>'
3989 7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4822	] ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4823	cmpOp := #'<'
3989 7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4824	].
4011 73fa35b1963b * empty log message * penk parents: 4004 diff changeset	4825	sortReverse := currentSortOrder at:#reverse.
3989 7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4826	instanceSortBlock := [:a :b \|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4827	\|entry1 entry2\|
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4828
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4829	((a respondsTo:aSymbol) not) ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4830	true
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4831	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4832	entry1 := (a perform:aSymbol).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4833	entry2 := (b perform:aSymbol).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4834	((entry1 isNil) or:[entry2 isNil]) ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4835	((entry1 isNil) and:[entry2 isNil]) ifTrue:[true] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4836	((entry1 notNil) and:[entry2 isNil]) ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4837	sortReverse
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4838	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4839	sortReverse not
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4840	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4841	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4842	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4843	(aSymbol = #baseName) ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4844	sortCaselessLocal ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4845	entry1 := entry1 asString asLowercase.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4846	entry2 := entry2 asString asLowercase.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4847	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4848	entry1 := entry1 asString.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4849	entry2 := entry2 asString.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4850	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4851	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4852	entry1 perform:cmpOp with:entry2
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4853	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4854	]
3989 7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4855	].
7eec3cb5bce6 selectedFiles method name changed penk parents: 3982 diff changeset	4856	self sortBlockHolder value:(self makeDirectorySortBlockFor:instanceSortBlock).
3964 8697bad1c903 next stage for history penk parents: 3963 diff changeset	4857	! !
8697bad1c903 next stage for history penk parents: 3963 diff changeset	4858
3892 321c1729db5b initial checkin penk parents: diff changeset	4859	!AbstractFileBrowser methodsFor:'startup & release'!
321c1729db5b initial checkin penk parents: diff changeset	4860
321c1729db5b initial checkin penk parents: diff changeset	4861	makeDependent
4074 53cef1b0cdfc allow sort without directories always at first penk parents: 4071 diff changeset	4862	self filterModel addDependent:self.
4004 f97168a68093 * empty log message * Claus Gittinger <cg@exept.de> parents: 4000 diff changeset	4863	self currentFileNameHolder addDependent:self.
4074 53cef1b0cdfc allow sort without directories always at first penk parents: 4071 diff changeset	4864	self sortDirectoriesBeforeFiles addDependent:self.
4004 f97168a68093 * empty log message * Claus Gittinger <cg@exept.de> parents: 4000 diff changeset	4865	self sortCaseless addDependent:self.
4011 73fa35b1963b * empty log message * penk parents: 4004 diff changeset	4866	self showHiddenFiles addDependent:self.
3892 321c1729db5b initial checkin penk parents: diff changeset	4867	!
321c1729db5b initial checkin penk parents: diff changeset	4868
321c1729db5b initial checkin penk parents: diff changeset	4869	masterApplication:anApplication
321c1729db5b initial checkin penk parents: diff changeset	4870
321c1729db5b initial checkin penk parents: diff changeset	4871	masterApplication isNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4872	(anApplication notNil and:[anApplication askFor:#isAbstractFileBrowser]) ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4873	aspects := anApplication aspects
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4874	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4875	aspects isNil ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4876	aspects := IdentityDictionary new.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4877	aspects at:#applications put:(IdentityDictionary new).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4878	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4879	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4880	self applications at:(self className) put:self.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4881	self makeDependent.
3892 321c1729db5b initial checkin penk parents: diff changeset	4882	].
3952 c04d4781a37e next stage penk parents: 3949 diff changeset	4883	^ super masterApplication:anApplication.
3892 321c1729db5b initial checkin penk parents: diff changeset	4884	!
321c1729db5b initial checkin penk parents: diff changeset	4885
321c1729db5b initial checkin penk parents: diff changeset	4886	postOpenWith:aBuilder
321c1729db5b initial checkin penk parents: diff changeset	4887
321c1729db5b initial checkin penk parents: diff changeset	4888	super postOpenWith:aBuilder.
321c1729db5b initial checkin penk parents: diff changeset	4889	! !
321c1729db5b initial checkin penk parents: diff changeset	4890
321c1729db5b initial checkin penk parents: diff changeset	4891	!AbstractFileBrowser::Clipboard methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	4892
321c1729db5b initial checkin penk parents: diff changeset	4893	files
321c1729db5b initial checkin penk parents: diff changeset	4894	"return the value of the instance variable 'files' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	4895
321c1729db5b initial checkin penk parents: diff changeset	4896	^ files
321c1729db5b initial checkin penk parents: diff changeset	4897	!
321c1729db5b initial checkin penk parents: diff changeset	4898
321c1729db5b initial checkin penk parents: diff changeset	4899	files:something
321c1729db5b initial checkin penk parents: diff changeset	4900	"set the value of the instance variable 'files' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	4901
321c1729db5b initial checkin penk parents: diff changeset	4902	files := something.
321c1729db5b initial checkin penk parents: diff changeset	4903	!
321c1729db5b initial checkin penk parents: diff changeset	4904
321c1729db5b initial checkin penk parents: diff changeset	4905	method
321c1729db5b initial checkin penk parents: diff changeset	4906	"return the value of the instance variable 'method' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	4907
321c1729db5b initial checkin penk parents: diff changeset	4908	^ method
321c1729db5b initial checkin penk parents: diff changeset	4909	!
321c1729db5b initial checkin penk parents: diff changeset	4910
321c1729db5b initial checkin penk parents: diff changeset	4911	method:something
321c1729db5b initial checkin penk parents: diff changeset	4912	"set the value of the instance variable 'method' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	4913
321c1729db5b initial checkin penk parents: diff changeset	4914	method := something.
321c1729db5b initial checkin penk parents: diff changeset	4915	! !
321c1729db5b initial checkin penk parents: diff changeset	4916
321c1729db5b initial checkin penk parents: diff changeset	4917	!AbstractFileBrowser::CodeExecutionLock methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	4918
321c1729db5b initial checkin penk parents: diff changeset	4919	locked
321c1729db5b initial checkin penk parents: diff changeset	4920	"return the value of the instance variable 'locked' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	4921
321c1729db5b initial checkin penk parents: diff changeset	4922	locked isNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4923	locked := false.
3892 321c1729db5b initial checkin penk parents: diff changeset	4924	].
321c1729db5b initial checkin penk parents: diff changeset	4925	^ locked
321c1729db5b initial checkin penk parents: diff changeset	4926	! !
321c1729db5b initial checkin penk parents: diff changeset	4927
321c1729db5b initial checkin penk parents: diff changeset	4928	!AbstractFileBrowser::CodeExecutionLock methodsFor:'actions'!
321c1729db5b initial checkin penk parents: diff changeset	4929
321c1729db5b initial checkin penk parents: diff changeset	4930	doIfUnLocked:aBlock
321c1729db5b initial checkin penk parents: diff changeset	4931
321c1729db5b initial checkin penk parents: diff changeset	4932	self locked ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4933	aBlock value.
3892 321c1729db5b initial checkin penk parents: diff changeset	4934	].
321c1729db5b initial checkin penk parents: diff changeset	4935	!
321c1729db5b initial checkin penk parents: diff changeset	4936
321c1729db5b initial checkin penk parents: diff changeset	4937	doLocked:aBlock
321c1729db5b initial checkin penk parents: diff changeset	4938
321c1729db5b initial checkin penk parents: diff changeset	4939	locked := true.
4004 f97168a68093 * empty log message * Claus Gittinger <cg@exept.de> parents: 4000 diff changeset	4940	aBlock ensure:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4941	locked := false.
4004 f97168a68093 * empty log message * Claus Gittinger <cg@exept.de> parents: 4000 diff changeset	4942	]
3892 321c1729db5b initial checkin penk parents: diff changeset	4943	! !
321c1729db5b initial checkin penk parents: diff changeset	4944
3952 c04d4781a37e next stage penk parents: 3949 diff changeset	4945	!AbstractFileBrowser::DirectoryHistory class methodsFor:'defaults'!
c04d4781a37e next stage penk parents: 3949 diff changeset	4946
c04d4781a37e next stage penk parents: 3949 diff changeset	4947	historySize
3892 321c1729db5b initial checkin penk parents: diff changeset	4948
321c1729db5b initial checkin penk parents: diff changeset	4949	^ 20
321c1729db5b initial checkin penk parents: diff changeset	4950	! !
321c1729db5b initial checkin penk parents: diff changeset	4951
4032 e19634385525 initialize of backList and forwardList penk parents: 4027 diff changeset	4952	!AbstractFileBrowser::DirectoryHistory class methodsFor:'new'!
e19634385525 initialize of backList and forwardList penk parents: 4027 diff changeset	4953
e19634385525 initialize of backList and forwardList penk parents: 4027 diff changeset	4954	new
e19634385525 initialize of backList and forwardList penk parents: 4027 diff changeset	4955
e19634385525 initialize of backList and forwardList penk parents: 4027 diff changeset	4956	^ super new initialize.
e19634385525 initialize of backList and forwardList penk parents: 4027 diff changeset	4957	! !
e19634385525 initialize of backList and forwardList penk parents: 4027 diff changeset	4958
3952 c04d4781a37e next stage penk parents: 3949 diff changeset	4959	!AbstractFileBrowser::DirectoryHistory methodsFor:'accessing'!
c04d4781a37e next stage penk parents: 3949 diff changeset	4960
3964 8697bad1c903 next stage for history penk parents: 3963 diff changeset	4961	forwardList
8697bad1c903 next stage for history penk parents: 3963 diff changeset	4962	"return the value of the instance variable 'forwardList' (automatically generated)"
8697bad1c903 next stage for history penk parents: 3963 diff changeset	4963
8697bad1c903 next stage for history penk parents: 3963 diff changeset	4964	forwardList isNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4965	forwardList := OrderedCollection new.
3964 8697bad1c903 next stage for history penk parents: 3963 diff changeset	4966	].
8697bad1c903 next stage for history penk parents: 3963 diff changeset	4967	^ forwardList
3952 c04d4781a37e next stage penk parents: 3949 diff changeset	4968	! !
c04d4781a37e next stage penk parents: 3949 diff changeset	4969
3892 321c1729db5b initial checkin penk parents: diff changeset	4970	!AbstractFileBrowser::DirectoryHistory methodsFor:'actions'!
321c1729db5b initial checkin penk parents: diff changeset	4971
3952 c04d4781a37e next stage penk parents: 3949 diff changeset	4972	addToHistory:aPath
c04d4781a37e next stage penk parents: 3949 diff changeset	4973	\| item\|
c04d4781a37e next stage penk parents: 3949 diff changeset	4974
c04d4781a37e next stage penk parents: 3949 diff changeset	4975	item := self getItemFor:aPath.
4022 87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	4976	(lastBackPath notNil and:[lastAddPath notNil and:[lastBackPath = aPath]]) ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4977	lastAddPath := nil.
4022 87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	4978	].
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	4979	lastAddPath notNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4980	self backListAdd:lastAddPath.
4022 87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	4981	].
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	4982	lastAddPath := aPath.
3952 c04d4781a37e next stage penk parents: 3949 diff changeset	4983	item isNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4984	" not already in history"
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4985	self size >= self class historySize ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4986	self removeLast.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4987	].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4988	item := DirectoryHistoryItem path:aPath.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4989	self addFirst:item
3952 c04d4781a37e next stage penk parents: 3949 diff changeset	4990	] ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4991	"already been there before; move the entry to
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4992	the beginning, so it will fall out later."
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4993	self remove:item.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	4994	self addFirst:item
3892 321c1729db5b initial checkin penk parents: diff changeset	4995	].
3952 c04d4781a37e next stage penk parents: 3949 diff changeset	4996	!
c04d4781a37e next stage penk parents: 3949 diff changeset	4997
4022 87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	4998	backListAdd:aPath
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	4999
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5000	backList size >= self class historySize ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	5001	backList removeLast.
4022 87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5002	].
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5003	backList addFirst:aPath.
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5004	!
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5005
3964 8697bad1c903 next stage for history penk parents: 3963 diff changeset	5006	forwardListAdd:aPath
8697bad1c903 next stage for history penk parents: 3963 diff changeset	5007
4022 87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5008	forwardList size >= self class historySize ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	5009	forwardList removeLast.
3892 321c1729db5b initial checkin penk parents: diff changeset	5010	].
4022 87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5011	forwardList addFirst:aPath.
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5012	!
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5013
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5014	goBack
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5015
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5016	" search the item in the list and give back the next in the list"
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5017
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5018	\| retPath\|
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5019
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5020	backList isEmpty ifTrue:[ ^ nil].
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5021	retPath := backList first.
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5022	self forwardListAdd:(self first path).
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5023	lastBackPath := retPath.
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5024	backList removeFirst.
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5025	^ retPath.
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5026	!
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5027
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5028	goForward
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5029
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5030	" return first path of forward list"
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5031
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5032	\| retPath\|
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5033	self forwardList isEmpty ifTrue:[ ^ nil].
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5034	retPath := self forwardList first.
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5035	self forwardList removeFirst.
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5036	^ retPath.
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5037	!
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5038
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5039	resetForwardBackward
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5040
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5041	backList := self collect:[:item\| item path].
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5042	forwardList := OrderedCollection new.
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5043	!
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5044
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5045	setPosition:aPosition for:aPath
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5046
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5047	self do:[:item\|
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	5048	item path = aPath ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	5049	item position:aPosition.
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	5050	]
4022 87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5051	].
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5052	!
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5053
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5054	xxgoBackFrom:aPath
3964 8697bad1c903 next stage for history penk parents: 3963 diff changeset	5055
8697bad1c903 next stage for history penk parents: 3963 diff changeset	5056	" search the item in the list and give back the next in the list"
8697bad1c903 next stage for history penk parents: 3963 diff changeset	5057
8697bad1c903 next stage for history penk parents: 3963 diff changeset	5058	\| index retVal\|
8697bad1c903 next stage for history penk parents: 3963 diff changeset	5059
8697bad1c903 next stage for history penk parents: 3963 diff changeset	5060	self isEmpty ifTrue:[ ^ nil].
4022 87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5061
3964 8697bad1c903 next stage for history penk parents: 3963 diff changeset	5062	aPath isNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	5063	retVal := self first path
3964 8697bad1c903 next stage for history penk parents: 3963 diff changeset	5064	] ifFalse:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	5065	index := self findFirst:[:item\| item path = aPath].
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	5066	index == 0 ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	5067	retVal := self first path
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	5068	] ifFalse:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	5069	index < self size ifTrue:[
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	5070	retVal := ((self at:index + 1) path).
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	5071	]
4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	5072	].
3964 8697bad1c903 next stage for history penk parents: 3963 diff changeset	5073	].
8697bad1c903 next stage for history penk parents: 3963 diff changeset	5074	retVal := retVal ? self first path.
8697bad1c903 next stage for history penk parents: 3963 diff changeset	5075	self forwardListAdd:aPath.
8697bad1c903 next stage for history penk parents: 3963 diff changeset	5076	^ retVal.
3892 321c1729db5b initial checkin penk parents: diff changeset	5077	! !
321c1729db5b initial checkin penk parents: diff changeset	5078
4032 e19634385525 initialize of backList and forwardList penk parents: 4027 diff changeset	5079	!AbstractFileBrowser::DirectoryHistory methodsFor:'initialize'!
e19634385525 initialize of backList and forwardList penk parents: 4027 diff changeset	5080
e19634385525 initialize of backList and forwardList penk parents: 4027 diff changeset	5081	initialize
e19634385525 initialize of backList and forwardList penk parents: 4027 diff changeset	5082
e19634385525 initialize of backList and forwardList penk parents: 4027 diff changeset	5083	backList := OrderedCollection new.
e19634385525 initialize of backList and forwardList penk parents: 4027 diff changeset	5084	forwardList := OrderedCollection new.
e19634385525 initialize of backList and forwardList penk parents: 4027 diff changeset	5085	! !
e19634385525 initialize of backList and forwardList penk parents: 4027 diff changeset	5086
3892 321c1729db5b initial checkin penk parents: diff changeset	5087	!AbstractFileBrowser::DirectoryHistory methodsFor:'queries'!
321c1729db5b initial checkin penk parents: diff changeset	5088
4024 c7f8d1ad4bc5 history penk parents: 4022 diff changeset	5089	canBack
3964 8697bad1c903 next stage for history penk parents: 3963 diff changeset	5090
4022 87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5091	^ backList notEmpty
3892 321c1729db5b initial checkin penk parents: diff changeset	5092	!
321c1729db5b initial checkin penk parents: diff changeset	5093
321c1729db5b initial checkin penk parents: diff changeset	5094	canForward
321c1729db5b initial checkin penk parents: diff changeset	5095
3964 8697bad1c903 next stage for history penk parents: 3963 diff changeset	5096	^ self forwardList notEmpty.
8697bad1c903 next stage for history penk parents: 3963 diff changeset	5097	!
8697bad1c903 next stage for history penk parents: 3963 diff changeset	5098
8697bad1c903 next stage for history penk parents: 3963 diff changeset	5099	getBackCollectionFrom:aPath
3952 c04d4781a37e next stage penk parents: 3949 diff changeset	5100
4022 87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5101	"/ \| backCol index \|
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5102	"/
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5103	"/ backCol := OrderedCollection new.
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5104	"/ aPath isNil ifTrue:[
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5105	"/ index := 0.
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5106	"/ ] ifFalse:[
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5107	"/ index := self findFirst:[:item\| item path = aPath].
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5108	"/ ].
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5109	"/ "/ if aPath is not in collection starts from 1 with collect af path
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5110	"/ index < self size ifTrue:[
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5111	"/ self from:(index + 1) to:(self size) do:[:item \|
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5112	"/ backCol add:(item path).
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5113	"/ ].
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5114	"/ ].
87ab8e8c5f80 instable next try for back forward history penk parents: 4018 diff changeset	5115	^ backList.
3952 c04d4781a37e next stage penk parents: 3949 diff changeset	5116	!
c04d4781a37e next stage penk parents: 3949 diff changeset	5117
c04d4781a37e next stage penk parents: 3949 diff changeset	5118	getForwardCollection
c04d4781a37e next stage penk parents: 3949 diff changeset	5119
3964 8697bad1c903 next stage for history penk parents: 3963 diff changeset	5120	^ self forwardList.
3952 c04d4781a37e next stage penk parents: 3949 diff changeset	5121	!
c04d4781a37e next stage penk parents: 3949 diff changeset	5122
c04d4781a37e next stage penk parents: 3949 diff changeset	5123	getItemFor:aPath
c04d4781a37e next stage penk parents: 3949 diff changeset	5124
c04d4781a37e next stage penk parents: 3949 diff changeset	5125	self do:[:item\| item path = aPath ifTrue:[^ item]].
c04d4781a37e next stage penk parents: 3949 diff changeset	5126	^ nil.
c04d4781a37e next stage penk parents: 3949 diff changeset	5127	!
c04d4781a37e next stage penk parents: 3949 diff changeset	5128
c04d4781a37e next stage penk parents: 3949 diff changeset	5129	getPositionFor:aPath
c04d4781a37e next stage penk parents: 3949 diff changeset	5130
c04d4781a37e next stage penk parents: 3949 diff changeset	5131	\|item\|
c04d4781a37e next stage penk parents: 3949 diff changeset	5132
c04d4781a37e next stage penk parents: 3949 diff changeset	5133	item := self getItemFor:aPath.
c04d4781a37e next stage penk parents: 3949 diff changeset	5134
c04d4781a37e next stage penk parents: 3949 diff changeset	5135	item notNil ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	5136	^ item position.
3952 c04d4781a37e next stage penk parents: 3949 diff changeset	5137	].
c04d4781a37e next stage penk parents: 3949 diff changeset	5138	^ nil
c04d4781a37e next stage penk parents: 3949 diff changeset	5139	!
c04d4781a37e next stage penk parents: 3949 diff changeset	5140
c04d4781a37e next stage penk parents: 3949 diff changeset	5141	includesPath:aPath
c04d4781a37e next stage penk parents: 3949 diff changeset	5142
c04d4781a37e next stage penk parents: 3949 diff changeset	5143	self do:[:item\| item path = aPath ifTrue:[^ true]].
c04d4781a37e next stage penk parents: 3949 diff changeset	5144	^ false.
c04d4781a37e next stage penk parents: 3949 diff changeset	5145	! !
c04d4781a37e next stage penk parents: 3949 diff changeset	5146
c04d4781a37e next stage penk parents: 3949 diff changeset	5147	!AbstractFileBrowser::DirectoryHistory::DirectoryHistoryItem class methodsFor:'instance creation'!
c04d4781a37e next stage penk parents: 3949 diff changeset	5148
c04d4781a37e next stage penk parents: 3949 diff changeset	5149	path:aPath
c04d4781a37e next stage penk parents: 3949 diff changeset	5150
c04d4781a37e next stage penk parents: 3949 diff changeset	5151	^ self new path:aPath
c04d4781a37e next stage penk parents: 3949 diff changeset	5152	! !
c04d4781a37e next stage penk parents: 3949 diff changeset	5153
c04d4781a37e next stage penk parents: 3949 diff changeset	5154	!AbstractFileBrowser::DirectoryHistory::DirectoryHistoryItem methodsFor:'accessing'!
c04d4781a37e next stage penk parents: 3949 diff changeset	5155
c04d4781a37e next stage penk parents: 3949 diff changeset	5156	path
c04d4781a37e next stage penk parents: 3949 diff changeset	5157	"return the value of the instance variable 'path' (automatically generated)"
c04d4781a37e next stage penk parents: 3949 diff changeset	5158
c04d4781a37e next stage penk parents: 3949 diff changeset	5159	^ path
c04d4781a37e next stage penk parents: 3949 diff changeset	5160	!
c04d4781a37e next stage penk parents: 3949 diff changeset	5161
c04d4781a37e next stage penk parents: 3949 diff changeset	5162	path:something
c04d4781a37e next stage penk parents: 3949 diff changeset	5163	"set the value of the instance variable 'path' (automatically generated)"
c04d4781a37e next stage penk parents: 3949 diff changeset	5164
c04d4781a37e next stage penk parents: 3949 diff changeset	5165	path := something.
c04d4781a37e next stage penk parents: 3949 diff changeset	5166	!
c04d4781a37e next stage penk parents: 3949 diff changeset	5167
c04d4781a37e next stage penk parents: 3949 diff changeset	5168	position
c04d4781a37e next stage penk parents: 3949 diff changeset	5169	"return the value of the instance variable 'position' (automatically generated)"
c04d4781a37e next stage penk parents: 3949 diff changeset	5170
c04d4781a37e next stage penk parents: 3949 diff changeset	5171	^ position
c04d4781a37e next stage penk parents: 3949 diff changeset	5172	!
c04d4781a37e next stage penk parents: 3949 diff changeset	5173
c04d4781a37e next stage penk parents: 3949 diff changeset	5174	position:something
c04d4781a37e next stage penk parents: 3949 diff changeset	5175	"set the value of the instance variable 'position' (automatically generated)"
c04d4781a37e next stage penk parents: 3949 diff changeset	5176
c04d4781a37e next stage penk parents: 3949 diff changeset	5177	position := something.
c04d4781a37e next stage penk parents: 3949 diff changeset	5178	!
c04d4781a37e next stage penk parents: 3949 diff changeset	5179
c04d4781a37e next stage penk parents: 3949 diff changeset	5180	printString
c04d4781a37e next stage penk parents: 3949 diff changeset	5181
c04d4781a37e next stage penk parents: 3949 diff changeset	5182	^ self path asString
3892 321c1729db5b initial checkin penk parents: diff changeset	5183	! !
321c1729db5b initial checkin penk parents: diff changeset	5184
321c1729db5b initial checkin penk parents: diff changeset	5185	!AbstractFileBrowser::FilenameHistory class methodsFor:'attributes access'!
321c1729db5b initial checkin penk parents: diff changeset	5186
321c1729db5b initial checkin penk parents: diff changeset	5187	FilenameHistorySize
321c1729db5b initial checkin penk parents: diff changeset	5188
321c1729db5b initial checkin penk parents: diff changeset	5189	^ 20
321c1729db5b initial checkin penk parents: diff changeset	5190	!
321c1729db5b initial checkin penk parents: diff changeset	5191
321c1729db5b initial checkin penk parents: diff changeset	5192	HistorySize
321c1729db5b initial checkin penk parents: diff changeset	5193
321c1729db5b initial checkin penk parents: diff changeset	5194	^ 20
321c1729db5b initial checkin penk parents: diff changeset	5195	! !
321c1729db5b initial checkin penk parents: diff changeset	5196
321c1729db5b initial checkin penk parents: diff changeset	5197	!AbstractFileBrowser::FilenameHistory methodsFor:'adding & removing'!
321c1729db5b initial checkin penk parents: diff changeset	5198
321c1729db5b initial checkin penk parents: diff changeset	5199	add:aApplItem
321c1729db5b initial checkin penk parents: diff changeset	5200
321c1729db5b initial checkin penk parents: diff changeset	5201	super add:aApplItem.
321c1729db5b initial checkin penk parents: diff changeset	5202	(self size > self class FilenameHistorySize) ifTrue:[
4190 4b0ea23f558e * empty log message * penk parents: 4189 diff changeset	5203	self removeLast.
3892 321c1729db5b initial checkin penk parents: diff changeset	5204	]
321c1729db5b initial checkin penk parents: diff changeset	5205	! !
321c1729db5b initial checkin penk parents: diff changeset	5206
321c1729db5b initial checkin penk parents: diff changeset	5207	!AbstractFileBrowser::SaveAspectItem class methodsFor:'instance creation'!
321c1729db5b initial checkin penk parents: diff changeset	5208
321c1729db5b initial checkin penk parents: diff changeset	5209	withValue:aValue isHolder:aBoolean
321c1729db5b initial checkin penk parents: diff changeset	5210
321c1729db5b initial checkin penk parents: diff changeset	5211	\| instance \|
321c1729db5b initial checkin penk parents: diff changeset	5212
321c1729db5b initial checkin penk parents: diff changeset	5213	instance := self basicNew.
321c1729db5b initial checkin penk parents: diff changeset	5214	instance value:aValue.
321c1729db5b initial checkin penk parents: diff changeset	5215	instance isHolder:aBoolean.
321c1729db5b initial checkin penk parents: diff changeset	5216	^ instance
321c1729db5b initial checkin penk parents: diff changeset	5217	! !
321c1729db5b initial checkin penk parents: diff changeset	5218
321c1729db5b initial checkin penk parents: diff changeset	5219	!AbstractFileBrowser::SaveAspectItem methodsFor:'accessing'!
321c1729db5b initial checkin penk parents: diff changeset	5220
321c1729db5b initial checkin penk parents: diff changeset	5221	isHolder
321c1729db5b initial checkin penk parents: diff changeset	5222	"return the value of the instance variable 'isHolder' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	5223
321c1729db5b initial checkin penk parents: diff changeset	5224	^ isHolder
321c1729db5b initial checkin penk parents: diff changeset	5225	!
321c1729db5b initial checkin penk parents: diff changeset	5226
321c1729db5b initial checkin penk parents: diff changeset	5227	isHolder:something
321c1729db5b initial checkin penk parents: diff changeset	5228	"set the value of the instance variable 'isHolder' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	5229
321c1729db5b initial checkin penk parents: diff changeset	5230	isHolder := something.
321c1729db5b initial checkin penk parents: diff changeset	5231	!
321c1729db5b initial checkin penk parents: diff changeset	5232
321c1729db5b initial checkin penk parents: diff changeset	5233	value
321c1729db5b initial checkin penk parents: diff changeset	5234	"return the value of the instance variable 'value' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	5235
321c1729db5b initial checkin penk parents: diff changeset	5236	^ value
321c1729db5b initial checkin penk parents: diff changeset	5237	!
321c1729db5b initial checkin penk parents: diff changeset	5238
321c1729db5b initial checkin penk parents: diff changeset	5239	value:something
321c1729db5b initial checkin penk parents: diff changeset	5240	"set the value of the instance variable 'value' (automatically generated)"
321c1729db5b initial checkin penk parents: diff changeset	5241
321c1729db5b initial checkin penk parents: diff changeset	5242	value := something.
321c1729db5b initial checkin penk parents: diff changeset	5243	! !
321c1729db5b initial checkin penk parents: diff changeset	5244
321c1729db5b initial checkin penk parents: diff changeset	5245	!AbstractFileBrowser class methodsFor:'documentation'!
321c1729db5b initial checkin penk parents: diff changeset	5246
321c1729db5b initial checkin penk parents: diff changeset	5247	version
4201 be512c7e5ea8 save all aspects in Userpreferences now penk parents: 4191 diff changeset	5248	^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.55 2002-11-06 10:14:05 penk Exp $'
3892 321c1729db5b initial checkin penk parents: diff changeset	5249	! !

author	penk
	Wed, 06 Nov 2002 11:14:47 +0100
changeset 4201	be512c7e5ea8
parent 4191	441ab27e2c7e
child 4203	09b6fcb69d8f
permissions	-rw-r--r--