Tk Library Source Code

Check-in [5d8b2f34b5]
Login
Bounty program for improvements to Tcl and certain Tcl packages.

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

Overview
Comment: * scripts/scrollableframe.tcl: Improvement related to the "see" subcommand.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 5d8b2f34b52823725856791d3771cf092f83a2a9a35190190e824c77acd3ebb1
User & Date: csaba 2019-10-22 09:19:45
Context
2019-10-22
09:20
* doc/scrollableframe.html: Extended the description of the "see" subcommand. check-in: f16d51d8fb user: csaba tags: trunk
09:19
* scripts/scrollableframe.tcl: Improvement related to the "see" subcommand. check-in: 5d8b2f34b5 user: csaba tags: trunk
09:19
* scripts/scrollableframe.tcl: Improvement related to the "see" subcommand. * doc/scrollableframe.html: Extended the description of the "see" subcommand. check-in: 75e68d84d9 user: csaba tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to modules/scrollutil/scripts/scrollableframe.tcl.

446
447
448
449
450
451
452




453
454
455
456
457
458
459
	return -code error \
	    "widget \"$w\" is not a descendant of the content frame of \"$win\""
    }
    if {[string compare [winfo toplevel $w] [winfo toplevel $win]] != 0} {
	return -code error \
	    "widgets \"$w\" and \"$win\" have different toplevels"
    }





    #
    # Parse the optional argument
    #
    if {$argCount == 1} {
	set xSide w
	set ySide n






>
>
>
>







446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
	return -code error \
	    "widget \"$w\" is not a descendant of the content frame of \"$win\""
    }
    if {[string compare [winfo toplevel $w] [winfo toplevel $win]] != 0} {
	return -code error \
	    "widgets \"$w\" and \"$win\" have different toplevels"
    }
    if {[string length [winfo manager $w]] == 0} {
	return -code error \
	    "widget \"$w\" is not managed by any geometry manager"
    }

    #
    # Parse the optional argument
    #
    if {$argCount == 1} {
	set xSide w
	set ySide n