From 795766ab15131b5de9b752501ae7bb5d4ebe58fa Mon Sep 17 00:00:00 2001 From: Omar Rizwan Date: Thu, 14 Sep 2023 01:10:28 -0400 Subject: Faster (global var sampling, not reactive) metrics --- virtual-programs/display.folk | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'virtual-programs/display.folk') diff --git a/virtual-programs/display.folk b/virtual-programs/display.folk index d3f6b610..75ad5cf1 100644 --- a/virtual-programs/display.folk +++ b/virtual-programs/display.folk @@ -35,8 +35,6 @@ namespace eval ::Display { proc fillPolygon args { uplevel [list Wish display runs [list Display::fillPolygon {*}$args] on layer $::Display::LAYER] } - - variable displayTime none } On process { @@ -87,7 +85,8 @@ On process { Step } } -# TODO: remove this compatibility hack + +set ::displayTime none When the display time is /displayTime/ { - set ::Display::displayTime $displayTime + set ::displayTime $displayTime } -- cgit v1.2.3 From f9d232657dab54bc990570fff9a08a377303d8da Mon Sep 17 00:00:00 2001 From: Omar Rizwan Date: Thu, 14 Sep 2023 15:43:40 -0400 Subject: Fix metrics backward compat --- virtual-programs/display.folk | 2 ++ 1 file changed, 2 insertions(+) (limited to 'virtual-programs/display.folk') diff --git a/virtual-programs/display.folk b/virtual-programs/display.folk index 75ad5cf1..674cf1f7 100644 --- a/virtual-programs/display.folk +++ b/virtual-programs/display.folk @@ -86,7 +86,9 @@ On process { } } +set ::Display::displayTime none set ::displayTime none When the display time is /displayTime/ { + set ::Display::displayTime $displayTime set ::displayTime $displayTime } -- cgit v1.2.3