Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | * mentryPublic.tcl: Bumped the version number to 3.10; no longer creating aliases in the "::tk" namespace for Tk commands for which that namespace already contains a command of the same name. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
1d920714294df9907f335883f94980d6 |
| User & Date: | csaba 2019-10-21 13:26:42.123 |
Context
|
2019-10-21
| ||
| 13:27 | * CHANGES.txt: Updated to reflect the changes. check-in: 1e9bbb52f6 user: csaba tags: trunk | |
| 13:26 | * mentryPublic.tcl: Bumped the version number to 3.10; no longer creating aliases in the "::tk" namespace for Tk commands for which that namespace already contains a command of the same name. check-in: 1d92071429 user: csaba tags: trunk | |
| 13:26 | * pkgIndex.tcl: Bumped the version number to 3.10. * mentry.tcl: * mentry_tile.tcl: * COPYRIGHT.txt: * README.txt: check-in: 08594080f4 user: csaba tags: trunk | |
Changes
Changes to modules/mentry/mentryPublic.tcl.
| ︙ | ︙ | |||
9 10 11 12 13 14 15 |
error "$result1; $result2"
}
namespace eval ::mentry {
#
# Public variables:
#
| | | 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
error "$result1; $result2"
}
namespace eval ::mentry {
#
# Public variables:
#
variable version 3.10
variable library
if {$::tcl_version >= 8.4} {
set library [file normalize [DIR]]
} else {
set library [DIR] ;# no "file normalize" yet
}
|
| ︙ | ︙ | |||
65 66 67 68 69 70 71 |
# ::mentry::usingTile is written or unset. It restores the variable to its
# original value, given by the first argument.
#
proc ::mentry::restoreUsingTile {origVal varName index op} {
variable usingTile $origVal
switch $op {
w {
| | > > | | > > > | | 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 |
# ::mentry::usingTile is written or unset. It restores the variable to its
# original value, given by the first argument.
#
proc ::mentry::restoreUsingTile {origVal varName index op} {
variable usingTile $origVal
switch $op {
w {
return -code error "it is not supported to use both Mentry and\
Mentry_tile in the same application"
}
u {
trace variable usingTile wu \
[list ::mentry::restoreUsingTile $origVal]
}
}
}
proc ::mentry::createTkAliases {} {
foreach cmd {frame entry label} {
if {[llength [info commands ::tk::$cmd]] == 0} {
interp alias {} ::tk::$cmd {} ::$cmd
}
}
}
::mentry::createTkAliases
#
# Everything else needed is lazily loaded on demand, via the dispatcher
# set up in the subdirectory "scripts" (see the file "tclIndex").
#
lappend auto_path [file join $::mentry::library scripts]
|