diff --git a/ng/onetcl.cpp b/ng/onetcl.cpp index 0c160958..9552e024 100644 --- a/ng/onetcl.cpp +++ b/ng/onetcl.cpp @@ -3414,37 +3414,38 @@ const char * ngscript[] = {"" ,"{event generate [focus -displayof %W] -delta -120}\n" ,"bind . { Ng_MouseMove 0 0 0 [expr {%D/-5}] zoom; redraw }\n" ,"bind .ndraw <> {\n" -,"set index [string first . %D end-6]\n" -,"set type [string range %D $index+1 end]\n" +,"set filename [join %D \" \"]\n" +,"set index [string last . $filename]\n" +,"set type [string range $filename $index+1 end]\n" ,"set ispde [string match -nocase $type \"pde\"]\n" ,"set isgeo [expr max([string match -nocase $type \"geo\"],[string match -nocase $type \"in2d\"])]\n" ,"set ismesh [expr max([string match -nocase $type \"vol\"],[string match -nocase $type \"vol.gz\"])]\n" ,"set ispy [string match -nocase $type \"py\"]\n" ,"if {$ispde == 1} {\n" -,"AddRecentNGSFile %D;\n" -,"NGS_LoadPDE %D;\n" +,"AddRecentNGSFile $filename;\n" +,"NGS_LoadPDE $filename;\n" ,"SetNumProcHelpMenu\n" ,"set selectvisual mesh;\n" ,"Ng_SetVisParameters\n" ,"}\n" ,"if {$ispy == 1} {\n" -,"AddRecentPYNGSFile %D;\n" -,"NGS_LoadPy %D;\n" +,"AddRecentPYNGSFile $filename;\n" +,"NGS_LoadPy $filename;\n" ,"}\n" ,"if {$isgeo == 1} {\n" -,"AddRecentFile %D;\n" -,"Ng_LoadGeometry %D;\n" +,"AddRecentFile $filename;\n" +,"Ng_LoadGeometry $filename;\n" ,"Ng_ParseGeometry\n" ,"set selectvisual geometry\n" ,"Ng_SetVisParameters\n" ,"redraw\n" -,"wm title . [concat \"$progname - \" %D]\n" -,"set dirname [file dirname %D]\n" -,"set basefilename [file tail [file rootname %D]]\n" +,"wm title . [concat \"$progname - \" $filename]\n" +,"set dirname [file dirname $filename]\n" +,"set basefilename [file tail [file rootname $filename]]\n" ,"}\n" ,"if {$ismesh == 1} {\n" -,"AddRecentMeshFile %D;\n" -,"Ng_LoadMesh %D;\n" +,"AddRecentMeshFile $filename;\n" +,"Ng_LoadMesh $filename;\n" ,"set selectvisual mesh\n" ,"Ng_SetVisParameters\n" ,"redraw\n"