"

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

AbstractFileBrowser subclass:#FileBrowserV2

	instanceVariableNames:'fileEntryFieldHolder pathEntryField previewProcess

		listOfDeviceDrives selectedDeviceDrive imgView lineLabel'

	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"

    |instance|

    instance := self new.

    instance onDirectory:aDirectoryPath.

    ^ instance

!

open

    "start a new FileBrowserV2"

    | instance |

    instance := self new.

    instance open.

    ^ instance

    "

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

    "

!

openIn:aDirectoryPath 

    "backward compatibility"

    ^ self openOn:aDirectoryPath

!

openOn:aFileOrDirectoryPath 

    "start a new FileBrowserV2 in a pathname"

    |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 in a pathname"

    |instance builder|

    instance := self on:aDirectoryPath.

    builder := instance open.

    extentOrNil notNil ifTrue:[

        builder window extent:extentOrNil.

    ].

    ^ instance

    "

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

    "

!

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 in a pathname"

    |dir clone|

    dir := someAspects at:#currentFileNameHolder ifAbsent:nil.

    clone := self openOn:(dir value) withExtent:extent.

    ^ clone

! !

!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 current fileBrowserClass open].

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

    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

		    translateLabel: true;

		    value: 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 menu

    "/

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

#encodingLabel

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

#encodingLockedLabel

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

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

!

helpSpec

    "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 helpSpec addPairsFrom:#(

#addTerminal

''

#make

''

)

! !

!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: 'FilenameEntryFieldBox'

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

	      level: 0

	      visibilityChannel: filenameEntryFieldVisibleHolder

	      component:

	     (SpecCollection

		collection: (

		 (ActionButtonSpec

		    label: 'hideFilenameEntryFieldIcon'

		    name: 'HideFilenameEntryFieldButton'

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

		    activeHelpKey: hideFilenameEntryField

		    hasCharacterOrientedLabel: false

		    translateLabel: true

		    model: hideFilenameEntryField

		    postBuildCallback: hideFilenameEntryFieldButtonCreated:

		  )

		 (HorizontalPanelViewSpec

		    name: 'HorizontalPanel1'

		    layout: (LayoutFrame 13 0.0 0 0.0 0 1.0 0 1.0)

		    level: 1

		    horizontalLayout: leftFit

		    verticalLayout: fit

		    horizontalSpace: 3

		    verticalSpace: 3

		    component: