hg/stx-libwidg: comparison ETxtView.st

equal deleted inserted replaced

-:5996b2afa4fb
+:cbf495fe3b64
 EditTextView comment:'
 COPYRIGHT (c) 1989 by Claus Gittinger
 	    All Rights Reserved
-$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.21 1995-02-22 01:20:41 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.22 1995-03-06 19:28:18 claus Exp $
 '!
 !EditTextView class methodsFor:'documentation'!
 copyright
 "
 !
 version
 "
-$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.21 1995-02-22 01:20:41 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.22 1995-03-06 19:28:18 claus Exp $
 "
 !
 documentation
 "
 super initEvents.
 self enableEnterLeaveEvents
 !
-initializeMiddleButtonMenu
+editMenu
-"initialize the views middleButtonMenu"
+"return the views middleButtonMenu"
-|labels|
+|labels selectors m sub|
-labels := resources array:#(
+labels := #(
-"/                               'undo'
+"/                  'undo'
-			       'again'
+		    'again'
-			       '-'
+		    '-'
-			       'copy'
+		    'copy'
-			       'cut'
+		    'cut'
-			       'paste'
+		    'paste'
-			       '-'
+		    '-'
-			       'accept'
+		    'accept'
-			       '='
+		    '='
-			       'others'
+		    'others'
-			       ).
+	       ).
-self middleButtonMenu:(PopUpMenu
+selectors := #(
-				labels:labels
+"/                  undo
-			     selectors:#(
+		    again
-"/                                         undo
+		    nil
-					 again
+		    copySelection
-					 nil
+		    cut
-					 copySelection
+		    paste
-					 cut
+		    nil
-					 paste
+		    accept
-					 nil
+		    nil
-					 accept
+		    others
-					 nil
+		   ).
-					 others
-					)
+m := PopUpMenu
-				receiver:self
+	    labels:(resources array:labels)
-				     for:self).
+	    selectors:selectors.
-middleButtonMenu subMenuAt:#others put:(PopUpMenu
+labels := #(
-				labels:(resources array:#(
+		    'search ...'
-					 'search ...'
+		    'goto ...'
-					 'goto ...'
+		    '-'
-					 '-'
+		    'font ...'
-					 'font ...'
+		    '-'
-					 '-'
+		    'indent'
-					 'indent'
+		    '-'
-					 '-'
+		    'save as ...'
-					 'save as ...'
+		    'print'
-					 'print'
+		).
-					))
-			      selectors:#(
+selectors := #(
-					  search
+		     search
-					  gotoLine
+		     gotoLine
-					  nil
+		     nil
-					  changeFont
+		     changeFont
-					  nil
+		     nil
-					  indent
+		     indent
-					  nil
+		     nil
-					  save
+		     save
-					  print
+		     print
-					 )
+		    ).
-				receiver:self
-				     for:self).
+sub := PopUpMenu
+		labels:(resources array:labels)
-self enableOrDisableSelectionMenuEntries
+		selectors:selectors
+		receiver:model.
+m subMenuAt:#others put:sub.
+readOnly ifTrue:[
+	m disable:#paste
+].
+self hasSelection not ifTrue:[
+	m disable:#copySelection.
+].
+(self hasSelection not or:[readOnly]) ifTrue:[
+	m disable:#cut.
+	sub disable:#indent.
+].
+^ m.
 !
 realize
 "make the view visible"
 !
 readOnly
 "make the text readonly"
-readOnly ifFalse:[
+readOnly := true
-	readOnly := true.
-	self enableOrDisableSelectionMenuEntries
-]
 !
 fixedSize
 "make the texts size fixed (no lines may be added).
 OBSOLETE: use readOnly"
 "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
 			       width:w
 			      height:((nLinesShown - visLine - 1) * fontHeight).
 		self redrawLine:lineNr.
 		self redrawLine:(lineNr + 1).
 		self waitForExpose
-	    ]
+	    ].
+	    self contentsChanged.
 	]
 ]
 !
 withoutRedrawInsertLine:aString before:lineNr
 	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"
 dstY "{ Class: SmallInteger }" |
 visLine := self listLineToVisibleLine:lineNr.
 (shown not or:[visLine isNil]) ifTrue:[
 	self withoutRedrawInsertLine:aString before:lineNr.
+	self contentsChanged.
 	^ self
 ].
 w := self widthForScrollBetween:lineNr
 				and:(firstLineShown + nLinesShown).
 self copyFrom:self x:textStartLeft y:(dstY - fontHeight)
 		     toX:textStartLeft y:dstY
 		   width:w
 		  height:((nLinesShown - visLine "- 1") * fontHeight).
 self redrawVisibleLine:visLine.
-self waitForExpose
+self waitForExpose.
+self contentsChanged.
 !
 insertLines:someText from:start to:end before:lineNr
 "insert a bunch of lines before line lineNr"
 visLine := self listLineToVisibleLine:lineNr.
 (shown not or:[visLine isNil]) ifTrue:[
 	self withoutRedrawInsertLines:someText
 				 from:start to:end
 			       before:lineNr.
+	self contentsChanged.
 	^ self
 ].
 nLines := end - start + 1.
 ((visLine + nLines) >= nLinesShown) ifTrue:[
 			 toX:textStartLeft y:dstY
 		       width:w
 		      height:(height - dstY).
 	self redrawFromVisibleLine:visLine to:(visLine + nLines - 1).
 	self waitForExpose
-]
+].
+self contentsChanged.
 !
 insert:aCharacter atLine:lineNr col:colNr
 "insert a single character at lineNr/colNr"
 	index := pIndex
 ].
 "
 list replaceFrom:(lineNr + nLines) to:(list size) with:list startingAt:lineNr.
 list replaceFrom:lineNr to:(lineNr + nLines - 1) with:newLines startingAt:start.
-self contentsChanged
 !
 withoutRedrawInsertStringWithoutCRs:aString atLine:lineNr col:colNr
 "insert aString (which has no crs) at lineNr/colNr"
 v topView label:'deleted text'.
 ! !
 !EditTextView methodsFor:'selections'!
-disableSelectionMenuEntries
-"disable relevant menu entries for a selection"
-middleButtonMenu notNil ifTrue:[
-	super disableSelectionMenuEntries.
-	middleButtonMenu disable:#cut.
-	middleButtonMenu disable:#replace.
-	middleButtonMenu disable:#indent
-]
-!
-enableSelectionMenuEntries
-"enable relevant menu entries for a selection"
-middleButtonMenu notNil ifTrue:[
-	"if readonly, never enable destructive functions"
-	readOnly ifTrue:[
-	    super enableSelectionMenuEntries.
-	    middleButtonMenu disable:#cut.
-	    middleButtonMenu disable:#replace.
-	    middleButtonMenu disable:#indent.
-	    middleButtonMenu disable:#paste.
-	] ifFalse:[
-	    super enableSelectionMenuEntries.
-	    middleButtonMenu enable:#cut.
-	    middleButtonMenu enable:#replace.
-	    middleButtonMenu enable:#indent.
-	]
-]
-!
 unselect
 "forget and unhilight selection - must take care of cursor here"
 self withCursorOffDo:[
 	super unselect

changeset 97	cbf495fe3b64
parent 91	e8db16616e97
child 105	3d064ba4a0cc