53 lines
1.5 KiB
Tcl
53 lines
1.5 KiB
Tcl
#==============================================================================
|
|
# Main Mentry package module.
|
|
#
|
|
# Copyright (c) 1999-2004 Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
|
|
#==============================================================================
|
|
|
|
if {[catch {package require Wcb 2.7} result1] != 0 &&
|
|
[catch {package require wcb 2.7} result2] != 0 &&
|
|
[catch {package require Wcb 3.0} result3] != 0 &&
|
|
[catch {package require wcb 3.0} result4] != 0} {
|
|
error "$result1; $result2; $result3; $result4"
|
|
}
|
|
|
|
namespace eval mentry {
|
|
#
|
|
# Public variables:
|
|
#
|
|
variable version 2.8
|
|
if {[string compare $::tcl_platform(platform) "macintosh"] != 0} {
|
|
#
|
|
# On the Macintosh, the mentry::library variable is
|
|
# set in the file pkgIndex.tcl, because of a bug in
|
|
# [info script] in some Tcl releases for that platform.
|
|
#
|
|
variable library [file dirname [info script]]
|
|
}
|
|
|
|
#
|
|
# Creates a new multi-entry widget:
|
|
#
|
|
namespace export mentry
|
|
|
|
#
|
|
# Implement multi-entry widgets for date and time:
|
|
#
|
|
namespace export dateMentry timeMentry 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
|
|
}
|
|
|
|
package provide Mentry $mentry::version
|
|
package provide mentry $mentry::version
|
|
|
|
lappend auto_path [file join $mentry::library scripts]
|