diff options
| author | Andrés Cuervo <andrescuervor@gmail.com> | 2024-05-06 20:51:23 +0000 |
|---|---|---|
| committer | Andrés Cuervo <andrescuervor@gmail.com> | 2024-05-06 20:51:23 +0000 |
| commit | 03be7600ca6be74fae131843adc1c1f0d5ce0d31 (patch) | |
| tree | 12909aa8e0c975af79a657d524167e357beddfa5 /virtual-programs | |
| parent | Merge pull request #133 from FolkComputer/ac/rotate-web-editor (diff) | |
| download | folk-03be7600ca6be74fae131843adc1c1f0d5ce0d31.tar.gz folk-03be7600ca6be74fae131843adc1c1f0d5ce0d31.zip | |
Add rgb, hsl, & hex as color formats
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/display.folk | 10 |
1 files changed, 4 insertions, 6 deletions
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 \ |