Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gray noFocus-openWin solidCaret cursors
authorClaus Gittinger <cg@exept.de>
Thu, 30 May 1996 11:55:15 +0200
changeset 729 0d1fb3211a41
parent 728 3ef81000ee8c
child 730 66a70c4860ea
gray noFocus-openWin solidCaret cursors
ETxtView.st file | annotate | diff | comparison | revisions
EditTextView.st file | annotate | diff | comparison | revisions 
--- a/ETxtView.st	Thu May 30 09:21:35 1996 +0200
+++ b/ETxtView.st	Thu May 30 11:55:15 1996 +0200
@@ -1047,13 +1047,19 @@
     "draw the cursor for the case when the view has no keyboard focus" 
 
     self hasSelection ifTrue:[
-	^ super redrawVisibleLine:cursorVisibleLine col:cursorCol.
+        ^ super redrawVisibleLine:cursorVisibleLine col:cursorCol.
     ].
     cursorType ~~ #block ifTrue:[
-	"these dont show unfocussed"
-	^ self drawFocusCursor
+        ((cursorType == #solidCaret) or:[cursorType == #bigSolidCaret]) ifTrue:[
+            ^ self drawCursor:cursorType with:cursorFgColor and:Color grey 
+        ].
+
+        "these dont show unfocussed"
+        ^ self drawFocusCursor
     ].
     self drawCursor:#frame with:cursorFgColor and:cursorBgColor
+
+    "Modified: 30.5.1996 / 11:30:35 / cg"
 !
 
 gotoLine:aLineNumber
@@ -3868,5 +3874,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.84 1996-05-30 07:21:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.85 1996-05-30 09:55:15 cg Exp $'
 ! !
--- a/EditTextView.st	Thu May 30 09:21:35 1996 +0200
+++ b/EditTextView.st	Thu May 30 11:55:15 1996 +0200
@@ -1047,13 +1047,19 @@
     "draw the cursor for the case when the view has no keyboard focus" 
 
     self hasSelection ifTrue:[
-	^ super redrawVisibleLine:cursorVisibleLine col:cursorCol.
+        ^ super redrawVisibleLine:cursorVisibleLine col:cursorCol.
     ].
     cursorType ~~ #block ifTrue:[
-	"these dont show unfocussed"
-	^ self drawFocusCursor
+        ((cursorType == #solidCaret) or:[cursorType == #bigSolidCaret]) ifTrue:[
+            ^ self drawCursor:cursorType with:cursorFgColor and:Color grey 
+        ].
+
+        "these dont show unfocussed"
+        ^ self drawFocusCursor
     ].
     self drawCursor:#frame with:cursorFgColor and:cursorBgColor
+
+    "Modified: 30.5.1996 / 11:30:35 / cg"
 !
 
 gotoLine:aLineNumber
@@ -3868,5 +3874,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.84 1996-05-30 07:21:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.85 1996-05-30 09:55:15 cg Exp $'
 ! !
hg/stx-libwidg