ForkMaster/netgen
1
0
Fork 0
mirror of https://github.com/NGSolve/netgen.git synced 2024-11-11 16:49:16 +05:00
Code Issues Packages Projects Releases Wiki Activity

fix spaces function names

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ng/ngvisual.tcl
View File

@ -1480,7 +1480,7 @@ proc visual_dialog { } {
global visoptions.scalfunction global visoptions.scalfunction
foreach { name textval } $scalentries { foreach { name textval } $scalentries {
$f.m add command -label "$textval" -command \ $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 pack $f.b $f.l -side right

2
ng/onetcl.cpp
View File

@ -5325,7 +5325,7 @@ DLL_HEADER const char * ngscript[] = {""
,"global visoptions.scalfunction\n" ,"global visoptions.scalfunction\n"
,"foreach { name textval } $scalentries {\n" ,"foreach { name textval } $scalentries {\n"
,"$f.m add command -label \"$textval\" -command \\\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" ,"}\n"
,"pack $f.b $f.l -side right\n" ,"pack $f.b $f.l -side right\n"
,"foreach { name textval } $scalentries {\n" ,"foreach { name textval } $scalentries {\n"