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

change in loading ngsolve

Browse Source
This commit is contained in:
Joachim Schoeberl 2009-05-09 10:22:16 +00:00
parent 306035adee
commit 51d4a12781
4 changed files with 24 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
libsrc/include/nginterface.h
View File

@ -443,6 +443,14 @@ extern "C" {
*/
DLL_HEADER int Ng_GetElementClosureNodes (int dim, int elementnr, int nodeset, int * nodes);
struct Ng_Tcl_Interp;
typedef int (Ng_Tcl_CmdProc) (Ng_Tcl_Interp *interp, int argc, const char *argv[]);
DLL_HEADER void Ng_Tcl_CreateCommand (Ng_Tcl_Interp * interp,
const char * cmdName, Ng_Tcl_CmdProc * proc);
void Ng_Tcl_SetResult (Ng_Tcl_Interp * interp, const char * result);
}

5
ng/menustat.tcl
View File

@ -1,4 +1,3 @@
# netgen menus:
menu .ngmenu -tearoff 0 -relief raised -bd 2
@ -787,7 +786,6 @@ menu .ngmenu.special
# -command { stldoctordialog; }
#####################################################
# #
# Menu Help #
@ -821,7 +819,6 @@ tk_messageBox -message "This is NETGEN \n mainly written by \n Joachim Sch<63>erl
#####################################################
# #
# Button bar #
@ -880,8 +877,6 @@ tixOptionMenu .bubar.modesel \
set viewvals { geometry specpoints mesh solution}
if { $userlevel == 3} {
set viewvals { geometry mesh specpoints surfmeshing modelview solution}

27
ng/ng.tcl
View File

@ -67,6 +67,7 @@ if { $batchmode != "defined" } {
catch {
source ${ngdir}/dialog.tcl
}
catch {
source ${ngdir}/drawing.tcl
}
@ -271,30 +272,32 @@ if { [file exists startup.tcl] } {
##################################################
catch { source ${ngdir}/trafo/trafo.tcl }
# catch { source ${ngdir}/trafo/trafo.tcl }
catch { source ${ngdir}/trafoapp/smallmodels.tcl }
# catch { source ${ngdir}/trafoapp/smallmodels.tcl }
catch {
source ${ngdir}/ngshell.tcl
source ${ngdir}/ngtesting.tcl
}
# catch {
# source ${ngdir}/ngshell.tcl
# source ${ngdir}/ngtesting.tcl
# }
# source ngusers/ebg/elasticity/ebgelast.tcl
catch { source ${ngdir}/ngsolve.tcl }
if { [catch { load libngsolve[info sharedlibextension] ngsolve } result ] } {
# if { [catch { load libngsolve[info sharedlibextension] ngsolve } result ] } {
# puts "cannot load ngsolve"
# puts "error: $result"
} {
catch { source ${ngdir}/ngsolve.tcl }
}
# } {
# catch { source ${ngdir}/ngsolve.tcl }
# }
if { [catch { source ${ngdir}/demoapp.tcl } result ] } {
# if { [catch { source ${ngdir}/demoapp.tcl } result ] } {
# puts "cannot load demoapp"
# puts "error: $result"
}
# }

1
ng/ngpkg.cpp
View File

@ -249,6 +249,7 @@ namespace netgen
#ifndef SMALLLIB
// Destination for messages, errors, ...
void Ng_PrintDest(const char * s)