QuickWho

Check-in [04686e16f0]
Login

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

Overview
Comment:Tweaks for Windows
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:04686e16f0383354a4b90bb4f08720e22b2c7e1b
User & Date: kevin 2020-02-20 03:39:03
Context
2020-02-21
13:31
More refinements for Windows check-in: 499d6da1e5 user: kevin tags: trunk
2020-02-20
03:39
Tweaks for Windows check-in: 04686e16f0 user: kevin tags: trunk
2020-02-13
14:15
Start work on Windows build check-in: 880834e829 user: kevin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to QuickWho.py.

cannot compute difference between binary files

Added scriptlibs/machelp/machelp.tcl.



























































































































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
package provide machelp 1.0 

package require xplat
namespace eval machelp {


    if {![info exists library]} {
	variable library [file dirname [info script]]
    }


    #set app name and version to parse help url correctly
    proc setAppName {app version} {

	variable appname
	variable appversion
	
	set appname $app
	set appversion $version

    }
    

    #open help url online
    proc userhelp {} {

	variable appname
	variable appversion
	variable library

	exec hh [file join $machelp::library "$appname User Help.mht"] &

    }

    #e-mail developer for assistance
    proc usermail {} { 

	variable appname
	variable appversion

	xplat::launch mailto:kw@codebykevin.com?subject=$appname
    }

    #access user forum
    proc userforum {} { 

	variable appname
	variable appversion

	xplat::launch http://www.codebykevin.com/forum/
    }


    #e-mail developer for assistance
    proc appweb {} { 

	variable appname
	variable appversion

	xplat::launch http://www.codebykevin.com/$appname.html

    }

  #sign up for newsletter
    proc newsletter {} {
	
	variable appname
	variable version

	xplat::launch http://www.codebykevin.com/newsletter.html

    }


    namespace export *

}

Added scriptlibs/machelp/pkgIndex.tcl.











>
>
>
>
>
1
2
3
4
5
package ifneeded machelp 1.0 [list source [file join $dir machelp.tcl]]