From d540c5f990b75ed80acfd0c323da052672b8bb4c Mon Sep 17 00:00:00 2001 From: Omar Rizwan Date: Sun, 3 Sep 2023 17:28:07 -0400 Subject: Use ::Display instead of Display for safety --- virtual-programs/display.folk | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'virtual-programs') 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 -- cgit v1.2.3