hg/stx-libwidg: comparison EditTextView.st

equal deleted inserted replaced

-:27f3fc6dee3d
+:be8b356b2e59
 		replacing showMatchingParenthesis hasKeyboardFocus acceptAction
 		lockUpdates tabMeansNextField autoIndent insertMode
 		trimBlankLines wordWrap replacementWordSelectStyle acceptChannel
 		acceptEnabled'
 	classVariableNames:'DefaultCursorForegroundColor DefaultCursorBackgroundColor
-		DefaultCursorType DefaultCursorNoFocusForegroundColor'
+		DefaultCursorType DefaultCursorNoFocusForegroundColor ST80Mode'
 	poolDictionaries:''
 	category:'Views-Text'
 !
 !EditTextView class methodsFor:'documentation'!
 lockUpdates             <Boolean>       internal, private
 prevCursorState         <Boolean>       temporary, private
+class variables:
+ST80Mode                <Boolean>       if true, cursor positioning is
+done as in vi or ST80; i.e.
+wysiwyg mode is somewhat relaxed,
+in that the cursor cannot be
+positioned behind a lines end.
+This is not yet completely implemented.
 used globals:
 DeleteHistory           <Text>          last 1000 lines of deleted text
 (but only if this variable exists already)
 DefaultCursorForegroundColor := StyleSheet colorAt:'textCursorForegroundColor'.
 DefaultCursorBackgroundColor := StyleSheet colorAt:'textCursorBackgroundColor'.
 DefaultCursorNoFocusForegroundColor := StyleSheet colorAt:'textCursorNoFocusForegroundColor'.
 DefaultCursorType := StyleSheet at:'textCursorType' default:#block.
-"Modified: 18.2.1997 / 15:00:01 / cg"
+ST80Mode := false.
+"Modified: 13.8.1997 / 15:38:16 / cg"
 ! !
 !EditTextView methodsFor:'ST-80 compatibility editing'!
 insert:aString at:aCharacterPosition
 !
 cursorLeft
 "move cursor to left"
-(cursorCol ~~ 1) ifTrue: [
+(cursorCol ~~ 1) ifTrue:[
-	self cursorCol:(cursorCol - 1)
+self cursorCol:(cursorCol - 1)
-].
+] ifFalse:[
+ST80Mode == true ifTrue:[
+self cursorUp.
+self cursorToEndOfLine.
+]
+]
+"Modified: 12.8.1997 / 13:57:14 / cg"
 !
 cursorLine:line col:col
 "this positions onto physical - not visible - line"
 !
 cursorRight
 "move cursor to right"
+|l|
+ST80Mode == true ifTrue:[
+l := (self listAt:cursorLine).
+cursorCol >= (l size + 1) ifTrue:[
+self cursorReturn.
+^ self
+]
+].
 self cursorCol:(cursorCol + 1)
+"Modified: 13.8.1997 / 15:33:48 / cg"
 !
 cursorTab
 "move cursor to next tabstop"
 !
 cursorToEndOfLine
 "move cursor to end of current line"
-|line newCol|
+|line|
-list isNil ifTrue:[
+line := (self listAt:cursorLine).
-	newCol := 1
+self cursorCol:(line size + 1)
-] ifFalse:[
-	line := list at:cursorLine.
+"Modified: 13.8.1997 / 15:34:02 / cg"
-	newCol := line size + 1
-].
-self cursorCol:newCol
 !
 cursorToFirstVisibleLine
 "place cursor into the first visible line; do not scroll."
 "check of col is a valid cursor position; return a new col-nr if not.
 Here, no limits are enforced (and col is returned),
 but it may be redefined in EditFields or views which dont like the
 cursor to be positioned behind the end of a textLine (vi/st-80 behavior)"
+|l max|
+ST80Mode == true ifTrue:[
+l := (self listAt:line).
+max := l size + 1.
+col > max ifTrue:[
+^ max
+]
+].
 ^ col
 "Created: 22.5.1996 / 14:25:30 / cg"
-"Modified: 22.5.1996 / 18:29:21 / cg"
+"Modified: 13.8.1997 / 15:34:13 / cg"
 !
 validateCursorLine:line
 "check of line is a valid cursor line; return a fixed line-nr if not.
 Here, no limits are enforced (and line is returned), but it may be
 ].
 self hideCursor.
 aBlock valueNowOrOnUnwindDo:[
 	self showCursor
 ]
-! !
-!EditTextView methodsFor:'documentation'!
-examples
-"
-non MVC operation:
-basic setup:
-[exBegin]
-|top textView|
-top := StandardSystemView new.
-top extent:300@200.
-textView := EditTextView new.
-textView origin:0.0 @ 0.0 corner:1.0 @ 1.0.
-top addSubView:textView.
-textView contents:('/etc/hosts' asFilename contentsOfEntireFile).
-top open.
-[exEnd]
-with vertical scrollbar:
-[exBegin]
-|top scrollView textView|
-top := StandardSystemView new.
-top extent:300@200.
-scrollView := ScrollableView for:EditTextView.
-textView := scrollView scrolledView.
-scrollView origin:0.0 @ 0.0 corner:1.0 @ 1.0.
-top addSubView:scrollView.
-textView contents:('/etc/hosts' asFilename contentsOfEntireFile).
-top open.
-[exEnd]
-with horizontal & vertical scrollbars:
-[exBegin]
-|top scrollView textView|
-top := StandardSystemView new.
-top extent:300@200.
-scrollView := HVScrollableView for:EditTextView.
-textView := scrollView scrolledView.
-scrollView origin:0.0 @ 0.0 corner:1.0 @ 1.0.
-top addSubView:scrollView.
-textView contents:('/etc/hosts' asFilename contentsOfEntireFile).
-top open.
-[exEnd]
-set the action for accept:
-[exBegin]
-|top textView|
-top := StandardSystemView new.
-top extent:300@200.
-textView := EditTextView new.
-textView origin:0.0 @ 0.0 corner:1.0 @ 1.0.
-top addSubView:textView.
-textView contents:('/etc/hosts' asFilename contentsOfEntireFile).
-textView acceptAction:[:contents |
-Transcript showCR:'will not overwrite the file with:'.
-Transcript showCR:contents asString
-].
-top open.
-[exEnd]
-MVC operation:
-(the examples model here is a plug simulating a real model;
-real world applications would not use a plug ..)
-[exBegin]
-|top textView model|
-model := Plug new.
-model respondTo:#accepted:
-with:[:newContents |
-Transcript showCR:'will not overwrite the file with:'.
-Transcript showCR:newContents asString
-].
-model respondTo:#getList
-with:['/etc/hosts' asFilename contentsOfEntireFile].
-top := StandardSystemView new.
-top extent:300@200.
-textView := EditTextView new.
-textView origin:0.0 @ 0.0 corner:1.0 @ 1.0.
-top addSubView:textView.
-textView model:model;
-changeMessage:#accepted:;
-listMessage:#getList;
-aspect:#list.
-top open.
-[exEnd]
-two textViews on the same model:
-[exBegin]
-|top1 textView1 top2 textView2 model currentContents|
-model := Plug new.
-model respondTo:#accepted:
-with:[:newContents |
-Transcript showCR:'accepted:'.
-Transcript showCR:newContents asString.
-currentContents := newContents.
-model changed:#contents
-].
-model respondTo:#getList
-with:[Transcript showCR:'query'.
-currentContents].
-top1 := StandardSystemView new.
-top1 extent:300@200.
-textView1 := EditTextView new.
-textView1 origin:0.0 @ 0.0 corner:1.0 @ 1.0.
-top1 addSubView:textView1.
-textView1 model:model;
-aspect:#contents;
-changeMessage:#accepted:;
-listMessage:#getList.
-top1 open.
-top2 := StandardSystemView new.
-top2 extent:300@200.
-textView2 := EditTextView new.
-textView2 origin:0.0 @ 0.0 corner:1.0 @ 1.0.
-top2 addSubView:textView2.
-textView2 model:model;
-aspect:#contents;
-changeMessage:#accepted:;
-listMessage:#getList.
-top2 open.
-[exEnd]
-"
-"Modified: 27.4.1996 / 16:29:43 / cg"
 ! !
 !EditTextView methodsFor:'editing'!
 copyAndDeleteSelection
 drawCharacterOnly := false.
 self checkForExistingLine:lineNr.
 line := list at:lineNr.
 lineSize := line size.
-(trimBlankLines
+ST80Mode ~~ true ifTrue:[
-and:[colNr > lineSize
+(trimBlankLines
-and:[aCharacter == Character space]]) ifTrue:[
+and:[colNr > lineSize
-^ self
+and:[aCharacter == Character space]]) ifTrue:[
+^ self
+]
 ].
 (lineSize == 0) ifTrue:[
 newLine := aCharacter asString species new:colNr.
 drawCharacterOnly := true
 ] ifFalse:[
 self redrawLine:lineNr from:colNr
 ]
 ]
-"Modified: 22.5.1996 / 15:35:12 / cg"
+"Modified: 13.8.1997 / 15:37:21 / cg"
 !
 insertLines:someText from:start to:end before:lineNr
 "insert a bunch of lines before line lineNr"
 ! !
 !EditTextView methodsFor:'private'!
 checkModificationsAllowed
+"check if the text can be modified (i.e. is not readOnly).
+evaluate the exceptionBlock if not.
+This block should be provided by the application or user of the textView,
+and may show a warnBox or whatever."
 readOnly ifTrue: [
-	exceptionBlock isNil ifTrue:[
+exceptionBlock isNil ifTrue:[
-	    ^ false
+^ false
-	].
+].
-	(exceptionBlock value:'Text may not be modified') ~~ true ifTrue:[
+(exceptionBlock value:'Text may not be modified') ~~ true ifTrue:[
-	    ^ false
+^ false
-	]
+]
 ].
 ^ true
+"Modified: 13.8.1997 / 15:36:07 / cg"
 !
 textChanged
 "my text was modified (internally).
 Sent whenever text has been edited (not to confuse with
 ! !
 !EditTextView class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.130 1997-08-11 11:58:13 cg Exp $'
+^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.131 1997-08-13 13:40:07 cg Exp $'
 ! !

changeset 1300	be8b356b2e59
parent 1296	d834c8210a01
child 1304	173d00c195f9