diff --git a/gui/notepad/src/assets.tal b/gui/notepad/src/assets.tal index 02eaebf..c5c698a 100644 --- a/gui/notepad/src/assets.tal +++ b/gui/notepad/src/assets.tal @@ -28,6 +28,9 @@ 0000 0000 0000 3078 7830 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 ] +@etc-icn [ + 0000 0000 0000 0000 0000 0000 0054 0000 ] + @close-icn [ 0000 00ff 8080 8080 8080 8080 80ff 0000 0000 00ef 202f 202f 202f 202f 20ef 0000 diff --git a/gui/notepad/src/notepad.tal b/gui/notepad/src/notepad.tal index 1b93b60..de59772 100644 --- a/gui/notepad/src/notepad.tal +++ b/gui/notepad/src/notepad.tal @@ -440,6 +440,11 @@ #0018 .Screen/y DEO2 get-page &>w ( -- ) + ( | page end ) + .Screen/y DEI2 #00c8 NEQ2 ?{ + ;etc-icn .Screen/addr DEO2 + #01 .Screen/sprite DEO + !&end } ( | draw char ) DUP2 #0001 SUB2 LDA2 char-addr .Screen/addr DEO2 is-selected STH @@ -453,7 +458,7 @@ [ LIT2 05 -Screen/sprite ] DEO .Screen/x DEI2k #0008 SUB2 ROT DEO2 &block walk-char POP INC2 LDAk ?&>w - POP2 + &end POP2 @ ( -- ) .Screen/height DEI2 #0020 GTH2 ?{ JMP2r }