From 462ee97f8bd121f9a078a34a894aa0520e907bb0 Mon Sep 17 00:00:00 2001 From: "Per M. Hansen" Date: Mon, 12 Oct 1998 10:11:13 +0000 Subject: [PATCH] Fixed bug in changing record syntax, and this time it actually works. --- client2/client.tcl | 55 ++++++++-------------------------------------------- client2/irtdb.tcl | 6 +++--- 2 files changed, 11 insertions(+), 50 deletions(-) diff --git a/client2/client.tcl b/client2/client.tcl index eeac5d8..1fd67b4 100644 --- a/client2/client.tcl +++ b/client2/client.tcl @@ -3109,78 +3109,39 @@ proc index-lines {w realOp buttonInfo queryInfo handle} { } } -# Procedure search-fields {w buttondefs} -# w search fields entry frame -# buttondefs button definitions -# Makes search entry fields and listbuttons. -# Note: This procedure is not used elsewhere. The index-lines -# procedure is used instead. -proc search-fields {w buttondefs} { - set i 0 - foreach buttondef $buttondefs { - frame $w.$i -background white - - listbutton $w.$i.l 0 $buttondef - entry $w.$i.e -width 32 -relief sunken - - pack $w.$i.l -side left - pack $w.$i.e -side left -fill x -expand yes - pack $w.$i -side top -fill x -padx 2 -pady 2 - - bind $w.$i.e [list left-cursor $w.$i.e] - bind $w.$i.e [list right-cursor $w.$i.e] - - incr i - } - set j 0 - incr i -1 - while {$j < $i} { - set k [expr $j+1] - bind $w.$j.e "focus $w.$k.e \n - $w.$k configure -background red \n - $w.$j configure -background white" - set j $k - } - bind $w.$i.e "focus $w.0.e \n - $w.0 configure -background red \n - $w.$i configure -background white" - focus $w.0.e - $w.0 configure -background red -} - #Procedure configureOptionsSyntax {target base} #target target name #base database name #Changes the Options|Syntax menu acording to the information obtained via explain. proc configureOptionsSyntax {target base} { - global profile syntaxList recordSyntax syntax + global profile syntaxList recordSyntax set activate 0 set i -1 + set w .top.options.m.syntax if {[info exists profile($target,RecordSyntaxes,$base)]} { foreach syntax $syntaxList { incr i if {$syntax == "sep"} {continue} - .top.options.m.syntax entryconfigure $i -variable 0 if {[lsearch $profile($target,RecordSyntaxes,$base) $syntax] != -1} { - configure-enable-e .top.options.m.syntax $i + configure-enable-e $w $i if {$activate == 0} { - .top.options.m.syntax invoke $i + $w invoke $i set recordSyntax $syntax # .debug-window.top.t insert end $recordSyntax\n # .debug-window.top.t insert end $syntax set activate 1 } } else { - configure-disable-e .top.options.m.syntax $i + configure-disable-e $w $i } } } else { foreach syntax $syntaxList { incr i if {$syntax == "sep"} {continue} - configure-enable-e .top.options.m.syntax $i + configure-enable-e $w $i } - .top.options.m.syntax invoke 0 + $w invoke 0 } } @@ -3295,7 +3256,7 @@ irmenu .top.options.m.wrap # Init: Definition of the Options|Syntax menu. proc initOptionsSyntax {} { - global syntaxList + global syntaxList recordSyntax set w .top.options.m.syntax irmenu $w foreach syntax $syntaxList { diff --git a/client2/irtdb.tcl b/client2/irtdb.tcl index a6190d4..d69adc4 100644 --- a/client2/irtdb.tcl +++ b/client2/irtdb.tcl @@ -23,7 +23,7 @@ set profile(BIBSYS,smallSetUpperBound) 0 set profile(BIBSYS,targetInfoName) {} set profile(BIBSYS,timeDefine) 878567355 set profile(BIBSYS,timeLastExplain) {} -set profile(BIBSYS,timeLastInit) 907773417 +set profile(BIBSYS,timeLastInit) 908185845 set profile(BIBSYS,welcomeMessage) {} set profile(BIBSYS,windowNumber) 3 set profile(Bagel:210,AttributeDetails,gils,Bib1Use) {1012 1019 1007 62 1005 4} @@ -55,8 +55,8 @@ set profile(Bagel:210,recentNews) {} set profile(Bagel:210,smallSetUpperBound) 0 set profile(Bagel:210,targetInfoName) Zebra set profile(Bagel:210,timeDefine) {} -set profile(Bagel:210,timeLastExplain) 908180779 -set profile(Bagel:210,timeLastInit) 908180779 +set profile(Bagel:210,timeLastExplain) 908184800 +set profile(Bagel:210,timeLastInit) 908184800 set profile(Bagel:210,welcomeMessage) {} set profile(Bagel:210,windowNumber) 1 set {profile(Bell Laboratories Library Network,authentication)} {} -- 1.7.10.4