QuickWho: Check-in [04686e16f0]

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.

>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

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.

>
>
>
>
>

package ifneeded machelp 1.0 [list source [file join $dir machelp.tcl]]