Eskil

Check-in [9950d1e608]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Use tcl9 friendly format for package
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 9950d1e608f035db548443b15675120669c688627b950d7a0f74afe55608f797
User & Date: peter 2024-09-08 21:32:33.551
Context
2024-10-02
18:25
Syntax check cleanup check-in: 42fcdf1d94 user: peter tags: trunk
2024-09-08
21:32
Use tcl9 friendly format for package check-in: 9950d1e608 user: peter tags: trunk
21:15
Moved pstools to module check-in: 540590903a user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to eskil.vfs/lib/pstools-1.0.tm.
︙︙
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

#  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}
    }








|








12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

#  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}
    }
︙︙
Changes to src/startup.tcl.
︙︙
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

#  the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
#  Boston, MA 02111-1307, USA.
#
#----------------------------------------------------------------------
# the next line restarts using tclsh \
exec tclsh "$0" "$@"

package require Tcl 8.6

# Stop Tk from meddling with the command line by copying it first.
set ::eskil(argv) $::argv
set ::eskil(argc) $::argc
set ::argv {}
set ::argc 0









|








24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

#  the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
#  Boston, MA 02111-1307, USA.
#
#----------------------------------------------------------------------
# the next line restarts using tclsh \
exec tclsh "$0" "$@"

package require Tcl 8.6-

# Stop Tk from meddling with the command line by copying it first.
set ::eskil(argv) $::argv
set ::eskil(argc) $::argc
set ::argv {}
set ::argc 0
︙︙
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61

# This is not run until needed to speed up command line error reporting.
proc Init {} {
    if {[info exists ::eskil(initHasRun)]} {
        return
    }
    set ::eskil(initHasRun) 1

    package require Tk 8.6
    catch {package require textSearch}
    package require wcb
    package require snit
    package require tablelist_tile
    package require psmenu

    if {[catch {package require psballoon}]} {








|








47
48
49
50
51
52
53
54
55
56
57
58
59
60
61

# This is not run until needed to speed up command line error reporting.
proc Init {} {
    if {[info exists ::eskil(initHasRun)]} {
        return
    }
    set ::eskil(initHasRun) 1

    package require Tk 8.6-
    catch {package require textSearch}
    package require wcb
    package require snit
    package require tablelist_tile
    package require psmenu

    if {[catch {package require psballoon}]} {
︙︙