"

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

ApplicationModel subclass:#AbstractFileBrowser

        instanceVariableNames:'aspects'

        classVariableNames:'VisitedDirectories RuntimeAspects DirectoryBookmarks

                LastEnforcedNameSpace CommandHistory DefaultCommandPerSuffix

                CommandHistorySize LastFileDiffFile DefaultFilters RootHolder

                LastFileSelection LastMoveDestination LastScriptBlockString

                LastMustMatchPattern LastFileDiffDirectory

                LastMercurialRepository'

        poolDictionaries:''

        category:'Interface-Tools-File'

!

AbstractFileBrowser class instanceVariableNames:'DisabledCursorImage EnabledCursorImage'

"

 The following class instance variables are inherited by this class:

        ApplicationModel - ClassResources

        Model - 

        Object - 

"

!

Object subclass:#Clipboard

        instanceVariableNames:'method files'

        classVariableNames:''

        poolDictionaries:''

        privateIn:AbstractFileBrowser

!

Object subclass:#CodeExecutionLock

        instanceVariableNames:'locked'

        classVariableNames:''

        poolDictionaries:''

        privateIn:AbstractFileBrowser

!

List subclass:#DirectoryHistory

        instanceVariableNames:'forwardList backList lastWasForwardPath lastBackPath lastAddPath

                backForwardList backForwardIndex historySize'

        classVariableNames:'HistorySize'

        poolDictionaries:''

        privateIn:AbstractFileBrowser

!

Object subclass:#DirectoryHistoryItem

        instanceVariableNames:'path position'

        classVariableNames:''

        poolDictionaries:''

        privateIn:AbstractFileBrowser::DirectoryHistory

!

Object subclass:#SaveAspectItem

        instanceVariableNames:'value isHolder'

        classVariableNames:''

        poolDictionaries:''

        privateIn:AbstractFileBrowser

!

!AbstractFileBrowser 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

"

    [Author:]

        Christian Penk

    Notice: this certainly needs a redesign - all those abstract-abstract classes which

    define stuff which is only needed in some parts makes this hard to understand.

    Especially the fact, that AbstractFileBrowser defines things both as abstract superclass

    and as a container is almost incomprehensable...

"

! !

!AbstractFileBrowser class methodsFor:'accessing'!

currentSelection

    LastFileSelection isNil ifTrue:[

        LastFileSelection := #().

    ].

    ^ LastFileSelection

!

currentSelection:aFilenameCol

    aFilenameCol notEmptyOrNil ifTrue:[

        LastFileSelection := aFilenameCol collect:[:file | (file ? '') asFilename]

    ]

!

directoryHistory

    VisitedDirectories isNil ifTrue:[

        VisitedDirectories := self directoryHistoryClass new.

        "/ VisitedDirectories inspect.

    ].

    ^ VisitedDirectories

    "Modified: / 21-11-2012 / 08:45:49 / cg"

!

resetClassVars

    VisitedDirectories := nil.

    LastFileSelection := nil.

    "

     AbstractFileBrowser resetClassVars

    "

    "Modified: / 21-11-2012 / 08:45:53 / cg"

!

rootHolder

    ^ RootHolder

!

rootHolder:aRoot

    RootHolder := aRoot

! !

!AbstractFileBrowser class methodsFor:'accessing-bookmarks'!

addBookmark:aDirectoryPath

    "add aDirectoryPath to the list of our known bookmarks.

     Do not add duplicates."

    |bookmarks|

    bookmarks := self directoryBookmarks.

    (bookmarks includes:aDirectoryPath) ifFalse:[

        bookmarks add:aDirectoryPath asFilename.

    ].

!

bookmarksFrom:aFileNameOrString

    |bookmarks s fileName line|

    fileName := aFileNameOrString asFilename.

    [

        s := fileName readStream.

    ] on:OpenError do:[:ex|

        ^ nil.

    ].

    bookmarks := OrderedCollection new.

    [s atEnd] whileFalse:[

        line := s nextLine.

        (line startsWith:';') ifFalse:[

            bookmarks add:(Base64Coder decode:line) asString.

        ]

    ].

    s close.

    ^ bookmarks

!

defaultBookMarksFileDirectory

    "the directory, where the default bookmarks are stored (as defaultBookMarksFilename)"

    ^ Filename homeDirectory

!

defaultBookMarksFilename

    "the filename, in which the default bookmarks are stored (in defaultBookMarksDirectory)"

    ^ '.fileBrowserBookmarks'

!

directoryBookmarks

    DirectoryBookmarks isNil ifTrue:[                     

        self loadBookmarksFrom:(self defaultBookMarksFileDirectory construct:self defaultBookMarksFilename).

        DirectoryBookmarks isEmptyOrNil ifTrue:[

            DirectoryBookmarks := OrderedCollection new.

            DirectoryBookmarks add:Filename homeDirectory asAbsoluteFilename.

            DirectoryBookmarks add:Filename currentDirectory asAbsoluteFilename.

        ]

    ].

    ^ DirectoryBookmarks

    "

     DirectoryBookmarks := nil.

     self directoryBookmarks.

    "

!

directoryBookmarks: collectionOfFilenames

    DirectoryBookmarks := collectionOfFilenames.

    self saveBookmarksInDefaultBookmarksFile.

!

editBookmarksWithDefault: aFilenameOrNil

    | oldBookmarks newBookmarks |

    oldBookmarks := self directoryBookmarks copy.

    newBookmarks := BookmarksEditDialog openWith: oldBookmarks defaultBookmark: aFilenameOrNil.

    newBookmarks isNil ifTrue:[^ self].

    self directoryBookmarks: newBookmarks.

    "Modified: / 13-01-2011 / 12:52:28 / cg"

!

hasBookmarks

    ^ self directoryBookmarks notEmptyOrNil

!

loadBookmarksFrom:aFileNameOrString

    |bookmarks|

    bookmarks := self bookmarksFrom: aFileNameOrString.

    bookmarks isNil ifTrue:[^ self].

    DirectoryBookmarks := OrderedCollection new.

    bookmarks do:[:eachPath |

        self addBookmark:eachPath asFilename

    ].

!

removeBookmark:aDirectoryPath

    |bookmarks|

    bookmarks := self directoryBookmarks.

    bookmarks isEmptyOrNil ifTrue:[ ^ self].

    bookmarks remove:aDirectoryPath ifAbsent:[].

!

saveBookmarks

    |fn|

    fn := Dialog 

            requestFileNameForSave:(self resources string:'Save Bookmarks')

            default:(self defaultBookMarksFilename)

            fromDirectory:(self defaultBookMarksFileDirectory).

    fn isEmptyOrNil ifTrue:[^ self].

    self saveBookmarksIn:fn

    "Modified: / 27-10-2010 / 11:27:09 / cg"

!

saveBookmarks: bookmarks in:aFileNameOrString

    "save the bokmarks in aFileNameOrString.

     Use Base64 coding"

    |bookmarkStream fileName coder|

    fileName := aFileNameOrString asFilename.

    fileName exists ifTrue:[

        fileName renameTo:(fileName addSuffix:'sav').

    ].

    bookmarkStream := fileName writeStream.

    "save each bookmark in one line"

    coder := (Base64Coder on:bookmarkStream) lineLimit:nil.

    bookmarks do:[:eachPath |

        eachPath asFilename pathName acceptVisitor:coder.

        coder flush.

        bookmarkStream cr.

    ].

    bookmarkStream syncData; close.

!

saveBookmarksIn:aFileNameOrString

    "save the bokmarks in aFileNameOrString.

     Use Base64 coding"

    | bookmarks |

    bookmarks := self directoryBookmarks.

    self saveBookmarks: bookmarks in:aFileNameOrString

!

saveBookmarksInDefaultBookmarksFile

    self saveBookmarksIn:(self defaultBookMarksFileDirectory construct:self defaultBookMarksFilename)

! !

!AbstractFileBrowser class methodsFor:'accessing-classes'!

directoryHistoryClass

    ^ DirectoryHistory

    "Modified: / 21-11-2012 / 08:46:34 / cg"

! !

!AbstractFileBrowser class methodsFor:'defaults'!

commandHistory

    CommandHistory isNil ifTrue:[

        CommandHistory := OrderedCollection new.

    ].

    ^ CommandHistory

!

commandHistorySize

    "max no of entries in the HistoryList "

    CommandHistorySize isNil ifTrue:[

        CommandHistorySize := 150

    ].

    ^ CommandHistorySize

!

defaultFilterList

    DefaultFilters isNil ifTrue:[

        DefaultFilters := #(        '*'

                                    '*.st' 

                                    '*.[h,c]*' 

                                    '*.txt; *.htm*' 

                                    '*.gif; *.xpm; *.jpg; *.png' 

                                    '~*o; ~*.obj; ~*.dll;' 

                                )

    ].

    ^ DefaultFilters.

    "

     DefaultFilters := nil

    "

!

initialCommandFor:fileName in:aDirectory intoBox:aBox

    "set a useful initial command in an execute box."

    |mime cmd select path suffix baseName pathName|

    path := aDirectory filenameFor:fileName.

    baseName := path baseName.

    suffix := path suffix.

    mime := MIMETypes mimeTypeForSuffix:suffix.

"/    mime notNil ifTrue:[

"/        cmd := self initialCommandForMIME:mime file:path

"/    ].

    "/ XXX should be changed to take stuff from a config file

    "/ XXX or from resources.

    (path type == #regular) ifTrue:[

        path isExecutableProgram ifTrue:[

            aBox initialText:(path pathName , ' <arguments>').

            ^ self

        ].

        select := true.

        "some heuristics - my personal preferences ...

         (actually this should come from a configfile)"

        (baseName endsWith:'akefile') ifTrue:[

            aBox initialText:'make target' selectFrom:6 to:11.

            ^ self

        ].

        cmd := MIMETypes defaultCommandPerMIME at:mime ifAbsent:nil.

        cmd notNil ifTrue:[

            select := false

        ].

        cmd isNil ifTrue:[

            suffix := path suffix.

            (suffix = 'C') ifTrue:[

                cmd := 'g++ -c %1'.

                select := 6.

            ] ifFalse:[

                suffix := suffix asLowercase.

                (suffix = 'taz') ifTrue:[

                    aBox initialText:'zcat %1 | tar tvf -'.

                    select := false.

                ].

                (suffix = 'tar') ifTrue:[

                    cmd := 'tar tvf %1'.

                    select := 7.

                ].

                (suffix = 'zoo') ifTrue:[

                    cmd := 'zoo -list %1'.

                    select := 9.

                ].

                (suffix = 'zip') ifTrue:[

                    cmd := 'unzip -l %1'.

                    select := 8.

                ].

                (suffix = 'jar') ifTrue:[

                    cmd := 'unzip -l %1'.

                    select := 8.

                ].

                (suffix = 'z') ifTrue:[

                    (baseName asLowercase endsWith:'tar.z') ifTrue:[

                        cmd := 'zcat %1 | tar tvf -'.

                        select := false.

                    ] ifFalse:[

                        cmd := 'uncompress %1'

                    ].

                ].

                (suffix = 'gz') ifTrue:[

                    (baseName asLowercase endsWith:'tar.gz') ifTrue:[

                        cmd := ('gunzip < %1 | tar tvf -' ).

                        select := false.

                    ] ifFalse:[

                        cmd := 'gunzip %1'.

                    ].

                ].

                (suffix = 'html') ifTrue:[

                    cmd := 'netscape %1'

                ].

                (suffix = 'htm') ifTrue:[

                    cmd := 'netscape %1'

                ].

                (suffix = 'uue') ifTrue:[

                    cmd := 'uudecode %1'

                ].

                (suffix = 'c') ifTrue:[

                    cmd := 'cc -c %1'.

                    select := 5.

                ].

                (suffix = 'cc') ifTrue:[

                    cmd := 'g++ -c %1'.

                    select := 6.

                ].

                (suffix = 'xbm') ifTrue:[

                    cmd := 'bitmap %1'

                ].

                (suffix = 'ps') ifTrue:[

                    cmd := 'ghostview %1'

                ].

                ((suffix = '1') or:[suffix = 'man']) ifTrue:[

                    cmd := 'nroff -man %1'.

                    select := 10.

                ].

            ].

        ].

        cmd isNil ifTrue:[

            DefaultCommandPerSuffix isNil ifTrue:[

                cmd := '<cmd>'

            ] ifFalse:[

                cmd := DefaultCommandPerSuffix 

                        at:suffix

                        ifAbsent:'<cmd>'.

            ].

            cmd := cmd , ' %1'.

        ].

        pathName := path pathName.

        OperatingSystem isUNIXlike ifTrue:[

            pathName includesSeparator ifTrue:[

                pathName := '"' , pathName , '"'

            ]

        ].

        cmd := cmd bindWith:pathName.

        select == false ifTrue:[

            aBox initialText:cmd

        ] ifFalse:[

            select class == Interval ifTrue:[

                aBox initialText:cmd selectFrom:select start to:select stop

            ] ifFalse:[

                select isInteger ifFalse:[

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

                ].