diff options
author | mescalinum <mescalinum@users.sourceforge.net> | 2009-08-19 19:22:17 +0000 |
---|---|---|
committer | mescalinum <mescalinum@users.sourceforge.net> | 2009-08-19 19:22:17 +0000 |
commit | a7491f4a61354004cb7ff5de4c65a51cb2f59d3d (patch) | |
tree | 85f7ebc564946ffb42180a2ef70ffbcd7d58bbb4 /composer/window.tk | |
parent | 8835fd9e4dbeb386e044a4a6e4519639d6f50fae (diff) |
Fix handling of empty symbol
svn path=/trunk/externals/ffext/; revision=11983
Diffstat (limited to 'composer/window.tk')
-rw-r--r-- | composer/window.tk | 9 |
1 files changed, 8 insertions, 1 deletions
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} { |