X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=client2%2Fclient.tcl;fp=client2%2Fclient.tcl;h=eeac5d8e5372ecc0c5bcd807c62581bb70ae4df1;hb=b9f97a478872ed0bdb483e50805529b0d73cf6fc;hp=86c66d91ed2866772ea050aee9457c21b01a1f78;hpb=28500a1e0369e989973f214e839039e9f9e38622;p=ir-tcl-moved-to-github.git

diff --git a/client2/client.tcl b/client2/client.tcl
index 86c66d9..eeac5d8 100644
--- a/client2/client.tcl
+++ b/client2/client.tcl
@@ -970,9 +970,6 @@ proc open-target {target base} {
     }
     set hostid $target
     set currentDb $base
-#	changeQueryButtons $target $base
-    
-#    .top.options.m.query.slist entryconfigure 2 -state normal
     configure-disable-e .top.target.m 0
     configure-enable-e .top.target.m 1
     configure-enable-e .top.target.m 2
@@ -1151,7 +1148,7 @@ proc ready-response {base target} {
 #This procedure take care of all the actions that should start if connect is succesfull.
 proc ready-response-actions {target base} {
 	global profile queryAuto
-	get-attributeDetails $target $base
+#	get-attributeDetails $target $base
 	changeQueryButtons $target $base 
 	configureOptionsSyntax $target $base
 	if {[info exists profile($target,AttributeDetails,$base,Bib1Use)] && $queryAuto == 1} {
@@ -2330,7 +2327,7 @@ proc listbuttonx {button no names handle user} {
         ${button}.m delete 0 last
     } else {
         menubutton $button -text [lindex [lindex $names $no] 0] \
-			-width 10 -menu ${button}.m -relief raised -border 1
+			-width 15 -menu ${button}.m -relief raised -border 1
         irmenu ${button}.m
         ${button}.m configure -tearoff off
     }
@@ -3156,7 +3153,7 @@ proc search-fields {w buttondefs} {
 #base 		database name
 #Changes the Options|Syntax menu acording to the information obtained via explain.
 proc configureOptionsSyntax {target base} {
-	global profile syntaxList
+	global profile syntaxList recordSyntax syntax
 	set activate 0
 	set i -1
 	if {[info exists profile($target,RecordSyntaxes,$base)]} {
@@ -3168,6 +3165,9 @@ proc configureOptionsSyntax {target base} {
 				configure-enable-e .top.options.m.syntax $i
 				if {$activate == 0} {
 					.top.options.m.syntax invoke $i
+					set recordSyntax $syntax
+#					.debug-window.top.t insert end $recordSyntax\n
+#					.debug-window.top.t insert end $syntax
 					set activate 1
 				}
 			} else {