Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Add help files |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
ddab71cadc3bd15f10f20a920b9f4263 |
| User & Date: | kevin 2020-05-12 23:58:44 |
Context
|
2020-05-13
| ||
| 00:07 | Tweaks for Windows check-in: 59f366c7b1 user: kevin tags: trunk | |
|
2020-05-12
| ||
| 23:58 | Add help files check-in: ddab71cadc user: kevin tags: trunk | |
| 23:56 | Update user help check-in: f896605cb6 user: kevin tags: trunk | |
Changes
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]]
|