"

 COPYRIGHT (c) 1991 by Claus Gittinger

	      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

 other person.  No title to or ownership of the software is

 hereby transferred.

"

StandardSystemView subclass:#FileBrowser

	instanceVariableNames:'labelView filterField fileListView subView currentDirectory

		fileList checkBlock checkDelta timeOfLastCheck myName killButton

		pauseToggle compressTabs lockUpdate previousDirectory

		currentFileName timeOfFileRead tabSpec commandView commandIndex

		fileEncoding tabRulerView scrollView icons listUpdateProcess

		currentFileInFileName lastFileDiffDirectory sortByWhat

		sortCaseless showingDetails showingHiddenFiles'

	classVariableNames:'DirectoryHistory DirectoryHistoryWhere HistorySize DefaultIcon

		CommandHistory CommandHistorySize Icons DefaultCommandPerSuffix'

	poolDictionaries:''

	category:'Interface-Browsers'

!

!FileBrowser class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1991 by Claus Gittinger

	      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

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    this used to be a very simple demo application,

    but migrated into a quite nice tool, includes all kinds of 

    warning and information boxes, background processes for directory-

    reading and internationalized strings. A good example for beginners,

    on how to do things .... (and maybe how not to do things ;-, since some

    stuff is historic and was implemented at times when better mechanisms

    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

	     positions (for example, sendmail-config files) they will be

	     corrupt after being written.

    [instance variables]:

	checkDelta      <Integer>       number of seconds of check interval

					(looks ever so often if shown directory

					 has changed). You may make this number

					higher, if your network-times are

					incorrect and thus, the filebrowser

					checks too often.

	compressTabs    <Boolean>       if true, leading spaces will be

					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

"

! !

!FileBrowser class methodsFor:'instance creation'!

openOn:aDirectoryPath

    "start a new FileBrowser in a pathname"

    ^ (self new currentDirectory:aDirectoryPath) open

    "

     FileBrowser openOn:'aDirectoryPath'

     FileBrowser openOn:'/etc'

     FileBrowser openOn:'..'

     FileBrowser openOn:'.'

    "

!

openOnFileNamed:aFilename

    "start a new FileBrowser on a file"

    |f browser|

    f := aFilename asFilename.

    f isDirectory ifTrue:[

	^ self openOn:aFilename

    ].

    browser := self new.

    browser currentDirectory:f directoryName.

    browser updateCurrentDirectory.

    browser showFile:f baseName.

    ^ browser open.

    "

     FileBrowser openOnFileNamed:'Makefile'

     FileBrowser openOnFileNamed:'../Makefile'

     FileBrowser openOnFileNamed:'/tmp/foo'

    "

    "Modified: / 17.6.1998 / 11:25:29 / cg"

! !

!FileBrowser class methodsFor:'class initialization'!

initializeIcons

    |resources|

    resources := self classResources.

    Icons := Dictionary new.

    #(

	"/ internal-type to icon mappings.

	(#directory       'ICON_DIRECTORY'        'tiny_yellow_dir.xpm'       )

	(#directoryLocked 'ICON_DIRECTORY_LOCKED' 'tiny_yellow_dir_locked.xpm')

	(#directoryLink   'ICON_DIRECTORY_LINK'   'tiny_yellow_dir_link.xpm'  )

	(#file            'ICON_FILE'             'tiny_file_plain.xpm'       )

	(#fileLink        'ICON_FILE_LINK'        'tiny_file_link.xpm'        )

	(#fileLocked      'ICON_FILE_LOCKED'      'tiny_file_lock.xpm'        )

	(#imageFile       'ICON_IMAGE_FILE'       'tiny_file_pix.xpm'         )

	(#textFile        'ICON_TEXT_FILE'        'tiny_file_text.xpm'        )

	(#executableFile  'ICON_EXECUTABLEFILE'   'tiny_file_exec.xpm'        )

	"/ mime-type to icon mappings.

	('text/plain'                     nil     'tiny_file_text.xpm'        )

	('text/html'                      nil     'tiny_file_text.xpm'        )

	('application/x-smalltalk-source' nil     'tiny_file_st.xpm'          )

     ) do:[:entry |

	|key resource defaultName nm|

	key := entry at:1.

	resource := entry at:2.

	defaultName := entry at:3.

	resource notNil ifTrue:[

	    nm := resources at:resource default:nil.

	].

	nm isNil ifTrue:[

	    nm := 'bitmaps/xpmBitmaps/document_images/' , defaultName

	].

	Icons at:key put:(Image fromFile:nm).

    ]

    "

     self initializeIcons

    "

    "Modified: / 1.8.1998 / 17:39:27 / cg"

! !

!FileBrowser class methodsFor:'command history'!

addToCommandHistory:aCommandString for:aFilename

    |cmd suffix|

    (aCommandString notNil and:[aCommandString notEmpty]) ifTrue:[

	CommandHistory notNil ifTrue:[

	    CommandHistory addFirst:aCommandString.

	    CommandHistory size > CommandHistorySize ifTrue:[

		CommandHistory removeLast

	    ]

	].

	aFilename notNil ifTrue:[

	    cmd := aCommandString copyTo:(aCommandString indexOf:Character space ifAbsent:[aCommandString size + 1])-1.

	    DefaultCommandPerSuffix isNil ifTrue:[

		DefaultCommandPerSuffix := Dictionary new.

	    ].

	    suffix := aFilename asFilename suffix.

	    suffix notNil ifTrue:[

		DefaultCommandPerSuffix at:suffix put:cmd.

	    ]

	]

    ]

    "Created: 14.11.1996 / 14:58:13 / cg"

! !

!FileBrowser class methodsFor:'defaults'!

defaultIcon

    "return the file browsers default window icon"

    <resource: #style (#FILEBROWSER_ICON #FILEBROWSER_ICON_FILE)>

    |nm i res|

    (i := DefaultIcon) isNil ifTrue:[

	res := self classResources.

	i := res at:'FILEBROWSER_ICON' default:nil.

	i isNil ifTrue:[

	    nm := res at:'FILEBROWSER_ICON_FILE' default:'FBrowser.xbm'.

	    i := Image fromFile:nm resolution:100.

	    i isNil ifTrue:[

		i := Image fromFile:('bitmaps/' , nm) resolution:100.

		i isNil ifTrue:[

		    i := StandardSystemView defaultIcon

		]

	    ]

	].

	i notNil ifTrue:[

	    DefaultIcon := i := i on:Display

	]

    ].

    ^ i

    "Modified: 19.3.1997 / 20:48:34 / ca"

    "Modified: 15.8.1997 / 15:27:19 / cg"

! !

!FileBrowser class methodsFor:'interface specs'!

fileSearchDialogSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:FileBrowser andSelector:#fileSearchDialogSpec

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #window: 

           #(#WindowSpec

              #name: 'File Search'

              #layout: #(#LayoutFrame 216 0 173 0 527 0 472 0)

              #label: 'File Search'

              #min: #(#Point 10 10)

              #max: #(#Point 1280 1024)

              #bounds: #(#Rectangle 216 173 528 473)

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: 

               #(

                 #(#HorizontalPanelViewSpec

                    #name: 'HorizontalPanel1'

                    #layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 0 1.0)

                    #component: 

                     #(#SpecCollection

                        #collection: 

                         #(

                           #(#ActionButtonSpec

                              #name: 'Button1'

                              #label: 'Cancel'

                              #translateLabel: true

                              #model: #cancel

                              #extent: #(#Point 151 22)

                          )

                           #(#ActionButtonSpec

                              #name: 'Button2'

                              #label: 'Search'

                              #translateLabel: true

                              #model: #accept

                              #extent: #(#Point 152 25)

                          )

                        )

                    )

                    #horizontalLayout: #fitSpace

                    #verticalLayout: #center

                    #horizontalSpace: 3

                    #verticalSpace: 3

                )

                 #(#LabelSpec

                    #name: 'Label1'

                    #layout: #(#LayoutFrame 0 0 10 0 300 0 32 0)

                    #label: 'Search for files named:'

                    #translateLabel: true

                    #adjust: #left

                )

                 #(#InputFieldSpec

                    #name: 'EntryField1'

                    #layout: #(#LayoutFrame 10 0 40 0 305 0 62 0)

                    #model: #namePatternHolder

                )

                 #(#CheckBoxSpec

                    #name: 'CheckBox1'

                    #layout: #(#LayoutFrame 10 0 70 0 146 0 92 0)

                    #model: #ignoreCaseInName

                    #label: 'Ignore case'

                    #translateLabel: true

                )

                 #(#LabelSpec

                    #name: 'Label2'

                    #layout: #(#LayoutFrame 0 0 119 0 300 0 141 0)

                    #label: 'Containing the string:'

                    #translateLabel: true

                    #adjust: #left

                )

                 #(#InputFieldSpec

                    #name: 'EntryField2'

                    #layout: #(#LayoutFrame 10 0 149 0 305 0 171 0)

                    #model: #contentsPatternHolder

                )

                 #(#CheckBoxSpec

                    #name: 'CheckBox2'

                    #layout: #(#LayoutFrame 10 0 179 0 146 0 201 0)

                    #model: #ignoreCaseInContents

                    #label: 'Ignore case'

                    #translateLabel: true

                )

              )

          )

      )

    "Modified: / 15.10.1998 / 11:30:02 / cg"

! !

!FileBrowser class methodsFor:'menu specs'!

baseDirectoryMenuSpec

    "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: #menu>

    ^

       #(#Menu

	   #(

	     #(#MenuItem

		#label: 'Copy Path'

		#translateLabel: true

		#value: #copyPath

	    )

	     #(#MenuItem

		#label: '-'

	    )

	     #(#MenuItem

		#label: 'Up'

		#translateLabel: true

		#value: #changeToParentDirectory

		#enabled: #currentDirectoryIsNotTop

	    )

	     #(#MenuItem

		#label: 'Back'

		#translateLabel: true

		#value: #changeToPreviousDirectory

	    )

	     #(#MenuItem

		#label: 'Home'

		#translateLabel: true

		#value: #changeToHomeDirectory

	    )

	     #(#MenuItem

		#label: 'Default'

		#translateLabel: true

		#value: #changeToDefaultDirectory

	    )

	     #(#MenuItem

		#label: 'Goto...'

		#translateLabel: true

		#value: #changeCurrentDirectory

	    )

	  ) nil

	  nil

      )

    "Created: / 4.8.1998 / 17:21:16 / cg"

    "Modified: / 14.8.1998 / 19:19:06 / cg"

!

directoryMenuSpec

    "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>

    |base|

    base := self baseDirectoryMenuSpec.

    base := base decodeAsLiteralArray.

    "/ add the history items ...

    DirectoryHistory size > 0 ifTrue:[

	base addItem:(MenuItem labeled:'-').

	DirectoryHistory do:[:dirName |

	    base addItem:((MenuItem label:dirName value:#changeDirectoryTo:)

			    argument:dirName;

			    yourself).

	].

    ].

    ^ base

    "Modified: / 17.8.1998 / 10:13:05 / cg"

!

menuPopUp

    "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:#menuPopUp

     (Menu new fromLiteralArrayEncoding:(FileBrowser menuPopUp)) startUp

    "

    <resource: #menu>

    ^

       #(#Menu

           #(

             #(#MenuItem

                #label: 'Spawn'

                #translateLabel: true

                #value: #fileSpawn

            )

             #(#MenuItem

                #label: '-'

            )

             #(#MenuItem

                #label: 'Get Contents'

                #translateLabel: true

                #value: #fileGet

                #enabled: #hasSelection

            )

             #(#MenuItem

                #label: 'Insert Contents'

                #translateLabel: true

                #value: #fileInsert

                #enabled: #hasSelection

            )

             #(#MenuItem

                #label: 'FileIn'

                #translateLabel: true

                #value: #fileFileIn

                #enabled: #hasSelection

            )

             #(#MenuItem

                #label: '-'

            )

             #(#MenuItem

                #label: 'Unix Command...'

                #translateLabel: true

                #isVisible: #systemIsUnix

                #value: #menuOSCommand

            )

             #(#MenuItem

                #label: 'DOS Command...'

                #translateLabel: true

                #isVisible: #systemIsDOS

                #value: #menuOSCommand

            )

             #(#MenuItem

                #label: 'VMS Command...'

                #translateLabel: true