18 lines
661 B
Tcl
18 lines
661 B
Tcl
#==============================================================================
|
|
# Wcb package index file.
|
|
#
|
|
# Copyright (c) 1999-2005 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 wcb.tcl, because of a
|
|
# bug in [info script] in some Tcl releases for the Macintosh.
|
|
#
|
|
namespace eval wcb {}
|
|
set wcb::library $dir
|
|
}
|
|
|
|
package ifneeded Wcb 3.1 [list source [file join $dir wcb.tcl]]
|
|
package ifneeded wcb 3.1 [list source [file join $dir wcb.tcl]]
|