"{ Package: 'stx:libtool' }"

AbstractFileBrowser subclass:#FileApplicationNoteBook

!

AbstractFileApplicationNoteBookComponent subclass:#ArchiveViewApplication

!

Object subclass:#ArchivItem

!

AbstractFileApplicationNoteBookComponent subclass:#CommandResult

!

AbstractFileApplicationNoteBookComponent subclass:#HtmlViewApplication

!

AbstractFileApplicationNoteBookComponent subclass:#ImageViewApplication

!

AbstractFileApplicationNoteBookComponent subclass:#Terminal

!

AbstractFileApplicationNoteBookComponent subclass:#TextEditor

!

AbstractFileApplicationNoteBookComponent subclass:#XViewApplication

!

!FileApplicationNoteBook class methodsFor:'application list'!

applicationList

" returns a list of all applications to start by the NoteBookApplication with 

                #className                         #type                    

            example:

            #(  #'FooEditor'                       nil                      )

"

    ^ #(

            #(  #'TextEditor'                      #file                    )

            #(  #'TextEditor'                      #directoryDescription    )

            #(  #'HtmlViewApplication'             nil                      )

            #(  #'FindFileApplication'             nil                      )

            #(  #'Terminal'                        nil                      )

            #(  #'ImageViewApplication'            nil                      )

            #(  #'ArchiveViewApplication'          nil                      )

            #(  #'CommandResult'                   nil                      )

            #(  #'XViewApplication'                nil                      )

       )

!

classFor:aApplicationListItem

    |rawName cls|

    rawName := aApplicationListItem at:1.

    (cls := self privateClassesAt:rawName) isNil ifTrue:[

        cls := Smalltalk at:rawName.

    ].

    ^ cls

!

defaultApplication

" returns the application to be started if no itemQuery returns true or no supportedSuffix is supported

"

    ^ self applicationList detect:[: applItem|

        (((self classFor:applItem) == self textEditorClass)

        and:[(self typeFor:applItem) == #file])

    ] ifNone:[nil].

!

typeFor:aApplicationListItem

    ^ aApplicationListItem at:2

! !

!FileApplicationNoteBook class methodsFor:'classAccess'!

textEditorClass

    ^ TextEditor

! !

!FileApplicationNoteBook class methodsFor:'defaults'!

openAnotherApplicationOnSameItem

    ^ false

! !

!FileApplicationNoteBook 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:NoteBookApplication andSelector:#windowSpec

     NoteBookApplication new openInterface:#windowSpec

     NoteBookApplication open

    "

    <resource: #canvas>

    ^ 

     #(#FullSpec

        #name: #windowSpec

        #window: 

       #(#WindowSpec

          #label: 'FileBrowserV2TextEditor'

          #name: 'FileBrowserV2TextEditor'

          #min: #(#Point 10 10)

          #max: #(#Point 1024 768)

          #bounds: #(#Rectangle 16 42 316 342)

        )

        #component: 

       #(#SpecCollection

          #collection: #(

           #(#NoteBookViewSpec

              #name: 'CommandAndTextEditor'

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

              #model: #selectedEditorPage

              #menu: #tabList

              #useIndex: true

              #accessTabMenuAction: #tabMenuAt:

              #canvas: #canvasHolder

              #keepCanvasAlive: true

            )

           )

        )

      )

! !

!FileApplicationNoteBook class methodsFor:'menu specs'!

tabMenu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

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

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

    "

     MenuEditor new openOnClass:FileApplicationNoteBook andSelector:#tabMenu

     (Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook tabMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(#Menu

        #(

         #(#MenuItem

            #label: 'New Text Editor'

            #itemValue: #newTextEditor

            #translateLabel: true

          )

         #(#MenuItem

            #label: 'Select in Filelist'

            #itemValue: #doSelectInList

            #translateLabel: true

          )

         #(#MenuItem

            #label: 'Rename'

            #itemValue: #doRenameTab

            #translateLabel: true

          )

         #(#MenuItem

            #label: '-'

          )

         #(#MenuItem

            #label: 'Close'

            #itemValue: #doCloseApplication

            #translateLabel: true

          )

         )

        nil

        nil

      )

! !

!FileApplicationNoteBook methodsFor:'accessing'!

listOfApplications

    "return the value of the instance variable 'listOfApplications' (automatically generated)"

    listOfApplications isNil ifTrue:[

        listOfApplications := OrderedCollection new.

    ].

    ^ listOfApplications

!

selectionHistoryList

    selectionHistoryList isNil ifTrue:[

        selectionHistoryList := OrderedCollection new.

    ].

    ^ selectionHistoryList

!

selectionHistoryList:aCol

    selectionHistoryList := aCol 

! !

!FileApplicationNoteBook methodsFor:'accessing-applications'!

getAllApplicationsByClass:aClass andType:aType

    ^ self listOfApplications select:[ : appl  |

        ((appl class = aClass)

        and:[appl type = aType])

    ].

!

getApplicationByType:aType

    ^ self listOfApplications detect:[ : appl  | 

        (appl type == aType)

    ] ifNone:[nil].

!

getIndexFor:aApplication

    | index |

    index := self listOfApplications indexOf:aApplication.

    index ~~ 0 ifTrue:[

        ^ index.

    ].

    ^ nil.

!

getSameApplicationsFor:aApplication

    ^ self listOfApplications select:[ : appl |

        ( (appl ~= aApplication)    

        and:[ (appl isKindOf:(aApplication class)) 

        and:[ (appl item = (aApplication item)) 

        and:[ (appl type == aApplication type) ]]])

    ].

! !

!FileApplicationNoteBook methodsFor:'actions-app-common'!

changeItem:aItem for:aAppl

    | applIndex string|

    applIndex := self getIndexFor:aAppl.

    (aItem notNil and:[aItem isDirectory not " and:[aAppl type ~= #directoryDescription]"]) ifTrue:[

        (aAppl changeItem:aItem) ifFalse:[ ^ self].

        self fileHistory add:aItem.

        self enableFileHistory value:true.

    ].

    string := aAppl getTabString.

    self privateTabList at:applIndex put:(Text fromString:string).

    self doSelect:aAppl.

!

changeModified:aSymbol for:aAppl

    | index text stream|

    index := self getIndexFor:aAppl.

    index isNil ifTrue:[ ^ self].

    stream := WriteStream with:aAppl getTabString.

    aSymbol ~~ #unchanged ifTrue:[

        stream space.

        stream nextPut:$[.

        stream nextPutAll:aSymbol asString.

        stream nextPut:$].

        text := stream contents asText.

        text emphasizeAllWith:UserPreferences current emphasisForModifiedBuffer.

    ] ifFalse:[

        text := stream contents asText.

    ].

    self privateTabList at:index put:text.

    self selectedEditorPage value == index ifTrue:[

        self changeFileBrowserTitleTo:text.

    ].

!

closeSubCanvas:aApplication

    | applIndex historyList localHistoryList selectedPage|

    applIndex := self getIndexFor:aApplication.

    applIndex notNil ifTrue:[

"/        "/ UPDATE THE LAST SELECTION BECAUSE SEL INDEX IS DECREMENTED FOR HIGHER INDEXES

"/        self lastSelection:applIndex.

        historyList := self selectionHistoryList.

        historyList remove:applIndex ifAbsent:nil.

        localHistoryList := OrderedCollection new.

        historyList notEmpty ifTrue:[

            selectedPage := historyList last.

        ] ifFalse:[

            selectedPage := 1.

        ].  

        self selectedEditorPage value:selectedPage.

        historyList do:[ : index |

            index <= applIndex ifTrue:[

                localHistoryList add:index

            ] ifFalse:[

                localHistoryList add:(index - 1)

            ]

        ].

        self selectionHistoryList:localHistoryList.

        self listOfApplications removeIndex:applIndex.

        self privateTabList removeIndex:applIndex.

        self privateTabList isEmpty ifTrue:[

            self viewNoteBookApplicationHolder value:false.

            self enableViewNoteBookApplication value:false.

            self changeFileBrowserTitleTo:'FileBrowser V2'.

        ] ifFalse:[

            historyList notEmpty ifTrue:[

                self selectedEditorPage value:(self selectionHistoryList last).

            ]

        ]

    ].

    "/ because subCanvas was configured to keep its view,

    "/ we must destroy it here.

    aApplication window destroy.

!

doCloseApplication

    | appl |

    appl := self listOfApplications at:tabMenuIndex.

    appl doClose.

!

doRenameTab

    | newLabel |

    newLabel := Dialog request:'New Tab Label:' initialAnswer:(self privateTabList at:tabMenuIndex).

    newLabel size == 0 ifTrue:[^ self ].

    self privateTabList at:tabMenuIndex put:newLabel

!

doSelectInList

    | appl fileName|

    appl := self listOfApplications at:tabMenuIndex.

    fileName := appl fileName.

    fileName notNil ifTrue:[

        self gotoFile:fileName.

    ].

!

openApplByFileItem:aItem

" use the default class list for open of applications by item "

    | applList applItem itemClass|

    aItem isNil ifTrue:[ ^ self ].

    applList := self applicationList.

    self openAlwaysInTextEditor value ifTrue:[

        ^ self openDefaultApplicationByItem:aItem.

    ].

    applItem := applList detect:[: aApplItem|

        itemClass := self class classFor:aApplItem.

        (itemClass canOpenItem:aItem).

    ] ifNone:[nil].

    applItem isNil ifTrue:[ ^ self openDefaultApplicationByItem:aItem].

    applItem notNil ifTrue:[

        |  itemType appl|

        itemType := self class typeFor:applItem.

        itemClass := self class classFor:applItem.

        appl := self openApplicationClass:itemClass withItem:aItem withType:itemType.

        appl notNil ifTrue:[ ^ appl].

        ^ self openDefaultApplicationByItem:aItem.            

    ].

!

openApplicationClass:aClass withItem:aItem withType:aType

    ^ self openApplicationClass:aClass withItem:aItem withType:aType checkExisting:true

!

openApplicationClass:aClass withItem:aItem withType:aType checkExisting:checkExisting

    | existingAppl newAppl|

    " do not open not readable items "

    checkExisting ifTrue:[

        (aItem notNil and:[aItem isDirectory not and:[aItem fileName isReadable not]]) ifTrue:[

            Dialog warn:'Can not open unreadable file ', aItem fileName baseName.

            AbortSignal raise.

        ].

        existingAppl notNil ifTrue:[

            self doSelect:existingAppl.

            ^ existingAppl

        ].

    ].

    newAppl := aClass new.

    newAppl type:aType.

    (newAppl item:aItem) ifFalse:[ ^ nil ].

    (aItem notNil and:[(aItem isDirectory not) and:[aType ~= #directoryDescription]]) ifTrue:[

        self fileHistory add:aItem.

        self enableFileHistory value:true.

    ].

    self setSameFileIndexFor:newAppl.

    self startApplication:newAppl.

    ^ newAppl

!

openDefaultApplicationByItem:aItem

" open the default application if no application for item is available or the start of the

  available application failed

"

    | applItem |

    applItem := self class defaultApplication.

    applItem notNil ifTrue:[

        |  itemType itemClass|

        itemType := self class typeFor:applItem.

        itemClass := self class classFor:applItem.

        ^ self openApplicationClass:itemClass withItem:aItem withType:itemType.

    ].

    ^ nil

!

setSameFileIndexFor:anAppl

    |sameFiles index item|

    self class openAnotherApplicationOnSameItem not ifTrue:[

        anAppl sameFileIndex:nil.

        ^ self.

    ].

    item := anAppl item.

    item notNil ifTrue:[

        | hasSameFiles |

        sameFiles := self getSameApplicationsFor:anAppl.

        hasSameFiles := sameFiles notEmpty.

        hasSameFiles ifTrue:[

            (sameFiles size == 1 and:[sameFiles first sameFileIndex isNil]) ifTrue:[

                anAppl sameFileIndex:1.

                ^ self