XWorkstation.st
branchdelegated_gc_jv
changeset 6524 1647b1f4874a
parent 6363 1695f666d823
parent 6472 5b21ff383a12
child 6528 62c1dbef0b84
--- a/XWorkstation.st	Wed Jun 04 22:33:42 2014 +0100
+++ b/XWorkstation.st	Thu Jun 05 08:23:01 2014 +0100
@@ -9,6 +9,8 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
+'From Smalltalk/X, Version:6.2.3.0 on 04-04-2014 at 21:28:11'                   !
+
 "{ Package: 'stx:libview' }"
 
 DeviceWorkstation subclass:#XWorkstation
@@ -7444,7 +7446,7 @@
             ).
 
       Screen current
-        heightOf:'hello World gggÖÜ' from:1 to:15
+        heightOf:'hello World ggg' from:1 to:15
         inFont:(Screen current getDefaultFontWithEncoding:#'iso10646-1')
     "
 !
@@ -8338,8 +8340,8 @@
 %{
 
     int x_style, x_cap, x_join;
-    static char dashList[2] = { 1,1 };
-    static char dotList[2]  = { 4,4 };
+    static char dashList[2] = { 4,4 };
+    static char dotList[2]  = { 1,1 };
     static char dashDotList[4]    = { 4,1 , 1,1 };
     static char dashDotDotList[6] = { 4,1 , 1,1 , 1,1 };
     char *x_dashes = 0;
@@ -11933,6 +11935,19 @@
     self primitiveFailedOrClosedConnection
 !
 
+newGraphicsContextFor:aGraphicsMedium
+    "create a new graphics context.
+     The defaults is to use the inherited graphics context.
+     Subclasses may redefine this to use their own graphics context"
+
+"/    ^ aGraphicsMedium.
+    |gc|
+
+    gc := X11GraphicsContext onDevice:self.
+    gc font:aGraphicsMedium class defaultFont.
+    ^ gc.
+!
+
 parentWindowIdOf:aWindowId
     "return a windows parent-window id.
      Useful with getGeometryOf:, to compute information about the decoration."
@@ -13272,11 +13287,11 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.592 2014-04-01 08:54:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.592.2.1 2014-05-08 08:27:50 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.592 2014-04-01 08:54:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.592.2.1 2014-05-08 08:27:50 stefan Exp $'
 !
 
 version_SVN