--- a/DevWorkst.st	Thu Feb 04 10:29:45 1999 +0100
+++ b/DevWorkst.st	Thu Feb 04 10:34:17 1999 +0100
@@ -2716,6 +2716,27 @@
     ^ self subclassResponsibility
 !
 
+displayPolylines:arrayOfPoints in:aDrawableId with:aGCId
+    "draw a bunch of lines"
+
+    |startPoint endPoint p|
+
+    1 to:arrayOfPoints size by:2 do:[:idx |
+	p := arrayOfPoints at:idx.
+	idx odd ifTrue:[
+	    startPoint := p
+	] ifFalse:[  
+	    self 
+		displayLineFromX:startPoint x
+		y:startPoint y
+		toX:p x
+		y:p y
+		in:aDrawableId
+		with:aGCId
+	]
+    ]
+!
+
 displayOpaqueString:aString from:index1 to:index2 x:x y:y in:aDrawableId with:aGCId
     "draw a sub-string - draw foreground on background.
      If the coordinates are not integers, retry with rounded." 
@@ -6149,6 +6170,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.273 1999-01-22 17:47:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.274 1999-02-04 09:34:08 cg Exp $'
 ! !
 DeviceWorkstation initialize!

--- a/DeviceWorkstation.st	Thu Feb 04 10:29:45 1999 +0100
+++ b/DeviceWorkstation.st	Thu Feb 04 10:34:17 1999 +0100
@@ -2716,6 +2716,27 @@
     ^ self subclassResponsibility
 !
 
+displayPolylines:arrayOfPoints in:aDrawableId with:aGCId
+    "draw a bunch of lines"
+
+    |startPoint endPoint p|
+
+    1 to:arrayOfPoints size by:2 do:[:idx |
+	p := arrayOfPoints at:idx.
+	idx odd ifTrue:[
+	    startPoint := p
+	] ifFalse:[  
+	    self 
+		displayLineFromX:startPoint x
+		y:startPoint y
+		toX:p x
+		y:p y
+		in:aDrawableId
+		with:aGCId
+	]
+    ]
+!
+
 displayOpaqueString:aString from:index1 to:index2 x:x y:y in:aDrawableId with:aGCId
     "draw a sub-string - draw foreground on background.
      If the coordinates are not integers, retry with rounded." 
@@ -6149,6 +6170,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.273 1999-01-22 17:47:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.274 1999-02-04 09:34:08 cg Exp $'
 ! !
 DeviceWorkstation initialize!

--- a/styles/iris.common	Thu Feb 04 10:29:45 1999 +0100
+++ b/styles/iris.common	Thu Feb 04 10:34:17 1999 +0100
@@ -3,7 +3,7 @@
 ; silicon graphics style
 ; (somwehat like motif, but with smooth edges and bells&whistles)
 ;
-; $Header: /cvs/stx/stx/libview/styles/iris.common,v 1.7 1998-09-18 21:11:11 cg Exp $
+; $Header: /cvs/stx/stx/libview/styles/iris.common,v 1.8 1999-02-04 09:34:17 cg Exp $
 
 is3D                            true
 
@@ -19,7 +19,7 @@
 popup.borderWidth               1     
 
 #if (Display serverVendor = 'microsoft')
-font                        Font family:'courier' size:10
+font                             Font family:'courier' size:10
 #endif
 
 text.font                        Font family:'courier' size:12