X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=formats%2Fline.tcl;fp=formats%2Fline.tcl;h=266c0e9ed43eb76c2d0b558b5fec46d88df23130;hb=e7be2b0c589417e177b6261dd25ba0073c2c1676;hp=d82e8123dd767256682623b504a32d4c6658dfc2;hpb=c72152088563f058a22bacf0efeb0ca442dfaf8c;p=ir-tcl-moved-to-github.git

diff --git a/formats/line.tcl b/formats/line.tcl
index d82e812..266c0e9 100644
--- a/formats/line.tcl
+++ b/formats/line.tcl
@@ -4,15 +4,24 @@
 # Sebastian Hammer, Adam Dickmeiss
 #
 # $Log: line.tcl,v $
-# Revision 1.1  1995-06-12 15:18:10  adam
+# Revision 1.2  1995-06-13 14:39:06  adam
+# Fix: if {$var != ""} doesn't work if var is a large numerical!
+# Highlight when line format is used.
+#
+# Revision 1.1  1995/06/12  15:18:10  adam
 # Work on presentation formats. These are used in the main window as well
 # as popup windows.
 #
 #
 
 proc display-line {sno no w hflag} {
-    set type [z39.$sno type $no]
-    if {! $hflag} {
+    set type [z39.$sno type $no] 
+    if {$hflag} {
+        $w tag bind r$no <Any-Enter> \
+                [list $w tag configure r$no -background gray80]
+        $w tag bind r$no <Any-Leave> \
+                [list $w tag configure r$no -background {}]
+    } else {
         $w delete 0.0 end
     }
     if {$type == "DB"} {