From 37fd1c17f0fcd1be97769498aa8e6c3ad38028bd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A9s=20Cuervo?= <andrescuervor@gmail.com>
Date: Tue, 7 May 2024 13:19:20 -0400
Subject: move ::getColor to Colors.tcl

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

(limited to 'virtual-programs')

diff --git a/virtual-programs/display.folk b/virtual-programs/display.folk
index 97af1bd4..54929e89 100644
--- a/virtual-programs/display.folk
+++ b/virtual-programs/display.folk
@@ -1,7 +1,4 @@
 source "pi/Colors.tcl"
-proc ::getColor {color} {
-    globalColorFunction $color
-}
 
 proc Start-display-process {code} {
     if {$::tcl_platform(os) eq "Darwin"} {
@@ -85,9 +82,6 @@ Start-display-process {
     }]
 
     source "pi/Colors.tcl"
-    proc ::getColor {color} {
-        globalColorFunction $color
-    }
 
     Wish $::thisProcess receives statements like \
         [list /someone/ wishes the GPU /...anything/]
-- 
cgit v1.2.3