fix spaces function names

This commit is contained in:
Matthias Hochsteger 2022-10-06 15:10:11 +02:00
parent 85b909ef21
commit 0170789bbf
2 changed files with 2 additions and 2 deletions

View File

@ -1480,7 +1480,7 @@ proc visual_dialog { } {
global visoptions.scalfunction
foreach { name textval } $scalentries {
$f.m add command -label "$textval" -command \
"$f.b configure -text \"$textval\" ; set visoptions.scalfunction $name ; Ng_Vis_Set parameters ; redraw ; "
"$f.b configure -text \"$textval\" ; set visoptions.scalfunction \"$name\" ; Ng_Vis_Set parameters ; redraw ; "
}
pack $f.b $f.l -side right

View File

@ -5325,7 +5325,7 @@ DLL_HEADER const char * ngscript[] = {""
,"global visoptions.scalfunction\n"
,"foreach { name textval } $scalentries {\n"
,"$f.m add command -label \"$textval\" -command \\\n"
,"\"$f.b configure -text \\\"$textval\\\" ; set visoptions.scalfunction $name ; Ng_Vis_Set parameters ; redraw ; \"\n"
,"\"$f.b configure -text \\\"$textval\\\" ; set visoptions.scalfunction \\\"$name\\\" ; Ng_Vis_Set parameters ; redraw ; \"\n"
,"}\n"
,"pack $f.b $f.l -side right\n"
,"foreach { name textval } $scalentries {\n"