Tk Source Code

Check-in [87072faf]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to tclconference@googlegroups.com
or submit via the online form by Sep 9.

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

Overview
Comment:Removed attempt of adjustment of the startup xview according to the -justify option. Anyway this does not work.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tip-441
Files: files | file ages | folders
SHA1:87072faf7e08bb55c90b9813b8fa46cbbeb1c181
User & Date: fvogel 2016-01-18 18:17:30
Context
2016-01-18
18:43
Reverted [5f396dacdc]. check-in: d1731afd user: fvogel tags: tip-441
18:17
Removed attempt of adjustment of the startup xview according to the -justify option. Anyway this does not work. check-in: 87072faf user: fvogel tags: tip-441
10:19
Documented what listbox-3.18b intends to test. check-in: eff8237f user: fvogel tags: tip-441
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tkListbox.c.

574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
    }

    if (ConfigureListbox(interp, listPtr, objc-2, objv+2) != TCL_OK) {
	Tk_DestroyWindow(listPtr->tkwin);
	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;
}
 
/*
 *----------------------------------------------------------------------
 *







<
<
<
<
<
<
<
<
<
<
<







574
575
576
577
578
579
580











581
582
583
584
585
586
587
    }

    if (ConfigureListbox(interp, listPtr, objc-2, objv+2) != TCL_OK) {
	Tk_DestroyWindow(listPtr->tkwin);
	return TCL_ERROR;
    }












    Tcl_SetObjResult(interp, TkNewWindowObj(listPtr->tkwin));
    return TCL_OK;
}
 
/*
 *----------------------------------------------------------------------
 *