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
|
#==============================================================================
# Main Tablelist package module.
#
# Copyright (c) 2000-2002 Csaba Nemethi (E-mail: csaba.nemethi@t-online.de)
#==============================================================================
package require Tcl 8
package require Tk 8
namespace eval tablelist {
#
# Public variables:
#
variable version 2.7
if {[string compare $::tcl_platform(platform) macintosh] != 0} {
#
# On the Macintosh, the tablelist::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 tablelist widget:
#
namespace export tablelist
#
# Sorts the items of a tablelist widget based on one of its columns:
#
namespace export sortByColumn
}
package provide Tablelist $tablelist::version
package provide tablelist $tablelist::version
lappend auto_path [file join $tablelist::library scripts]
|
