85     			    WinScrollbar *scrollPtr));
120     WinScrollbar *scrollPtr;  local
130     scrollPtr = (WinScrollbar *) ckalloc(sizeof(WinScrollbar));
131     scrollPtr->winFlags = 0;
132     scrollPtr->hwnd = NULL;
136 	    TkScrollbarEventProc, (ClientData) scrollPtr);
147     return (TkScrollbar*) scrollPtr;
168 UpdateScrollbar(scrollPtr)  in UpdateScrollbar()  argument
169     WinScrollbar *scrollPtr;  in UpdateScrollbar()
182     thumbSize = (scrollPtr->info.lastFraction - scrollPtr->info.firstFraction);
186 	    ((scrollPtr->info.firstFraction / (1.0-thumbSize))
197     SetScrollInfo(scrollPtr->hwnd, SB_CTL, &scrollInfo, TRUE);
227     WinScrollbar *scrollPtr = (WinScrollbar *)instanceData;  local
231     if (scrollPtr->info.vertical) {
239     scrollPtr->hwnd = CreateWindow("SCROLLBAR", NULL, style,
248     SetWindowPos(scrollPtr->hwnd, HWND_TOP, 0, 0, 0, 0,
254 	    TkWinSetWindowPos(scrollPtr->hwnd, Tk_GetHWND(winPtr->window),
260     scrollPtr->lastVertical = scrollPtr->info.vertical;
262     scrollPtr->oldProc = (WNDPROC)SetWindowLongPtr(scrollPtr->hwnd,
265     scrollPtr->oldProc = (WNDPROC)SetWindowLong(scrollPtr->hwnd, GWL_WNDPROC,
268     window = Tk_AttachHWND(tkwin, scrollPtr->hwnd);
270     UpdateScrollbar(scrollPtr);
296     WinScrollbar *scrollPtr = (WinScrollbar *) clientData;  local
297     Tk_Window tkwin = scrollPtr->info.tkwin;
299     scrollPtr->info.flags &= ~REDRAW_PENDING;
309     if (scrollPtr->lastVertical != scrollPtr->info.vertical) {
313 	SetWindowLongPtr(hwnd, GWLP_WNDPROC, (LONG_PTR) scrollPtr->oldProc);
315 	SetWindowLong(hwnd, GWL_WNDPROC, (DWORD) scrollPtr->oldProc);
320 		(ClientData) scrollPtr);
322 	UpdateScrollbar(scrollPtr);
343 TkpDestroyScrollbar(scrollPtr)  in TkpDestroyScrollbar()  argument
344     TkScrollbar *scrollPtr;  in TkpDestroyScrollbar()
346     WinScrollbar *winScrollPtr = (WinScrollbar *)scrollPtr;
355 	    ((TkWindow *)scrollPtr->tkwin)->flags |= TK_DONT_DESTROY_WINDOW;
418 TkpComputeScrollbarGeometry(scrollPtr)  in TkpComputeScrollbarGeometry()  argument
419     register TkScrollbar *scrollPtr;	/* Scrollbar whose geometry may  in TkpComputeScrollbarGeometry()
429     if (scrollPtr->highlightWidth < 0) {
430 	scrollPtr->highlightWidth = 0;
433     if (scrollPtr->vertical) {
434 	scrollPtr->arrowLength = vArrowHeight;
435 	fieldLength = Tk_Height(scrollPtr->tkwin);
438 	scrollPtr->arrowLength = hArrowWidth;
439 	fieldLength = Tk_Width(scrollPtr->tkwin);
442     fieldLength -= 2*scrollPtr->arrowLength;
446     scrollPtr->sliderFirst = (int) ((double)fieldLength
447 	    * scrollPtr->firstFraction);
448     scrollPtr->sliderLast = (int) ((double)fieldLength
449 	    * scrollPtr->lastFraction);
457     if (scrollPtr->sliderFirst > fieldLength) {
458 	scrollPtr->sliderFirst = fieldLength;
460     if (scrollPtr->sliderFirst < 0) {
461 	scrollPtr->sliderFirst = 0;
463     if (scrollPtr->sliderLast < (scrollPtr->sliderFirst
465 	scrollPtr->sliderLast = scrollPtr->sliderFirst + minThumbSize;
467     if (scrollPtr->sliderLast > fieldLength) {
468 	scrollPtr->sliderLast = fieldLength;
470     scrollPtr->sliderFirst += scrollPtr->arrowLength;
471     scrollPtr->sliderLast += scrollPtr->arrowLength;
480     if (scrollPtr->vertical) {
481 	Tk_GeometryRequest(scrollPtr->tkwin,
482 		scrollPtr->width, 2*scrollPtr->arrowLength + minThumbSize);
484 	Tk_GeometryRequest(scrollPtr->tkwin,
485 		2*scrollPtr->arrowLength + minThumbSize, scrollPtr->width);
487     Tk_SetInternalBorder(scrollPtr->tkwin, 0);
516     WinScrollbar *scrollPtr;  local
522     scrollPtr = (WinScrollbar *)((TkWindow*)tkwin)->instanceData;
543 	    if (!scrollPtr->info.command) {
548 	    interp = scrollPtr->info.interp;
551 		code = LangDoCallback(interp, scrollPtr->info.command, 0, 3,
554 		code = LangDoCallback(interp, scrollPtr->info.command, 0, 3,
575 		code = LangDoCallback(interp, scrollPtr->info.command, 0, 2,
593     return CallWindowProc(scrollPtr->oldProc, hwnd, message, wParam, lParam);
615 TkpConfigureScrollbar(scrollPtr)  in TkpConfigureScrollbar()  argument
616     register TkScrollbar *scrollPtr;	/* Information about widget;  may or  in TkpConfigureScrollbar()
678     WinScrollbar *scrollPtr = (WinScrollbar *) winPtr->instanceData;  local
681     if (scrollPtr->hwnd) {
682 	Tcl_Preserve((ClientData)scrollPtr);
683 	scrollPtr->winFlags |= IN_MODAL_LOOP;
685 	TkWinResendEvent(scrollPtr->oldProc, scrollPtr->hwnd, eventPtr);
687 	scrollPtr->winFlags &= ~IN_MODAL_LOOP;
688 	if (scrollPtr->hwnd && scrollPtr->winFlags & ALREADY_DEAD) {
689 	    DestroyWindow(scrollPtr->hwnd);
691 	Tcl_Release((ClientData)scrollPtr);
716 TkpScrollbarPosition(scrollPtr, x, y)  in TkpScrollbarPosition()  argument
717     register TkScrollbar *scrollPtr;	/* Scrollbar widget record. */  in TkpScrollbarPosition()
723     if (scrollPtr->vertical) {
724 	length = Tk_Height(scrollPtr->tkwin);
725 	width = Tk_Width(scrollPtr->tkwin);
730 	length = Tk_Width(scrollPtr->tkwin);
731 	width = Tk_Height(scrollPtr->tkwin);
734     if ((x < scrollPtr->inset) || (x >= (width - scrollPtr->inset))
735 	    || (y < scrollPtr->inset) || (y >= (length - scrollPtr->inset))) {
744     if (y < (scrollPtr->inset + scrollPtr->arrowLength)) {
747     if (y < scrollPtr->sliderFirst) {
750     if (y < scrollPtr->sliderLast) {
753     if (y >= (length - (scrollPtr->arrowLength + scrollPtr->inset))) {