diff options
| author | Omar Rizwan <omar@omar.website> | 2022-12-23 20:51:18 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2022-12-23 20:51:18 +0000 |
| commit | a505e034ed0144920aafd21d9d6eb2bb053a7a7a (patch) | |
| tree | 18c22fcf253cffe5eb5c9fa94b4700552bf65cfd /virtual-programs | |
| parent | Fix severe bugs with new ns-based variable/proc scope handling (diff) | |
| download | folk-a505e034ed0144920aafd21d9d6eb2bb053a7a7a.tar.gz folk-a505e034ed0144920aafd21d9d6eb2bb053a7a7a.zip | |
Hacks to fix obvious errors in im.folk w new scoping
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/im.folk | 3 |
1 files changed, 2 insertions, 1 deletions
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 <stdlib.h> @@ -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 |