Get VIDEX and //e 80 col to agree on cursor

dschmenk · Mar 3, 2025 · 93af940 · 93af940
1 parent f56784b
commit 93af940
Show file tree

Hide file tree

Showing 3 changed files with 18 additions and 16 deletions.
diff --git a/images/apple/PLASMA-2.20.po b/images/apple/PLASMA-2.20.po
diff --git a/src/libsrc/apple/conio.pla b/src/libsrc/apple/conio.pla
@@ -669,19 +669,19 @@ def a2ctrl80v(code, param)#1
             handled = TRUE
             break
         is ctrlcursor
-            if param == OFF
-                flags = flags & ~showcurs
-                ^$C0B0 = $0A
-                ^$C0B1 = $20
-            elsif param == INVERSE
-                flags = flags | showcurs
-                ^$C0B0 = $0A
-                ^$C0B1 = $00
-            else
-                flags = flags | showcurs
-                ^$C0B0 = $0A
-                ^$C0B1 = $C0
-            fin
+            when param
+                is OFF
+                    ^$C0B0 = $0A
+                    ^$C0B1 = $20
+                    break
+                is INVERSE
+                    ^$C0B0 = $0A
+                    ^$C0B1 = $00
+                    break
+                otherwise
+                    ^$C0B0 = $0A
+                    ^$C0B1 = $C0
+            wend
             handled = TRUE
             break
         is ctrlscroll

diff --git a/src/toolsrc/ed.pla b/src/toolsrc/ed.pla
@@ -1072,13 +1072,15 @@ def keyin
 
     underchr = curscol >= ^(txtlinbuf=>[cursrow]) ?? ' ' :: txtlinbuf=>[cursrow]->[curscol + 1]
     curschr  = flags & insmode ?? '+' :: '_'
+    conio:gotoxy(cursx, cursy)
     repeat
-        conio:gotoxy(cursx, cursy)
+        conio:textctrl(ctrlattr,   INVERSE)
         conio:putchars(1, curschr)
         conio:gotoxy(cursx, cursy)
-        conio:textctrl(ctrlattr, INVERSE)
+        conio:textctrl(ctrlcursor, INVERSE)
         waitkey
-        conio:textctrl(ctrlattr, OFF)
+        conio:textctrl(ctrlcursor, OFF)
+        conio:textctrl(ctrlattr, NORMAL)
         conio:putchars(1, underchr)
         conio:gotoxy(cursx, cursy)
         waitkey