unload ngsolve library

2024-12-26 05:50:32 +05:00 · 2013-04-02 20:32:04 +00:00 · 2013-04-02 20:32:04 +00:00 · 3b20e4f848
commit 3b20e4f848
parent 47eb0dc600
1 changed files with 11 additions and 1 deletions
--- a/ng/menustat.tcl
+++ b/ng/menustat.tcl
@ -402,7 +402,17 @@ set videoactive 0
 # .ngmenu.file add separator

 .ngmenu.file add command -label "Quit" -accelerator "<q>" \
-    -command { puts "Thank you for using $progname"; Ng_Exit; destroy . }
+    -command { 
+        puts "Thank you for using $progname"; 
+
+        if { [catch { unload libngsolve[info sharedlibextension] ngsolve } result ] } {
+#            puts "cannot unload ngsolve" 
+#            puts "error: $result"
+        } 
+
+        Ng_Exit; 
+        destroy . 
+    }
 # exit