From f4ba49d9c0fec5d4ea7ab41e703dbbfccabfcefe Mon Sep 17 00:00:00 2001
From: Joachim Schoeberl <joachim.schoeberl@tuwien.ac.at>
Date: Wed, 17 Mar 2010 11:11:43 +0000
Subject: [PATCH] check for flag 'typevariable' in the load geometry procedure

---
 ng/menustat.tcl | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/ng/menustat.tcl b/ng/menustat.tcl
index 8da79496..aa93dfce 100644
--- a/ng/menustat.tcl
+++ b/ng/menustat.tcl
@@ -47,9 +47,12 @@ menu .ngmenu.file
 	
 #		{"Naomi Geometry"      {.nao} }
 #		{"New Geometry file"   {.ngg} } 
-
-#	set file [tk_getOpenFile -filetypes $types -initialdir $dirname -typevariable loadgeomtypevar]
-	set file [tk_getOpenFile -filetypes $types -initialdir $dirname]
+	
+	if {[catch {
+	    set file [tk_getOpenFile -filetypes $types -initialdir $dirname -typevariable loadgeomtypevar]
+	}]} {
+	    set file [tk_getOpenFile -filetypes $types -initialdir $dirname]
+	}
 	if {$file != ""} {
 	    AddRecentFile $file
 	    Ng_LoadGeometry $file