From eed2656db0adae2c234c3d74af0913746ed5c444 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Wed, 16 Apr 2003 09:43:32 +0000
Subject: Many updates for the 3.2.90 release and new demos

---
 demos/lines.tcl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'demos/lines.tcl')

diff --git a/demos/lines.tcl b/demos/lines.tcl
index dab5f0a..a540ac8 100644
--- a/demos/lines.tcl
+++ b/demos/lines.tcl
@@ -17,7 +17,8 @@ button $w.buttons.dismiss -text Dismiss -command "destroy $w"
 button $w.buttons.code -text "See Code" -command "showCode $w"
 pack $w.buttons.dismiss $w.buttons.code -side left -expand 1
 
-set defaultfont "-adobe-helvetica-bold-r-normal-*-120-*-*-*-*-*-*"
+set defaultfont [font create -family Helvetica -size 10 -weight bold]
+
 zinc $w.zinc -width 700 -height 600 -font 10x20 -borderwidth 3 -relief sunken
 pack $w.zinc
 
-- 
cgit v1.1