"

 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.

"

TextView subclass:#EditTextView

       instanceVariableNames:'cursorLine cursorVisibleLine

                              cursorCol cursorShown prevCursorState

                              readOnly modified fixedSize

                              exceptionBlock

                              errorMessage

                              cursorFgColor cursorBgColor

                              undoAction  

                              typeOfSelection 

                              lastString lastReplacement lastAction 

                              replacing showMatchingParenthesis'

       classVariableNames:''

       poolDictionaries:''

       category:'Views-Text'

!

EditTextView comment:'

COPYRIGHT (c) 1989 by Claus Gittinger

            All Rights Reserved

written jun-89 by claus

'!

!EditTextView class methodsFor:'documentation'!

documentation

"

    a view for editable text - adds editing functionality to TextView

    Instance variables:

    cursorLine              <Number>        line where cursor sits (1..)

    cursorVisibleLine       <Number>        visible line where cursor sits (1..nLinesShown)

    cursorCol               <Number>        col where cursor sits (1..)

    cursorShown             <Boolean>       true, if cursor is currently shown

    prevCursorState         <Boolean>       temporary

    readOnly                <Boolean>       true, if text may not be edited

    modified                <Boolean>       true, if text has been modified

    fixedSize               <Boolean>       true, if no lines may be added/removed

    exceptionBlock          <Block>         block to be evaluated when readonly text is about to be modified

    errorMessage            <String>        message text 

    cursorFgColor           <Color>         color used for cursor drawing

    cursorBgColor           <Color>         color used for cursor drawing

    undoAction              <Block>         block which undoes last cut, paste or replace

    typeOfSelection         <Symbol>        #paste, if selection created by paste, nil otherwise

    lastCut                 <String>        last cut or replaced string

    lastReplacement         <String>        last replacement

    replacing               <Boolean>       true if entered characters replace last selection

    showMatchingParenthesis <Boolean>       if true, shows matching parenthesis

                                            when entering one

"

! !

!EditTextView methodsFor:'initialization'!

initialize

    super initialize.

    self level:-1.

    errorMessage := 'Text may not me changed'.

    readOnly := false.

    fixedSize := false.

    exceptionBlock := [:errorText | ].

    cursorShown := prevCursorState := true.

    cursorLine := 1.

    cursorVisibleLine := 1.

    cursorCol := 1.

    modified := false.

    showMatchingParenthesis := false

!

initStyle

    super initStyle.

    cursorFgColor := bgColor.

    device hasColors ifTrue:[

        cursorBgColor := Color red

    ] ifFalse:[

        cursorBgColor := fgColor

    ]

!

initializeMiddleButtonMenu

    |labels|

    labels := resources array:#(

"

                               'undo'

"

                               'again'

                               '-'

                               'copy'

                               'cut'

                               'paste'

                               '-'

                               'accept'

                               '-'

                               'others'

                               ).

    self middleButtonMenu:(PopUpMenu

                                labels:labels

                             selectors:#(

"

                                         undo

"

                                         again

                                         nil

                                         copySelection

                                         cut

                                         paste

                                         nil

                                         accept

                                         nil

                                         others

                                        )

                                receiver:self

                                     for:self).

    middleButtonMenu subMenuAt:#others put:(PopUpMenu

                                labels:(resources array:#(

                                         'search'

                                         'goto'

                                         '-'

                                         'explain'

                                         '-'

                                         'font'

                                         '-'

                                         'indent'

                                         '-'

                                         'save as ...'

                                         'print'

                                        ))

                              selectors:#(

                                          search

                                          gotoLine

                                          nil

                                          explain

                                          nil

                                          changeFont

                                          nil

                                          indent

                                          nil

                                          save

                                          print

                                         )

                                receiver:self

                                     for:self).

    self enableOrDisableSelectionMenuEntries

!

realize

    super realize.

    cursorFgColor := cursorFgColor on:device.

    cursorBgColor := cursorBgColor on:device.

! !

!EditTextView methodsFor:'accessing'!

cursorForegroundColor:color1 backgroundColor:color2

    "set both cursor foreground and cursor background colors"

    self hideCursor.

    cursorFgColor := color1 on:device.

    cursorBgColor := color2 on:device.

    self showCursor

!

contents

    "answer the contents as a String"

    list isNil ifTrue:[^ ''].

    self removeTrailingBlankLines.

    ^ list asString

!

list:something

    "position cursor home when setting contents"

    super list:something.

    self cursorHome

!

readOnly

    "make the text readonly"

    readOnly := true

!

fixedSize

    "make the texts size fixed (no lines may be added)"

    readOnly ifFalse:[

        readOnly := true.

        middleButtonMenu disable:#cut.

        middleButtonMenu disable:#paste.

        middleButtonMenu disable:#replace.

        middleButtonMenu disable:#indent

    ]

!

exceptionBlock:aBlock

    "define the action to be triggered when user tries to modify

     readonly text"

    exceptionBlock := aBlock

!

fromFile:aFileName

    "take contents from a named file"

    self contents:(aFileName asFilename readStream contents)

!

modified:aBoolean

    "set the modified flag"

    modified := aBoolean

!

modified

    "return true if text was modified"

    ^ modified

!

characterUnderCursor

    "return the character under the cursor - space if behond line"

    ^ self characterAtLine:cursorLine col:cursorCol

! !

!EditTextView methodsFor:'private'!

contentsChanged

    "triggered whenever text is changed"

    super contentsChanged.

    modified := true.

    contentsWasSaved := false

! !

!EditTextView methodsFor:'editing'!

mergeLine:lineNr

    "merge line lineNr with line lineNr+1"

    |leftPart rightPart bothParts nextLineNr|

    list isNil ifFalse:[

        nextLineNr := lineNr + 1.

        (nextLineNr > list size) ifFalse:[

            (list at:lineNr) isNil ifTrue:[

                leftPart := ''

            ] ifFalse:[

                leftPart := list at:lineNr

            ].

            (list at:nextLineNr) isNil ifTrue:[

                rightPart := ''

            ] ifFalse:[

                rightPart := list at:nextLineNr

            ].

            bothParts := leftPart , rightPart.

            bothParts isBlank ifTrue:[bothParts := nil].

            list at:lineNr put:bothParts.

            self redrawLine:lineNr.

            self deleteLine:nextLineNr

        ]

    ]

!

splitLine:lineNr before:colNr

    "split the line linNr before colNr; the right part (from colNr)

     is cut off and inserted after lineNr; the view is redrawn"

    |line lineSize leftRest rightRest visLine w      

     srcY    "{ Class: SmallInteger }" |

    list isNil ifFalse:[

        lineNr > (list size) ifFalse:[

            (colNr == 1) ifTrue:[

                self insertLine:nil before:lineNr.

                ^ self

            ].

            line := list at:lineNr.

            line isNil ifFalse:[

                lineSize := line size.

                (colNr <= lineSize) ifTrue:[

                    rightRest := line copyFrom:colNr to:lineSize.

                    (colNr > 1) ifTrue:[

                        leftRest := line copyFrom:1 to:(colNr - 1)

                    ]

                ] ifFalse:[

                    leftRest := line

                ]

            ].

            leftRest notNil ifTrue:[

                leftRest isBlank ifTrue:[leftRest := nil]

            ].

            list at:lineNr put:leftRest.

            modified := true.

            contentsWasSaved := false.

            self withoutRedrawInsertLine:rightRest before:(lineNr + 1).

            visLine := self listLineToVisibleLine:(lineNr).

            visLine notNil ifTrue:[

                w := self widthForScrollBetween:lineNr

                                            and:(firstLineShown + nLinesShown).

                srcY := topMargin + (visLine * fontHeight).

                self copyFrom:self x:textStartLeft y:srcY

                                 toX:textStartLeft y:(srcY + fontHeight)

                               width:w

                              height:((nLinesShown - visLine - 1) * fontHeight).

                self redrawLine:lineNr.

                self redrawLine:(lineNr + 1).

                self waitForExpose

            ]

        ]

    ]

!

withoutRedrawInsertLine:aString before:lineNr

    "insert the argument, aString before line lineNr; the string

     becomes line nileNr; everything else is moved down; the view

     is not redrawn"

    |line|

    readOnly ifTrue: [

        exceptionBlock value:errorMessage.

        ^ self

    ].

    line := aString.

    line notNil ifTrue:[

        line isBlank ifTrue:[

            line := nil

        ] ifFalse:[

            (line occurrencesOf:(Character tab)) == 0 ifFalse:[

                line := self withTabsExpanded:line

            ]

        ]

    ].

    list isNil ifTrue: [

        list := Text new:lineNr

    ] ifFalse: [

        list grow:((list size + 1) max:lineNr)

    ].

    "I have changed 'replaceFrom:to:with:startingAt:' to correctly handle 

     overlapping copy - if it didn't, we had to use:"

"

    index := list size.

    [index > lineNr] whileTrue: [

        pIndex := index - 1.

        list at:index put:(list at:pIndex).

        index := pIndex

    ].

"

    list replaceFrom:(lineNr + 1) to:(list size) with:list startingAt:lineNr.

    list at:lineNr put:line.

    self contentsChanged

!

insertLine:aString before:lineNr

    "insert the line aString before line lineNr"

    |visLine w 

     dstY "{ Class: SmallInteger }" |

    self withoutRedrawInsertLine:aString before:lineNr.

    visLine := self listLineToVisibleLine:lineNr.

    visLine notNil ifTrue:[

        w := self widthForScrollBetween:lineNr

                                    and:(firstLineShown + nLinesShown).

        dstY := topMargin + ((visLine ) * fontHeight).

        self copyFrom:self x:textStartLeft y:(dstY - fontHeight)

                         toX:textStartLeft y:dstY

                       width:w

                      height:((nLinesShown - visLine "- 1") * fontHeight).

        self redrawVisibleLine:visLine.

        self waitForExpose

    ]

!

insertLines:someText from:start to:end before:lineNr

    "insert a bunch of lines before line lineNr"

    |visLine w nLines "{ Class: SmallInteger }"

     srcY "{ Class: SmallInteger }"

     dstY "{ Class: SmallInteger }" |

    readOnly ifTrue: [

        exceptionBlock value:errorMessage.

        ^ self

    ].

    self withoutRedrawInsertLines:someText

                             from:start to:end

                           before:lineNr.

    visLine := self listLineToVisibleLine:lineNr.

    visLine notNil ifTrue:[

        nLines := end - start + 1.

        ((visLine + nLines) >= nLinesShown) ifTrue:[

            self redrawFromVisibleLine:visLine to:nLinesShown

        ] ifFalse:[

            w := self widthForScrollBetween:(lineNr + nLines)

                                        and:(firstLineShown + nLines + nLinesShown).

            srcY := topMargin + ((visLine - 1) * fontHeight).

            dstY := srcY + (nLines * fontHeight).

            self copyFrom:self x:textStartLeft y:srcY

                             toX:textStartLeft y:dstY

                           width:w

                          height:(height - dstY).

            self redrawFromVisibleLine:visLine to:(visLine + nLines - 1).

            self waitForExpose

        ]

    ]

!

insert:aCharacter atLine:lineNr col:colNr

    "insert a single character at lineNr/colNr"

    |line lineSize newLine drawCharacterOnly|

    readOnly ifTrue: [

        exceptionBlock value:errorMessage.

        ^ self

    ].

    aCharacter == (Character cr) ifTrue:[

        self splitLine:lineNr before:colNr.

        ^ self

    ].

    drawCharacterOnly := false.

    self checkForExistingLine:lineNr.

    line := list at:lineNr.

    lineSize := line size.

    (aCharacter == Character space) ifTrue:[

        (colNr > lineSize)  ifTrue:[

            ^ self

        ]

    ].

    (lineSize == 0) ifTrue: [

        newLine := String new:colNr.

        drawCharacterOnly := true

    ] ifFalse: [

        (colNr > lineSize) ifTrue: [

            newLine := String new:colNr.

            newLine replaceFrom:1 to:lineSize

                           with:line startingAt:1.

            drawCharacterOnly := true

        ] ifFalse: [

            newLine := String new:(lineSize + 1).

            newLine replaceFrom:1 to:(colNr - 1)

                           with:line startingAt:1.

            newLine replaceFrom:(colNr + 1) to:(lineSize + 1)

                           with:line startingAt:colNr

        ]

    ].

    newLine at:colNr put:aCharacter.

    aCharacter == (Character tab) ifTrue:[

        newLine := self withTabsExpanded:newLine.

        drawCharacterOnly := false

    ].

    list at:lineNr put:newLine.

    modified := true.

    contentsWasSaved := false.

    drawCharacterOnly ifTrue:[

        self redrawLine:lineNr col:colNr

    ] ifFalse:[

        self redrawLine:lineNr from:colNr

    ]

!

withoutRedrawInsertLines:lines from:start to:end before:lineNr

    "insert a bunch of lines before line lineNr; the view

     is not redrawn"

    |newLine newLines nLines|

    readOnly ifTrue: [

        exceptionBlock value:errorMessage.

        ^ self

    ].

    nLines := end - start + 1.

    newLines := Array new:(lines size).

    start to:end do:[:index |

        newLine := lines at:index.

        newLine notNil ifTrue:[

            newLine isBlank ifTrue:[

                newLine := nil

            ] ifFalse:[

                (newLine occurrencesOf:(Character tab)) == 0 ifFalse:[

                    newLine := self withTabsExpanded:newLine

                ]

            ]

        ].

        newLines at:index put:newLine

    ].

    list isNil ifTrue: [

        list := Text new:(lineNr + nLines + 1)

    ] ifFalse: [

        list grow:((list size + nLines) max:(lineNr + nLines - 1))