projects
/
ir-tcl-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9c188c9
)
Inverse highligt colours in monochrome mode.
author
Adam Dickmeiss
<adam@indexdata.dk>
Mon, 19 Jun 1995 08:10:21 +0000
(08:10 +0000)
committer
Adam Dickmeiss
<adam@indexdata.dk>
Mon, 19 Jun 1995 08:10:21 +0000
(08:10 +0000)
formats/line.tcl
patch
|
blob
|
history
diff --git
a/formats/line.tcl
b/formats/line.tcl
index
c9ff1a4
..
4274de1
100644
(file)
--- a/
formats/line.tcl
+++ b/
formats/line.tcl
@@
-4,7
+4,10
@@
# Sebastian Hammer, Adam Dickmeiss
#
# $Log: line.tcl,v $
# Sebastian Hammer, Adam Dickmeiss
#
# $Log: line.tcl,v $
-# Revision 1.3 1995-06-16 12:29:00 adam
+# Revision 1.4 1995-06-19 08:10:21 adam
+# Inverse highligt colours in monochrome mode.
+#
+# Revision 1.3 1995/06/16 12:29:00 adam
# Use insertWithTags on diagnostic errors.
#
# Revision 1.2 1995/06/13 14:39:06 adam
# Use insertWithTags on diagnostic errors.
#
# Revision 1.2 1995/06/13 14:39:06 adam
@@
-20,10
+23,17
@@
proc display-line {sno no w hflag} {
set type [z39.$sno type $no]
if {$hflag} {
proc display-line {sno no w hflag} {
set type [z39.$sno type $no]
if {$hflag} {
- $w tag bind r$no <Any-Enter> \
+ if {[tk colormodel .] == "color"} {
+ $w tag bind r$no <Any-Enter> \
[list $w tag configure r$no -background gray80]
[list $w tag configure r$no -background gray80]
- $w tag bind r$no <Any-Leave> \
+ $w tag bind r$no <Any-Leave> \
[list $w tag configure r$no -background {}]
[list $w tag configure r$no -background {}]
+ } else {
+ $w tag bind r$no <Any-Enter> \
+ [list $w tag configure r$no -background black -foreground white]
+ $w tag bind r$no <Any-Leave> \
+ [list $w tag configure r$no -background {} -foreground {}]
+ }
} else {
$w delete 0.0 end
}
} else {
$w delete 0.0 end
}