diff options
| author | Omar Rizwan <omar@omar.website> | 2023-09-03 21:28:07 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2023-09-03 21:28:07 +0000 |
| commit | d540c5f990b75ed80acfd0c323da052672b8bb4c (patch) | |
| tree | 2464b5a08cfe114ae2b3a44d46f00839b6f63d9d /virtual-programs | |
| parent | Small optimization to Commit: uplevel is slow (diff) | |
| download | folk-d540c5f990b75ed80acfd0c323da052672b8bb4c.tar.gz folk-d540c5f990b75ed80acfd0c323da052672b8bb4c.zip | |
Use ::Display instead of Display for safety
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/display.folk | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/virtual-programs/display.folk b/virtual-programs/display.folk index b0b878ca..c73b354c 100644 --- a/virtual-programs/display.folk +++ b/virtual-programs/display.folk @@ -1,39 +1,39 @@ if {$::isLaptop} return -namespace eval Display { +namespace eval ::Display { variable WIDTH variable HEIGHT variable LAYER 0 regexp {mode "(\d+)x(\d+)"} [exec fbset] -> WIDTH HEIGHT proc drawOnTop {func args} { - set Display::LAYER 1 + set ::Display::LAYER 1 uplevel [list $func {*}$args] - set Display::LAYER 0 + set ::Display::LAYER 0 } proc stroke {points width color} { - uplevel [list Wish display runs [list Display::stroke $points $width $color] on layer $Display::LAYER] + uplevel [list Wish display runs [list Display::stroke $points $width $color] on layer $::Display::LAYER] } proc circle {x y radius thickness color} { - uplevel [list Wish display runs [list Display::circle $x $y $radius $thickness $color] on layer $Display::LAYER] + uplevel [list Wish display runs [list Display::circle $x $y $radius $thickness $color] on layer $::Display::LAYER] } proc text args { - uplevel [list Wish display runs [list Display::text {*}$args] on layer $Display::LAYER] + uplevel [list Wish display runs [list Display::text {*}$args] on layer $::Display::LAYER] } proc fillTriangle args { - uplevel [list Wish display runs [list Display::fillTriangle {*}$args] on layer $Display::LAYER] + uplevel [list Wish display runs [list Display::fillTriangle {*}$args] on layer $::Display::LAYER] } proc fillQuad args { - uplevel [list Wish display runs [list Display::fillQuad {*}$args] on layer $Display::LAYER] + uplevel [list Wish display runs [list Display::fillQuad {*}$args] on layer $::Display::LAYER] } proc fillPolygon args { - uplevel [list Wish display runs [list Display::fillPolygon {*}$args] on layer $Display::LAYER] + uplevel [list Wish display runs [list Display::fillPolygon {*}$args] on layer $::Display::LAYER] } variable displayTime none |