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:
369fe67
)
Font fix.
author
Adam Dickmeiss
<adam@indexdata.dk>
Wed, 19 Nov 1997 13:19:54 +0000
(13:19 +0000)
committer
Adam Dickmeiss
<adam@indexdata.dk>
Wed, 19 Nov 1997 13:19:54 +0000
(13:19 +0000)
client.tcl
patch
|
blob
|
history
diff --git
a/client.tcl
b/client.tcl
index
6473a39
..
183c7c7
100644
(file)
--- a/
client.tcl
+++ b/
client.tcl
@@
-4,7
+4,10
@@
# Sebastian Hammer, Adam Dickmeiss
#
# $Log: client.tcl,v $
# Sebastian Hammer, Adam Dickmeiss
#
# $Log: client.tcl,v $
-# Revision 1.101 1997-11-19 11:20:56 adam
+# Revision 1.102 1997-11-19 13:19:54 adam
+# Font fix.
+#
+# Revision 1.101 1997/11/19 11:20:56 adam
# New target profile format - associative arrrays instead of LONG lists.
#
# Revision 1.100 1997/09/09 10:19:50 adam
# New target profile format - associative arrrays instead of LONG lists.
#
# Revision 1.100 1997/09/09 10:19:50 adam
@@
-494,7
+497,7
@@
wm minsize . 0 0
set setOffset 0
set setMax 0
set setOffset 0
set setMax 0
-if {[lindex [split $tk_version .] 0] > 4} {
+if {[lindex [split $tk_version .] 0] < 5} {
set font(bb,normal) -Adobe-Helvetica-Medium-R-Normal-*-240-*
set font(bb,bold) -Adobe-Helvetica-Bold-R-Normal-*-240-*
set font(b,normal) -Adobe-Helvetica-Medium-R-Normal-*-180-*
set font(bb,normal) -Adobe-Helvetica-Medium-R-Normal-*-240-*
set font(bb,bold) -Adobe-Helvetica-Bold-R-Normal-*-240-*
set font(b,normal) -Adobe-Helvetica-Medium-R-Normal-*-180-*