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

Update onetcl.cpp

Browse Source
This commit is contained in:
Matthias Hochsteger 2017-09-14 15:54:12 +02:00
parent e50104fa40
commit 341f0bd753
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
ng/onetcl.cpp
View File

@ -3414,37 +3414,38 @@ const char * ngscript[] = {""
,"{event generate [focus -displayof %W] <MouseWheel> -delta -120}\n"
,"bind . <MouseWheel> { Ng_MouseMove 0 0 0 [expr {%D/-5}] zoom; redraw }\n"
,"bind .ndraw <<Drop:DND_Files>> {\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"