Subject: Removed attempt of adjustment of the startup xview according to the -justify option. Anyway this does not work.

From: fvogel <[email-masked]>
Date: Mon, 18 Jan 2016 18:17:30 +0000

---
 generic/tkListbox.c | 11 -----------
 1 file changed, 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;
 }
-- 
cgit v0.12