# HG changeset patch
# User fm
# Date 1163582331 -3600
# Node ID 41e99d88d4bc3953a80181005332521d3f6dbaa0
# Parent  cb4bc76044d052bd0e35a3e45bcc55ba07ad2838
*** empty log message ***

diff -r cb4bc76044d0 -r 41e99d88d4bc Win32OperatingSystem.st
--- a/Win32OperatingSystem.st	Tue Nov 14 18:19:37 2006 +0100
+++ b/Win32OperatingSystem.st	Wed Nov 15 10:18:51 2006 +0100
@@ -7785,6 +7785,20 @@
     "Created: / 27-07-2006 / 14:39:35 / fm"
 !
 
+primSetTextAlign:handle with:fMode 
+    <apicall: bool "SetTextAlign" (handle int16) module: "gdi32.dll" >
+    "SetTextAlign"
+    "gdi32.dll"
+    
+    self primitiveFailed.
+!
+
+primSetViewportOrgEx: h x: x y: y oldOrigin: oldOrigin
+
+    <apicall: bool "SetViewportOrgEx" (handle int16 int16 pointer) module: "gdi32.dll" >
+    self primitiveFailed.
+!
+
 primStartDoc:hwnd docInfo: aDocInfo
     "Returns a jobId"
     <apicall: int32 "StartDocA" (handle pointer) module: "gdi32.dll" >
@@ -7801,6 +7815,16 @@
     "Modified: / 31-07-2006 / 11:47:06 / fm"
 !
 
+setTextAlign: fMode to: handle
+
+    self primSetTextAlign: handle with: fMode
+!
+
+setViewportOrg: h x: x y: y oldOrigin: oldOrigin
+
+    self primSetViewportOrgEx: h x: x y: y oldOrigin: oldOrigin
+!
+
 startDoc: deviceContext docInfo: docInfoStruct
     ^self primStartDoc:deviceContext docInfo: docInfoStruct
 
@@ -12616,7 +12640,7 @@
 !Win32OperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.250 2006-11-09 09:07:09 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.251 2006-11-15 09:18:51 fm Exp $'
 ! !
 
 Win32OperatingSystem initialize!