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: |
04686e16f0383354a4b90bb4f08720e2 |
| 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
Changes to QuickWho.py.
| ︙ | ︙ | |||
83 84 85 86 87 88 89 |
self.tk.call('package', 'require', 'darkaqua')
app_path = self.tk.call('tk::mac::GetAppPath')
from_directory=os.path.join(app_path, "Contents", "Resources", "QuickWho - Get Domain Info.workflow")
to_directory = os.path.expanduser("~/Library/Services/QuickWho - Get Domain Info.workflow")
if not os.path.exists(to_directory):
shutil.copytree(from_directory, to_directory)
if self.isWindows():
| | | | 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 |
self.tk.call('package', 'require', 'darkaqua')
app_path = self.tk.call('tk::mac::GetAppPath')
from_directory=os.path.join(app_path, "Contents", "Resources", "QuickWho - Get Domain Info.workflow")
to_directory = os.path.expanduser("~/Library/Services/QuickWho - Get Domain Info.workflow")
if not os.path.exists(to_directory):
shutil.copytree(from_directory, to_directory)
if self.isWindows():
self.tk.call('package', 'require', 'dde')
self.tk.call('dde', 'servername', 'QuickWho')
self.tk.createcommand('getDomain', self.getDomain)
self.tk.call('package', 'require', 'regproc')
self.tk.call('package', 'require', 'softwareupdate')
self.tk.call('softwareupdate::setVersion', self.appname, self.appversion)
self.tk.call('package', 'require', 'xplat')
self.tk.call('package', 'require', 'Img')
self.prefsdir = str(self.tk.call('xplat::appconfig', 'QuickWho'))
|
| ︙ | ︙ |
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]]
|