/usr/share/tcltk/tklib0.6/mentry/mentryPublic.tcl is in tklib 0.6-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 | #==============================================================================
# Main Mentry and Mentry_tile package module.
#
# Copyright (c) 1999-2012 Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
#==============================================================================
if {[catch {package require Wcb 3.1} result1] != 0 &&
[catch {package require wcb 3.1} result2] != 0} {
error "$result1; $result2"
}
namespace eval ::mentry {
#
# Public variables:
#
variable version 3.6
variable library [DIR]
#
# Creates a new multi-entry widget:
#
namespace export mentry
#
# Implement multi-entry widgets for date and time:
#
namespace export dateMentry timeMentry dateTimeMentry \
putClockVal getClockVal
#
# Implement a multi-entry widget for real numbers in fixed-point format:
#
namespace export fixedPointMentry putReal getReal
#
# Implement a multi-entry widget for IP addresses:
#
namespace export ipAddrMentry putIPAddr getIPAddr
#
# Implement a multi-entry widget for IPv6 addresses:
#
namespace export ipv6AddrMentry putIPv6Addr getIPv6Addr
}
package provide mentry::common $::mentry::version
#
# The following procedure, invoked in "mentry.tcl" and "mentry_tile.tcl", sets
# the variable ::mentry::usingTile to the given value and sets a trace on this
# variable.
#
proc ::mentry::useTile {bool} {
variable usingTile $bool
trace variable usingTile wu [list ::mentry::restoreUsingTile $bool]
}
#
# The following trace procedure is executed whenever the variable
# ::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]
|