"{ Encoding: utf8 }"

"

 COPYRIGHT (c) 2002 by eXept Software AG

	      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.

"

"{ Package: 'stx:libtool' }"

"{ NameSpace: Smalltalk }"

AbstractFileBrowser subclass:#FileBrowserV2

	instanceVariableNames:'fileEntryFieldHolder pathEntryField previewProcess

		listOfDeviceDrives selectedDeviceDrive imgView lineLabel

		bookmarkBarVisibleHolder bookmarkHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Tools-File'

!

!FileBrowserV2 class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2002 by eXept Software AG

	      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

"

    FileBrowserV2 is based on Filebrowser

    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:]

	Christian Penk

    [start with:]

	FileBrowserV2 open

"

!

toDo

"

    - the tab for the directory description text editor is not changed if the

      directory description changes to a normal text editor

    - FileDialog should get a file history

    - directorycontentsItem isDirectory fails if it is a symbolic link

    - on sort order change in directory contents browser the columnspec shouldnt not reloaded

    - check all windowspecs with different font types

    - multiple select with mouse moving is flickering (see bestFilename in FilenameEditField)

    - too many system calls on update cycle

    - stop monitoring task for DirectoryTreebrowser and DirectoryContentsBrowser

"

! !

!FileBrowserV2 class methodsFor:'instance creation'!

on:aDirectoryPath

    "return a new FileBrowserV2 in a pathname.

     The browser is not yet open"

   ^ self new

        onDirectory:aDirectoryPath;

        yourself.

    "

     (self on:'/etc') open

    "

    "Modified: / 09-02-2017 / 11:35:29 / stefan"

!

open

    "start a new FileBrowserV2 (in the current directory)"

    | instance |

    instance := self new.

    instance open.

    ^ instance

    "

     FileBrowserV2 open.

     FileBrowserV2 openOn:(OrderedCollection with:(Filename currentDirectory asAbsoluteFilename)) withExtent:800@600

    "

!

openIn:aDirectoryPath

    "backward compatibility"

    ^ self openOn:aDirectoryPath

!

openOn:aFileOrDirectoryPath

    "start a new FileBrowserV2 on aFileOrDirectoryPath.

     if it represents a file, it is opened and shown for editing;

     if it represents a directory, the directory is shown."

    |fn|

    fn := aFileOrDirectoryPath asFilename.

    fn isDirectory ifFalse:[

        ^ self openOnFileNamed:aFileOrDirectoryPath

    ] ifTrue:[

        ^ self openOn:fn withExtent:nil

    ].

    "

     FileBrowserV2 openOn:(Filename currentDirectory asAbsoluteFilename)

     FileBrowserV2 openOn:'Makefile'

    "

    "Modified (comment): / 06-09-2012 / 14:46:54 / cg"

!

openOn:aDirectoryPath withExtent:extentOrNil

    "start a new FileBrowserV2 on aDirectoryPath"

    |instance builder|

    instance := self on:aDirectoryPath.

    builder := instance open.

    extentOrNil notNil ifTrue:[

        builder window extent:extentOrNil.

    ].

    ^ instance

    "

     FileBrowserV2 openOn:(Filename currentDirectory) withExtent:800@600

    "

    "Modified (comment): / 09-02-2017 / 11:40:25 / stefan"

!

openOnDirectory:aDirectoryPath

    "start a new FileBrowserV2 in a pathname"

    ^ self openOn:aDirectoryPath withExtent:nil

    "

     FileBrowserV2 

            openOn:(OrderedCollection 

                        with:(Filename currentDirectory asAbsoluteFilename)

                   ) 

            withExtent:800@600

    "

!

openOnFileNamed:aFilename

    "start a new FileBrowserV2 on a aFilename.

     The browser looks for an appropriate viewer and uses that if one is found;

     otherwise, the file is opened for text editing."

    ^ self openOnFileNamed:aFilename editing:true

    "

     FileBrowserV2 openOnFileNamed:'Makefile'

    "

!

openOnFileNamed:aFilename editing:editing

    "start a new FileBrowserV2 on a aFilename;

     If editing is true, the browser opens the document as text to be edited;

     if false, it looks for an appropriate viewer and uses that if one is found."

    |browser|

    browser := self new.

    browser openOnFileNamed:aFilename editing:editing.

    ^ browser

    "

     FileBrowserV2 openOnFileNamed:'Makefile'

    "

!

openWithAspects:someAspects withExtent:extent

    "start a new FileBrowserV2 taking aspects from a dictionary

     (internal interface - only for spawn)"

    |dir|

    dir := (someAspects at:#currentFileNameHolder ifAbsent:nil) value.

    (dir isNonByteCollection and:[dir notEmpty]) ifTrue:[

        dir := dir first.

    ].

    ^ self openOn:dir withExtent:extent.

    "Modified: / 09-02-2017 / 11:45:51 / stefan"

! !

!FileBrowserV2 class methodsFor:'class initialization'!

initialize

    "/ self installInLauncher.            - now done in phase 2

    ObjectMemory addDependent:self.

!

installInLauncher

    "add myself to the launcher menu and toolBar"

    |menuItem icon action currentLauncher|

    FileBrowserV2 isNil ifTrue:[^ self].

    "JV@2012-04-03: Changed to reflect UserPreferences"

    "/action := (MessageSend receiver:(Smalltalk at:self name) selector:#open).

    action := [ UserPreferences fileBrowserClass open].

    icon := [self defaultIcon]. "/ self defaultIcon magnifiedTo:28@28.

"/ already there

"/    menuItem := MenuItem new

"/                    translateLabel: true;

"/                    value: action;

"/                    isButton: false;

"/                    label:'File Browser' icon:icon;

"/                    nameKey: #fileBrowserV2;

"/                    activeHelpKey: #fileBrowserV2;

"/                    submenuChannel: #menuFileHistory;

"/                    showBusyCursorWhilePerforming:true.

"/

"/    NewLauncher

"/        addMenuItem:menuItem

"/        from:self

"/        in:'menu.file'

"/        position:#( #before #fileBrowser)

"/        space:true.

    menuItem := MenuItem new

                    itemValue: action;

                    isButton: true;

                    "label:'File Browser'" icon:icon;

                    nameKey: #fileBrowserV2;

                    activeHelpKey: #fileBrowserV2;

                    submenuChannel: #menuFileHistory;

                    showBusyCursorWhilePerforming:true.

    NewLauncher

        addMenuItem:menuItem

        from:self

        in:'toolbar'

        position:#( #before #fileBrowser)

        space:false.

    currentLauncher := NewLauncher current.

    currentLauncher notNil ifTrue:[

        currentLauncher fileBrowserItemVisible value:false

    ].

    NewLauncher addSettingsApplicationByClass:#'FileBrowserV2SettingsAppl'

                withName:'Tools/FileBrowserV2'

                icon:nil.

    "

     self installInLauncher

     self removeFromLauncher

    "

    "Modified: / 03-04-2012 / 11:06:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

removeFromLauncher

    "remove myself from the launcher's menu & settings dialog"

    |currentLauncher|

    NewLauncher isNil ifTrue:[^ self].

    NewLauncher removeUserTool:#fileBrowserV2.

    currentLauncher := NewLauncher current.

    currentLauncher notNil ifTrue:[

        currentLauncher fileBrowserItemVisible value:false

    ].

    NewLauncher removeSettingsApplicationByClass:#'FileBrowserV2SettingsAppl'.

    "

     self removeFromLauncher

    "

!

update:something with:aParameter from:changedObject

    something == #initialized ifTrue:[

	changedObject == ObjectMemory ifTrue:[

	    self installInLauncher.

	    ObjectMemory removeDependent:self.

	]

    ].

! !

!FileBrowserV2 class methodsFor:'defaults'!

entryFieldEndStringForMultipleSelection

    ^ ('[*]')

! !

!FileBrowserV2 class methodsFor:'help specs'!

flyByHelpSpec

    "This resource specification was automatically generated

     by the UIHelpTool of ST/X."

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

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

    "

     UIHelpTool openOnClass:FileBrowserV2

    "

    <resource: #help>

    ^ super flyByHelpSpec addPairsFrom:#(

#columnLabel

'The text-cursor''s column number'

#lineAndColumnLabel

'The text-cursor''s line and column number'

#encodingLabel

'The file''s encoding (Right-click to change)'

#encodingLockedLabel

'Lock the file-encoding (do not try to guess from the file''s contents)'

#fileFilter

'Only show files matching the pattern.\Separate multiple patterns by ";".\Patterns starting with "~" are excluding.'

#lineLabel

'The text-cursor''s line number. Double-click to change'

#modeLabel

'The editing mode (Insert vs. overwrite)'

#numberOfFiles

'Number of files shown (Total number of files in directory)'

)

    "Modified: / 06-10-2011 / 14:37:12 / cg"

! !

!FileBrowserV2 class methodsFor:'image specs'!

applicationIcon

    ^ self defaultIcon

!

closePreviewButtonImage

      ^ ToolbarIconLibrary removeTabIcon

!

defaultIcon

    <resource: #programImage>

    ^ ToolbarIconLibrary startNewFileBrowserIcon

!

encodingLockIcon

    <resource: #programImage>

    ^ ToolbarIconLibrary encodingLockIcon

!

hideFilenameEntryFieldIcon

    <resource: #programImage>

    ^ ToolbarIconLibrary hideToolbarIconH14

!

hideToolBarIcon

    <resource: #programImage>

    ^ ToolbarIconLibrary hideToolbarIconH26

! !

!FileBrowserV2 class methodsFor:'interface specs'!

windowSpec

    "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:FileBrowserV2 andSelector:#windowSpec

     FileBrowserV2 new openInterface:#windowSpec

     FileBrowserV2 open

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: windowSpec

       window: 

      (WindowSpec

         label: FileBrowser

         name: FileBrowser

         min: (Point 10 10)

         bounds: (Rectangle 0 0 800 600)

         menu: mainMenu

         icon: defaultIcon

       )

       component: 

      (SpecCollection

         collection: (

          (ViewSpec

             name: 'ToolbarBox'

             layout: (LayoutFrame 0 0 0 0 0 1 40 0)

             level: 0

             visibilityChannel: toolBarVisibleHolder

             component: 

            (SpecCollection

               collection: (

                (ActionButtonSpec

                   label: 'hideToolBarIcon'

                   name: 'HideToolBarButton'

                   layout: (LayoutFrame 0 0 0 0 13 0 40 0)

                   activeHelpKey: hideToolBar

                   hasCharacterOrientedLabel: false

                   translateLabel: true

                   model: hideToolbar

                   postBuildCallback: hideToolBarButtonCreated:

                 )

                (MenuPanelSpec

                   name: 'ToolBar'

                   layout: (LayoutFrame 13 0 0 0 0 1 40 0)

                   menu: toolBarMainMenu

                   textDefault: true

                 )

                )

             )

           )

          (ViewSpec

             name: 'BookmarkBar'

             layout: (LayoutFrame 0 0 40 0 0 1 66 0)

             visibilityChannel: bookmarkBarVisibleHolder

             component: 

            (SpecCollection

               collection: (

                (ActionButtonSpec

                   label: 'hideToolBarIcon'

                   name: 'Button1'

                   layout: (LayoutFrame 0 0 0 0 13 0 0 1)

                   activeHelpKey: hideBookmarks

                   hasCharacterOrientedLabel: false

                   translateLabel: true

                   model: hideBookmarkBar

                   postBuildCallback: hideToolBarButtonCreated:

                 )

                (SubCanvasSpec

                   name: 'Bookmarks'

                   layout: (LayoutFrame 13 0 0 0 0 1 0 1)

                   level: 1

                   hasHorizontalScrollBar: false

                   hasVerticalScrollBar: false

                   miniScrollerHorizontal: false

                   majorKey: BookmarkBar

                   subAspectHolders: