16230 } |
16230 } |
16231 %}. |
16231 %}. |
16232 self primitiveFailed |
16232 self primitiveFailed |
16233 ! |
16233 ! |
16234 |
16234 |
|
16235 setScrollBarPageSize:sz redraw:redraw in:aWindowId |
|
16236 "native scrollBar widget access" |
|
16237 |
|
16238 %{ |
|
16239 if (__isExternalAddress(aWindowId) |
|
16240 && __isSmallInteger(sz)) { |
|
16241 HWND win = _HWNDVal(aWindowId); |
|
16242 SCROLLINFO info; |
|
16243 |
|
16244 info.cbSize = sizeof(SCROLLINFO); |
|
16245 info.nPage = __intVal(sz); |
|
16246 info.fMask = SIF_PAGE; |
|
16247 SetScrollInfo(win, SB_CTL, &info, redraw==true ? 1 : 0); |
|
16248 RETURN ( self ); |
|
16249 } |
|
16250 %}. |
|
16251 self primitiveFailed |
|
16252 ! |
|
16253 |
16235 setScrollPosition:newPosition redraw:redraw in:aWindowId |
16254 setScrollPosition:newPosition redraw:redraw in:aWindowId |
16236 "native scrollBar widget access" |
16255 "native scrollBar widget access" |
16237 |
16256 |
16238 %{ |
16257 %{ |
16239 if (__isExternalAddress(aWindowId) |
16258 if (__isExternalAddress(aWindowId) |
16240 && __isSmallInteger(newPosition)) { |
16259 && __isSmallInteger(newPosition)) { |
16241 HWND win = _HWNDVal(aWindowId); |
16260 HWND win = _HWNDVal(aWindowId); |
16242 |
16261 |
16243 NDPRINTF(("SetScrollPos(%d)\n", __intVal(newPosition))); |
16262 NDPRINTF(("SetScrollPos(%d)\n", __intVal(newPosition))); |
16244 SetScrollPos(win, SB_CTL, __intVal(newPosition), |
16263 SetScrollPos(win, SB_CTL, __intVal(newPosition), redraw==true ? 1 : 0); |
16245 redraw==true ? 1 : 0); |
|
16246 RETURN ( self ); |
16264 RETURN ( self ); |
16247 } |
16265 } |
16248 %}. |
16266 %}. |
16249 self primitiveFailed |
16267 self primitiveFailed |
16250 ! |
16268 ! |
16255 %{ |
16273 %{ |
16256 if (__isExternalAddress(aWindowId) |
16274 if (__isExternalAddress(aWindowId) |
16257 && __bothSmallInteger(min, max)) { |
16275 && __bothSmallInteger(min, max)) { |
16258 HWND win = _HWNDVal(aWindowId); |
16276 HWND win = _HWNDVal(aWindowId); |
16259 |
16277 |
16260 SetScrollRange(win, SB_CTL, __intVal(min), __intVal(max), |
16278 SetScrollRange(win, SB_CTL, __intVal(min), __intVal(max), redraw==true ? 1 : 0); |
16261 redraw==true ? 1 : 0); |
|
16262 RETURN ( self ); |
16279 RETURN ( self ); |
16263 } |
16280 } |
16264 %}. |
16281 %}. |
16265 self primitiveFailed |
16282 self primitiveFailed |
16266 ! ! |
16283 ! ! |
16267 |
16284 |
16268 !WinWorkstation class methodsFor:'documentation'! |
16285 !WinWorkstation class methodsFor:'documentation'! |
16269 |
16286 |
16270 version |
16287 version |
16271 ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.280 2004-09-13 16:04:06 ca Exp $' |
16288 ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.281 2004-09-14 15:51:12 ca Exp $' |
16272 ! ! |
16289 ! ! |
16273 |
16290 |
16274 WinWorkstation initialize! |
16291 WinWorkstation initialize! |