--- a/Win32OperatingSystem.st	Tue Aug 08 17:44:40 2006 +0200
+++ b/Win32OperatingSystem.st	Tue Aug 08 17:45:01 2006 +0200
@@ -7238,6 +7238,7 @@
 
      hPrinter := self openPrinter: printerName .
      sizeBytesArray := ByteArray new:4.
+
      bytesNeeded := self 
                 primGetPrinter:hPrinter 
                 level:2 
@@ -7367,12 +7368,14 @@
 
 primAbortDoc:hwnd
     <apicall: int32 "AbortDoc" (handle) module: "gdi32.dll" >
+    self primitiveFailed.
 
     "Created: / 02-08-2006 / 12:52:32 / fm"
 !
 
 primClosePrinter:handle
     <apicall: bool "ClosePrinter" ( handle ) module: "winspool.drv" >
+    self primitiveFailed.
 
     "
      |h hh rslt|
@@ -7388,12 +7391,14 @@
 
 primCreatePrinterDC:driverName device:deviceName output:outputMedium initData:driverData
     <apicall: handle "CreateDCA" ( lpstr lpstr lpstr pointer ) module: "gdi32.dll" >
+    self primitiveFailed.
 
     "Modified: / 27-07-2006 / 16:26:25 / fm"
 !
 
 primDocumentProperties:hwndOrNil hPrinter:hPrinter pDeviceName:deviceName pDevModeOutput:pDevModeOutput pDevModeInput:pDevModeInput fMode:fMode
     <apicall: int32 "DocumentPropertiesA" ( handle handle lpstr pointer pointer uint32) module: "winspool.drv" >
+    self primitiveFailed.
 
     "
      |hPrinter rslt|
@@ -7415,6 +7420,7 @@
 
 primEndDoc:hwnd
     <apicall: int32 "EndDoc" (handle) module: "gdi32.dll" >
+    self primitiveFailed.
 
     "
      |hPrinter rslt|
@@ -7436,6 +7442,7 @@
 
 primEndPage:hwnd
     <apicall: int32 "EndPage" (handle) module: "gdi32.dll" >
+    self primitiveFailed.
 
     "
      |hPrinter rslt|
@@ -7458,27 +7465,30 @@
 primGetDeviceCaps:hwnd index: index
 "Returns driver specific information about the device"
     <apicall: int32 "GetDeviceCaps" (handle int32) module: "gdi32.dll" >
+    self primitiveFailed.
 
     "Modified: / 01-08-2006 / 16:13:05 / fm"
 !
 
 primGetPrinter:hwnd level:index informationBuffer:informationBuffer bufferSize:bufferSize bufferNeededSize:bufferNeededSize
     <apicall: bool "GetPrinterA" (handle dword pointer dword pointer) module: "winspool.drv" >
-
+    self primitiveFailed.
 
 "  
-|hPrinter rslt printerName informationBuffer bytesNeeded sizeBytesArray|
+|hPrinter rslt printerName informationBuffer bytesNeeded sizeBytesArray ok|
      printerName := '\\http://exept.exept.de:631\lj4'.
      hPrinter := self openPrinter: printerName .
+
      sizeBytesArray := ByteArray new:4.
-     bytesNeeded := self 
+     ok := self 
                 primGetPrinter:hPrinter 
                 level:2 
                 informationBuffer: nil 
                 bufferSize: 0
-                bufferNeededSize:sizeBytesArray. 
+                bufferNeededSize:sizeBytesArray.
      bytesNeeded := sizeBytesArray longAt:1.
-     informationBuffer := PrinterInfo2 new: bytesNeeded.
+
+     informationBuffer := PrinterInfo2Structure new: bytesNeeded.
      rslt := self 
                 primGetPrinter:hPrinter 
                 level:2 
@@ -7495,19 +7505,21 @@
 
 primGetTextExtentPoint: handle string: lpString count: nCount size: pSize
      <apicall: bool "GetTextExtentPointA" (handle pointer int32 pointer) module: "gdi32.dll" >
+    self primitiveFailed.
 
     "Created: / 03-08-2006 / 11:06:23 / fm"
 !
 
 primGetTextMetrics: deviceContext lpMetrics: textMetrics
-
     <apicall: bool "GetTextMetricsA" (handle pointer) module: "gdi32.dll" >
+    self primitiveFailed.
 
     "Modified: / 02-08-2006 / 16:17:51 / fm"
 !
 
 primOpenPrinter:name handleHolder:handleHolder ignored: ignored
     <apicall: bool "OpenPrinterA" ( lpstr lpstr lpstr ) module: "winspool.drv" >
+    self primitiveFailed.
 
     "
      |h hh rslt|
@@ -7524,12 +7536,14 @@
 primStartDoc:hwnd docInfo: aDocInfo
     "Returns a jobId"
     <apicall: int32 "StartDocA" (handle pointer) module: "gdi32.dll" >
+    self primitiveFailed.
 
     "Modified: / 31-07-2006 / 11:47:10 / fm"
 !
 
 primStartPage:hwnd
     <apicall: int32 "StartPage" (handle) module: "gdi32.dll" >
+    self primitiveFailed.
 
     "Created: / 27-07-2006 / 19:02:12 / fm"
     "Modified: / 31-07-2006 / 11:47:06 / fm"
@@ -12345,7 +12359,7 @@
 !Win32OperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.235 2006-08-07 13:11:21 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.236 2006-08-08 15:45:01 fm Exp $'
 ! !
 
 Win32OperatingSystem initialize!