Tk Source Code

Check-in [2222bd76]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix [3519111fff]: Problem with scroll in ttk
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | bug-3519111fff
Files: files | file ages | folders
SHA3-256: 2222bd76671874e4f0c33ae7c92e7ce7b7092119674b72d8addcabc9817aba6e
User & Date: fvogel 2020-04-15 06:25:05.221
References
2020-04-15
06:25 Ticket [3519111f] Problem with horizontal scroll of treeview status still Open with 5 other changes artifact: 759f193a user: fvogel
Context
2020-04-15
20:56
Refine comment and revert useless tab->spaces change check-in: fc390f71 user: fvogel tags: bug-3519111fff
06:25
Fix [3519111fff]: Problem with scroll in ttk check-in: 2222bd76 user: fvogel tags: bug-3519111fff
2020-04-14
22:09
Workaround for [3767882e06]: X Error of failed request: BadLength (poly request too large or internal Xlib length error) check-in: 7f20966d user: jan.nijtmans tags: core-8-6-branch
Changes
Unified Diff Ignore Whitespace Patch
Changes to generic/ttk/ttkScroll.c.
100
101
102
103
104
105
106
107




108
109
110
111
112
113
114
115

116
117
118
119
120
121
122
    if (WidgetDestroyed(corePtr)) {
	Tcl_Release(corePtr);
	return TCL_ERROR;
    }
    Tcl_Release(corePtr);

    if (code != TCL_OK && !Tcl_InterpDeleted(interp)) {
	/* Disable the -scrollcommand, add to stack trace:




	 */
	ckfree(s->scrollCmd);
	s->scrollCmd = 0;

	Tcl_AddErrorInfo(interp, /* @@@ "horizontal" / "vertical" */
		"\n    (scrolling command executed by ");
	Tcl_AddErrorInfo(interp, Tk_PathName(h->corePtr->tkwin));
	Tcl_AddErrorInfo(interp, ")");

    }
    return code;
}

/* UpdateScrollbarBG --
 * 	Idle handler to update the scrollbar.
 */







|
>
>
>
>

<
<

|



>







100
101
102
103
104
105
106
107
108
109
110
111
112


113
114
115
116
117
118
119
120
121
122
123
124
125
    if (WidgetDestroyed(corePtr)) {
	Tcl_Release(corePtr);
	return TCL_ERROR;
    }
    Tcl_Release(corePtr);

    if (code != TCL_OK && !Tcl_InterpDeleted(interp)) {
	/* Add error to stack trace and report.
         * Also set the SCROLL_UPDATE_REQUIRED flag so that a later call to
         * TtkScrolled has an effect. Indeed, the error in the -scrollcommand
         * callback may later be gone, for instance the callback proc got
         * defined in the meantime).
	 */



        Tcl_AddErrorInfo(interp, /* @@@ "horizontal" / "vertical" */
		"\n    (scrolling command executed by ");
	Tcl_AddErrorInfo(interp, Tk_PathName(h->corePtr->tkwin));
	Tcl_AddErrorInfo(interp, ")");
        TtkScrollbarUpdateRequired(h);
    }
    return code;
}

/* UpdateScrollbarBG --
 * 	Idle handler to update the scrollbar.
 */