From 60426c4ec3415ab57206d57f49f672f407b94a86 Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Mon, 18 Jan 2016 18:17:30 +0000
Subject: Removed attempt of adjustment of the startup xview according to the
 -justify option. Anyway this does not work.

---
 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