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 | |
| 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.
| -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; } |