From a7491f4a61354004cb7ff5de4c65a51cb2f59d3d Mon Sep 17 00:00:00 2001 From: mescalinum Date: Wed, 19 Aug 2009 19:22:17 +0000 Subject: Fix handling of empty symbol svn path=/trunk/externals/ffext/; revision=11983 --- composer/window.tk | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'composer/window.tk') diff --git a/composer/window.tk b/composer/window.tk index 7f7da7d..ac52a2b 100644 --- a/composer/window.tk +++ b/composer/window.tk @@ -46,6 +46,7 @@ namespace eval pd::composer { array set patterns {} variable quirks_fix_int_floats 0 + variable symbolmap {empty {}} # set to 1 until startup, for getting soon a pattern list # affects the behavior of dispatcher::patterns branch variable startup @@ -372,6 +373,11 @@ namespace eval pd::composer { proc validateCommand {id row col curVal newVal} { debugPrint [info level 0] variable currentpattern + variable symbolmap + + debugPrint "BEFORE: newVal = '$newVal'" + set newVal [dict get [dict merge [list $newVal $newVal] [lreverse $symbolmap]] $newVal] + debugPrint "AFTER: newVal = '$newVal'" sendGui [concat $id EDIT setcell $currentpattern($id) $row $col $newVal] @@ -510,7 +516,8 @@ namespace eval pd::composer { proc setCellValueUI {id pat r c v} { upvar 0 [getDataVar $id $pat] data - set data($r,$c) [string map {empty {}} $v] + variable symbolmap + set data($r,$c) [dict get [dict merge [list $v $v] $symbolmap] $v] } proc dispatch {id args} { -- cgit v1.2.1