From e09204b7dc6165be9ffab947fb47e89c484631f4 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Tue, 28 May 2024 19:19:03 -0700
Subject: [PATCH] Do not draw footer when collapsed

---
 gui/notepad/src/notepad.tal | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gui/notepad/src/notepad.tal b/gui/notepad/src/notepad.tal
index 9dfc660..e878301 100644
--- a/gui/notepad/src/notepad.tal
+++ b/gui/notepad/src/notepad.tal
@@ -447,7 +447,7 @@
 		.Screen/y DEI2 #00c8 NEQ2 ?{
 			;etc-icn .Screen/addr DEO2
 			#01 .Screen/sprite DEO
-			!&end }
+			POP2 JMP2r }
 		( | draw char )
 		DUP2 #0001 SUB2 LDA2 char-addr .Screen/addr DEO2
 		is-selected STH
@@ -464,6 +464,7 @@
 	&end POP2 JMP2r
 
 @<draw-footer> ( -- )
+	[ LIT2 00 -collapsed ] LDZ EQU ?{ JMP2r }
 	[ LIT2 26 -Screen/auto ] DEO
 	#0000 .Screen/x DEO2
 	.Screen/height DEI2 #0020 SUB2 DUP2 .Screen/y DEO2