From b2b4768a73458ca214198c9d9e751aceb036ef80 Mon Sep 17 00:00:00 2001
From: Naveen Michaud-Agrawal <naveen.michaudagrawal@gmail.com>
Date: Sat, 7 Oct 2023 21:49:11 +0000
Subject: Add claim for display size

---
 virtual-programs/display.folk | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'virtual-programs')

diff --git a/virtual-programs/display.folk b/virtual-programs/display.folk
index f92afb67..36a370e7 100644
--- a/virtual-programs/display.folk
+++ b/virtual-programs/display.folk
@@ -23,6 +23,8 @@ namespace eval ::Display {
             uplevel [list Wish display runs [list $func {*}$args] on layer $::Display::LAYER]
         }
     }
+
+    Claim the display Display has width $::Display::WIDTH height $::Display::HEIGHT
 }
 
 On process {
-- 
cgit v1.2.3