hg/stx-libtool: comparison FileBrowser.st

equal deleted inserted replaced

-:f1a20a8ba485
+:1310d33d3134
 "
 COPYRIGHT (c) 1991 by Claus Gittinger
-	      All Rights Reserved
+All Rights Reserved
 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 "
 "{ Package: 'stx:libtool' }"
 StandardSystemView subclass:#FileBrowser
-	instanceVariableNames:'menuPanel labelView filterField fileListView subView
+instanceVariableNames:'menuPanel labelView filterField fileListView subView
-		currentDirectory fileList checkBlock checkDelta timeOfLastCheck
+currentDirectory fileList checkBlock checkDelta timeOfLastCheck
-		myName killButton pauseToggle compressTabs lockUpdate
+myName killButton pauseToggle compressTabs lockUpdate
-		previousDirectory currentFileName timeOfFileRead tabSpec
+previousDirectory currentFileName timeOfFileRead tabSpec
-		commandView commandIndex fileEncoding tabRulerView scrollView
+commandView commandIndex fileEncoding tabRulerView scrollView
-		icons listUpdateProcess currentFileInFileName
+icons listUpdateProcess currentFileInFileName
-		lastFileDiffDirectory sortByWhat sortCaseless showingDetails
+lastFileDiffDirectory sortByWhat sortCaseless showingDetails
-		showingHiddenFiles showingBigImagePreview imagePreviewView
+showingTimeAndDate showingHiddenFiles showingBigImagePreview
-		imageRenderProcess dosEOLMode doAutoUpdate doNotShowFontDialog'
+imagePreviewView imageRenderProcess dosEOLMode doAutoUpdate
-	classVariableNames:'DirectoryHistory DirectoryHistoryWhere HistorySize DefaultIcon
+doNotShowFontDialog'
-		CommandHistory CommandHistorySize Icons DefaultCommandPerSuffix
+classVariableNames:'DirectoryHistory DirectoryHistoryWhere DirectoryBookmarks
-		DefaultCommandPerMIME VisitedFileHistory'
+HistorySize DefaultIcon CommandHistory CommandHistorySize Icons
-	poolDictionaries:''
+DefaultCommandPerSuffix DefaultCommandPerMIME VisitedFileHistory'
-	category:'Interface-Browsers'
+poolDictionaries:''
+category:'Interface-Browsers'
 !
 !FileBrowser class methodsFor:'documentation'!
 copyright
 "
 COPYRIGHT (c) 1991 by Claus Gittinger
-	      All Rights Reserved
+All Rights Reserved
 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 were not available)
 See additional information in 'doc/misc/fbrowser.doc'.
 WARNING: files edited with FileBrowser will have leading spaces (multiple-8)
-	     being replaced by tabs. If tabs are to be preserved at other
+being replaced by tabs. If tabs are to be preserved at other
-	     positions (for example, sendmail-config files) they will be
+positions (for example, sendmail-config files) they will be
-	     corrupt after being written.
+corrupt after being written.
 [instance variables]:
-	checkDelta      <Integer>       number of seconds of check interval
+checkDelta      <Integer>       number of seconds of check interval
-					(looks ever so often if shown directory
+(looks ever so often if shown directory
-					 has changed). You may make this number
+has changed). You may make this number
-					higher, if your network-times are
+higher, if your network-times are
-					incorrect and thus, the filebrowser
+incorrect and thus, the filebrowser
-					checks too often.
+checks too often.
-	compressTabs    <Boolean>       if true, leading spaces will be
+compressTabs    <Boolean>       if true, leading spaces will be
-					replaced by tabs when saving text
+replaced by tabs when saving text
 some of the defaults (long/short list etc.) can be set by the resource file;
 see FileBrowser>>initialize for more details..
 [author:]
-	Claus Gittinger
+Claus Gittinger
 [start with:]
-	FileBrowser open
+FileBrowser open
 "
 ! !
 !FileBrowser class methodsFor:'instance creation'!
 FileBrowser openOnFileNamed:'../Makefile'
 FileBrowser openOnFileNamed:'/tmp/foo'
 "
 "Modified: / 17.6.1998 / 11:25:29 / cg"
-! !
-!FileBrowser class methodsFor:'aspects'!
-hasVisitHistory
-^ [DirectoryHistory size > 0]
-"Created: / 14.8.1998 / 19:17:02 / cg"
-"Modified: / 14.8.1998 / 19:17:17 / cg"
 ! !
 !FileBrowser class methodsFor:'class initialization'!
 icons
 addToCommandHistory:aCommandString for:aFilename
 |cmd suffix|
 (aCommandString notNil and:[aCommandString notEmpty]) ifTrue:[
-	CommandHistory notNil ifTrue:[
+CommandHistory notNil ifTrue:[
-	    CommandHistory addFirst:aCommandString.
+CommandHistory addFirst:aCommandString.
-	    CommandHistory size > CommandHistorySize ifTrue:[
+CommandHistory size > CommandHistorySize ifTrue:[
-		CommandHistory removeLast
+CommandHistory removeLast
-	    ]
+]
-	].
+].
-	aFilename notNil ifTrue:[
+aFilename notNil ifTrue:[
-	    cmd := aCommandString copyTo:(aCommandString indexOf:Character space ifAbsent:[aCommandString size + 1])-1.
+cmd := aCommandString copyTo:(aCommandString indexOf:Character space ifAbsent:[aCommandString size + 1])-1.
-	    DefaultCommandPerSuffix isNil ifTrue:[
+DefaultCommandPerSuffix isNil ifTrue:[
-		DefaultCommandPerSuffix := Dictionary new.
+DefaultCommandPerSuffix := Dictionary new.
-	    ].
+].
-	    suffix := aFilename asFilename suffix.
+suffix := aFilename asFilename suffix.
-	    suffix notNil ifTrue:[
+suffix notNil ifTrue:[
-		DefaultCommandPerSuffix at:suffix put:cmd.
+DefaultCommandPerSuffix at:suffix put:cmd.
-	    ]
+]
-	]
+]
 ]
 "Created: 14.11.1996 / 14:58:13 / cg"
 !
 <resource: #canvas>
 ^
 #(#FullSpec
-	  #window:
+#window:
-	   #(#WindowSpec
+#(#WindowSpec
-	      #name: 'File Search'
+#name: 'File Search'
-	      #layout: #(#LayoutFrame 4 0 50 0 315 0 349 0)
+#layout: #(#LayoutFrame 4 0 50 0 315 0 349 0)
-	      #level: 0
+#level: 0
-	      #label: 'File Search'
+#label: 'File Search'
-	      #min: #(#Point 10 10)
+#min: #(#Point 10 10)
-	      #max: #(#Point 1280 1024)
+#max: #(#Point 1280 1024)
-	      #bounds: #(#Rectangle 4 50 316 350)
+#bounds: #(#Rectangle 4 50 316 350)
-	      #usePreferredExtent: false
+#usePreferredExtent: false
-	      #returnIsOKInDialog: true
+#returnIsOKInDialog: true
-	      #escapeIsCancelInDialog: true
+#escapeIsCancelInDialog: true
-	  )
+)
-	  #component:
+#component:
-	   #(#SpecCollection
+#(#SpecCollection
-	      #collection:
+#collection:
-	       #(
+#(
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'Label1'
+#name: 'Label1'
-		    #layout: #(#LayoutFrame 0 0 10 0 0 1 32 0)
+#layout: #(#LayoutFrame 0 0 10 0 0 1 32 0)
-		    #label: 'Search for files named:'
+#label: 'Search for files named:'
-		    #translateLabel: true
+#translateLabel: true
-		    #adjust: #left
+#adjust: #left
-		)
+)
-		 #(#InputFieldSpec
+#(#InputFieldSpec
-		    #name: 'EntryField1'
+#name: 'EntryField1'
-		    #layout: #(#LayoutFrame 10 0 36 0 305 0 58 0)
+#layout: #(#LayoutFrame 10 0 36 0 305 0 58 0)
-		    #tabable: true
+#tabable: true
-		    #model: #namePatternHolder
+#model: #namePatternHolder
-		)
+)
-		 #(#CheckBoxSpec
+#(#CheckBoxSpec
-		    #name: 'CheckBox1'
+#name: 'CheckBox1'
-		    #layout: #(#LayoutFrame 7 0 66 0 143 0 88 0)
+#layout: #(#LayoutFrame 7 0 66 0 143 0 88 0)
-		    #tabable: true
+#tabable: true
-		    #model: #ignoreCaseInName
+#model: #ignoreCaseInName
-		    #label: 'Ignore case'
+#label: 'Ignore case'
-		    #translateLabel: true
+#translateLabel: true
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'Label2'
+#name: 'Label2'
-		    #layout: #(#LayoutFrame 0 0.0 107 0 0 1.0 129 0)
+#layout: #(#LayoutFrame 0 0.0 107 0 0 1.0 129 0)
-		    #label: 'Containing the string:'
+#label: 'Containing the string:'
-		    #translateLabel: true
+#translateLabel: true
-		    #adjust: #left
+#adjust: #left
-		)
+)
-		 #(#InputFieldSpec
+#(#InputFieldSpec
-		    #name: 'EntryField2'
+#name: 'EntryField2'
-		    #layout: #(#LayoutFrame 10 0 133 0 305 0 155 0)
+#layout: #(#LayoutFrame 10 0 133 0 305 0 155 0)
-		    #enableChannel: #notSearchForSameContents
+#enableChannel: #notSearchForSameContents
-		    #tabable: true
+#tabable: true
-		    #model: #contentsPatternHolder
+#model: #contentsPatternHolder
-		)
+)
-		 #(#CheckBoxSpec
+#(#CheckBoxSpec
-		    #name: 'CheckBox2'
+#name: 'CheckBox2'
-		    #layout: #(#LayoutFrame 6 0 163 0 142 0 185 0)
+#layout: #(#LayoutFrame 6 0 163 0 142 0 185 0)
-		    #enableChannel: #notSearchForSameContents
+#enableChannel: #notSearchForSameContents
-		    #tabable: true
+#tabable: true
-		    #model: #ignoreCaseInContents
+#model: #ignoreCaseInContents
-		    #label: 'Ignore case'
+#label: 'Ignore case'
-		    #translateLabel: true
+#translateLabel: true
-		)
+)
-		 #(#LabelSpec
+#(#LabelSpec
-		    #name: 'Label3'
+#name: 'Label3'
-		    #layout: #(#LayoutFrame 0 0.0 223 0 -30 1.0 245 0)
+#layout: #(#LayoutFrame 0 0.0 223 0 -30 1.0 245 0)
-		    #label: 'Containing same contents as selected:'
+#label: 'Containing same contents as selected:'
-		    #translateLabel: true
+#translateLabel: true
-		    #adjust: #left
+#adjust: #left
-		)
+)
-		 #(#DividerSpec
+#(#DividerSpec
-		    #name: 'Separator1'
+#name: 'Separator1'
-		    #layout: #(#LayoutFrame 0 0.0 97 0 0 1.0 101 0)
+#layout: #(#LayoutFrame 0 0.0 97 0 0 1.0 101 0)
-		)
+)
-		 #(#CheckToggleSpec
+#(#CheckToggleSpec
-		    #name: 'CheckToggle1'
+#name: 'CheckToggle1'
-		    #layout: #(#LayoutOrigin -25 1 225 0)
+#layout: #(#LayoutOrigin -25 1 225 0)
-		    #tabable: true
+#tabable: true
-		    #model: #searchForSameContents
+#model: #searchForSameContents
-		    #enableChannel: #searchForSameContentsEnabled
+#enableChannel: #searchForSameContentsEnabled
-		    #isTriggerOnDown: true
+#isTriggerOnDown: true
-		    #showLamp: false
+#showLamp: false
-		    #lampColor: #(#Color 100.0 100.0 0.0)
+#lampColor: #(#Color 100.0 100.0 0.0)
-		)
+)
-		 #(#HorizontalPanelViewSpec
+#(#HorizontalPanelViewSpec
-		    #name: 'HorizontalPanel1'
+#name: 'HorizontalPanel1'
-		    #layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 0 1.0)
+#layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 0 1.0)
-		    #component:
+#component:
-		     #(#SpecCollection
+#(#SpecCollection
-			#collection:
+#collection:
-			 #(
+#(
-			   #(#ActionButtonSpec
+#(#ActionButtonSpec
-			      #name: 'Button1'
+#name: 'Button1'
-			      #label: 'Cancel'
+#label: 'Cancel'
-			      #translateLabel: true
+#translateLabel: true
-			      #tabable: true
+#tabable: true
-			      #model: #cancel
+#model: #cancel
-			      #extent: #(#Point 151 25)
+#extent: #(#Point 151 25)
-			  )
+)
-			   #(#ActionButtonSpec
+#(#ActionButtonSpec
-			      #name: 'Button2'
+#name: 'Button2'
-			      #label: 'Search'
+#label: 'Search'
-			      #translateLabel: true
+#translateLabel: true
-			      #tabable: true
+#tabable: true
-			      #model: #accept
+#model: #accept
-			      #isDefault: true
+#isDefault: true
-			      #extent: #(#Point 152 25)
+#extent: #(#Point 152 25)
-			  )
+)
-			)
+)
-		    )
+)
-		    #horizontalLayout: #fitSpace
+#horizontalLayout: #fitSpace
-		    #verticalLayout: #centerMax
+#verticalLayout: #centerMax
-		    #horizontalSpace: 3
+#horizontalSpace: 3
-		    #verticalSpace: 3
+#verticalSpace: 3
-		)
+)
-	      )
+)
-	  )
+)
 )
 ! !
 !FileBrowser class methodsFor:'menu specs'!
+baseBookmarksMenuSpec
+"This resource specification was automatically generated
+by the MenuEditor of ST/X."
+"Do not manually edit this!! If it is corrupted,
+the MenuEditor may not be able to read the specification."
+"
+MenuEditor new openOnClass:FileBrowser andSelector:#baseBookmarksMenuSpec
+(Menu new fromLiteralArrayEncoding:(FileBrowser baseBookmarksMenuSpec)) startUp
+"
+<resource: #menu>
+^
+#(#Menu
+#(
+#(#MenuItem
+#label: 'Add Bookmark'
+#translateLabel: true
+#value: #addBookmark
+)
+#(#MenuItem
+#label: 'Remove Bookmark'
+#translateLabel: true
+#value: #removeBookmark
+#enabled: #hasBookmarksToRemove
+)
+) nil
+nil
+)
+"Created: / 4.8.1998 / 17:21:16 / cg"
+"Modified: / 14.8.1998 / 19:19:06 / cg"
+!
 baseDirectoryMenuSpec
 "This resource specification was automatically generated
 by the MenuEditor of ST/X."
 ^
 #(#Menu
-	   #(
+#(
-	     #(#MenuItem
+#(#MenuItem
-		#label: 'Copy Path'
+#label: 'Copy Path'
-		#translateLabel: true
+#translateLabel: true
-		#value: #copyPath
+#value: #copyPath
-	    )
+)
-	     #(#MenuItem
+#(#MenuItem
-		#label: '-'
+#label: '-'
-	    )
+)
-	     #(#MenuItem
+#(#MenuItem
-		#label: 'Up'
+#label: 'Up'
-		#translateLabel: true
+#translateLabel: true
-		#value: #changeToParentDirectory
+#value: #changeToParentDirectory
-		#enabled: #currentDirectoryIsNotTop
+#enabled: #currentDirectoryIsNotTop
-	    )
+)
-	     #(#MenuItem
+#(#MenuItem
-		#label: 'Back'
+#label: 'Back'
-		#translateLabel: true
+#translateLabel: true
-		#value: #changeToPreviousDirectory
+#value: #changeToPreviousDirectory
-	    )
+)
-	     #(#MenuItem
+#(#MenuItem
-		#label: 'Home'
+#label: 'Home'
-		#translateLabel: true
+#translateLabel: true
-		#value: #changeToHomeDirectory
+#value: #changeToHomeDirectory
-	    )
+)
-	     #(#MenuItem
+#(#MenuItem
-		#label: 'Default'
+#label: 'Default'
-		#translateLabel: true
+#translateLabel: true
-		#value: #changeToDefaultDirectory
+#value: #changeToDefaultDirectory
-	    )
+)
-	     #(#MenuItem
+#(#MenuItem
-		#label: 'Goto...'
+#label: 'Goto...'
-		#translateLabel: true
+#translateLabel: true
-		#value: #changeCurrentDirectory
+#value: #changeCurrentDirectory
-	    )
+)
-	  ) nil
+#(#MenuItem
-	  nil
+#label: '-'
+)
+#(#MenuItem
+#label: 'History'
+#translateLabel: true
+#submenuChannel: #historyMenuSpec
+)
+#(#MenuItem
+#label: 'Bookmarks'
+#translateLabel: true
+#submenuChannel: #bookmarksMenuSpec
+)
+) nil
+nil
 )
 "Created: / 4.8.1998 / 17:21:16 / cg"
 "Modified: / 14.8.1998 / 19:19:06 / cg"
+!
+bookmarksMenuSpec
+"This resource specification was automatically generated
+by the MenuEditor of ST/X."
+"Do not manually edit this!! If it is corrupted,
+the MenuEditor may not be able to read the specification."
+"
+MenuEditor new openOnClass:FileBrowser andSelector:#bookmarksMenuSpec
+(Menu new fromLiteralArrayEncoding:(FileBrowser bookmarksMenuSpec)) startUp
+"
+<resource: #programMenu>
+|m|
+m := self baseBookmarksMenuSpec.
+m := m decodeAsLiteralArray.
+"/ add the history items ...
+DirectoryBookmarks size > 0 ifTrue:[
+m addItem:(MenuItem labeled:'-').
+DirectoryBookmarks do:[:dirName |
+m addItem:((MenuItem label:dirName value:#changeDirectoryTo:)
+argument:dirName;
+yourself).
+].
+].
+"/ m receiver:self.
+m findGuiResourcesIn:self.
+^ m
+"Modified: / 17.8.1998 / 10:13:05 / cg"
 !
 directoryMenuSpec
 "This resource specification was automatically generated
 by the MenuEditor of ST/X."
 "
 MenuEditor new openOnClass:FileBrowser andSelector:#directoryMenuSpec
 (Menu new fromLiteralArrayEncoding:(FileBrowser directoryMenuSpec)) startUp
 "
+<resource: #menu>
+^
+#(#Menu
+#(
+#(#MenuItem
+#label: 'Copy Path'
+#translateLabel: true
+#value: #copyPath
+)
+#(#MenuItem
+#label: '-'
+)
+#(#MenuItem
+#label: 'Up'
+#translateLabel: true
+#value: #changeToParentDirectory
+#enabled: #currentDirectoryIsNotTop
+)
+#(#MenuItem
+#label: 'Goto...'
+#translateLabel: true
+#value: #changeCurrentDirectory
+)
+#(#MenuItem
+#label: '-'
+)
+#(#MenuItem
+#label: 'Back'
+#translateLabel: true
+#value: #changeToPreviousDirectory
+)
+#(#MenuItem
+#label: 'History'
+#translateLabel: true
+#submenuChannel: #historyMenuSpec
+)
+#(#MenuItem
+#label: '-'
+)
+#(#MenuItem
+#label: 'Default'
+#translateLabel: true
+#value: #changeToDefaultDirectory
+)
+#(#MenuItem
+#label: 'Home'
+#translateLabel: true
+#value: #changeToHomeDirectory
+)
+#(#MenuItem
+#label: 'Bookmarks'
+#translateLabel: true
+#submenuChannel: #bookmarksMenuSpec
+)
+) nil
+nil
+)
+"Created: / 4.8.1998 / 17:21:16 / cg"
+"Modified: / 14.8.1998 / 19:19:06 / cg"
+!
+historyMenuSpec
+"This resource specification was automatically generated
+by the MenuEditor of ST/X."
+"Do not manually edit this!! If it is corrupted,
+the MenuEditor may not be able to read the specification."
+"
+MenuEditor new openOnClass:FileBrowser andSelector:#directoryMenuSpec
+(Menu new fromLiteralArrayEncoding:(FileBrowser directoryMenuSpec)) startUp
+"
 <resource: #programMenu>
 |m|
-m := self baseDirectoryMenuSpec.
-m := m decodeAsLiteralArray.
 "/ add the history items ...
 DirectoryHistory size > 0 ifTrue:[
-	m addItem:(MenuItem labeled:'-').
+m := Menu new.
-	DirectoryHistory do:[:dirName |
-	    m addItem:((MenuItem label:dirName value:#changeDirectoryTo:)
+DirectoryHistory do:[:dirName |
-			    argument:dirName;
+m addItem:((MenuItem label:dirName value:#changeDirectoryTo:)
-			    yourself).
+argument:dirName;
-	].
+yourself).
+].
 ].
 m findGuiResourcesIn:self.
 ^ m
 #translateLabel: true
 #submenu:
 #(#Menu
 #(
 #(#MenuItem
-#label: 'Details'
+#label: 'Show Details'
 #translateLabel: true
 #indication: #showingDetails
+)
+#(#MenuItem
+#label: 'Show Time && Date'
+#translateLabel: true
+#indication: #showingTimeAndDate
+#enabled: #showingDetails
 )
 #(#MenuItem
 #label: 'Show Hidden Files'
 #translateLabel: true
 #indication: #showingHiddenFiles
 )
 #(#MenuItem
-#label: 'Big Image Preview'
+#label: 'Show Big Image Preview'
 #translateLabel: true
 #indication: #showingBigImagePreview
 )
 #(#MenuItem
 #label: '-'
 #translateLabel: true
 #choice: #sortByWhat
 #choiceValue: #time
 )
 #(#MenuItem
-#label: 'Ignore Case'
+#label: 'Ignore Case in Sort'
 #translateLabel: true
 #indication: #sortCaseless
 )
 #(#MenuItem
 #label: '-'
 !
 canRemoveCVSContainer
 ^ [ |cvsDir|
-	currentDirectory notNil
+currentDirectory notNil
-	and:[fileListView selection size > 0
+and:[fileListView selection size > 0
-	and:[(cvsDir := currentDirectory construct:'CVS') exists
+and:[(cvsDir := currentDirectory construct:'CVS') exists
-	and:[cvsDir isDirectory]]]]
+and:[cvsDir isDirectory]]]]
 !
 canRemoveFromClassPath
 ^ [ |f|
 ^ [ fileListView selection size > 0
 and:[OSI::ASN1Parser notNil
 and:[OSI::ASN1Parser isLoaded]]]
 !
+hasBookmarks
+^ DirectoryBookmarks size > 0
+"Created: / 14.8.1998 / 19:17:02 / cg"
+"Modified: / 14.8.1998 / 19:17:17 / cg"
+!
+hasBookmarksToRemove
+^ DirectoryBookmarks size > 0
+and:[ DirectoryBookmarks includes:(currentDirectory asFilename pathName) ]
+"Created: / 14.8.1998 / 19:17:02 / cg"
+"Modified: / 14.8.1998 / 19:17:17 / cg"
+!
 hasCBrowser
 ^ [ CC::Browser notNil ]
 !
 hasFilenameSelectionInCodeView
 ^ [ |val sel|
-	val := false.
+val := false.
-	sel := subView selection.
+sel := subView selection.
-	sel notNil ifTrue:[
+sel notNil ifTrue:[
-	    sel := sel asString withoutSeparators.
+sel := sel asString withoutSeparators.
-	    sel asFilename exists ifTrue:[
+sel asFilename exists ifTrue:[
-		val := sel asFilename isReadable
+val := sel asFilename isReadable
-	    ]
+]
-	].
+].
-	val
+val
 ]
 "Created: / 4.2.1999 / 17:34:57 / cg"
 "Modified: / 4.2.1999 / 17:39:32 / cg"
 !
 hasJava
 ^ [ JavaClassReader notNil
-	and:[JavaClassReader isLoaded]]
+and:[JavaClassReader isLoaded]]
 "Modified: / 17.10.1998 / 16:57:14 / cg"
 "Created: / 17.10.1998 / 22:58:25 / cg"
 !
 hasJavaAndSelection
 ^ [ fileListView selection size > 0
-	and:[JavaClassReader notNil
+and:[JavaClassReader notNil
-	and:[JavaClassReader isLoaded]]]
+and:[JavaClassReader isLoaded]]]
 "Modified: / 17.10.1998 / 16:57:14 / cg"
 "Created: / 17.10.1998 / 22:58:03 / cg"
 !
 "Created: / 4.8.1998 / 14:10:31 / cg"
 "Modified: / 4.8.1998 / 14:10:57 / cg"
 !
+hasVisitHistory
+^ [DirectoryHistory size > 0]
+"Created: / 14.8.1998 / 19:17:02 / cg"
+"Modified: / 14.8.1998 / 19:17:17 / cg"
+!
 hasZipFileSelected
 ^ [|sel f fn suff|
-	sel := fileListView selection.
+sel := fileListView selection.
-	sel size == 1 ifTrue:[
+sel size == 1 ifTrue:[
-	    f := fileList at:sel first ifAbsent:nil.
+f := fileList at:sel first ifAbsent:nil.
-	    f notNil ifTrue:[
+f notNil ifTrue:[
-		suff := f asFilename suffix asLowercase.
+suff := f asFilename suffix asLowercase.
-		suff = 'zip' or:[suff = 'jar']
+suff = 'zip' or:[suff = 'jar']
-	    ] ifFalse:[
+] ifFalse:[
-		false
+false
-	    ]
+]
-	] ifFalse:[
+] ifFalse:[
-	    false
+false
-	]
+]
 ]
 "Created: / 26.8.1998 / 16:15:26 / cg"
 "Modified: / 30.1.1999 / 19:05:59 / cg"
 !
 javaSupportLoaded
 ^ [ JavaClassReader notNil
-	and:[JavaClassReader isLoaded]]
+and:[JavaClassReader isLoaded]]
 "Created: / 9.11.1998 / 05:33:17 / cg"
 !
 showingBigImagePreview
 "Created: / 14.8.1998 / 14:15:15 / cg"
 !
 showingHiddenFiles
 ^ showingHiddenFiles
+"Created: / 14.8.1998 / 14:15:44 / cg"
+!
+showingTimeAndDate
+^ showingTimeAndDate
 "Created: / 14.8.1998 / 14:15:44 / cg"
 !
 singleSelectedFile
 canDrop:aCollectionOfDropObjects
 "I accept fileObjects only"
 aCollectionOfDropObjects do:[:aDropObject |
-	aDropObject isFileObject ifFalse:[
+aDropObject isFileObject ifFalse:[
-	    aDropObject isTextObject ifFalse:[^ false].
+aDropObject isTextObject ifFalse:[^ false].
-	]
+]
 ].
 ^ true
 "Modified: 11.4.1997 / 12:41:59 / cg"
 !
 If its text, paste it into the codeView."
 |newDir newFile|
 someObject isFileObject ifTrue:[
-	someObject isDirectory ifTrue:[
+someObject isDirectory ifTrue:[
-	    newDir := someObject theObject pathName.
+newDir := someObject theObject pathName.
-	] ifFalse:[
+] ifFalse:[
-	    newDir := someObject theObject directoryName.
+newDir := someObject theObject directoryName.
-	    newFile := someObject theObject baseName.
+newFile := someObject theObject baseName.
-	].
+].
-	newDir notNil ifTrue:[
+newDir notNil ifTrue:[
-	    newDir ~= currentDirectory pathName ifTrue:[
+newDir ~= currentDirectory pathName ifTrue:[
-		self changeDirectoryTo:newDir.
+self changeDirectoryTo:newDir.
-	    ]
+]
-	].
+].
-	newFile notNil ifTrue:[
+newFile notNil ifTrue:[
-	    newFile ~= currentFileName ifTrue:[
+newFile ~= currentFileName ifTrue:[
-		fileListView selection:(fileList indexOf:newFile).
+fileListView selection:(fileList indexOf:newFile).
-		self doFileGet:false.
+self doFileGet:false.
-	    ]
+]
-	].
+].
-	^ self
+^ self
 ].
 someObject isTextObject ifTrue:[
-	subView paste:someObject theObject.
+subView paste:someObject theObject.
-	^ self
+^ self
 ].
 "Modified: 6.4.1997 / 14:46:44 / cg"
 ! !
 |wasVisible|
 wasVisible := shown.
 super visibilityChange:how.
 (wasVisible not and:[shown]) ifTrue:[
-	"
+"
-	 start checking again
+start checking again
-	"
+"
-	Processor removeTimedBlock:checkBlock.
+Processor removeTimedBlock:checkBlock.
-	Processor addTimedBlock:checkBlock afterSeconds:checkDelta.
+Processor addTimedBlock:checkBlock afterSeconds:checkDelta.
 ]
 "Modified: / 18.2.1998 / 17:57:44 / cg"
 ! !
 |fh|
 (showingBigImagePreview value == true
 and:[showingDetails value == true]) ifTrue:[
-	fh := fileListView font height.
+fh := fileListView font height.
-	fileListView lineSpacing:(34 - fh max:0).
+fileListView lineSpacing:(34 - fh max:0).
 ] ifFalse:[
-	fileListView clear.
+fileListView clear.
-	self updateCurrentDirectory.
+self updateCurrentDirectory.
-	fileListView lineSpacing:2.
+fileListView lineSpacing:2.
 ].
 fileListView clear.
 self updateCurrentDirectory
 "Modified: / 4.8.1998 / 13:43:54 / cg"
 dialog addAbortAndOkButtons.
 dialog open.
 dialog accepted ifTrue:[
-	idx := list selectionIndex.
+idx := list selectionIndex.
-	fileEncoding := encodings at:idx.
+fileEncoding := encodings at:idx.
-	subView externalEncoding:fileEncoding.
+subView externalEncoding:fileEncoding.
-	self validateFontEncodingFor:fileEncoding ask:true.
+self validateFontEncodingFor:fileEncoding ask:true.
 ].
 "Modified: 30.6.1997 / 14:41:12 / cg"
 !
 |fileNames dir infoDir filesBySize
 result info dirPrefix|
 (self askIfModified:'contents has not been saved.\\Modifications will be lost when you proceed.'
-	      yesButton:'proceed') ifFalse:[^ self].
+yesButton:'proceed') ifFalse:[^ self].
 self withWaitCursorDo:[
-	result := Dictionary new.
+result := Dictionary new.
-	dir := currentDirectory asFilename.
+dir := currentDirectory asFilename.
-	self label:myName , '- gathering file names ...'.
+self label:myName , '- gathering file names ...'.
-	fileNames := dir recursiveDirectoryContents.
+fileNames := dir recursiveDirectoryContents.
-	fileNames := fileNames collect:[:fn | dir construct:fn].
+fileNames := fileNames collect:[:fn | dir construct:fn].
-	fileNames := fileNames select:[:fn | fn isDirectory not].
+fileNames := fileNames select:[:fn | fn isDirectory not].
-	self label:myName , '- gathering sizes ...'.
+self label:myName , '- gathering sizes ...'.
-	infoDir := Dictionary new.
+infoDir := Dictionary new.
-	fileNames do:[:fn |
+fileNames do:[:fn |
-	    infoDir at:fn put:(fn fileSize)
+infoDir at:fn put:(fn fileSize)
-	].
+].
-	"/ for each, get the files size.
+"/ for each, get the files size.
-	"/ in a first pass, look for files of the same size and
+"/ in a first pass, look for files of the same size and
-	"/ compare them ...
+"/ compare them ...
-	self label:myName , '- preselect possible duplicates ...'.
+self label:myName , '- preselect possible duplicates ...'.
-	filesBySize := Dictionary new.
+filesBySize := Dictionary new.
-	infoDir keysAndValuesDo:[:fn :sz |
+infoDir keysAndValuesDo:[:fn :sz |
-	    |entry|
+|entry|
-	    entry := filesBySize at:sz ifAbsentPut:[Set new].
+entry := filesBySize at:sz ifAbsentPut:[Set new].
-	    entry add:fn.
+entry add:fn.
-	].
+].
-	"/ any of same size ?
+"/ any of same size ?
-	self label:myName , '- checking for duplicates ...'.
+self label:myName , '- checking for duplicates ...'.
-	filesBySize do:[:entry |
+filesBySize do:[:entry |
-	    |files|
+|files|
-	    entry size > 1 ifTrue:[
+entry size > 1 ifTrue:[
-		files := entry asArray.
+files := entry asArray.
-		1 to:files size-1 do:[:idx1 |
+1 to:files size-1 do:[:idx1 |
-		    idx1+1 to:files size do:[:idx2 |
+idx1+1 to:files size do:[:idx2 |
-			|fn1 fn2|
+|fn1 fn2|
-			fn1 := files at:idx1.
+fn1 := files at:idx1.
-			fn2 := files at:idx2.
+fn2 := files at:idx2.
 "/                        self label:myName , '- checking ' , fn1 baseName , ' vs. ' , fn2 baseName , ' ...'.
-			(result at:fn2 ifAbsent:nil) ~= fn1 ifTrue:[
+(result at:fn2 ifAbsent:nil) ~= fn1 ifTrue:[
-			    "/ compare the files
+"/ compare the files
-			    (fn1 sameContentsAs:fn2) ifTrue:[
+(fn1 sameContentsAs:fn2) ifTrue:[
 "/                                Transcript show:'Same: '; show:fn1 baseName; show:' and '; showCR:fn2 baseName.
-				result at:fn1 put:fn2.
+result at:fn1 put:fn2.
-			    ]
+]
-			]
+]
-		    ]
+]
-		]
+]
-	    ]
+]
-	].
+].
-	self label:myName , '- sorting ...'.
+self label:myName , '- sorting ...'.
-	dirPrefix := currentDirectory asFilename pathName.
+dirPrefix := currentDirectory asFilename pathName.
-	result := result associations.
+result := result associations.
-	result := result collect:[:assoc |
+result := result collect:[:assoc |
-					|f1 f2|
+|f1 f2|
-					f1 := assoc key name.
+f1 := assoc key name.
-					f2 := assoc value name.
+f2 := assoc value name.
-					(f1 startsWith:dirPrefix) ifTrue:[
+(f1 startsWith:dirPrefix) ifTrue:[
-					    f1 := f1 copyFrom:dirPrefix size + 2.
+f1 := f1 copyFrom:dirPrefix size + 2.
-					].
+].
-					(f2 startsWith:dirPrefix) ifTrue:[
+(f2 startsWith:dirPrefix) ifTrue:[
-					    f2 := f2 copyFrom:dirPrefix size + 2.
+f2 := f2 copyFrom:dirPrefix size + 2.
-					].
+].
-					f1 < f2 ifTrue:[
+f1 < f2 ifTrue:[
-					    f2 -> f1
+f2 -> f1
-					] ifFalse:[
+] ifFalse:[
-					    f1 -> f2
+f1 -> f2
-					]
+]
-				].
+].
-	result sort:[:f1 :f2 | f2 value < f1 value].
+result sort:[:f1 :f2 | f2 value < f1 value].
-	info := OrderedCollection new.
+info := OrderedCollection new.
-	result do:[:assoc |
+result do:[:assoc |
-	    info add:(assoc key , ' same as ' , assoc value)
+info add:(assoc key , ' same as ' , assoc value)
-	].
+].
-	info isEmpty ifTrue:[
+info isEmpty ifTrue:[
-	    info := 'No duplicate files found.'
+info := 'No duplicate files found.'
-	].
+].
 ].
 subView contents:info.
 self label:myName.
 |fileNames dir infoDir filesBySize
 result info|
 (self askIfModified:'contents has not been saved.\\Modifications will be lost when you proceed.'
-	      yesButton:'proceed') ifFalse:[^ self].
+yesButton:'proceed') ifFalse:[^ self].
 self withWaitCursorDo:[
-	result := Dictionary new.
+result := Dictionary new.
-	dir := currentDirectory asFilename.
+dir := currentDirectory asFilename.
-	fileNames := dir directoryContents.
+fileNames := dir directoryContents.
-	fileNames := fileNames collect:[:fn | dir construct:fn].
+fileNames := fileNames collect:[:fn | dir construct:fn].
-	fileNames := fileNames select:[:fn | fn isDirectory not].
+fileNames := fileNames select:[:fn | fn isDirectory not].
-	infoDir := Dictionary new.
+infoDir := Dictionary new.
-	fileNames do:[:fn |
+fileNames do:[:fn |
-	    infoDir at:fn put:(fn info)
+infoDir at:fn put:(fn info)
-	].
+].
-	"/ for each, get the files size.
+"/ for each, get the files size.
-	"/ in a first pass, look for files of the same size and
+"/ in a first pass, look for files of the same size and
-	"/ compare them ...
+"/ compare them ...
-	filesBySize := Dictionary new.
+filesBySize := Dictionary new.
-	infoDir keysAndValuesDo:[:fn :info |
+infoDir keysAndValuesDo:[:fn :info |
-	    |sz entry|
+|sz entry|
-	    sz := info size.
+sz := info size.
-	    entry := filesBySize at:sz ifAbsentPut:[Set new].
+entry := filesBySize at:sz ifAbsentPut:[Set new].
-	    entry add:fn.
+entry add:fn.
-	].
+].
-	"/ any of same size ?
+"/ any of same size ?
-	filesBySize do:[:entry |
+filesBySize do:[:entry |
-	    |files|
+|files|
-	    entry size > 1 ifTrue:[
+entry size > 1 ifTrue:[
-		files := entry asArray.
+files := entry asArray.
-		1 to:files size-1 do:[:idx1 |
+1 to:files size-1 do:[:idx1 |
-		    idx1+1 to:files size do:[:idx2 |
+idx1+1 to:files size do:[:idx2 |
-			|fn1 fn2|
+|fn1 fn2|
-			fn1 := files at:idx1.
+fn1 := files at:idx1.
-			fn2 := files at:idx2.
+fn2 := files at:idx2.
-			(result at:fn2 ifAbsent:nil) ~= fn1 ifTrue:[
+(result at:fn2 ifAbsent:nil) ~= fn1 ifTrue:[
-			    "/ compare the files
+"/ compare the files
-			    (fn1 sameContentsAs:fn2) ifTrue:[
+(fn1 sameContentsAs:fn2) ifTrue:[
 "/                                Transcript show:'Same: '; show:fn1 baseName; show:' and '; showCR:fn2 baseName.
-				result at:fn1 put:fn2.
+result at:fn1 put:fn2.
-			    ]
+]
-			]
+]
-		    ]
+]
-		]
+]
-	    ]
+]
-	].
+].
-	result := result associations.
+result := result associations.
-	result := result collect:[:assoc |
+result := result collect:[:assoc |
-					|f1 f2|
+|f1 f2|
-					f1 := assoc key baseName.
+f1 := assoc key baseName.
-					f2 := assoc value baseName.
+f2 := assoc value baseName.
-					f1 < f2 ifTrue:[
+f1 < f2 ifTrue:[
-					    f2 -> f1
+f2 -> f1
-					] ifFalse:[
+] ifFalse:[
-					    f1 -> f2
+f1 -> f2
-					]
+]
-				].
+].
-	result sort:[:f1 :f2 | f2 value < f1 value].
+result sort:[:f1 :f2 | f2 value < f1 value].
-	info := OrderedCollection new.
+info := OrderedCollection new.
-	result do:[:assoc |
+result do:[:assoc |
-	    info add:(assoc key , ' same as ' , assoc value)
+info add:(assoc key , ' same as ' , assoc value)
-	].
+].
-	info isEmpty ifTrue:[
+info isEmpty ifTrue:[
-	    info := 'No duplicate files found.'
+info := 'No duplicate files found.'
-	].
+].
 ].
 subView contents:info
 "Created: / 3.10.1998 / 17:59:00 / cg"
 |string box updater|
 string := self getFileInfoString:longInfo.
 string notNil ifTrue:[
-	box := InfoBox title:string.
+box := InfoBox title:string.
-	updater := [
+updater := [
-	    [true] whileTrue:[
+[true] whileTrue:[
-		Delay waitForSeconds:2.
+Delay waitForSeconds:2.
-		string := self getFileInfoString:longInfo.
+string := self getFileInfoString:longInfo.
-		box title:string
+box title:string
-	    ]
+]
-	] fork.
+] fork.
-	box showAtPointer.
+box showAtPointer.
-	updater terminate.
+updater terminate.
-	box destroy
+box destroy
 ]
 !
 fileGetLongInfo
 "show long stat (file)-info"
 |fileName|
 fileName := self getSelectedFileName.
 fileName notNil ifTrue:[
-	self showFile:fileName insert:true encoding:fileEncoding
+self showFile:fileName insert:true encoding:fileEncoding
 ]
 "Modified: 23.4.1997 / 13:06:06 / cg"
 !
 <resource: #programMenu>
 |items m sel ns subMenu subItems|
 items := #(
-		 ('spawn'            fileSpawn        )
+('spawn'            fileSpawn        )
-		 ('-'                nil              )
+('-'                nil              )
-		 ('get contents'     fileGet          GotoLine)
+('get contents'     fileGet          GotoLine)
-		 ('insert contents'  fileInsert       )
+('insert contents'  fileInsert       )
-		 ('show info'        fileGetInfo      InspectIt)
+('show info'        fileGetInfo      InspectIt)
-		 ('show full info'   fileGetLongInfo  CmdI)
+('show full info'   fileGetLongInfo  CmdI)
-	       ).
+).
 ((ns := Project current defaultNameSpace) notNil
 and:[ns ~~ Smalltalk]) ifTrue:[
-	items := items copyWith:(Array
+items := items copyWith:(Array
-				    with:(resources string:'fileIn (into ''%1'')' with:(Project current defaultNameSpace name))
+with:(resources string:'fileIn (into ''%1'')' with:(Project current defaultNameSpace name))
-				    with:#fileFileIn
+with:#fileFileIn
-				    with:#Accept)
+with:#Accept)
 ] ifFalse:[
-	items := items copyWith:#( 'fileIn'  #fileFileIn  #Accept)
+items := items copyWith:#( 'fileIn'  #fileFileIn  #Accept)
 ].
 items := items , #(
-		 ('-'                                                   )
+('-'                                                   )
-		 ('update'                    updateCurrentDirectory    Cmdu)
+('update'                    updateCurrentDirectory    Cmdu)
-		 ('-'                                                   )
+('-'                                                   )
-		 ('execute unix command ...'  fileExecute               DoIt)
+('execute unix command ...'  fileExecute               DoIt)
-		 ('st/x tools'                stxTools                  )
+('st/x tools'                stxTools                  )
-		 ('-'                                                   )
+('-'                                                   )
-		 ('remove'                    fileRemove                Delete)
+('remove'                    fileRemove                Delete)
-		 ('rename ...'                fileRename                )
+('rename ...'                fileRename                )
-		 ('-'                                                   )
+('-'                                                   )
-		 ('display long list'         changeDisplayMode         )
+('display long list'         changeDisplayMode         )
-		 ('show all files'            changeDotFileVisibility   )
+('show all files'            changeDotFileVisibility   )
-		 ('encoding ...'              fileEncoding              )
+('encoding ...'              fileEncoding              )
-		 ('-'                                                   )
+('-'                                                   )
-		 ('create directory ...'      newDirectory              CmdD)
+('create directory ...'      newDirectory              CmdD)
-		 ('create file ...'           newFile                   CmdF)
+('create file ...'           newFile                   CmdF)
-	       ).
+).
 m := PopUpMenu
-	    itemList:items
+itemList:items
-	    resources:resources.
+resources:resources.
 showingHiddenFiles value "showDotFiles" ifTrue:[
-	m labelAt:#changeDotFileVisibility put:(resources string:'hide hidden files')
+m labelAt:#changeDotFileVisibility put:(resources string:'hide hidden files')
 ].
 showingDetails value "showLongList" ifTrue:[
-	m labelAt:#changeDisplayMode put:(resources string:'display short list')
+m labelAt:#changeDisplayMode put:(resources string:'display short list')
 ].
 items := #(
-			      ('Changes browser'       openChangesBrowser  )
+('Changes browser'       openChangesBrowser  )
-			      ('Editor'                openEditor          )
+('Editor'                openEditor          )
-			      ('HTML reader'           openHTMLReader      )
+('HTML reader'           openHTMLReader      )
-			      ('Image inspect'         openImageInspector  )
+('Image inspect'         openImageInspector  )
-			      ('show file differences' openDiffView        )
+('show file differences' openDiffView        )
-		  ).
+).
 OperatingSystem isUNIXlike ifTrue:[
-	items := items , #( ('terminal'              openTerminal )).
+items := items , #( ('terminal'              openTerminal )).
 ].
 JavaInterpreter notNil ifTrue:[
-	items := items , #( ('Java Applet Viewer' openAppletViewer)).
+items := items , #( ('Java Applet Viewer' openAppletViewer)).
 ].
 m subMenuAt:#stxTools
-	    put:(PopUpMenu
+put:(PopUpMenu
-		    itemList:items
+itemList:items
-		    resources:resources).
+resources:resources).
 ((sel := fileListView selection) isNil
 or:[sel isEmpty]) ifTrue:[
-	m disableAll:#(fileGet fileInsert
+m disableAll:#(fileGet fileInsert
-		       fileGetInfo fileGetLongInfo
+fileGetInfo fileGetLongInfo
-		       fileFileIn fileFileInLazy
+fileFileIn fileFileInLazy
-		       fileRemove fileRename).
+fileRemove fileRename).
-	(m subMenuAt:#stxTools)
+(m subMenuAt:#stxTools)
-	    disableAll:#(openChangesBrowser openEditor openHTMLReader openImageInspector)
+disableAll:#(openChangesBrowser openEditor openHTMLReader openImageInspector)
 ] ifFalse:[
-	fileListView selection size > 1 ifTrue:[
+fileListView selection size > 1 ifTrue:[
-	    m disableAll:#( fileGet fileInsert fileGetInfo fileGetLongInfo fileRename )
+m disableAll:#( fileGet fileInsert fileGetInfo fileGetLongInfo fileRename )
-	]
+]
 ].
 ^m
 "Modified: / 16.1.1998 / 16:42:59 / stefan"
 "send a files contents to the printer (not in the menu)"
 |fileName path inStream printStream line|
 self withWaitCursorDo:[
-	fileName := self getSelectedFileName.
+fileName := self getSelectedFileName.
-	fileName notNil ifTrue:[
+fileName notNil ifTrue:[
-	    path := currentDirectory filenameFor:fileName.
+path := currentDirectory filenameFor:fileName.
-	    (path type == #regular) ifTrue:[
+(path type == #regular) ifTrue:[
-		inStream := path readStream.
+inStream := path readStream.
-		inStream isNil ifFalse:[
+inStream isNil ifFalse:[
-		    printStream := PrinterStream new.
+printStream := PrinterStream new.
-		    printStream notNil ifTrue:[
+printStream notNil ifTrue:[
-			[inStream atEnd] whileFalse:[
+[inStream atEnd] whileFalse:[
-			    line := inStream nextLine.
+line := inStream nextLine.
-			    printStream nextPutLine:line.
+printStream nextPutLine:line.
-			].
+].
-			printStream close
+printStream close
-		    ].
+].
-		    inStream close
+inStream close
-		]
+]
-	    ]
+]
-	].
+].
-	0 "compiler hint"
+0 "compiler hint"
 ]
 "Modified: 23.4.1997 / 13:05:40 / cg"
 "Modified: 18.9.1997 / 16:29:17 / stefan"
 !
 "selected a file - do nothing here"
 |fn|
 imagePreviewView notNil ifTrue:[
-	self stopImageRenderProcess.
+self stopImageRenderProcess.
-	fn := self getSelectedFileName.
+fn := self getSelectedFileName.
-	(Image isImageFileSuffix:(fn asFilename suffix)) ifTrue:[
+(Image isImageFileSuffix:(fn asFilename suffix)) ifTrue:[
-	    imageRenderProcess := [
+imageRenderProcess := [
-		self loadImageAndPerform:[:img |
+self loadImageAndPerform:[:img |
-						imagePreviewView beVisible.
+imagePreviewView beVisible.
-						imagePreviewView image:img
+imagePreviewView image:img
-					 ]
+]
-	    ] forkAt:(Processor activePriority - 1).
+] forkAt:(Processor activePriority - 1).
-	] ifFalse:[
+] ifFalse:[
-	    imagePreviewView beInvisible
+imagePreviewView beInvisible
-	].
+].
 ]
 "Modified: 23.4.1997 / 13:04:55 / cg"
 !
 self class openOn:(path pathName).
 any := true
 ]
 ].
 any ifFalse:[
-self class openOn:currentDirectory pathName withExtent:self topView extent
+"/ access by name, to get most up-to-date version
+"/ (if changed in the browser, and the running one is old)
+(Smalltalk at:(self class name))
+openOn:currentDirectory pathName withExtent:self topView extent
 ]
 "Modified: 18.9.1997 / 16:32:39 / stefan"
 !
 loadImageAndPerform:aSelectorOrBlock
 |img path|
 self selectedFilesDo:[:fileName |
-	path := currentDirectory filenameFor:fileName.
+path := currentDirectory filenameFor:fileName.
-	path isDirectory ifFalse:[
+path isDirectory ifFalse:[
-	    img := Image fromFile:(path pathName).
+img := Image fromFile:(path pathName).
-	    img notNil ifTrue:[
+img notNil ifTrue:[
-		aSelectorOrBlock isSymbol ifTrue:[
+aSelectorOrBlock isSymbol ifTrue:[
-		    img perform:aSelectorOrBlock
+img perform:aSelectorOrBlock
-		] ifFalse:[
+] ifFalse:[
-		    aSelectorOrBlock value:img
+aSelectorOrBlock value:img
-		]
+]
-	    ] ifFalse:[
+] ifFalse:[
-		self warn:'unknown format: ' , fileName
+self warn:'unknown format: ' , fileName
-	    ]
+]
-	]
+]
 ].
 "Modified: / 17.9.1995 / 17:41:24 / claus"
 "Modified: / 18.9.1997 / 17:05:04 / stefan"
 "Created: / 26.8.1998 / 16:20:18 / cg"
 openAppletViewer
 |numItems|
 (numItems := fileListView selection size) > 2 ifTrue:[
-	(self
+(self
-	    confirm:(resources string:'open for each of the %1 items ?'
+confirm:(resources string:'open for each of the %1 items ?'
-				 with:numItems)) ifFalse:[^ self].
+with:numItems)) ifFalse:[^ self].
 ].
 Java startupJavaSystem.
 "/    Java markAllClassesUninitialized.
 "/    Java initAllStaticFields.
 "/    Java initAllClasses.
 self selectedFilesDo:[:fileName |
-	|p path|
+|p path|
-	path := currentDirectory filenameFor:fileName.
+path := currentDirectory filenameFor:fileName.
-	path isDirectory ifFalse:[
+path isDirectory ifFalse:[
-	    p := Java
+p := Java
-		    javaProcessForMainOf:(Java classForName:'sun.applet.AppletViewer')
+javaProcessForMainOf:(Java classForName:'sun.applet.AppletViewer')
-		    argumentString:path pathName.
+argumentString:path pathName.
-	    p resume.
+p resume.
-	]
+]
 ].
 "Modified: / 18.9.1997 / 17:00:59 / stefan"
 "Modified: / 17.10.1998 / 17:00:43 / cg"
 !
 "Modified: / 7.9.1998 / 21:31:30 / cg"
 !
 openImagePreview
 [self loadImageAndPerform:[:img |
-				|i top viewer|
+|i top viewer|
-				top := StandardSystemView new.
+top := StandardSystemView new.
-				viewer := ImageView origin:0.0@0.0 corner:1.0@1.0 in:top.
+viewer := ImageView origin:0.0@0.0 corner:1.0@1.0 in:top.
-				i := img.
+i := img.
-				top extent:200@200.
+top extent:200@200.
-				top label:(img fileName asFilename directoryName asFilename baseName , '/' , img fileName asFilename baseName).
+top label:(img fileName asFilename directoryName asFilename baseName , '/' , img fileName asFilename baseName).
-				top openAndWait.
+top openAndWait.
-				(i width > 200 or:[i height > 200]) ifTrue:[
+(i width > 200 or:[i height > 200]) ifTrue:[
-				    i := i magnifiedPreservingRatioTo:200@200.
+i := i magnifiedPreservingRatioTo:200@200.
-				].
+].
-				viewer image:i.
+viewer image:i.
-			      ].
+].
 ] fork
 "Modified: / 4.12.1998 / 15:49:03 / cg"
 !
 openSelectedFilename
 |sel|
 sel := subView selection.
 sel notNil ifTrue:[
-	sel := sel asString withoutSeparators.
+sel := sel asString withoutSeparators.
-	sel asFilename exists ifTrue:[
+sel asFilename exists ifTrue:[
-	    self doOpenFile:sel viaDoubleClick:false
+self doOpenFile:sel viaDoubleClick:false
-	]
+]
 ].
 "Created: / 4.2.1999 / 17:40:42 / cg"
 "Modified: / 4.2.1999 / 17:47:06 / cg"
 !
 showOrHideTabView
 "depending on the showLongList setting, show or hde the tabSpec view"
 showingDetails value "showLongList" ifTrue:[
-	tabRulerView isNil ifTrue:[
+tabRulerView isNil ifTrue:[
-	    self createTabRulerIn:scrollView superView.
+self createTabRulerIn:scrollView superView.
-	].
+].
-	tabRulerView beVisible.
+tabRulerView beVisible.
-	false "self is3D" ifTrue:[
+false "self is3D" ifTrue:[
-	    scrollView topInset:(tabRulerView superView height).
+scrollView topInset:(tabRulerView superView height).
-	    tabRulerView superView leftInset:(fileListView originRelativeTo:scrollView) x.
+tabRulerView superView leftInset:(fileListView originRelativeTo:scrollView) x.
-	] ifFalse:[
+] ifFalse:[
-	    scrollView topInset:(tabRulerView height).
+scrollView topInset:(tabRulerView height).
-	    tabRulerView leftInset:(fileListView originRelativeTo:scrollView) x.
+tabRulerView leftInset:(fileListView originRelativeTo:scrollView) x.
-	].
+].
-	tabRulerView hiddenTabs:#(1).
+tabRulerView hiddenTabs:#(1).
-	tabRulerView fixedTabs:#(1).
+tabRulerView fixedTabs:#(1).
 ] ifFalse:[
-	tabRulerView notNil ifTrue:[
+tabRulerView notNil ifTrue:[
-	    tabRulerView beInvisible.
+tabRulerView beInvisible.
-	].
+].
-	scrollView topInset:0
+scrollView topInset:0
 ].
 tabSpec := nil.
 "Created: / 19.4.1997 / 09:50:02 / cg"
 "Modified: / 4.8.1998 / 13:44:14 / cg"
 helpTextFor:aComponent
 |s|
 aComponent == subView ifTrue:[
-	s := 'HELP_SUBVIEW'
+s := 'HELP_SUBVIEW'
 ].
 aComponent == fileListView ifTrue:[
-	s := 'HELP_FILELIST'
+s := 'HELP_FILELIST'
 ].
 aComponent == filterField ifTrue:[
-	s := 'HELP_FILTER'
+s := 'HELP_FILTER'
 ].
 aComponent == labelView ifTrue:[
-	s := 'HELP_PATHFIELD'
+s := 'HELP_PATHFIELD'
 ].
 aComponent == commandView ifTrue:[
-	s := 'HELP_COMMANDVIEW'
+s := 'HELP_COMMANDVIEW'
 ].
 s notNil ifTrue:[
-	^ resources string:s
+^ resources string:s
 ].
 ^ nil
 ! !
 !FileBrowser methodsFor:'initialize / release'!
 "
 showing small icons by default
 "
 showingBigImagePreview := (resources at:'BIG_IMAGE_PREVIEW' default:false) asValue.
 showingBigImagePreview onChangeSend:#bigImagePreviewSettingChanged to:self.
+showingTimeAndDate := (resources at:'SHOW_TIME_AND_DATE' default:false) asValue.
+showingTimeAndDate onChangeSend:#updateCurrentDirectory to:self.
 sortByWhat := #name asValue.
 sortByWhat onChangeSend:#sortChanged to:self.
 sortCaseless := (Filename isCaseSensitive not) asValue.
 "Created: 24.7.1997 / 18:13:46 / cg"
 ! !
 !FileBrowser methodsFor:'menu actions'!
+addBookmark
+self addBookmark:currentDirectory asFilename pathName
+!
+addBookmark:path
+|idx|
+DirectoryBookmarks isNil ifTrue:[
+DirectoryBookmarks := OrderedCollection new
+].
+idx := DirectoryBookmarks indexOf:path.
+idx == 0 ifTrue:[
+"/        DirectoryBookmarks size >= HistorySize ifTrue:[
+"/            DirectoryBookmarks removeLast.
+"/        ].
+DirectoryBookmarks addLast:path.
+].
+!
 copyCommandHistory
 "copy the command history to the clipBoard"
 self setTextSelection:(CommandHistory asStringCollection asString).
 copyFileList
 "copy fileList to the clipBoard"
 self setTextSelection:(fileListView list
-			      collect:[:l | |ll|
+collect:[:l | |ll|
-					ll := l string withoutSeparators.
+ll := l string withoutSeparators.
-					(ll endsWith:' ...') ifTrue:[
+(ll endsWith:' ...') ifTrue:[
-					    ll copyWithoutLast:4
+ll copyWithoutLast:4
-					] ifFalse:[
+] ifFalse:[
-					    ll
+ll
-					]
+]
-				      ])
+])
-				asStringCollection asString.
+asStringCollection asString.
 "Modified: / 17.8.1998 / 10:13:10 / cg"
 !
 copySelectedFileName
 |sel fileName|
 sel := fileListView selection.
 sel size == 1 ifTrue:[
-	fileName := fileList at:sel first.
+fileName := fileList at:sel first.
-	self setTextSelection:fileName
+self setTextSelection:fileName
 ].
 !
 copySelectedPathName
 "copy the selected files pathname to the clipBoard (for easy paste)"
 myClass := self class.
 (clsRev := myClass revision) notNil ifTrue: [rev := '  (rev: ', clsRev printString, ')'].
 msg := '\' withCRs , myClass name asBoldText, rev.
+AboutBox isNil ifTrue:[
+"/ this handles bad installations of ST/X,
+"/ where the AboutBox is missing.
+"/ (May vanish in the future)
+^ self information:msg
+].
 Dialog
 about:(resources string:msg)
 label:(resources string:'About FileBrowser')
 icon:self class defaultIcon
 "/    m findGuiResourcesIn:self.
 "/    ^ m.
 "Modified: / 14.8.1998 / 14:09:12 / cg"
 "Created: / 14.8.1998 / 14:14:16 / cg"
+!
+removeBookmark
+DirectoryBookmarks isNil ifTrue:[ ^ self].
+DirectoryBookmarks remove:(currentDirectory asFilename pathName) ifAbsent:nil.
 !
 showAboutSTX
 ToolApplicationModel openAboutSTX
 cvsUpdateDirectoryLocal
 "update this directory"
 self
-	doExecuteCommand:'cvs upd -l' replace:false
+doExecuteCommand:'cvs upd -l' replace:false
 "Modified: / 16.12.1998 / 17:30:31 / cg"
 !
 cvsUpdateDirectoryRecursive
 "update this directory"
 self
-	doExecuteCommand:'cvs upd -d' replace:false
+doExecuteCommand:'cvs upd -d' replace:false
 "Modified: / 16.12.1998 / 17:30:31 / cg"
 !
 cvsUpdateSelection
 |sel|
 sel := fileListView selection.
 sel size > 0 ifTrue:[
-	sel := sel collect:[:rawIndex | fileList at:rawIndex].
+sel := sel collect:[:rawIndex | fileList at:rawIndex].
-	sel do:[:fn |
+sel do:[:fn |
-	    self
+self
-		doExecuteCommand:('cvs upd ' , fn) replace:false
+doExecuteCommand:('cvs upd ' , fn) replace:false
-	]
+]
 ].
 !
 doRemoveAndRemoveFromCVS:filesToRemove
 "remove the selected file(s) and their CVS containers - no questions asked"
 needUpdate := (currentDirectory modificationTime > timeOfLastCheck).
 yesToAll := false.
 lockUpdate := true.
 [
-	filesToRemove do:[:fileName |
+filesToRemove do:[:fileName |
-	    |f|
+|f|
-	    f := currentDirectory construct:fileName.
+f := currentDirectory construct:fileName.
-	    OperatingSystem accessDeniedErrorSignal handle:[:ex|
+OperatingSystem accessDeniedErrorSignal handle:[:ex|
-		"was not able to remove it"
+"was not able to remove it"
-		msg := (resources string:'cannot remove ''%1'' !!' with:fileName).
+msg := (resources string:'cannot remove ''%1'' !!' with:fileName).
-		self showAlert:msg with:(OperatingSystem lastErrorString)
+self showAlert:msg with:(OperatingSystem lastErrorString)
-	    ] do:[
+] do:[
-		|answer contents|
+|answer contents|
-		(f isSymbolicLink not) ifTrue:[
+(f isSymbolicLink not) ifTrue:[
-		    self
+self
-			doExecuteCommand:('cvs remove -f ' , f baseName)
+doExecuteCommand:('cvs remove -f ' , f baseName)
-			replace:false.
+replace:false.
 "
-		self show:nil
+self show:nil
 "
-		    idx := fileList indexOf:fileName.
+idx := fileList indexOf:fileName.
-		    idx ~~ 0 ifTrue:[
+idx ~~ 0 ifTrue:[
-			toRemove add:idx.
+toRemove add:idx.
-		    ]
+]
-		]
+]
-	    ].
+].
-	].
+].
 ] valueNowOrOnUnwindDo:[
-	lockUpdate := false.
+lockUpdate := false.
-	fileListView setSelection:nil.
+fileListView setSelection:nil.
-	"/
+"/
-	"/ remove reverse - otherwise indices are wrong
+"/ remove reverse - otherwise indices are wrong
-	"/
+"/
-	toRemove sort.
+toRemove sort.
-	toRemove reverseDo:[:idx |
+toRemove reverseDo:[:idx |
-	    fileList removeIndex:idx.
+fileList removeIndex:idx.
-	    fileListView removeIndex:idx.
+fileListView removeIndex:idx.
-	].
+].
-	updateRunning ifTrue:[
+updateRunning ifTrue:[
-	    self updateCurrentDirectory
+self updateCurrentDirectory
-	] ifFalse:[
+] ifFalse:[
-	    "
+"
-	     install a new check after some time
+install a new check after some time
-	    "
+"
-	    needUpdate ifFalse:[timeOfLastCheck := AbsoluteTime now].
+needUpdate ifFalse:[timeOfLastCheck := AbsoluteTime now].
-	    Processor removeTimedBlock:checkBlock.
+Processor removeTimedBlock:checkBlock.
-	    Processor addTimedBlock:checkBlock afterSeconds:checkDelta.
+Processor addTimedBlock:checkBlock afterSeconds:checkDelta.
-	]
+]
 ].
 self
-	doExecuteCommand:('cvs commit -m ''removed via FileBrowser''')
+doExecuteCommand:('cvs commit -m ''removed via FileBrowser''')
-	replace:false.
+replace:false.
 "Modified: / 21.10.1998 / 17:02:11 / cg"
 ! !
 !FileBrowser methodsFor:'misc user interaction'!
 discardChangesDialog
 "ask the user if changes should be discarded,
 return true if changes should be discarded, false otherwise"
 ^ self askIfModified:'contents has not been saved.\\Modifications will be lost when directory is changed.'
-	       yesButton:'change'
+yesButton:'change'
 "Created: 2.10.1997 / 14:08:37 / stefan"
 !
 entryCompletion:contents
 update:what with:someArgument from:changedObject
 realized ifFalse:[^ self].
 (what == #aboutToExit) ifTrue:[
-	"system wants to shut down this
+"system wants to shut down this
-	 - if text was modified, pop up, and ask user and save if requested."
+- if text was modified, pop up, and ask user and save if requested."
-	(subView modified and:[subView contentsWasSaved not]) ifTrue:[
+(subView modified and:[subView contentsWasSaved not]) ifTrue:[
-	    self raiseDeiconified.
+self raiseDeiconified.
-	    (self
+(self
-		ask:(resources at:'FileBrowser:\\contents has not been saved.\\Save before exiting ?')
+ask:(resources at:'FileBrowser:\\contents has not been saved.\\Save before exiting ?')
-		yesButton:'save'
+yesButton:'save'
-		noButton:'don''t save')
+noButton:'don''t save')
-	    ifTrue:[
+ifTrue:[
-		subView acceptAction notNil ifTrue:[
+subView acceptAction notNil ifTrue:[
-		    subView accept
+subView accept
-		] ifFalse:[
+] ifFalse:[
-		    subView save
+subView save
-		]
+]
-	    ]
+]
-	].
+].
-	^ self
+^ self
 ].
 changedObject == tabSpec ifTrue:[
-	fileListView invalidate
+fileListView invalidate
 ].
 "Modified: 29.5.1996 / 16:13:43 / cg"
 ! !
 "Modified: 14.12.1996 / 15:37:47 / cg"
 "Created: 2.8.1997 / 14:11:19 / cg"
 !
+bookmarksMenuSpec
+"return the bookmarksMenu for the path label"
+<resource: #programMenu>
+^ self menuFromSpec:(self class bookmarksMenuSpec).
+!
 changeCurrentDirectory
 "if text was modified show a queryBox,
 otherwise ask for & change to that directory"
 self discardChangesDialog ifTrue:[
-	self queryForDirectoryToChange
+self queryForDirectoryToChange
 ]
 "Modified: 21.9.1997 / 23:45:35 / cg"
 "Modified: 2.10.1997 / 14:09:02 / stefan"
 !
 changeDirectoryTo:aDirectoryName
 "sent from label menu to change back to a previous directory"
 self discardChangesDialog ifTrue:[
-	self doChangeCurrentDirectoryTo:aDirectoryName updateHistory:true "/false.
+self doChangeCurrentDirectoryTo:aDirectoryName updateHistory:true "/false.
 ].
 "Modified: / 2.10.1997 / 14:09:24 / stefan"
 "Modified: / 21.7.1998 / 16:38:03 / cg"
 !
 changeToDefaultDirectory
 "if text was modified show a queryBox,
 otherwise change immediately to the default directory"
 self discardChangesDialog ifTrue:[
-	 self doChangeToDefaultDirectory
+self doChangeToDefaultDirectory
 ]
 "Modified: 21.9.1997 / 23:45:04 / cg"
 "Modified: 2.10.1997 / 14:09:33 / stefan"
 !
 changeToHomeDirectory
 "if text was modified show a queryBox,
 otherwise change immediately to the home directory"
 self discardChangesDialog ifTrue:[
-	 self doChangeToHomeDirectory
+self doChangeToHomeDirectory
 ]
 "Modified: 21.9.1997 / 23:45:10 / cg"
 "Modified: 2.10.1997 / 14:09:42 / stefan"
 !
 changeToParentDirectory
 "if text was modified show a queryBox,
 otherwise change immediately to the parent directory"
 self discardChangesDialog ifTrue:[
-	 self doChangeToParentDirectory
+self doChangeToParentDirectory
 ]
 "Modified: 21.9.1997 / 23:45:15 / cg"
 "Modified: 2.10.1997 / 14:09:55 / stefan"
 !
 |f|
 f := self getSelectedFileName.
 f isNil ifTrue:[
-	^ self addDirToJavaClassPath
+^ self addDirToJavaClassPath
 ].
 f := currentDirectory asFilename construct:f.
 Java addToClassPath:(f pathName)
 "Created: / 9.11.1998 / 05:41:34 / cg"
 "Created: / 9.11.1998 / 05:42:05 / cg"
 "Modified: / 9.11.1998 / 05:56:14 / cg"
 !
+historyMenuSpec
+"return the historyMenu for the path label"
+<resource: #programMenu>
+^ self menuFromSpec:(self class historyMenuSpec).
+!
 labelMenu
 "return the popUpMenu for the path label"
 <resource: #programMenu>
-|m|
+^ self menuFromSpec:(self class directoryMenuSpec).
-m := self class directoryMenuSpec.
-m menuPerformer:self.
-^ m
-"Modified: / 14.8.1998 / 12:11:16 / cg"
 !
 labelMenu_old
 "return the popUpMenu for the path label"
 <resource: #programMenu>
 |items menu currentIndex|
 items := #(
-		   ('copy path'                   copyPath                  )
+('copy path'                   copyPath                  )
-		   ('-'                                                     )
+('-'                                                     )
-		   ('up'                          changeToParentDirectory   )
+('up'                          changeToParentDirectory   )
-		   ('back'                        changeToPreviousDirectory )
+('back'                        changeToPreviousDirectory )
-		   ('change to home-directory'    changeToHomeDirectory     )
+('change to home-directory'    changeToHomeDirectory     )
-		   ('change to default-directory' changeToDefaultDirectory  )
+('change to default-directory' changeToDefaultDirectory  )
-		   ('change directory ...'        changeCurrentDirectory    )
+('change directory ...'        changeCurrentDirectory    )
-	       ).
+).
 (JavaClassReader notNil and:[JavaClassReader isLoaded]) ifTrue:[
-	items := items , #(
+items := items , #(
-			    ( '-')
+( '-')
-			    ( 'add to JavaClassPath'       addDirToJavaClassPath)
+( 'add to JavaClassPath'       addDirToJavaClassPath)
-			    ( 'add to JavaSourcePath'      addDirToJavaSourcePath)
+( 'add to JavaSourcePath'      addDirToJavaSourcePath)
-			    ( 'remove from JavaClassPath'  removeDirFromJavaClassPath)
+( 'remove from JavaClassPath'  removeDirFromJavaClassPath)
-			    ( 'remove from JavaSourcePath' removeDirFromJavaSourcePath)
+( 'remove from JavaSourcePath' removeDirFromJavaSourcePath)
-			  ).
+).
 ].
 DirectoryHistory size > 0 ifTrue:[
-	items := items copyWith:#('-').
+items := items copyWith:#('-').
-	items := items ,
+items := items ,
-		 (DirectoryHistory
+(DirectoryHistory
-			collect:[:dirName |
+collect:[:dirName |
-				    Array
+Array
-					with:dirName
+with:dirName
-					with:#changeDirectoryTo:
+with:#changeDirectoryTo:
-					with:nil
+with:nil
-					with:dirName
+with:dirName
-				]
+]
-		 ).
+).
-	currentIndex := items findFirst:[:i | (i at:1) = currentDirectory pathName].
+currentIndex := items findFirst:[:i | (i at:1) = currentDirectory pathName].
-	currentIndex == 0 ifTrue:[currentIndex := nil].
+currentIndex == 0 ifTrue:[currentIndex := nil].
 ].
 menu := PopUpMenu
-		itemList:items
+itemList:items
-		resources:resources.
+resources:resources.
 previousDirectory isNil ifTrue:[
-	menu disable:#changeToPreviousDirectory.
+menu disable:#changeToPreviousDirectory.
 ].
 currentIndex notNil ifTrue:[
-	menu disable:currentIndex
+menu disable:currentIndex
 ].
 (JavaClassReader notNil and:[JavaClassReader isLoaded]) ifTrue:[
-	(Java classPath includes:currentDirectory pathName) ifTrue:[
+(Java classPath includes:currentDirectory pathName) ifTrue:[
-	    menu disable:#addDirToJavaClassPath
+menu disable:#addDirToJavaClassPath
-	] ifFalse:[
+] ifFalse:[
-	    menu disable:#removeDirFromJavaClassPath
+menu disable:#removeDirFromJavaClassPath
-	].
+].
-	(Java sourcePath includes:currentDirectory pathName) ifTrue:[
+(Java sourcePath includes:currentDirectory pathName) ifTrue:[
-	    menu disable:#addDirToJavaSourcePath
+menu disable:#addDirToJavaSourcePath
-	] ifFalse:[
+] ifFalse:[
-	    menu disable:#removeDirFromJavaSourcePath
+menu disable:#removeDirFromJavaSourcePath
-	].
+].
 ].
 ^menu.
 "Modified: / 21.7.1998 / 16:43:25 / cg"
 "Created: / 14.8.1998 / 12:10:02 / cg"
 "query for new directory"
 |queryBox dirName|
 queryBox := FilenameEnterBox
-		    title:(resources at:'change directory to:') withCRs
+title:(resources at:'change directory to:') withCRs
-		    okText:(resources at:'change')
+okText:(resources at:'change')
-		    action:[:newName | dirName := newName].
+action:[:newName | dirName := newName].
 "/    queryBox initialText:''.
 queryBox showAtPointer.
 queryBox destroy.
 self doChangeCurrentDirectoryTo:dirName updateHistory:true.
 ask:question yesButton:yesButtonText noButton:noButtonText
 "common method to ask a yes/no question"
 ^ Dialog
-	confirm:question withCRs
+confirm:question withCRs
-	yesLabel:(resources at:yesButtonText)
+yesLabel:(resources at:yesButtonText)
-	noLabel:(resources at:noButtonText)
+noLabel:(resources at:noButtonText)
 "Modified: 21.2.1996 / 01:19:21 / cg"
 !
 askForCommandFor:fileName thenDo:aBlock
 askIfModified:question yesButton:yesButtonText
 "tell user, that code has been modified - let her confirm"
 (subView modified not or:[subView contentsWasSaved]) ifTrue:[
-	^ true
+^ true
 ].
 (self ask:(resources string:question) yesButton:yesButtonText) ifTrue:[
-	"/ reset modified flag so question is asked only once
+"/ reset modified flag so question is asked only once
-	subView modified:false.
+subView modified:false.
-	^ true
+^ true
 ].
 ^ false
 "Modified: 2.10.1997 / 14:23:47 / stefan"
 !
 |sel action|
 sel := fileListView selection.
 sel notNil ifTrue:[
-	sel := sel collect:[:aSelectionIndex |
+sel := sel collect:[:aSelectionIndex |
-	    |nm|
+|nm|
-	    nm := fileList at:aSelectionIndex ifAbsent:nil.
+nm := fileList at:aSelectionIndex ifAbsent:nil.
-	    nm notNil ifTrue:[
+nm notNil ifTrue:[
-		nm := nm string.
+nm := nm string.
-		(nm endsWith:' ...') ifTrue:[
+(nm endsWith:' ...') ifTrue:[
-		    nm := (nm copyWithoutLast:4) withoutSpaces
+nm := (nm copyWithoutLast:4) withoutSpaces
-		].
+].
-	    ].
+].
-	    nm
+nm
-	].
+].
-	action := [
+action := [
-	    sel do:[:nm |
+sel do:[:nm |
-		nm notNil ifTrue:[
+nm notNil ifTrue:[
-		    aBlock value:nm
+aBlock value:nm
-		]
+]
-	    ]
+]
-	].
+].
-	Processor activeProcess == self windowGroup process ifTrue:[
+Processor activeProcess == self windowGroup process ifTrue:[
-	    self withWaitCursorDo:action
+self withWaitCursorDo:action
-	] ifFalse:[
+] ifFalse:[
-	    action value
+action value
-	]
+]
 ]
 "Modified: / 16.12.1998 / 17:30:57 / cg"
 !
 "show an alertbox, displaying the last Unix-error"
 |msg|
 anErrorString isNil ifTrue:[
-	msg := aString
+msg := aString
 ] ifFalse:[
-	msg := aString , '\\(' , anErrorString , ')'
+msg := aString , '\\(' , anErrorString , ')'
 ].
 self warn:msg withCRs
 !
 withoutHiddenFiles:aCollection
 |newCollection|
 newCollection := aCollection species new.
 aCollection do:[:fname |
-	|ignore|
+|ignore|
-	ignore := false.
+ignore := false.
-	((fname startsWith:'.') and:[fname ~= '..']) ifTrue:[
+((fname startsWith:'.') and:[fname ~= '..']) ifTrue:[
-	    showingHiddenFiles value "showDotFiles" ifFalse:[
+showingHiddenFiles value "showDotFiles" ifFalse:[
-		ignore := true
+ignore := true
-	    ]
+]
-	].
+].
-	ignore ifFalse:[
+ignore ifFalse:[
-	    newCollection add:fname
+newCollection add:fname
-	]
+]
 ].
 ^ newCollection
 "Modified: / 4.8.1998 / 13:46:27 / cg"
 ! !
 "if text was modified show a queryBox,
 otherwise change immediately to previous directory."
 previousDirectory isNil ifTrue:[^ self].
 self discardChangesDialog ifTrue:[
-	self doChangeCurrentDirectoryTo:previousDirectory updateHistory:false
+self doChangeCurrentDirectoryTo:previousDirectory updateHistory:false
 ]
 "Modified: 2.10.1997 / 14:13:40 / stefan"
 !
 |msg path idx f|
 self label:myName; iconLabel:myName.
 fileName notNil ifTrue:[
-	(f := fileName asFilename) isAbsolute ifFalse:[
+(f := fileName asFilename) isAbsolute ifFalse:[
-	    f := currentDirectory filenameFor:fileName.
+f := currentDirectory filenameFor:fileName.
-	].
+].
-	f := f asAbsoluteFilename.
+f := f asAbsoluteFilename.
-	(f isDirectory) ifTrue:[
+(f isDirectory) ifTrue:[
-	    (f isReadable) ifTrue:[
+(f isReadable) ifTrue:[
-		(f isExecutable) ifTrue:[
+(f isExecutable) ifTrue:[
-		    path := currentDirectory pathName.
+path := currentDirectory pathName.
-		    previousDirectory := path.
+previousDirectory := path.
-		    "
+"
-		     remember where we are positioned in the fileList
+remember where we are positioned in the fileList
-		     (in case we want to return)
+(in case we want to return)
-		    "
+"
-		    idx := DirectoryHistory indexOf:path.
+idx := DirectoryHistory indexOf:path.
-		    idx ~~ 0 ifTrue:[
+idx ~~ 0 ifTrue:[
-			DirectoryHistoryWhere at:idx put:fileListView firstLineShown
+DirectoryHistoryWhere at:idx put:fileListView firstLineShown
-		    ].
+].
-		    updateHistory ifTrue:[
+updateHistory ifTrue:[
-			self addToHistory:path.
+self addToHistory:path.
-		    ].
+].
-		    self setCurrentDirectory:(f pathName).
+self setCurrentDirectory:(f pathName).
-		    "/ fetch the new path.
+"/ fetch the new path.
-		    path := currentDirectory pathName.
+path := currentDirectory pathName.
-		    "
+"
-		     if we have already been there, look for the
+if we have already been there, look for the
-		     position offset, and scroll the fileList
+position offset, and scroll the fileList
-		    "
+"
-		    idx := DirectoryHistory indexOf:path.
+idx := DirectoryHistory indexOf:path.
-		    idx ~~ 0 ifTrue:[
+idx ~~ 0 ifTrue:[
-			|pos|
+|pos|
-			pos := DirectoryHistoryWhere at:idx.
+pos := DirectoryHistoryWhere at:idx.
-			pos notNil ifTrue:[
+pos notNil ifTrue:[
-			    fileListView scrollToLine:pos.
+fileListView scrollToLine:pos.
-			]
+]
-		    ].
+].
-		    updateHistory ifTrue:[
+updateHistory ifTrue:[
-			self addToHistory:path.
+self addToHistory:path.
-		    ].
+].
-		    ^ self
+^ self
-		].
+].
-		msg := 'cannot change directory to ''%1'' !!'
+msg := 'cannot change directory to ''%1'' !!'
-	    ] ifFalse:[
+] ifFalse:[
-		msg := 'cannot read directory ''%1'' !!'
+msg := 'cannot read directory ''%1'' !!'
-	    ]
+]
-	] ifFalse:[
+] ifFalse:[
-	    OperatingSystem isVMSlike ifTrue:[
+OperatingSystem isVMSlike ifTrue:[
-		"/ cannot tell if it exists or is simply invisible ...
+"/ cannot tell if it exists or is simply invisible ...
-		msg := '''%1'' is not a directory or unreadable !!'
+msg := '''%1'' is not a directory or unreadable !!'
-	    ] ifFalse:[
+] ifFalse:[
-		msg := '''%1'' is not a directory !!'
+msg := '''%1'' is not a directory !!'
-	    ]
+]
-	].
+].
-	Dialog warn:(resources string:msg withCRs with:fileName).
+Dialog warn:(resources string:msg withCRs with:fileName).
 ]
 "Modified: / 18.9.1997 / 18:22:30 / stefan"
 "Modified: / 27.4.1999 / 17:10:14 / cg"
 !
 doCreateDirectory:newName
 |f|
 f := currentDirectory filenameFor:newName.
 f exists ifTrue:[
-	self warn:'%1 already exists.' with:newName.
+self warn:'%1 already exists.' with:newName.
-	^ self
+^ self
 ].
 f makeDirectory ifTrue:[
-	self updateCurrentDirectory
+self updateCurrentDirectory
 ] ifFalse:[
-	self showAlert:(resources string:'cannot create directory ''%1'' !!' with:newName)
+self showAlert:(resources string:'cannot create directory ''%1'' !!' with:newName)
-		  with:(OperatingSystem lastErrorString)
+with:(OperatingSystem lastErrorString)
 ]
 "Modified: / 18.9.1997 / 17:21:25 / stefan"
 "Modified: / 30.1.1999 / 16:24:12 / cg"
 !
 |newDirectory|
 aPathName isEmpty ifTrue:[^ self].
 newDirectory := currentDirectory filenameFor:aPathName.
 newDirectory isDirectory ifTrue:[
-	self currentDirectory:newDirectory.
+self currentDirectory:newDirectory.
-	currentFileName notNil ifTrue:[
+currentFileName notNil ifTrue:[
-	    fileListView contents:nil.
+fileListView contents:nil.
-	    currentFileName := nil.
+currentFileName := nil.
-	] ifFalse:[
+] ifFalse:[
-	    fileListView setSelection:nil.
+fileListView setSelection:nil.
-	    fileListView scrollToTop.
+fileListView scrollToTop.
-	].
+].
-	self updateCurrentDirectory.
+self updateCurrentDirectory.
-	self showInfo.
+self showInfo.
 ]
 "Modified: 21.9.1995 / 11:22:45 / claus"
 "Modified: 25.5.1996 / 12:27:01 / cg"
 "Modified: 18.9.1997 / 17:08:07 / stefan"
 !FileBrowser methodsFor:'private - encoding'!
 guessEncodingFrom:aBuffer
 "look for a string
-	encoding #name
+encoding #name
 or:
-	encoding: name
+encoding: name
 within the given buffer
 (which is usually the first few bytes of a textFile).
 If thats not found, use heuristics (in CharacterArray) to guess."
 |n "{Class: SmallInteger }"
 binary := false.
 n := aBuffer size.
 (idx := aBuffer findString:'charset=') ~~ 0 ifTrue:[
-	s := ReadStream on:aBuffer.
+s := ReadStream on:aBuffer.
-	s position:idx + 8.
+s position:idx + 8.
-	s skipSeparators.
+s skipSeparators.
-	w := s upToSeparator.
+w := s upToSeparator.
-	w notNil ifTrue:[
+w notNil ifTrue:[
-	    (idx := w indexOf:$") ~~ 0 ifTrue:[
+(idx := w indexOf:$") ~~ 0 ifTrue:[
-		w := w copyTo:idx-1
+w := w copyTo:idx-1
-	    ].
+].
-	    ^ w asSymbol
+^ w asSymbol
-	].
+].
 ].
 (idx := aBuffer findString:'encoding') ~~ 0 ifTrue:[
-	s := ReadStream on:aBuffer.
+s := ReadStream on:aBuffer.
-	s position:idx + 8.
+s position:idx + 8.
-	s skipSeparators.
+s skipSeparators.
-	s peek == $: ifTrue:[
+s peek == $: ifTrue:[
-	    s next.
+s next.
-	    s skipSeparators.
+s skipSeparators.
-	].
+].
-	s peek == $# ifTrue:[
+s peek == $# ifTrue:[
-	    s next.
+s next.
-	    s skipSeparators.
+s skipSeparators.
-	].
+].
-	w := s upToSeparator.
+w := s upToSeparator.
-	w notNil ifTrue:[
+w notNil ifTrue:[
-	    ^ w asSymbol
+^ w asSymbol
-	].
+].
 ].
 1 to:n do:[:i |
-	(aBuffer at:i) isPrintable ifFalse:[binary := true].
+(aBuffer at:i) isPrintable ifFalse:[binary := true].
 ].
 binary ifTrue:[
-	"/ look for JIS7 / EUC encoding
+"/ look for JIS7 / EUC encoding
-	enc := CharacterArray guessEncodingFrom:aBuffer.
+enc := CharacterArray guessEncodingFrom:aBuffer.
-	enc notNil ifTrue:[
+enc notNil ifTrue:[
-	    ^ enc
+^ enc
-	].
+].
-	"/ if the encoding has been set to any non iso setting,
+"/ if the encoding has been set to any non iso setting,
-	"/ assume its what we defined ...
+"/ assume its what we defined ...
-	(('iso*' match:fileEncoding) or:['ascii*' match:fileEncoding]) ifTrue:[
+(('iso*' match:fileEncoding) or:['ascii*' match:fileEncoding]) ifTrue:[
-	    ^ #binary
+^ #binary
-	].
+].
-	^ fileEncoding ? #binary
+^ fileEncoding ? #binary
 ].
 ^ #ascii
 "Created: 26.2.1996 / 17:43:08 / cg"
 "Modified: 1.7.1997 / 00:00:27 / cg"
 fontsEncoding := subView font encoding.
 pref := self preferredFontEncodingFor:newEncoding.
 (pref match:fontsEncoding) ifTrue:[
-	^ self
+^ self
 ].
 "/ stupid ...
 pref = 'ascii*' ifTrue:[
-	(fontsEncoding match:'iso8859*') ifTrue:[
+(fontsEncoding match:'iso8859*') ifTrue:[
-	    ^ self
+^ self
-	]
+]
 ].
 filter := [:f | |coding|
-		    (coding := f encoding) notNil
+(coding := f encoding) notNil
-		    and:[pref match:coding]].
+and:[pref match:coding]].
 defaultFont := TextView defaultFont onDevice:device.
 (pref match:(defaultFont encoding)) ifFalse:[
-	defaultFont := nil.
+defaultFont := nil.
 ].
 defaultFont isNil ifTrue:[
-	(pref = 'ascii*'
+(pref = 'ascii*'
-	or:[pref = 'iso8859*']) ifTrue:[
+or:[pref = 'iso8859*']) ifTrue:[
-	    defaultFont := FontDescription family:'courier' face:'medium' style:'roman' size:12
+defaultFont := FontDescription family:'courier' face:'medium' style:'roman' size:12
-	]
+]
 ].
 defaultFont isNil ifTrue:[
-	defaultFont := device
+defaultFont := device
-			    listOfAvailableFonts
+listOfAvailableFonts
-				detect:[:f | filter value:f]
+detect:[:f | filter value:f]
-				ifNone:nil.
+ifNone:nil.
-	defaultFont isNil ifTrue:[
+defaultFont isNil ifTrue:[
-	    "/ flush list, and refetch font list
+"/ flush list, and refetch font list
-	    "/ (in case someone just changed the font path ...)
+"/ (in case someone just changed the font path ...)
-	    device flushListOfAvailableFonts.
+device flushListOfAvailableFonts.
-	    defaultFont := device
+defaultFont := device
-				listOfAvailableFonts
+listOfAvailableFonts
-				    detect:[:f | filter value:f]
+detect:[:f | filter value:f]
-				    ifNone:nil.
+ifNone:nil.
-	].
+].
-	defaultFont isNil ifTrue:[
+defaultFont isNil ifTrue:[
-	    self warn:'your display does not seem to provide any ' , newEncoding , '-encoded font.'.
+self warn:'your display does not seem to provide any ' , newEncoding , '-encoded font.'.
-	    ^ self.
+^ self.
-	]
+]
 ].
 msg := 'switch to a %1 encoded font ?'.
 (ask not or:[self confirm:(resources string:msg with:pref) withCRs])
 ifTrue:[
-	self withWaitCursorDo:[
+self withWaitCursorDo:[
-	    f := FontPanel
+f := FontPanel
-		fontFromUserInitial:defaultFont
+fontFromUserInitial:defaultFont
-			      title:(resources string:'font selection')
+title:(resources string:'font selection')
-			     filter:filter.
+filter:filter.
-	    f notNil ifTrue:[
+f notNil ifTrue:[
-		subView font:f
+subView font:f
-	    ]
+]
-	]
+]
 ]
 "Created: 26.10.1996 / 12:06:54 / cg"
 "Modified: 30.6.1997 / 17:46:46 / cg"
 ! !
 |fileName|
 fileName := self getSelectedFileName.
 fileName notNil ifTrue:[
-	self doOpenFile:fileName viaDoubleClick:viaDoubleClick
+self doOpenFile:fileName viaDoubleClick:viaDoubleClick
 ]
 "Created: / 19.6.1996 / 09:39:07 / cg"
 "Modified: / 18.9.1997 / 17:35:31 / stefan"
 "Modified: / 4.2.1999 / 17:43:51 / cg"
 |commentStrings|
 commentStrings := self fileCommentStrings.
 commentStrings notNil ifTrue:[
-	subView perform:#commentStrings: with:commentStrings ifNotUnderstood:nil
+subView perform:#commentStrings: with:commentStrings ifNotUnderstood:nil
 ].
 "Modified: 7.1.1997 / 20:30:54 / cg"
 !
 'Readme.txt'
 'Info.txt'
 'info.txt'
 'INFO.TXT'
 ) do:[:f |
-	|n|
+|n|
-	n := currentDirectory construct:f.
+n := currentDirectory construct:f.
-	(n isReadable and:[n isDirectory not]) ifTrue:[
+(n isReadable and:[n isDirectory not]) ifTrue:[
-	    ^ f.
+^ f.
-	]
+]
 ].
 ^ nil
 "Modified: 3.8.1997 / 16:50:33 / cg"
 "Modified: 16.9.1997 / 15:26:53 / stefan"
 getModeString:modeBits
 "convert file-mode bits into a more user-friendly string.
 This is wrong here - should be moved into OperatingSystem."
 ^ self getModeString:modeBits
-		    with:#( 'owner:' $r $w $x
+with:#( 'owner:' $r $w $x
-			    ' group:' $r $w $x
+' group:' $r $w $x
-			    ' others:' $r $w $x )
+' others:' $r $w $x )
 !
 getModeString:modeBits with:texts
 "convert file-mode bits into a more user-friendly string.
 This is wrong here - should be moved into OperatingSystem."
 bits := modeBits bitAnd:8r777.
 modeString := ''.
 #( nil 8r400 8r200 8r100 nil 8r040 8r020 8r010 nil 8r004 8r002 8r001 )
 with: texts do:[:bitMask :access |
-	|ch|
+|ch|
-	bitMask isNil ifTrue:[
+bitMask isNil ifTrue:[
-	    modeString := modeString , (resources string:access)
+modeString := modeString , (resources string:access)
-	] ifFalse:[
+] ifFalse:[
-	    (bits bitAnd:bitMask) == 0 ifTrue:[
+(bits bitAnd:bitMask) == 0 ifTrue:[
-		ch := $-
+ch := $-
-	    ] ifFalse:[
+] ifFalse:[
-		ch := access
+ch := access
-	    ].
+].
-	    modeString := modeString copyWith:ch
+modeString := modeString copyWith:ch
-	]
+]
 ].
 ^ modeString
 !
 showInfo
 |info txt|
 info := self getInfoFile.
 info notNil ifTrue:[
-	txt := self readFile:info
+txt := self readFile:info
 ].
 self show:txt.
 !
 sizePrintString:size
 "
 ^ size printString.
 "
 unitString := ''.
 size < (500 * 1024) ifTrue:[
-	size < 1024 ifTrue:[
+size < 1024 ifTrue:[
-	    n := size
+n := size
-	] ifFalse:[
+] ifFalse:[
-	    n := (size * 10 // 1024 / 10.0).
+n := (size * 10 // 1024 / 10.0).
-	    unitString := ' Kb'
+unitString := ' Kb'
-	]
+]
 ] ifFalse:[
-	n := (size * 10 // 1024 // 1024 / 10.0).
+n := (size * 10 // 1024 // 1024 / 10.0).
-	unitString := ' Mb'
+unitString := ' Mb'
 ].
 ^ (n printStringLeftPaddedTo:5) , unitString.
 ! !
 !FileBrowser methodsFor:'private - file-I/O'!
 that symbol, and #decodeString: should be able to convert it."
 |f stream text msg sz|
 (f := fileName asFilename) isAbsolute ifFalse:[
-	f := (currentDirectory construct:fileName)
+f := (currentDirectory construct:fileName)
 ].
 stream := f readStream.
 stream isNil ifTrue:[
-	msg := (resources string:'cannot read file ''%1'' !!' with:fileName).
+msg := (resources string:'cannot read file ''%1'' !!' with:fileName).
-	self showAlert:msg with:(FileStream lastErrorString).
+self showAlert:msg with:(FileStream lastErrorString).
-	^ nil
+^ nil
 ].
 "
 for very big files, give ObjectMemory a hint, to preallocate more
 "
 (sz := stream fileSize) > 1000000 ifTrue:[
-	Processor activeProcess withPriority:Processor userBackgroundPriority do:[
+Processor activeProcess withPriority:Processor userBackgroundPriority do:[
-	    ObjectMemory announceSpaceNeed:(sz + (sz // 5)) "/ add 20% for tab expansion
+ObjectMemory announceSpaceNeed:(sz + (sz // 5)) "/ add 20% for tab expansion
-	].
+].
 ].
 text := self readStream:stream lineDelimiter:aCharacter encoding:encoding.
 stream close.
 ^ text
 text := StringCollection new.
 enc := encoding.
 enc == #iso8859 ifTrue:[
-	enc := nil
+enc := nil
 ].
 aCharacter == Character cr ifTrue:[
-	FileStream lineTooLongErrorSignal handle:[:ex |
+FileStream lineTooLongErrorSignal handle:[:ex |
-	    |s partialLine|
+|s partialLine|
-	    s := ex parameter at:1.
+s := ex parameter at:1.
-	    partialLine := ex parameter at:2.
+partialLine := ex parameter at:2.
-	    ex proceedWith:(partialLine , s upTo:aCharacter)
+ex proceedWith:(partialLine , s upTo:aCharacter)
-	] do:[
+] do:[
-	    [aStream atEnd] whileFalse:[
+[aStream atEnd] whileFalse:[
-		line := aStream nextLine withTabsExpanded.
+line := aStream nextLine withTabsExpanded.
-		enc notNil ifTrue:[
+enc notNil ifTrue:[
-		    line := line decodeFrom:enc
+line := line decodeFrom:enc
-		].
+].
-		text add:line
+text add:line
-	    ].
+].
-	].
+].
 ] ifFalse:[
-	[aStream atEnd] whileFalse:[
+[aStream atEnd] whileFalse:[
-	    line := (aStream upTo:aCharacter) withTabsExpanded.
+line := (aStream upTo:aCharacter) withTabsExpanded.
-	    enc notNil ifTrue:[
+enc notNil ifTrue:[
-		line := line decodeFrom:enc
+line := line decodeFrom:enc
-	    ].
+].
-	    text add:line
+text add:line
-	].
+].
 ].
 ^ text
 "Created: / 22.2.1996 / 14:58:25 / cg"
 "Modified: / 5.2.1999 / 00:53:22 / cg"
 showFile:fileName insert:insert encoding:encoding
 "show/insert contents of fileName in subView"
 ^ self
-	showFile:fileName insert:insert encoding:encoding doubleClick:false
+showFile:fileName insert:insert encoding:encoding doubleClick:false
 "Modified: 19.6.1996 / 09:40:19 / cg"
 !
 showFile:fileNameString insert:insert encoding:encoding doubleClick:viaDoubleClick
 "                   icon  name"
 tabSpec align:    #(#left #left).
 tabSpec addDependent:self.
 tabRulerView notNil ifTrue:[
-	tabRulerView tabulatorSpecification:tabSpec.
+tabRulerView tabulatorSpecification:tabSpec.
 ].
 "Created: / 17.4.1997 / 02:51:41 / cg"
 "Modified: / 27.7.1998 / 20:23:34 / cg"
 !
 "Modified: / 23.12.1999 / 22:28:00 / cg"
 !
 stopImageRenderProcess
 imageRenderProcess notNil ifTrue:[
-	imageRenderProcess terminate.
+imageRenderProcess terminate.
-	imageRenderProcess := nil
+imageRenderProcess := nil
 ].
 "Created: 19.4.1997 / 13:51:34 / cg"
 !
 stopUpdateProcess
 Processor removeTimedBlock:checkBlock.
 listUpdateProcess notNil ifTrue:[
-	listUpdateProcess terminate.
+listUpdateProcess terminate.
-	listUpdateProcess := nil.
+listUpdateProcess := nil.
 ].
 "Created: 19.4.1997 / 13:51:34 / cg"
 !
 |prevUid prevGid fileNameString nameString groupString
 modeString info line len
 anyImages lineIndex aFileName
 entry typ f p typeString done endIndex
 state stopAtEnd nextState img prevFirstLine prevLastLine
-numVisible dirSuffix prevWidth|
+numVisible dirSuffix prevWidth t|
 dirSuffix := Filename directorySuffix.
 dirSuffix size > 0 ifTrue:[
 dirSuffix := '.' , dirSuffix asLowercase.
 ].
 with:#( '' $r $w $x
 '  ' $r $w $x
 '  ' $r $w $x ).
 entry colAt:3 put:modeString.
-((info uid) ~~ prevUid) ifTrue:[
+showingTimeAndDate value ifTrue:[
-prevUid := (info uid).
+t := f isSymbolicLink
-nameString := OperatingSystem getUserNameFromID:prevUid.
+ifFalse:[f modificationTime]
-nameString := nameString contractTo:10.
+ifTrue:[f linkInfo modified].
-nameString := nameString , (String new:(10 - nameString size))
+entry colAt:4 put:t asDate printString.
+entry colAt:5 put:t asTime printString.
+] ifFalse:[
+((info uid) ~~ prevUid) ifTrue:[
+prevUid := (info uid).
+nameString := OperatingSystem getUserNameFromID:prevUid.
+nameString := nameString contractTo:10.
+nameString := nameString , (String new:(10 - nameString size))
+].
+nameString isNil ifTrue:[nameString := '???'].
+entry colAt:4 put:nameString withoutSpaces.
+((info gid) ~~ prevGid) ifTrue:[
+prevGid := (info gid).
+groupString := OperatingSystem getGroupNameFromID:prevGid.
+groupString := groupString contractTo:10.
+groupString := groupString , (String new:(10 - groupString size))
+].
+groupString isNil ifTrue:[groupString := '???'].
+entry colAt:5 put:groupString withoutSpaces.
 ].
-nameString isNil ifTrue:[nameString := '???'].
-entry colAt:4 put:nameString withoutSpaces.
-((info gid) ~~ prevGid) ifTrue:[
-prevGid := (info gid).
-groupString := OperatingSystem getGroupNameFromID:prevGid.
-groupString := groupString contractTo:10.
-groupString := groupString , (String new:(10 - groupString size))
-].
-groupString isNil ifTrue:[groupString := '???'].
-entry colAt:5 put:groupString withoutSpaces.
 (typ == #regular) ifTrue:[
 entry colAt:6 put:(self sizePrintString:(info size)).
 ].
 "
 "Modified: / 18.6.1998 / 15:27:35 / cg"
 !
-hasVisitHistory
-^ self class hasVisitHistory
-!
 path
 "return my currentDirectories pathName;
 sent from the pathField to aquire the pathname when I changed directory"
 "/ somewhat tricky: first ask it for the full pathName,
 ! !
 !FileBrowser class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.442 2001-11-19 08:07:03 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.443 2001-11-19 15:14:52 cg Exp $'
 ! !

changeset 3448	1310d33d3134
parent 3446	b32c20a49200
child 3454	3a6a5b6827a1