18 lines
685 B
Tcl
18 lines
685 B
Tcl
#==============================================================================
|
|
# Mentry package index file.
|
|
#
|
|
# Copyright (c) 1999-2004 Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
|
|
#==============================================================================
|
|
|
|
if {[string compare $::tcl_platform(platform) "macintosh"] == 0} {
|
|
#
|
|
# We need to do this here instead of in mentry.tcl, because of
|
|
# a bug in [info script] in some Tcl releases for the Macintosh.
|
|
#
|
|
namespace eval mentry {}
|
|
set mentry::library $dir
|
|
}
|
|
|
|
package ifneeded Mentry 2.8 [list source [file join $dir mentry.tcl]]
|
|
package ifneeded mentry 2.8 [list source [file join $dir mentry.tcl]]
|