"{ Package: 'stx:libtool' }"

ApplicationModel subclass:#AbstractFileApplicationNoteBookComponent

	instanceVariableNames:'sameFileIndex item type notifyChannel'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Tools-File'

!

!AbstractFileApplicationNoteBookComponent class methodsFor:'defaults'!

tabStringFor:aApplicationType

    ^ nil

! !

!AbstractFileApplicationNoteBookComponent class methodsFor:'queries'!

"

    example:

"

    ^ false

!

wantNewApplicationAnyway

    ^ true

! !

!AbstractFileApplicationNoteBookComponent methodsFor:'accessing'!

notify:msg

    self notifyChannel value:msg

!

notifyChannel

    notifyChannel isNil ifTrue:[

        self masterApplication notNil ifTrue:[

            notifyChannel := masterApplication notifyChannel.

        ] ifFalse:[

            notifyChannel := ValueHolder with:''.

        ].

    ].

    ^ notifyChannel

!

sameFileIndex

    ^ sameFileIndex

!

sameFileIndex:something

    sameFileIndex := something.

! !

!AbstractFileApplicationNoteBookComponent methodsFor:'actions'!

!

doClose

    |master|

    "/ tell the NoteBookApplication to close me

    (master := self masterApplication) notNil ifTrue:[

        master closeSubCanvas:self.

        self release.

    ] ifFalse:[

        self closeRequest.

    ].

    ^ true

! !

!AbstractFileApplicationNoteBookComponent methodsFor:'queries'!

fileName

    item notNil ifTrue:[

        ^ item fileName.

    ].

    ^ nil

!

getDirWithoutFileName:aFileName

    | dir |

    aFileName isNil ifTrue:[

        ^ aFileName.    

    ].

    dir := aFileName asFilename.

    dir isDirectory ifFalse:[

        dir := dir directory.

    ].

    ^ dir.

!

getTabString

" get the tab string from the application list on the class side "

    | stream string firstString endString|

    stream := WriteStream on:''.

    firstString := self class tabStringFor:type.

    firstString isNil ifTrue:[

        "/ default take the class name

        firstString := self className.

    ].

    stream nextPutAll:firstString.

    endString := self getTabStringEnd.

    endString notNil ifTrue:[

        stream space.

        stream nextPutAll:endString.

    ].

    string := stream contents.

    stream close.

    ^ string.

!

getTabStringEnd

" get the tab string from the application list on the class side "

    | stream string|

    self item notNil ifTrue:[

        stream := WriteStream on:''.

        stream nextPutAll:self fileName baseName.

        stream space.

        self sameFileIndex notNil ifTrue:[

            stream nextPutAll:self sameFileIndex asString.

        ].

        string := stream contents.

        stream close.

        ^ string.

    ].

    ^ nil

!

isEmbeddedApplication

     ^ self masterApplication notNil

!

isModified

    ^ false

!

isTextEditor

    ^ false

!

item

    ^ item

!

    ^ true

!

presentation

    ^ nil

!

type

    ^ type

!

type:aType

    type := aType

!

wantChangeAnyWay

    ^ (self type == #directoryDescription)

! !

!AbstractFileApplicationNoteBookComponent class methodsFor:'documentation'!

version

! !