blob: 1beae9513b515c02f726c021887fd4016d458f15 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
set tcl_pkgPath ""
#if {"$tcl_platform(platform)" == "windows"} {
# load_package itcl33
# load_package itk33
#} else {
load_package itcl3.3
load_package itk3.3
#}
load_package iwidgets
# Can't use package require as it will still attempt to use /usr/local copy.
#namespace import itk::*
#source $env(STADLIB)/itcl3.3/itcl.tcl
source $env(STADLIB)/iwidgets/iwidgets.tcl
package require Iwidgets
namespace import itcl::*
namespace import itk::*
|
GitWeb
