X-Git-Url: http://lists.indexdata.com/cgi-bin?a=blobdiff_plain;ds=sidebyside;f=client2%2Fclient.tcl;h=583f5d7056cf751caf5023de257ef3e467228fb7;hb=c7b4d83f69d0b3a2d28d538e375b50c7970db26c;hp=a248e26a9f5948fa4fd627aa23845c1edd5ad625;hpb=d57d9cb319c9d1fe5bdda3b169310e989e94a883;p=ir-tcl-moved-to-github.git

diff --git a/client2/client.tcl b/client2/client.tcl
index a248e26..583f5d7 100644
--- a/client2/client.tcl
+++ b/client2/client.tcl
@@ -1,5 +1,5 @@
 wm title . "IrTcl Client"
-wm iconname . "IrTcl Client"
+#wm iconname . "IrTcl Client"
 
 
 # Procedure irmenu
@@ -7,6 +7,24 @@ proc irmenu {w} {
 	menu $w -tearoff off
 }
 
+proc debug-window {} {
+	set w .debug-window
+    toplevel $w
+
+    wm title $w "Debug Window" 
+    
+    frame $w.top -relief raised -border 1
+    frame $w.bot -relief raised -border 1
+    pack  $w.top -side top -fill both -expand yes
+    pack  $w.bot -fill both
+	scrollbar $w.top.s -command [list $w.top.t yview]
+    text $w.top.t -width 60 -height 10 -wrap word -relief flat -borderwidth 0 \
+        -font fixed -yscroll [list $w.top.s set]
+    pack $w.top.s -side right -fill y
+    pack $w.top.t -expand yes -fill both -expand y
+}
+debug-window
+
     
 # Procedure configure-enable-e {w n}
 #  w   is a menu
@@ -40,12 +58,12 @@ set libdir LIBDIR
 # If the bitmaps sub directory is present with a bitmap we assume 
 # the client is run from the source directory in which case we
 # set libdir the current directory.
-if {[file readable bitmaps/book2]} {
+if {[file readable [file join bitmaps book2]]} {
     set libdir .
 }
 
 # Make a final check to see if libdir was set ok.
-if {! [file readable ${libdir}/bitmaps/book2]} {
+if {! [file readable [file join $libdir bitmaps book2]]} {
     puts "Cannot locate system files in ${libdir}. You must either run this"
     puts "program from the source directory root of ir-tcl or you must assure"
     puts "that it is installed - normally in /usr/local/lib/irtcl"
@@ -98,6 +116,7 @@ set recordSyntax None
 set elementSetNames None
 set delayRequest {}
 set debugMode 0
+set queryAutoOld 0
 
 set queryTypes {Simple}
 set queryButtons { { {I 0} {I 1} {I 2} } }
@@ -109,6 +128,9 @@ wm minsize . 0 0
 set setOffset 0
 set setMax 0
 
+set syntaxList {None sep USMARC UNIMARC UKMARC DANMARC FINMARC NORMARC PICAMARC sep SUTRS sep GRS1}
+
+
 set font(bb,normal) {Helvetica 24}
 set font(bb,bold) {Helvetica 24 bold}
 set font(b,normal) {Helvetica 24}
@@ -144,13 +166,14 @@ if {1} {
 }
 
 # Read tag set file (if present)
-if {[file readable "${libdir}/tagsets.tcl"]} {
-    source "${libdir}/tagsets.tcl"
+if {[file readable [file join $libdir tagsets.tcl]]} {
+	source [file join $libdir tagsets.tcl]
 }
 
 # Read the global target configuration file.
-if {[file readable "${libdir}/irtdb.tcl"]} {
-    source "${libdir}/irtdb.tcl"
+if {[file readable [file join $libdir irtdb.tcl]]} {
+#    source "${libdir}/irtdb.tcl"
+    source [file join $libdir irtdb.tcl]
 }
 # Read the local target configuration file.
 if {[file readable "irtdb.tcl"]} {
@@ -158,12 +181,15 @@ if {[file readable "irtdb.tcl"]} {
 }
 
 # Read the user configuration file.
-if {[file readable "${libdir}/.clientrc.tcl"]} {
-    source "${libdir}/.clientrc.tcl"
+if {[file readable [file join $libdir .clientrc.tcl]]} {
+#    source "${libdir}/.clientrc.tcl"
+    source [file join $libdir .clientrc.tcl]
 }
 
 source "bib-1.tcl"
 
+set queryAutoOld $queryAuto
+
 # Convert old format to new format...
 foreach target [array names profile] {
     set timedef [clock seconds]
@@ -210,7 +236,7 @@ proc read-formats {} {
     global libdir
 
     set oldDir [pwd]
-    cd ${libdir}/formats
+    cd [file join $libdir formats]
     set formats [glob {*.[tT][cC][lL]}]
     foreach f $formats {
 	if {[file readable $f]} {
@@ -326,18 +352,6 @@ proc TextEditable {w} {
     }
 }
 
-# Procedure post-menu {wbutton wmenu}
-#   wbutton    button widget
-#   wmenu      menu widget
-# Post menu near button. Note: not used.
-proc post-menu {wbutton wmenu} {
-    $wmenu activate none
-    focus $wmenu
-    $wmenu post [winfo rootx $wbutton] \
-            [expr [winfo rooty $wbutton]+[winfo height $wbutton]]
-
-}
-
 # Procedure destroyGW {w}
 #   w     top level widget
 # Saves geometry of widget w in windowGeometry array. This
@@ -415,13 +429,13 @@ proc bottom-buttons {w buttonList g} {
     frame $w.bot.$i -relief sunken -border 1
     pack $w.bot.$i -side left -expand yes -padx 2 -pady 2
     button $w.bot.$i.ok -text [lindex $buttonList $i] \
-		-command [lindex $buttonList [expr $i+1]]
+		-command [lindex $buttonList [expr $i + 1]]
     pack $w.bot.$i.ok -expand yes -padx 2 -pady 2 -side left
 
     incr i 2
     while {$i < $l} {
         button $w.bot.$i -text [lindex $buttonList $i] \
-                -command [lindex $buttonList [expr $i+1]]
+                -command [lindex $buttonList [expr $i + 1]]
         pack $w.bot.$i -expand yes -padx 2 -pady 2 -side left
         incr i 2
     }
@@ -478,12 +492,12 @@ proc show-logo {v1} {
         if {$v1==10} {
             set v1 1
         }
-        .bot.logo configure -bitmap @${libdir}/bitmaps/book${v1}
+        .bot.logo configure -bitmap @[file join $libdir bitmaps book${v1}] 
         after 140 [list show-logo $v1]
         return
     }
     while {1} {
-        .bot.logo configure -bitmap @${libdir}/bitmaps/book1
+        .bot.logo configure -bitmap @[file join $libdir bitmaps book1]
         tkwait variable busy
         if {$busy} {
             show-logo 1
@@ -587,8 +601,8 @@ proc popup-license {} {
     pack $w.top.s -side right -fill y
     pack $w.top.t -expand yes -fill both
 
-    if {[file readable "${libdir}/LICENSE"]} {
-        set f [open "${libdir}/LICENSE" r]
+    if {[file readable [file join $libdir LICENSE]]} {
+        set f [open [file join $libdir LICENSE] r]
         while {[gets $f buf] != -1} {
             $w.top.t insert end $buf
             $w.top.t insert end "\n"
@@ -645,7 +659,7 @@ proc about-origin-logo {n} {
     if {$n==10} {
         set n 1
     }
-    $w.top.a.logo configure -bitmap @${libdir}/bitmaps/book$n
+    $w.top.a.logo configure -bitmap @[file join $libdir bitmaps book$n]
     after 140 [list about-origin-logo $n]
 }
 
@@ -669,7 +683,7 @@ proc about-origin {} {
     pack $w.top.a $w.top.p -side top -fill x
     
     label $w.top.a.irtcl -text "IrTcl" -font $font(bb,bold)
-    label $w.top.a.logo -bitmap @${libdir}/bitmaps/book1 
+    label $w.top.a.logo -bitmap @[file join $libdir bitmaps book1] 
     pack $w.top.a.irtcl $w.top.a.logo -side left -expand yes
 
     set i unknown
@@ -897,7 +911,8 @@ proc fail-response {target} {
         apduDump
     }
     close-target
-    tkerror "$m ($c)"
+#    tkerror "$m ($c)"
+	bgerror "$m ($c)"
 }
 
 # Procedure connect-response {target base}
@@ -957,16 +972,14 @@ proc open-target {target base} {
     } errorMessage]
     if {$err} {
         set hostid Default
-        tkerror $errorMessage
+#        tkerror $errorMessage
+        bgerror $errorMessage
         show-status "Not connected" 0 {}
         show-target {} {}
         return
     }
     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
@@ -1056,7 +1069,8 @@ proc init-request {target base} {
     show-status Initializing 1 {}
     set err [catch {z39 init} errorMessage]
     if {$err} {
-        tkerror $errorMessage
+#        tkerror $errorMessage
+        bgerror $errorMessage
         show-status Ready 0 {}
     }
 }
@@ -1077,10 +1091,11 @@ proc init-response {target base} {
     if {![z39 initResult]} {
         set u [z39 userInformationField]
         close-target
-        tkerror "Connection rejected by target: $u"
+#        tkerror "Connection rejected by target: $u"
+        bgerror "Connection rejected by target: $u"
     } else {
 		z39 failback [list explain-crash $target $base]
-        explain-check $target [list ready-response $base]
+        explain-check $target [list ready-response $base] $base
     }
 }
 
@@ -1098,9 +1113,9 @@ proc explain-crash {target base} {
 
 # Procedure explain-check 
 # Stub function to check explain. May be overwritten later.
-proc explain-check {target response} {
-    eval $response [list $target]
-}
+#proc explain-check {target response} 
+#    eval $response [list $target]
+
 
 # Procedure ready-response
 # Called after a target has been initialized and, possibly, explained
@@ -1145,13 +1160,14 @@ 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
-	changeQueryButtons $target $base 
+#	changeQueryButtons $target $base 
+	configureOptionsSyntax $target $base
 	if {[info exists profile($target,AttributeDetails,$base,Bib1Use)] && $queryAuto == 1} {
 		changeQueryButtons $target $base 
 		change-queryInfo $target $base
 		query-select 2
 		.top.options.m.query.slist entryconfigure 2 -state normal
+#		listbuttonx
 	} else {
 		query-select 0
 		.top.options.m.query.slist entryconfigure 2 -state disabled
@@ -1382,7 +1398,8 @@ proc scan-response {attr start toget} {
     }
     set status [z39.scan scanStatus]
     if {$status == 6} {
-        tkerror "Scan fail"
+#        tkerror "Scan fail"
+        bgerror "Scan fail"
         show-status Ready 0 1
         set cancelFlag 0
         return
@@ -1545,7 +1562,8 @@ proc search-response {} {
         set code [lindex $status 1]
         set msg [lindex $status 2]
         set addinfo [lindex $status 3]
-        tkerror "NSD$code: $msg: $addinfo"
+#        tkerror "NSD$code: $msg: $addinfo"
+        bgerror "NSD$code: $msg: $addinfo"
         return
     }
     show-message "${setMax} hits"
@@ -1712,7 +1730,8 @@ proc present-response {} {
         set code [lindex $status 1]
         set msg [lindex $status 2]
         set addinfo [lindex $status 3]
-        tkerror "NSD$code: $msg: $addinfo"
+#        tkerror "NSD$code: $msg: $addinfo"
+        bgerror "NSD$code: $msg: $addinfo"
         return
     }
     if {$no > 0 && $setOffset <= $setMax} {
@@ -1817,8 +1836,8 @@ proc place-force {window parent} {
     set g [wm geometry $parent]
     set p1 [string first + $g]
     set p2 [string last + $g]
-    set x [expr 40+[string range $g [expr $p1 +1] [expr $p2 -1]]]
-    set y [expr 60+[string range $g [expr $p2 +1] end]]
+    set x [expr 40+[string range $g [expr {$p1 + 1}] [expr {$p2 -1}]]]
+    set y [expr 60+[string range $g [expr {$p2 + 1}] end]]
     wm geometry $window +${x}+${y}
 }
 
@@ -2032,7 +2051,7 @@ proc cascade-target-list {} {
     .top.target.m.clist delete 0 last
     foreach nn [lsort [array names profile *,host]] {
 		if {[string length $profile($nn)]} {
-		    set ll [expr [string length $nn] - 6]
+		    set ll [expr {[string length $nn] - 6}]
 		    set n [string range $nn 0 $ll]
 		    
 		    set nl $profile($n,windowNumber)
@@ -2060,7 +2079,7 @@ proc cascade-target-list {} {
     }
     .top.target.m.slist delete 0 last
     foreach nn [lsort [array names profile *,host]] {
-		set ll [expr [string length $nn] - 6]
+		set ll [expr {[string length $nn] - 6}]
 		set n [string range $nn 0 $ll]
 	    .top.target.m.slist add command -label $n -command [list protocol-setup $n]
     }
@@ -2072,7 +2091,16 @@ proc cascade-target-list {} {
 # query type information given by the globals $queryButtonsFind and
 # $queryInfoFind are affected by this operation.
 proc query-select {i} {
-    global queryButtonsFind queryInfoFind queryButtons queryInfo
+    global queryButtonsFind queryInfoFind queryButtons queryInfo queryAuto queryAutoOld hostid currentDb profile
+    
+    if {$queryAutoOld == 1 && $queryAuto == 0} {
+    	set queryAutoOld $queryAuto
+    	return
+    }
+    if {$queryAutoOld == 0 && $queryAuto == 1 && [info exists profile($hostid,AttributeDetails,$currentDb,Bib1Use)] == 0} {
+    	set queryAutoOld $queryAuto
+    	return
+    }
     set queryInfoFind [lindex $queryInfo $i]
     set queryButtonsFind [lindex $queryButtons $i]
     index-lines .lines 1 $queryButtonsFind $queryInfoFind activate-index
@@ -2157,7 +2185,7 @@ proc cascade-query-list {} {
     $w.clist delete 0 last
     foreach n $queryTypes {
     	if {$n == "Auto"} {
-    		$w.clist add check -label $n -variable queryAuto
+    		$w.clist add check -label $n -variable queryAuto -command [list query-select $i]
         } else {
         	$w.clist add command -label $n -command [list query-select $i]      
         }
@@ -2224,8 +2252,8 @@ proc save-geometry {} {
 proc save-settings {} {
     global profile libdir settingsChanged queryTypes queryButtons queryInfo queryAuto
 
-    if {[file writable "${libdir}/irtdb.tcl"]} {
-        set f [open "${libdir}/irtdb.tcl" w]
+    if {[file writable [file join $libdir irtdb.tcl]]} {
+        set f [open [file join $libdir irtdb.tcl] w]
     } else {
         set f [open "irtdb.tcl" w]
     }
@@ -2309,12 +2337,19 @@ proc listbuttonaction {w name h user i} {
 #  user    user argument to the $handle function
 # Makes an extended listbutton.
 proc listbuttonx {button no names handle user} {
+	set width 10
+	foreach name $names {
+		set buttonName [lindex $name 0]
+		if {[string length $buttonName] > $width} {
+			set width [string length $buttonName]
+		}
+	} 
     if {[winfo exists $button]} {
-        $button configure -text [lindex [lindex $names $no] 0]
+        $button configure -width $width -text [lindex [lindex $names $no] 0]
         ${button}.m delete 0 last
     } else {
         menubutton $button -text [lindex [lindex $names $no] 0] \
-			-width 10 -menu ${button}.m -relief raised -border 1
+			-width $width -menu ${button}.m -relief raised -border 1
         irmenu ${button}.m
         ${button}.m configure -tearoff off
     }
@@ -2352,7 +2387,7 @@ proc listbutton {button no names} {
 proc listbuttonv-action {button var names i} {
     global $var
 
-    set $var [lindex $names [expr $i+1]]
+    set $var [lindex $names [expr {$i+1}]]
     $button configure -text [lindex $names $i]
 }
 
@@ -2367,7 +2402,7 @@ proc listbuttonv {button var names} {
     global $var
 
     set n "-"
-    eval "set val $$var"
+    set val [set $var]
     set l [llength $names]
     for {set i 1} {$i < $l} {incr i 2} {
         if {$val == [lindex $names $i]} {
@@ -2401,10 +2436,7 @@ proc query-add-index-action {queryNo} {
     lappend queryInfoTmp [list $newI {}]
     $w.top.index.list insert end $newI
     destroy .query-add-index
-    #destroy $w.top.lines
-    #frame $w.top.lines -relief ridge -border 2
     index-lines $w.top.lines 0 $queryButtonsTmp $queryInfoTmp activate-e-index
-    #pack $w.top.lines -side left -pady 6 -padx 6 -fill y
 }
 
 # Procedure query-add-line
@@ -2679,7 +2711,7 @@ proc use-attr {init} {
         $w.top.use.list yview $s
     } else {
         set lno [lindex [$w.top.use.list curselection] 0]
-        set i [expr $lno+$lno+1]
+        set i [expr {$lno+$lno+1}]
         set useTmpValue [lindex $attr $i]
         dputs "useTmpValue=$useTmpValue"
     }
@@ -2756,8 +2788,8 @@ proc index-setup {attr queryNo indexNo} {
         set q [lindex $attr $i]
         set l [string first = $q]
         if {$l > 0} {
-            set t [string range $q 0 [expr $l - 1]]
-            set v [string range $q [expr $l + 1] end]
+            set t [string range $q 0 [expr {$l - 1}]]
+            set v [string range $q [expr {$l + 1}] end]
             switch $t {
                 1
                 { set useTmpValue $v }
@@ -3000,7 +3032,7 @@ proc index-query {} {
             set right 0
             if {[string index $term $len] == "?"} {
                 set right 1
-                set term [string range $term 0 [expr $len - 1]]
+                set term [string range $term 0 [expr {$len - 1}]]
             }
             if {[string index $term 0] == "?"} {
                 set left 1
@@ -3036,8 +3068,7 @@ proc index-query {} {
 #  w    index frame
 #  i    index number
 # This procedure handles <FocusIn> events. A red border is drawed
-# around the active search entry field when tk3.6 is used (tk4.X
-# makes a black focus border itself).
+# around the active search entry field.
 proc index-focus-in {w i} {
     global curIndexEntry
     $w.$i configure -background red
@@ -3089,7 +3120,7 @@ proc index-lines {w realOp buttonInfo queryInfo handle} {
     set j 0
     incr i -1
     while {$j < $i} {
-        set k [expr $j+1]
+        set k [expr {$j + 1}]
         bind $w.$j.e <Tab> "focus $w.$k.e"
         set j $k
     }
@@ -3099,55 +3130,37 @@ 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 <Left> [list left-cursor $w.$i.e]
-        bind $w.$i.e <Right> [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 <Tab> "focus $w.$k.e \n
-        $w.$k configure -background red \n
-        $w.$j configure -background white"
-        set j $k
-    }
-    bind $w.$i.e <Tab> "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} {
-	if {[info exists profile{$target,syntax,$base}]} {
-	#Dette kan ikke laves færdigt da Zebra ikke leverer nogle record syntax oplysninger endnu.
-	
+	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}
+			if {[lsearch $profile($target,RecordSyntaxes,$base) $syntax] != -1} {
+				configure-enable-e $w $i
+				if {$activate == 0} {
+					$w invoke $i
+					set recordSyntax $syntax
+					set activate 1
+				}
+			} else {
+				configure-disable-e $w $i
+			}
+		}
 	} else {
-		initOptionsSyntax
+		foreach syntax $syntaxList {
+			incr i
+			if {$syntax == "sep"} {continue}
+			configure-enable-e $w $i
+		}
+		$w invoke 0
 	}
 }
 
@@ -3262,26 +3275,16 @@ irmenu .top.options.m.wrap
 
 # Init: Definition of the Options|Syntax menu.
 proc initOptionsSyntax {} {
-	irmenu .top.options.m.syntax
-	.top.options.m.syntax add radiobutton -label None -value None -variable recordSyntax
-	.top.options.m.syntax add separator
-	.top.options.m.syntax add radiobutton -label USMARC \
-	        -value USMARC -variable recordSyntax
-	.top.options.m.syntax add radiobutton -label UNIMARC \
-	        -value UNIMARC -variable recordSyntax
-	.top.options.m.syntax add radiobutton -label UKMARC \
-	        -value UKMARC -variable recordSyntax
-	.top.options.m.syntax add radiobutton -label DANMARC \
-	        -value DANMARC -variable recordSyntax
-	.top.options.m.syntax add radiobutton -label FINMARC \
-	        -value FINMARC -variable recordSyntax
-	.top.options.m.syntax add radiobutton -label NORMARC \
-	        -value NORMARC -variable recordSyntax
-	.top.options.m.syntax add radiobutton -label PICAMARC -value PICAMARC -variable recordSyntax
-	.top.options.m.syntax add separator
-	.top.options.m.syntax add radiobutton -label SUTRS -value SUTRS -variable recordSyntax
-	.top.options.m.syntax add separator
-	.top.options.m.syntax add radiobutton -label GRS1 -value GRS1 -variable recordSyntax
+	global syntaxList recordSyntax
+	set w .top.options.m.syntax
+	irmenu $w
+	foreach syntax $syntaxList {
+		if {$syntax == "sep"} {
+			$w add separator
+		} else {
+			$w add radiobutton -label $syntax -value $syntax -variable recordSyntax
+		}
+	}
 }
 initOptionsSyntax
 
@@ -3297,8 +3300,8 @@ irmenu .top.options.m.elements
 menubutton .top.help -text "Help" -menu .top.help.m
 irmenu .top.help.m
 
-.top.help.m add command -label "Help on help" \
-        -command {tkerror "Help on help not available. Sorry"}
+#.top.help.m add command -label "Help on help" -command {tkerror "Help on help not available. Sorry"}
+.top.help.m add command -label "Help on help" -command {bgerror "Help on help not available. Sorry"}
 .top.help.m add command -label "About" -command {about-origin}
 
 # Init: Pack menu bar items.
@@ -3307,10 +3310,10 @@ pack .top.help -side right
 
 # Init: Define query area.
 index-lines .lines 1 $queryButtonsFind [lindex $queryInfo 0] activate-index
-image create photo scan -file ${libdir}/bitmaps/a-z.gif
-image create photo clear -file ${libdir}/bitmaps/trash.gif
-image create photo present -file ${libdir}/bitmaps/page.gif
-image create photo search -file ${libdir}/bitmaps/search.gif
+image create photo scan -file [file join $libdir bitmaps a-z.gif]
+image create photo clear -file [file join $libdir bitmaps trash.gif]
+image create photo present -file [file join $libdir bitmaps page.gif]
+image create photo search -file [file join $libdir bitmaps search.gif]
 button .mid.search -image search -command {search-request 0} -state disabled -relief flat
 button .mid.scan -image scan -command scan-request -state disabled -relief flat
 button .mid.present -image present -command [list present-more 10] -state disabled -relief flat
@@ -3342,7 +3345,7 @@ initBindings
 .data.record tag configure marc-it -font $font(n,normal) -foreground black
 
 # Init: Define logo.
-button .bot.logo -bitmap @${libdir}/bitmaps/book1 -command cancel-operation
+button .bot.logo -bitmap @[file join $libdir bitmaps book1] -command cancel-operation
 .bot.logo configure -takefocus 0
 
 # Init: Define status information fields at the bottom.
@@ -3364,17 +3367,17 @@ pack .bot.a.status .bot.a.set .bot.a.message -side left -padx 2 -pady 2 -ipadx 1
 if {[catch {ir z39}]} {
     set e [info sharedlibextension]
     puts -nonewline "Loading irtcl$e ..."
-    load ${libdir}/irtcl$e irtcl
+    load [file join $libdir irtcl$e] irtcl
     ir z39
     puts "ok"
 }
 
-if {[file exists ${libdir}/explain.tcl]} {
-    source ${libdir}/explain.tcl
+if {[file exists [file join $libdir explain.tcl]]} {
+    source [file join $libdir explain.tcl]
 }
 
 #if {[file exists ${libdir}/setup.tcl]} 
-    source ${libdir}/setup.tcl
+    source [file join $libdir setup.tcl]
 
 
 # Init: Uncomment this line if you wan't to enable logging.