Tk Source Code

Changes On Branch bug-bb6b4032d2
Login

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

Changes In Branch bug-bb6b4032d2 Excluding Merge-Ins

This is equivalent to a diff from 056b508a to a7435143

2017-10-22
19:27
Fix [bb6b4032d2]: ::tk::AmpMenuArgs does not work with 'entryconf' check-in: 52700a13 user: fvogel tags: core-8-6-branch
2017-10-07
15:01
Fix [d9fdfa435d]: Long non-wrapped lines in text widget displayed malformed. Backported a fix from Gregor Cramer from the revised_text branch. check-in: bf734bdc user: fvogel tags: core-8-6-branch
2017-10-04
05:35
Fix [bb6b4032d2]: ::tk::AmpMenuArgs does not work with 'entryconf' Closed-Leaf check-in: a7435143 user: fvogel tags: bug-bb6b4032d2
05:14
Add test for [55b95f578a]: Associating variable with bignum value with scale crashes it (at this point the test produces a crash) check-in: 69ca3e78 user: fvogel tags: bug-55b95f578a
2017-09-29
05:14
Merged Jan's changes from core-8-6-branch to pick up align98 changes check-in: 506df972 user: apnadkarni tags: vc-reform
2017-09-26
10:54
merge core-8-6-branch check-in: 0c9ef191 user: jan.nijtmans tags: trunk
10:53
Remove all references to coffbase.txt (which will be removed from Tcl) and win98 specific hacks. check-in: 056b508a user: jan.nijtmans tags: core-8-6-branch
2017-09-24
15:00
Fix [1e0db2400c]: canvas rchars leaves artifacts when line bounding box gets smaller. check-in: 7ca2e6fa user: fvogel tags: core-8-6-branch

Changes to library/tk.tcl.

596
597
598
599
600
601
602

603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
    }
    return $result
}

# ::tk::AmpMenuArgs --
#	Processes arguments for a menu entry, turning -label option into
#	-label and -underline options, returned by ::tk::UnderlineAmpersand.

#
proc ::tk::AmpMenuArgs {widget add type args} {
    set options {}
    foreach {opt val} $args {
	if {$opt eq "-label"} {
	    lassign [UnderlineAmpersand $val] newlabel under
	    lappend options -label $newlabel -underline $under
	} else {
	    lappend options $opt $val
	}
    }
    $widget add $type {*}$options
}

# ::tk::FindAltKeyTarget --
#	Search recursively through the hierarchy of visible widgets to find
#	button or label which has $char as underlined character.
#
proc ::tk::FindAltKeyTarget {path char} {







>

|









|







596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
    }
    return $result
}

# ::tk::AmpMenuArgs --
#	Processes arguments for a menu entry, turning -label option into
#	-label and -underline options, returned by ::tk::UnderlineAmpersand.
#      The cmd argument is supposed to be either "add" or "entryconfigure"
#
proc ::tk::AmpMenuArgs {widget cmd type args} {
    set options {}
    foreach {opt val} $args {
	if {$opt eq "-label"} {
	    lassign [UnderlineAmpersand $val] newlabel under
	    lappend options -label $newlabel -underline $under
	} else {
	    lappend options $opt $val
	}
    }
    $widget $cmd $type {*}$options
}

# ::tk::FindAltKeyTarget --
#	Search recursively through the hierarchy of visible widgets to find
#	button or label which has $char as underlined character.
#
proc ::tk::FindAltKeyTarget {path char} {