--- a/WinWorkstation.st	Tue Sep 14 14:30:57 2004 +0200
+++ b/WinWorkstation.st	Tue Sep 14 17:51:12 2004 +0200
@@ -16232,6 +16232,25 @@
     self primitiveFailed
 !
 
+setScrollBarPageSize:sz redraw:redraw in:aWindowId
+    "native scrollBar widget access"
+
+%{
+    if (__isExternalAddress(aWindowId)
+     && __isSmallInteger(sz)) {
+	HWND win = _HWNDVal(aWindowId);
+	SCROLLINFO info;
+
+	info.cbSize = sizeof(SCROLLINFO);
+	info.nPage = __intVal(sz);
+	info.fMask = SIF_PAGE;
+	SetScrollInfo(win, SB_CTL, &info, redraw==true ? 1 : 0);
+	RETURN ( self );
+    }
+%}.
+    self primitiveFailed
+!
+
 setScrollPosition:newPosition redraw:redraw in:aWindowId
     "native scrollBar widget access"
 
@@ -16241,8 +16260,7 @@
 	HWND win = _HWNDVal(aWindowId);
 
 	NDPRINTF(("SetScrollPos(%d)\n", __intVal(newPosition)));
-	SetScrollPos(win, SB_CTL, __intVal(newPosition),
-			  redraw==true ? 1 : 0);
+	SetScrollPos(win, SB_CTL, __intVal(newPosition), redraw==true ? 1 : 0);
 	RETURN ( self );
     }
 %}.
@@ -16257,8 +16275,7 @@
      && __bothSmallInteger(min, max)) {
 	HWND win = _HWNDVal(aWindowId);
 
-	SetScrollRange(win, SB_CTL, __intVal(min), __intVal(max),
-			  redraw==true ? 1 : 0);
+	SetScrollRange(win, SB_CTL, __intVal(min), __intVal(max), redraw==true ? 1 : 0);
 	RETURN ( self );
     }
 %}.
@@ -16268,7 +16285,7 @@
 !WinWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.280 2004-09-13 16:04:06 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.281 2004-09-14 15:51:12 ca Exp $'
 ! !
 
 WinWorkstation initialize!