diff options
author | fvogel <fvogelnew1@free.fr> | 2016-01-18 18:17:30 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2016-01-18 18:17:30 (GMT) |
commit | 60426c4ec3415ab57206d57f49f672f407b94a86 (patch) | |
tree | bcfeeabff0862893ce9f8f8c58d932cde7aad2e5 /generic | |
parent | 94fd95f35c60eceaa87f6e666785e6a6d3fb5630 (diff) | |
download | tk-60426c4ec3415ab57206d57f49f672f407b94a86.zip tk-60426c4ec3415ab57206d57f49f672f407b94a86.tar.gz tk-60426c4ec3415ab57206d57f49f672f407b94a86.tar.bz2 |
Removed attempt of adjustment of the startup xview according to the -justify option. Anyway this does not work.
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tkListbox.c | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/generic/tkListbox.c b/generic/tkListbox.c index 795ec0f..04dab6f 100644 --- a/generic/tkListbox.c +++ b/generic/tkListbox.c @@ -578,17 +578,6 @@ Tk_ListboxObjCmd( return TCL_ERROR; } - /* - * Adjust startup x view according to the justify option. - */ - - if (listPtr->justify == TK_JUSTIFY_RIGHT) { - listPtr->xOffset = GetMaxOffset(listPtr); - } else if (listPtr->justify == TK_JUSTIFY_CENTER) { - listPtr->xOffset = GetMaxOffset(listPtr) / 2; - listPtr->xOffset -= listPtr->xOffset % listPtr->xScrollUnit; - } - Tcl_SetObjResult(interp, TkNewWindowObj(listPtr->tkwin)); return TCL_OK; } |