From a505e034ed0144920aafd21d9d6eb2bb053a7a7a Mon Sep 17 00:00:00 2001 From: Omar Rizwan Date: Fri, 23 Dec 2022 15:51:18 -0500 Subject: Hacks to fix obvious errors in im.folk w new scoping --- virtual-programs/im.folk | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'virtual-programs') diff --git a/virtual-programs/im.folk b/virtual-programs/im.folk index f87bb477..9156bf8f 100644 --- a/virtual-programs/im.folk +++ b/virtual-programs/im.folk @@ -4,6 +4,7 @@ if {$::isLaptop} { return } Wish $this is outlined green set cc [c create] +source "pi/cUtils.tcl" defineImageType $cc $cc include @@ -37,6 +38,6 @@ When $this has camera image /im/ { When $this has region /r/ { set bwim [bw $im] Wish display runs [list Display::image {*}[lindex $r 0 0] $bwim] - On unmatch [list freeImage $bwim] + On unmatch [list WhenContext::freeImage $bwim] } } \ No newline at end of file -- cgit v1.2.3