Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix [bb6b4032d2]: ::tk::AmpMenuArgs does not work with 'entryconf' |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | bug-bb6b4032d2 |
| Files: | files | file ages | folders |
| SHA3-256: |
a7435143e09480cba5eaeee446192d8c |
| User & Date: | fvogel 2017-10-04 05:35:35 |
Context
|
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-04
| ||
| 05:35 | Fix [bb6b4032d2]: ::tk::AmpMenuArgs does not work with 'entryconf' Closed-Leaf check-in: a7435143 user: fvogel tags: bug-bb6b4032d2 | |
|
2017-09-26
| ||
| 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 | |
Changes
Changes to library/tk.tcl.
| ︙ | ︙ | |||
596 597 598 599 600 601 602 603 |
}
return $result
}
# ::tk::AmpMenuArgs --
# Processes arguments for a menu entry, turning -label option into
# -label and -underline options, returned by ::tk::UnderlineAmpersand.
#
| > | | | 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} {
|
| ︙ | ︙ |