From 76ac1f08787cade2909df31fb4ea82ba2b36dc6d Mon Sep 17 00:00:00 2001
From: crc <>
Date: Mon, 22 Jan 2024 11:21:09 +0000
Subject: [PATCH] takawiri: begin making ui elements adjust positioning based
 on LT:H, LT:W, TOB:H, and TOB:W

FossilOrigin-Name: 9ebeb09e1c1c36182945517727c65e266f559560c4c2e99a9d31d4408e80b5fb
---
 takawiri.retro | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/takawiri.retro b/takawiri.retro
index adb1b59..533e320 100755
--- a/takawiri.retro
+++ b/takawiri.retro
@@ -15,13 +15,13 @@ Setup the text output buffer dimensions.
 
 ~~~
 #80 'TOB:W const
-#23 'TOB:H const
+#25 'TOB:H const
 ~~~
 
 Setup the local terminal dimensions.
 
 ~~~
-#100 'LT:W const
+#105 'LT:W const
 #30  'LT:H const
 ~~~
 
@@ -86,8 +86,8 @@ Configure the UI colors.
 ~~~
 
 ~~~
-:~left dss:sep #23 [ I n:inc #82 vt:row,col $| c:put ] indexed-times vt:reset ;
-:~bottom dss:sep #24 #1 vt:row,col #81 [ $= c:put ] times $+ c:put vt:reset ;
+:~left dss:sep TOB:H n:inc [ I n:inc #82 vt:row,col $| c:put ] indexed-times vt:reset ;
+:~bottom dss:sep TOB:H n:inc #1 vt:row,col #81 [ $= c:put ] times $+ c:put vt:reset ;
 
 'Items d:create #0 comma #32 allot
 
@@ -143,8 +143,8 @@ is done.
 
 :prompt (-)
   dss:prompt
-  #25 #1 vt:row,col LT:W [ sp ] times
-  #25 #1 vt:row,col '>>_ s:put ; 
+  LT:H #1 vt:row,col LT:W [ sp ] times
+  LT:H #1 vt:row,col '>>_ s:put ; 
 
 ~~~