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 | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
1d920714294df9907f335883f94980d6 |
| User & Date: | csaba 2019-10-21 13:26:42 |
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
16
17
18
19
20
21
22
23
..
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
|
error "$result1; $result2"
}
namespace eval ::mentry {
#
# Public variables:
#
variable version 3.9
variable library
if {$::tcl_version >= 8.4} {
set library [file normalize [DIR]]
} else {
set library [DIR] ;# no "file normalize" yet
}
................................................................................
# ::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 allowed to use both Mentry and\
Mentry_tile in the same application"
}
u {
trace variable usingTile wu \
[list ::mentry::restoreUsingTile $origVal]
}
}
}
interp alias {} ::tk::frame {} ::frame
interp alias {} ::tk::entry {} ::entry
interp alias {} ::tk::label {} ::label
#
# 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]
|
|
|
|
|
>
|
>
>
>
>
|
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
..
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
|
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
}
................................................................................
# ::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]
|