"

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

	classVariableNames:'DefaultViewBackground DefaultSelectionForegroundColor

		DefaultSelectionBackgroundColor MatchDelayTime

		WordSelectCatchesBlanks'

	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

    [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

"

! !

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

updateStyleCache

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

    <resource: #style (#textViewBackground

                       #textSelectionForegroundColor #textSelectionBackgroundColor

                       #textViewFont #textWordSelectCatchesBlanks)>

    DefaultViewBackground := StyleSheet colorAt:'textViewBackground' default:White.

    DefaultSelectionForegroundColor := StyleSheet colorAt:'textSelectionForegroundColor'.

    DefaultSelectionBackgroundColor := StyleSheet colorAt:'textSelectionBackgroundColor'.

    DefaultFont := StyleSheet fontAt:'textViewFont'.

    MatchDelayTime := 0.6.

    WordSelectCatchesBlanks := StyleSheet at:'textWordSelectCatchesBlanks' default:false.

    "Modified: 18.3.1996 / 17:32:07 / cg"

! !

!TextView class methodsFor:'startup'!

open

    "start an empty TextView"

    ^ self openWith:nil

!

openOn:aFileName

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

    |textView|

    textView := self setupOn:aFileName.

    textView topView open.

    ^ textView

    "

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

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

    "

    "Modified: 9.9.1996 / 19:33:49 / cg"

!

openWith:aString

    "start a textView with aString as initial contents"

    ^ self openWith:aString title:nil 

    "

     TextView openWith:'some text'

     EditTextView openWith:'some text'

    "

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

!

openWith:aString title:aTitle

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

    |textView|

    textView := self setupWith:aString 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: 9.9.1996 / 19:32:29 / 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:(Form fromFile:'Editor.xbm' resolution:100).

    frame := HVScrollableView 

		for:self 

		miniScrollerH:true miniScrollerV:false

		in:top.

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

    ^ frame scrolledView

!

setupOn:aFileName

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

    |top textView stream|

    textView := self setupEmpty.

    top := textView topView.

    aFileName notNil ifTrue:[

        top label:(OperatingSystem baseNameOf:aFileName).

        stream := aFileName asFilename readStream.

        stream notNil ifTrue:[

            textView contents:(stream contents)

        ]

    ].

    ^ textView

    "Created: 9.9.1996 / 19:32:56 / cg"

!

setupWith:aString title:aTitle

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

    |top textView|

    textView := self setupEmpty.

    top := textView topView.

    aTitle notNil ifTrue:[top label:aTitle].

    aString notNil ifTrue:[

        textView contents:aString

    ].

    ^ textView

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

! !

!TextView methodsFor:'accessing'!

characterPositionOfSelection

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

    selectionStartLine isNil ifTrue:[^ 1].

    ^ self characterPositionOfLine:selectionStartLine

			       col:selectionStartCol

!

contentsWasSaved

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

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

    ^ contentsWasSaved

!

directoryForFileDialog:aDirectory

    "define the directory to use for save-box"

    directoryForFileDialog := aDirectory

! !

!TextView methodsFor:'accessing-contents'!

fromFile:aFileName

    "take contents from a named file"

    self directoryForFileDialog:(OperatingSystem directoryNameOf:aFileName).

    self contents:(FileStream oldFileNamed:aFileName) contents

!

list:something

    "set the displayed contents (a collection of strings)

     with redraw.

     Redefined since changing the contents implies deselect"

    self unselect.

    super list:something

    "Modified: 29.4.1996 / 12:13:24 / cg"

!

setList:something

    "set the displayed contents (a collection of strings)

     without redraw.

     Redefined since changing contents implies deselect"

    self unselect.

    super setList:something

!

wordAtLine:selectLine col:selectCol do:aFiveArgBlock

    "find word boundaries, evaluate the block argument with those.

     A helper for nextWord and selectWord functions."

    |beginCol endCol endLine thisCharacter flag|

    flag := #word.

    beginCol := selectCol.

    endCol := selectCol.

    endLine := selectLine.

    thisCharacter := self characterAtLine:selectLine col:beginCol.

    beginCol := self findBeginOfWordAtLine:selectLine col:selectCol.

    endCol := self findEndOfWordAtLine:selectLine col:selectCol.

    endCol == 0 ifTrue:[

        endLine := selectLine + 1

    ].

    "is the initial acharacter within a word ?"

    (wordCheck value:thisCharacter) ifTrue:[

        "

         try to catch a blank ...

        "

        WordSelectCatchesBlanks ifTrue:[

            ((beginCol == 1)

            or:[(self characterAtLine:selectLine col:(beginCol - 1))

                 ~~ Character space]) ifTrue:[

                ((self characterAtLine:selectLine col:(endCol + 1))

                  == Character space) ifTrue:[

                    endCol := endCol + 1.

                    flag := #wordRight

                ]

            ] ifFalse:[

                beginCol := beginCol - 1.

                flag := #wordLeft

            ].

        ].

    ].

    aFiveArgBlock value:selectLine 

                  value:beginCol 

                  value:endLine 

                  value:endCol

                  value:flag

    "Modified: 18.3.1996 / 17:31:04 / cg"

! !

!TextView methodsFor:'accessing-look'!

selectionForegroundColor:color1 backgroundColor:color2

    "set both the selection-foreground and cursor background colors.

     The default is defined by the styleSheet; 

     typically black-on-green for color displays and white-on-black for b&w displays."

    selectionFgColor := color1 on:device.

    selectionBgColor := color2 on:device.

    shown ifTrue:[

        self hasSelection ifTrue:[

            self invalidate

        ]

    ]

    "Modified: 29.5.1996 / 16:22:15 / cg"

! !

!TextView methodsFor:'accessing-mvc'!

model:aModel

    "define the receivers model, from which the text is

     to be aquired via list- or aspect-messages, whenever its aspect

     changes.

     Here, if I am my own menuPerformer/menuHolder,

     the menuHolder to also set the model. This is a compatibility kludge,

     since typically, ST-80 code expects the model to provide a menu

     and the view to perform it.

     Those apps which want the view to provide the (default) menu have to reset

     this by sending #menuHolder: message (again)"

    super model:aModel.

    (menuPerformer == self and:[menuHolder == self]) ifTrue:[

        menuHolder := model

    ].

    self getListFromModel

    "Modified: 29.4.1996 / 12:18:11 / cg"

    "Modified: 15.8.1996 / 12:53:06 / stefan"

!

on:aModel aspect:aspectSym list:listSym change:changeSym menu:menuSym initialSelection:initial

    "set all of model, aspect, listMessage, changeSymbol, menySymbol

     and selection. Added for ST-80 compatibility"

    aspectSym notNil ifTrue:[aspectMsg := aspectSym. listMsg := aspectSym].

    changeSym notNil ifTrue:[changeMsg := changeSym].

    listSym notNil ifTrue:[listMsg := listSym].

    menuSym notNil ifTrue:[menuMsg := menuSym].

"/    initial notNil ifTrue:[initialSelectionMsg := initial].

    self model:aModel.

    "Modified: 29.4.1996 / 12:15:38 / cg"

    "Modified: 15.8.1996 / 12:52:54 / stefan"

! !

!TextView methodsFor:'event processing'!

buttonMotion:buttonMask x:x y:y

    "mouse-move while button was pressed - handle selection changes"

    |movedVisibleLine movedLine movedCol 

     movedUp 

     oldStartLine oldEndLine oldStartCol oldEndCol|

    clickLine isNil ifTrue:[^ self].

    "is it the select or 1-button ?"

    (device buttonMotionMask:buttonMask includesButton:#select) ifFalse:[

	(device buttonMotionMask:buttonMask includesButton:1) ifFalse:[

	    ^ self

	].

    ].

    "if moved outside of view, start autoscroll"

    (y < 0) ifTrue:[

	self compressMotionEvents:false.

	self startAutoScrollUp:y.

	^ self

    ].

    (y > height) ifTrue:[

	self compressMotionEvents:false.

	self startAutoScrollDown:(y - height).

	^ self

    ].

    ((x < 0) and:[leftOffset ~~ 0]) ifTrue:[

	self compressMotionEvents:false.

	self startAutoScrollLeft:x.

	^ self

    ].

    (x > width) ifTrue:[

	self compressMotionEvents:false.

	self startAutoScrollRight:(x - width).

	^ self

    ].

    "move inside - stop autoscroll if any"

    autoScrollBlock notNil ifTrue:[

	self stopScrollSelect

    ].

    movedVisibleLine := self visibleLineOfY:y.

    movedLine := self visibleLineToAbsoluteLine:movedVisibleLine.

    (x < leftMargin) ifTrue:[

	movedCol := 0

    ] ifFalse:[

	movedCol := self colOfX:x inVisibleLine:movedVisibleLine

    ].

    ((movedLine == clickLine) and:[movedCol == clickCol]) ifTrue:[^ self].

    selectionStartLine isNil ifTrue:[

	selectionStartLine := clickLine.

	selectionStartCol := clickCol.

	selectionEndLine := selectionStartLine.

	selectionEndCol := selectionStartCol

    ].

    oldStartLine := selectionStartLine.

    oldEndLine := selectionEndLine.

    oldStartCol := selectionStartCol.

    oldEndCol := selectionEndCol.

    "find out if we are before or after initial click"

    movedUp := false.

    (movedLine < clickStartLine) ifTrue:[

	movedUp := true

    ] ifFalse:[

	(movedLine == clickStartLine) ifTrue:[

	    (movedCol < clickStartCol) ifTrue:[

		movedUp := true

	    ]

	]

    ].

    movedUp ifTrue:[

	"change selectionStart"

	selectionStartCol := movedCol.

	selectionStartLine := movedLine.

	selectionEndCol := clickStartCol.

	selectionEndLine := clickStartLine.

	selectStyle notNil ifTrue:[

	    selectionEndCol := wordEndCol.

	    selectionEndLine := wordEndLine.

	]

    ] ifFalse:[

	"change selectionEnd"

	selectionEndCol := movedCol.

	selectionEndLine := movedLine.

	selectionStartCol := clickStartCol.

	selectionStartLine := clickStartLine.

	selectStyle notNil ifTrue:[

	    selectionStartCol := wordStartCol.

	    selectionStartLine := wordStartLine.

	]

    ].