"

 COPYRIGHT (c) 1989 by Claus Gittinger

	      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.

"

ListView subclass:#TextView

	instanceVariableNames:'selectionStartLine selectionStartCol selectionEndLine

		selectionEndCol clickStartLine clickStartCol clickLine clickCol

		clickCount expandingTop wordStartCol wordStartLine wordEndCol

		wordEndLine selectionFgColor selectionBgColor selectStyle

		directoryForFileDialog defaultFileNameForFileDialog

		externalEncoding contentsWasSaved'

	classVariableNames:'DefaultViewBackground DefaultSelectionForegroundColor

		DefaultSelectionBackgroundColor MatchDelayTime

	poolDictionaries:''

	category:'Views-Text'

!

!TextView class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1989 by Claus Gittinger

	      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

"

    a view for readOnly text - this class adds selections to a simple list.

    The text is not editable and there is no cursor.

    Use TextViews for readonly text, EditTextView for editable text.

    Please read the historic notice in the ListView class.

    [Instance variables:]

      selectionStartLine      <Number>                the line of the selection start (or nil)

      selectionStartCol       <Number>                the col of the selection start

      selectionEndLine        <Number>                the line of the selection end

      selectionEndCol         <Number>                the col of the selection end

      clickStartLine          <Number>                temporary - remember where select operation started

      clickStartCol           <Number>                temporary

      clickLine               <Number>                temporary

      clickCol                <Number>                temporary

      clickCount              <Number>                temporary

      expandingTop            <Boolean>               temporary - for expandSelection

      selectionFgColor        <Color>                 color used to draw selections

      selectionBgColor        <Color>                 color used to draw selections

      selectStyle             <Symbol>                how words are selected

      directoryForFileDialog  <nil|pathName>          directory where save dialog should start

      contentsWasSaved        <Boolean>               set to true, whenever saved in a file

      externalEncoding        <Symbol|nil>            external encoding, used when text is saved to

                                                      a file. Usually something like

                                                      #jis7, #euc, #sjis etc.

                                                      (currently only passed down from the

                                                       fileBrowser)

    [class variables:]

        ST80Selections        <Boolean>               enables ST80 style doubleclick behavior

                                                      (right after opening parenthesis, right before

                                                       closing parenthesis, at begin of a line

                                                       at begin of text)

    [StyleSheet parameters:]

      textViewBackground                 defaults to viewBackground

      textSelectionForegroundColor       defaults to textBackgroundColor

      textSelectionBackgroundColor       defaults to textForegroundColor

      textViewFont                       defaults to textFont

    [author:]

        Claus Gittinger

    [see also:]

        EditTextView CodeView Workspace

"

!

examples

"

    although textViews (and instances of subclasses) are mostly used

    as components (in the fileBrowser, the browser, the launcher etc.),

    they may also be opened as a textEditor;

    open a (readonly) textView on some information text:

                                                        [exBegin]

        TextView 

            openWith:'read this' 

            title:'demonstration'

                                                        [exEnd]

    the same, but open it modal:

                                                        [exBegin]

        TextView 

            openModalWith:'read this first' 

            title:'demonstration'

                                                        [exEnd]

    open it modal (but editable) on some text:

    (must accept before closing)

    This is somewhat kludgy - when closed, the view has already

    nilled its link to the model. Therefore, the accept must be

    done 'manually' below.

    However, usually an applicationModel is installed as the

    editor-topViews application. This would get a closeRequest,

    where it could handle things.

                                                        [exBegin]

        |m textView|

        m := 'read this first' asValue.

        textView := EditTextView openModalOnModel:m.

        textView modified ifTrue:[

            (self confirm:'text was not accepted - do it now ?')

            ifTrue:[

                m value:textView contents

            ]

        ].

        Transcript showCR:m value.

                                                        [exEnd]

    open a textEditor on some file:

                                                        [exBegin]

        EditTextView openOn:'Makefile'

                                                        [exEnd]

"

! !

!TextView class methodsFor:'instance creation'!

on:aModel aspect:aspect change:change menu:menu initialSelection:initial

    "for ST-80 compatibility"

    ^ (self new) 

	on:aModel 

	aspect:aspect

	list:aspect

	change:change 

	menu:menu

	initialSelection:initial

! !

!TextView class methodsFor:'defaults'!

defaultIcon

    "return the default icon if started as a topView"

    <resource: #style (#ICON #ICON_FILE)>

    |nm i|

    i := self classResources at:'ICON' default:nil.

    i isNil ifTrue:[

        nm := ClassResources at:'ICON_FILE' default:'Editor.xbm'.

        i := Image fromFile:nm resolution:100.

        i isNil ifTrue:[

            i := Image fromFile:('bitmaps/' , nm) resolution:100.

        ]

    ].

    i notNil ifTrue:[

        i := i on:Display

    ].

    ^ i

    "Modified: 18.4.1997 / 15:18:06 / cg"

!

defaultMenuMessage

    "This message is the default yo be sent to the menuHolder to get a menu"

    ^ #editMenu

    "Created: 3.1.1997 / 01:52:21 / stefan"

!

defaultViewBackgroundColor

    "return the default view background"

    ^DefaultViewBackground

!

updateStyleCache

    "extract values from the styleSheet and cache them in class variables"

    <resource: #style (#'textView.background'

                       #'text.selectionForegroundColor' #'text.selectionBackgroundColor'

                       #'textView.font' #'text.wordSelectCatchesBlanks'

                       #'text.st80Selections')>

    DefaultViewBackground := StyleSheet colorAt:'textView.background' default:White.

    DefaultSelectionForegroundColor := StyleSheet colorAt:'text.selectionForegroundColor'.

    DefaultSelectionBackgroundColor := StyleSheet colorAt:'text.selectionBackgroundColor'.

    DefaultFont := StyleSheet fontAt:'textView.font'.

    MatchDelayTime := 0.6.

    WordSelectCatchesBlanks := StyleSheet at:'text.wordSelectCatchesBlanks' default:false.

    ST80Selections := StyleSheet at:'text.st80Selections' default:false.

    "Modified: / 31.10.1997 / 13:17:16 / cg"

! !

!TextView class methodsFor:'startup'!

open

    "start an empty TextView"

    ^ self openWith:nil

!

openModalOnModel:aModel

    "start a textView on a model; return the textView"

    |textView|

    textView := self setupForModel:aModel.

    textView topView openModal.

    ^ textView

    "Created: 14.2.1997 / 15:24:12 / cg"

!

openModalWith:aString

    "start a textView with aString as initial contents"

    ^ self openModalWith:aString title:nil 

    "

     TextView openModalWith:'some text'

     EditTextView openModalWith:'some text'

    "

    "Created: 14.2.1997 / 15:19:04 / cg"

!

openModalWith:aString title:aTitle

    "start a textView with aString as initial contents. Return the textView."

    |textView|

    textView := self setupWith:aString title:aTitle.

    textView topView openModal.

    ^ textView

    "

     TextView openModalWith:'some text' title:'testing'

     EditTextView openModalWith:'some text' title:'testing'

    "

    "Modified: 9.9.1996 / 19:32:29 / cg"

    "Created: 14.2.1997 / 15:19:18 / cg"

!

openOn:aFileName

    "start a textView on a file; return the textView"

    |textView|

    textView := self setupForFile:aFileName.

    textView topView open.

    ^ textView

    "

     TextView openOn:'../../doc/overview.doc'

     EditTextView openOn:'../../doc/overview.doc'

    "

    "Modified: 14.2.1997 / 15:21:51 / cg"

!

openOnModel:aModel

    "start a textView on a model; return the textView"

    |textView|

    textView := self setupForModel:aModel.

    textView topView open.

    ^ textView

    "Created: 14.2.1997 / 15:23:36 / cg"

!

openWith:aStringOrStringCollection

    "start a textView with aStringOrStringCollection as initial contents"

    ^ self openWith:aStringOrStringCollection title:nil 

    "

     TextView openWith:'some text'

     EditTextView openWith:'some text'

    "

    "Created: 10.12.1995 / 17:41:32 / cg"

    "Modified: 5.3.1997 / 15:37:19 / cg"

!

openWith:aStringOrStringCollection title:aTitle

    "start a textView with aStringOrStringCollection as initial contents. Return the textView."

    |textView|

    textView := self setupWith:aStringOrStringCollection title:aTitle.

    textView topView open.

    ^ textView

    "

     TextView openWith:'some text' title:'testing'

     EditTextView openWith:'some text' title:'testing'

    "

    "Created: 10.12.1995 / 17:40:02 / cg"

    "Modified: 5.3.1997 / 15:37:26 / cg"

!

setupEmpty

    "create a textview in a topview, with horizontal and

     vertical scrollbars - a helper for #startWith: and #startOn:"

    |top frame label|

    label := 'unnamed'.

    top := StandardSystemView label:label icon:self defaultIcon.

    frame := HVScrollableView 

                for:self 

                miniScrollerH:true miniScrollerV:false

                in:top.

    frame origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).

    ^ frame scrolledView

    "Modified: 23.5.1965 / 14:12:32 / cg"

!

setupForFile:aFileName

    "setup a textView on a file; return the textView"

    |top textView f|

    textView := self setupEmpty.

    top := textView topView.

    aFileName notNil ifTrue:[

	f := aFileName asFilename.

        top label:(f baseName).

        textView contents:(f contents).

    ].

    ^ textView

    "Created: 14.2.1997 / 15:21:43 / cg"

!

setupForModel:aModel

    "setup a textView on a model; return the textView"

    |top textView|

    textView := self setupEmpty.

    textView model:aModel.

    top := textView topView.

    ^ textView

    "Created: 14.2.1997 / 15:22:42 / cg"

!

setupWith:aStringOrStringCollection title:aTitle

    "setup a textView with aStringOrStringCollection as initial contents in a topView"

    |top textView|

    textView := self setupEmpty.

    top := textView topView.

    aTitle notNil ifTrue:[top label:aTitle].

    aStringOrStringCollection notNil ifTrue:[

        textView contents:aStringOrStringCollection

    ].

    ^ textView

    "Created: 9.9.1996 / 19:31:22 / cg"

    "Modified: 5.3.1997 / 15:37:37 / cg"

! !

!TextView methodsFor:'ST-80 compatibility'!

selectionStartIndex

    "ST-80 compatibility: return the selections start character position."

    ^ self characterPositionOfSelection

    "Created: / 19.6.1998 / 00:21:44 / cg"

!

selectionStopIndex

    "ST-80 compatibility: return the selections start character position."

    ^ self characterPositionOfSelectionEnd

    "Created: / 19.6.1998 / 00:22:08 / cg"

! !

!TextView methodsFor:'accessing'!

characterPositionOfSelection

    "return the character index of the first character in the selection.

     Returns 0 if there is no selection."

    selectionStartLine isNil ifTrue:[^ 0].

    ^ self characterPositionOfLine:selectionStartLine

                               col:selectionStartCol

    "Modified: 14.8.1997 / 16:35:37 / cg"

!

characterPositionOfSelectionEnd

    "return the character index of the last character in the selection.

     Returns 0 if there is no selection."

    selectionStartLine isNil ifTrue:[^ 0].

    ^ self characterPositionOfLine:selectionEndLine

                               col:selectionEndCol

    "Created: 14.8.1997 / 16:35:24 / cg"

    "Modified: 14.8.1997 / 16:35:45 / cg"

!

contentsWasSaved

    "return true, if the contents was saved (by a save action),

     false if not (or was modified again after the last save)."

    ^ contentsWasSaved

!

defaultFileNameForFileDialog:aBaseName

    "define the default fileName to use for the save-box"

    defaultFileNameForFileDialog := aBaseName

    "Created: 13.2.1997 / 18:29:53 / cg"

!

directoryForFileDialog:aDirectory

    "define the default directory to use for save-box"

    directoryForFileDialog := aDirectory

    "Modified: 13.2.1997 / 18:30:01 / cg"

!

externalEncoding:encodingSymOrNil

    "define how the contents should be encoded when saved

     via the 'save / save as' dialog.

     This is (currently) only passed down from the fileBrowser,

     and required when japanese/chines/korean text is edited.

     (encoding is one of #euc, #sjis, #jis7, #gb, #big5 or #ksc)"

    externalEncoding := encodingSymOrNil

! !

!TextView methodsFor:'accessing-contents'!

fromFile:aFileName

    "take contents from a named file"