erase the old text before drawing the new text

ksherlock · May 6, 2023 · 71de072 · 71de072
1 parent 80ef342
commit 71de072
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 12 deletions.
diff --git a/linkctrl.asm b/linkctrl.asm
@@ -180,6 +180,18 @@ link_draw	private
 	~SetBackColor #$ffff
 
 
+! erase the old rectangle...
+	lda #octlRect
+	clc
+	adc control
+	tax
+	lda #0
+	adc control+2
+	pha
+	phx
+	_EraseRect
+
+
 ! left edge
 	ldy #octlRect+2
 	lda [control],y

diff --git a/linkctrl.mac b/linkctrl.mac
@@ -19,6 +19,11 @@
  jsl $E10000
  MEND
  MACRO
+&lab _EraseRect
+&lab ldx #$5504
+ jsl $E10000
+ MEND
+ MACRO
 &lab _GetForeColor
 &lab ldx #$A104
  jsl $E10000
@@ -57,12 +62,6 @@
  jsl $E10000
  mend
  macro
-&l ~DrawChar &p1
-&l ph2 &p1
- ldx #$A404
- jsl $E10000
- mend
- macro
 &l ~SetBackColor &p1
 &l ph2 &p1
  ldx #$A204
@@ -81,12 +80,6 @@
  jsl $E10000
  mend
  macro
-&l ~SetTextMode &p1
-&l ph2 &p1
- ldx #$9C04
- jsl $E10000
- mend
- macro
 &l ~LoadResource &p1,&p2
 &l ph2 &p1
  ph4 &p2