--- a/DeviceGraphicsContext.st	Wed May 23 17:33:33 2018 +0200
+++ b/DeviceGraphicsContext.st	Thu May 24 21:20:19 2018 +0200
@@ -734,6 +734,16 @@
     clipRect := aRectangleOrNil
 !
 
+setDeviceLineWidth:aNumber
+    "set the untransformed line width.
+     This ignores any transformation and sets the lineWidth to the given number of
+     pixels."
+
+    device setLineWidth:aNumber style:lineStyle cap:capStyle join:joinStyle in:gcId
+
+    "Created: / 24-05-2018 / 08:03:25 / Claus Gittinger"
+!
+
 setDeviceMaskOriginX:x y:y
     "set the origin of the mask-pattern"