From 03be7600ca6be74fae131843adc1c1f0d5ce0d31 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A9s=20Cuervo?= <andrescuervor@gmail.com>
Date: Mon, 6 May 2024 16:51:23 -0400
Subject: Add rgb, hsl, & hex as color formats

---
 virtual-programs/display.folk | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to 'virtual-programs')

diff --git a/virtual-programs/display.folk b/virtual-programs/display.folk
index 458e847c..97af1bd4 100644
--- a/virtual-programs/display.folk
+++ b/virtual-programs/display.folk
@@ -1,7 +1,6 @@
-namespace eval Colors { source "pi/Colors.tcl" }
+source "pi/Colors.tcl"
 proc ::getColor {color} {
-    if {[info exists Colors::$color]} { return [set Colors::$color] } \
-        else { return $Colors::white }
+    globalColorFunction $color
 }
 
 proc Start-display-process {code} {
@@ -85,10 +84,9 @@ Start-display-process {
         return res;
     }]
 
-    namespace eval Colors { source "pi/Colors.tcl" }
+    source "pi/Colors.tcl"
     proc ::getColor {color} {
-        if {[info exists Colors::$color]} { return [set Colors::$color] } \
-            else { return $Colors::white }
+        globalColorFunction $color
     }
 
     Wish $::thisProcess receives statements like \
-- 
cgit v1.2.3