"{ Package: 'stx:libtool' }"

ApplicationModel subclass:#AbstractFileBrowser

	instanceVariableNames:'aspects'

	classVariableNames:'DirectoryHistory RuntimeAspects DirectoryBookmarks

		LastEnforcedNameSpace CommandHistory DefaultCommandPerSuffix

		CommandHistorySize LastFileDiffFile DefaultFilters

		CurrentSelection RootHolder'

	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'

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

directoryHistoryClass

    ^ AbstractFileBrowser::DirectoryHistory

!

filenameHistoryClass

    ^ FilenameHistory

! !

!AbstractFileBrowser class methodsFor:'classVarAccess'!

currentSelection

    CurrentSelection isNil ifTrue:[

        CurrentSelection := #().

    ].

    ^ CurrentSelection

!

currentSelection:aFilenameCol

    CurrentSelection := aFilenameCol

!

directoryHistory

    DirectoryHistory isNil ifTrue:[

        DirectoryHistory := self directoryHistoryClass new.

"/        DirectoryHistory inspect.

    ].

    ^ DirectoryHistory

!

resetClassVars

    DirectoryHistory := nil.

    CurrentSelection := nil.

"

    AbstractFileBrowser resetClassVars

"

!

rootHolder

    ^ RootHolder

!

rootHolder:aRoot

    RootHolder := aRoot

! !

!AbstractFileBrowser class methodsFor:'defaults'!

commandHistory

    CommandHistory isNil ifTrue:[

        CommandHistory := OrderedCollection new.

    ].

    ^ CommandHistory

!

commandHistorySize

    "max no of entries in the HistoryList "

    CommandHistorySize isNil ifTrue:[

        CommandHistorySize := 50

    ].

    ^ CommandHistorySize

!

defaultFilterList

    DefaultFilters isNil ifTrue:[

        DefaultFilters := #(        '*'

                                    '*.st' 

                                    '*.htm*' 

                                    '*.txt' 

                                    '*.gif' 

                                    '*.xpm' 

                                    '*.jpg' 

                                    '*.[h,c]*' 

                                )

    ].

    ^ DefaultFilters.

!

directoryBookmarks

    DirectoryBookmarks isNil ifTrue:[                     

        DirectoryBookmarks := OrderedCollection new.

        DirectoryBookmarks add:Filename homeDirectory asAbsoluteFilename.

        DirectoryBookmarks add:Filename tempDirectory.

        DirectoryBookmarks add:Filename currentDirectory asAbsoluteFilename.

        Smalltalk systemPath do:[:path |

            ((path ~= '.') and:[path asFilename exists]) ifTrue:[

                DirectoryBookmarks add:path asFilename.

            ]

        ]

    ].

    ^ DirectoryBookmarks

"/    DirectoryBookmarks := 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.

                ].

                aBox initialText:cmd selectFrom:1 to:select

            ].

        ]

    ]

    "Modified: / 24.9.1997 / 16:34:52 / stefan"

    "Modified: / 9.4.1998 / 17:15:57 / cg"

!

listOfRuntimeValuesToRemark

    " list of all aspects that will be saved after close of FileBrowserV2"

    ^ #(

           #filterModel

           #enableFileHistory

           #fileHistory

           #currentSortOrder

           #sortBlockProperty

      )

!

resetAspects

    RuntimeAspects := nil.

"

    self resetAspects

"

!

runtimeAspects

    RuntimeAspects isNil ifTrue:[

        RuntimeAspects := Dictionary new.

    ].

    ^ RuntimeAspects

!

userPreferencesAspectList

    " list of all aspects that will be saved with save settings

      that aspects will be image consistent if the settings are saved in Launcher

      dont forget to add a access methos in Userpreferences if you add a aspect here

    "

    ^ #(

           #viewDirsInContentsBrowser

           #showDirectoryTree  

           #showHiddenFiles          

           #viewDescription        

           #viewDetails              

           #viewDirectoryDescription

           #viewFilesInDirectoryTree

           #viewGroup                

           #viewOwner                

           #viewPermissions          

           #viewPreview              

           #viewSize                

           #viewTime                 

           #viewType  

           #openMultipleApplicationsForType

           #filenameEntryFieldVisibleHolder

           #toolBarVisibleHolder

           #sortDirectoriesBeforeFiles

           #openAlwaysInTextEditor

           #sortCaseless

      )

! !

!AbstractFileBrowser class methodsFor:'image'!

disabledCursorImage

    DisabledCursorImage isNil ifTrue:[

        DisabledCursorImage := Image fromFile:'xpmBitmaps/cursors/no_entry.xpm'

    ].

    ^ DisabledCursorImage

!

enabledCursorImage

    EnabledCursorImage isNil ifTrue:[

        EnabledCursorImage := Image fromFile:'xpmBitmaps/cursors/double_crossHair.xpm'

    ].

    ^ EnabledCursorImage

! !

!AbstractFileBrowser class methodsFor:'image specs'!

clearHistoryIcon

    ^ Icon deleteIcon

!

closeIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

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

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

    "

     self closeIcon inspect

     ImageEditor openOnClass:self andSelector:#closeIcon

    "

    <resource: #image>

    ^Icon

        constantNamed:#'AbstractFileBrowser class closeIcon'

        ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ H@@@@@@@@@@@@B@ @@@@@@@@@@@@HB@ @@@@@@@@@B@ H@@@@@@@@@@@@@@ HB@@@@@@@B@ H@@@@@@@@@

@@@@@@@B@ H@@@@B@ H@@@@@@@@@@@@@@@@@@@HB@ @B@ H@@@@@@@@@@@@@@@@@@@@@@ HB@ H@@@@@@@@@@@@@@@@@@@@@@@@B@ H@@@@@@@@@@@@@@@@@

@@@@@@@B@ HB@ @@@@@@@@@@@@@@@@@@@@@B@ H@@ HB@@@@@@@@@@@@@@@@@@@B@ H@@@@B@ H@@@@@@@@A@@@@@@@B@ H@@@@@@@HB@ @@@@@@@@@@@@@B

@ H@@@@@@@@@@ HB@@@@@@@@@@@@@ H@@@@@@@@@@@@B@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@PD@@P@@

@@DA@@@@@PD@@@DA@@@@@P@@@@D@@@D@@@D@@P@@@@D@@@D@@@D@@@@A@@@A@@@A@@@A@@@A@PDA@@@A@@@@@P@@@P@@@P@@@@D@@P@@@@@@@@DA@@DA@@@A

@P@@@PD@@@@A@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[255 255 255 0 0 0 255 0 0]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@A C@A0G@@8N@@\\@@N8@@G0@@C @@G0@@N8@@\\B@8N@A0G@A C@@@@@A@@@MFL0QIQHQII8QIE@M&X0@@@@') ; yourself); yourself]

!

copyIcon

    <resource: #programImage>

    ^ ToolbarIconLibrary copy20x20Icon "copy28x28Icon"

!

cutIcon

    <resource: #programImage>

    ^ ToolbarIconLibrary cut20x20Icon2 "cut28x28Icon"

!

deleteIcon

    <resource: #programImage>

    ^ ToolbarIconLibrary erase20x20Icon "/ delete28x28Icon

!

diffIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

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

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

    "

     self diffIcon inspect

     ImageEditor openOnClass:self andSelector:#diffIcon

    "

    <resource: #image>

    ^Icon

        constantNamed:#'AbstractFileBrowser class diffIcon'

        ifAbsentPut:[(Depth8Image new) width: 26; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'

@@@@@@@@A@PDA@PDA@PD@@@@@@@@@@@@@@@@@@@@@@@DA XFA XFA P@@@@@@@@@@@@@@@@@@@@@@@PFA XF@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@XFA @F

A XD@@@@@@@@@@@@@@@@@@@@@@@DA X@A XFA P@@@@@@@@@@@@@@@@@@@@@@@PFA @FA XFA@@@@@@@@@@@@@@@@@@@@@@@A@XF@@XFA XD@@@@@@@@@@@@

@@@@@@@@@@@DA X@A XFA P@@@@@@@@@@@@@@@@@@@@@@@PFA X@A XFA@@@@@@@@@@@@@@@@@@@@@@@A@XFA X@@@@@@@@@@@@@@@@@@@@@@@@@@@@DA XF

A XFA P@@@@@@@@@@@@@@@@@@@@@@@PFA XFA XFA@@@@@@@@@@@@@@@@@@@@@@@A@PDA@PDA@PD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 129 129 129 0 0 0 194 194 194 132 132 132 198 198 198 255 255 255]; mask:((Depth1Image new) width: 26; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@?8@@@O>@@@C? @@@?<@@@O> @@C?(@@@?:@@@O> @@C?8@@@??@@@O>8@@C?''@@@?80@@@@@@@@T[@@@DI@@@GSX@@BT$@@@%I@@@IRP@@A4$@@@@@@@@@@a') ; yourself); yourself]

!

fileInIcon

    <resource: #programImage>

    ^ ToolbarIconLibrary fileIn20x20Icon3

!

goHomeIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

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

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

    "

     self goHomeIcon inspect

     ImageEditor openOnClass:self andSelector:#goHomeIcon

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

        constantNamed:#'AbstractFileBrowser class goHomeIcon'

        ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'

@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@DQ@@@@@@@@@@@@DQDP@@@@@@@@@@DQ@QD@@@@@@@@@DQH2DQ@@@@@@@@DQH4L!!DP@@@@@@DQH4QCHQD@@@@@