"

 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 cursorType

			      undoAction  

			      typeOfSelection 

			      lastString lastReplacement lastAction 

			      replacing showMatchingParenthesis

			      hasKeyboardFocus'

       classVariableNames:'DefaultCursorForegroundColor DefaultCursorBackgroundColor

			   DefaultCursorType'

       poolDictionaries:''

       category:'Views-Text'

!

EditTextView comment:'

COPYRIGHT (c) 1989 by Claus Gittinger

	    All Rights Reserved

'!

!EditTextView 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.

"

!

version

"

"

!

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

    cursorType              <Symbol>        how the cursor is drawn; currently implemented

					    are #block (solid-block cursor), #ibeam

					    (vertical bar at insertion point) 

					    and #caret (caret below insertion-point)

    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

    used globals:

    CopyBuffer              <Text>          text of last copy or cut

    DeleteHistory           <Text>          last 1000 lines of deleted text

"

! !

!EditTextView class methodsFor:'defaults'!

updateStyleCache

    DefaultCursorType := StyleSheet at:'textCursorType' default:#block.

! !

!EditTextView methodsFor:'initialization'!

initialize

    "initialize a new EditTextView;

     setup some instance variables"

    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.

    "

     this will change - focusIn/Out seems to not work always

    "

    hasKeyboardFocus := true.

!

initStyle

    "initialize style specific stuff"

    super initStyle.

    cursorFgColor := DefaultCursorForegroundColor.

    cursorFgColor isNil ifTrue:[cursorFgColor := bgColor].

    cursorBgColor := DefaultCursorBackgroundColor.

    cursorBgColor isNil ifTrue:[cursorBgColor := fgColor].

    cursorType := DefaultCursorType.

!

initializeMiddleButtonMenu

    "initialize the views middleButtonMenu"

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

					 '-'

					 'font ...'

					 '-'

					 'indent'

					 '-'

					 'save as ...'

					 'print'

					))

			      selectors:#(

					  search

					  gotoLine

					  nil

					  changeFont

					  nil

					  indent

					  nil

					  save

					  print

					 )

				receiver:self

				     for:self).

    self enableOrDisableSelectionMenuEntries

!

realize

    "make the view visible"

    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

!

cursorLine

    "return the cursors line (1..). 

     This is the absolute line; NOT the visible line"

    ^ cursorLine

!

cursorCol

    "return the cursors col (1..).

     This is the absolute col; NOT the visible col"

    ^ cursorCol

!

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 ifFalse:[

	readOnly := true.

	self enableOrDisableSelectionMenuEntries

    ]

!

fixedSize

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

     OBSOLETE: use readOnly"

    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.

     For non-block cursors, this is the character immediately to the right

     of the insertion-bar or caret."

    ^ 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 copyTo:(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 catchExpose.

		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 catchExpose.

	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 catchExpose.

	    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|