"

 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:'DirectoryHistory RuntimeAspects DirectoryBookmarks

		LastEnforcedNameSpace CommandHistory DefaultCommandPerSuffix

		CommandHistorySize LastFileDiffFile DefaultFilters RootHolder

		LastFileSelection LastMoveDestination LastScriptBlockString'

	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

!

OrderedSet subclass:#FilenameHistory

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractFileBrowser

!

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

    DirectoryHistory isNil ifTrue:[

        DirectoryHistory := self directoryHistoryClass new.

"/        DirectoryHistory inspect.

    ].

    ^ DirectoryHistory

!

resetClassVars

    DirectoryHistory := nil.

    LastFileSelection := nil.

    "

     AbstractFileBrowser resetClassVars

    "

!

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|

    fileName := aFileNameOrString asFilename.

    [

        s := fileName readStream.

    ] on:OpenError do:[:ex|

        ^ nil.

    ].

    bookmarks := OrderedCollection new.

    [s atEnd] whileFalse:[

        bookmarks add:(Base64Coder decode:s nextLine) asString.

    ].

    s close.

    ^ bookmarks

!

defaultBookMarksFileDirectory

    ^ Filename homeDirectory

!

defaultBookMarksFilename

    ^ '.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 withSuffix:'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 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

    ^ AbstractFileBrowser::DirectoryHistory

!

filenameHistoryClass

    ^ FilenameHistory

! !

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

                                    '*.htm*' 

                                    '*.txt' 

                                    '*.gif' 

                                    '*.xpm' 

                                    '*.jpg' 

                                    '*.[h,c]*' 

                                )

    ].

    ^ DefaultFilters.

!

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.

                ].

                aBox initialText:cmd selectFrom:1 to:select

            ].

        ]

    ]