1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#----------------------------------------------------------------------
#
# pstools.tcl,
# a package providing misc facilites
#
# Copyright (c) 2003, Peter Spjuth (peter.spjuth@gmail.com)
#
# Permission is granted to use this code under the same terms as
# for the Tcl core code.
#
#----------------------------------------------------------------------
# $Revision: 1.6 $
#----------------------------------------------------------------------
package provide pstools 0.3
package require Tcl 8.4
namespace eval pstools {
namespace export safeLoad commonYScroll locateTmp locateEditor
if {[info commands ::ttk::*] ne ""} {
catch {namespace path ::ttk}
|
|
>
>
>
|
|
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
|
#----------------------------------------------------------------------
#
# pstools.tcl,
# a package providing misc facilites
#
# Copyright (c) 2003, Peter Spjuth (peter.spjuth@gmail.com)
#
# Permission is granted to use this code under the same terms as
# for the Tcl core code.
#
#----------------------------------------------------------------------
# This is used as a Tcl Module. Use it like this:
# ::tcl::tm::path add <path-to-dir-with-module>
# package require pstools
# namespace import pstools::*
#----------------------------------------------------------------------
package provide pstools 1.0
package require Tcl 8.4
namespace eval pstools {
namespace export safeLoad commonYScroll locateTmp locateEditor
if {[info commands ::ttk::*] ne ""} {
catch {namespace path ::ttk}
|