--- 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