Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Further refinements |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA3-256: |
f2d21b7abdfcd2086bd161ad254daec7 |
User & Date: | kevin 2017-06-21 03:49:51 |
Context
2017-06-21
| ||
03:57 | Tweak to regproc check-in: 7f6dfa1d62 user: kevin tags: trunk | |
03:49 | Further refinements check-in: f2d21b7abd user: kevin tags: trunk | |
03:36 | Update check-in: fe253b3162 user: kevin tags: trunk | |
Changes
Changes to scriptlibs/regproc/regproc.tcl.
1 2 3 4 5 6 7 8 9 10 | #regproc.tcl routines to register serial numbers #Copyright 2015 WordTech Communications LLC #MIT license package provide regproc 1.4 package require http package require xplat | < < < < < < | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | #regproc.tcl routines to register serial numbers #Copyright 2015 WordTech Communications LLC #MIT license package provide regproc 1.4 package require http package require xplat image create photo _unlock -data { R0lGODlhGAAgAIABAAAAAP///yH+GkNyZWF0ZWQgd2l0aCBHSU1QIG9uIGEgTWFj ACH5BAEKAAEALAAAAAAYACAAAAJRjI+gq+jO4npQWmqsBvQenzBYVE1YQH7imWbm ib5xA89cPcp4uPX+DwwKh7SdbWXUGF2S5VHn6oBURWrL+lBmb6UrTpucfsE14u85 tKZ5wkMBADs= } |
︙ | ︙ | |||
196 197 198 199 200 201 202 | wm deiconify .expired focus .expired.bottom.lower.install if {[tk windowingsystem] eq "aqua"} { after idle [list after 0 wm attributes .expired -notify 1] | | | 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 | wm deiconify .expired focus .expired.bottom.lower.install if {[tk windowingsystem] eq "aqua"} { after idle [list after 0 wm attributes .expired -notify 1] bind all <FocusIn> [list wm attributes . -notify 0] } } #check for license, validate if found, set demo pitch if not found proc readLic {application version} { variable serial |
︙ | ︙ |
Changes to stringscan.rb.
︙ | ︙ | |||
283 284 285 286 287 288 289 290 291 292 293 294 295 296 | $searchterm = "" $appname = 'Stringscan' $appnversion = '1.0' Tk.tk_call('machelp::setAppName', $appname, $appversion) Tk.tk_call('softwareupdate::setAppName', $appname); Tk.tk_call('softwareupdate::setVersion', $appname, $appversion); if $platform == 'aqua' ##map ruby proc to "odoc" Apple Event setDir = Tk.install_cmd(proc{ |*args| filename=(args[0]).delete('{}') begin if File.directory?(filename) | > > > > > > | 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 | $searchterm = "" $appname = 'Stringscan' $appnversion = '1.0' Tk.tk_call('machelp::setAppName', $appname, $appversion) Tk.tk_call('softwareupdate::setAppName', $appname); Tk.tk_call('softwareupdate::setVersion', $appname, $appversion); bgerror = Tk.install_cmd(proc{ |*args| puts args }) Tk.ip_eval("proc bgerror {args} {#{bgerror} $args}") if $platform == 'aqua' ##map ruby proc to "odoc" Apple Event setDir = Tk.install_cmd(proc{ |*args| filename=(args[0]).delete('{}') begin if File.directory?(filename) |
︙ | ︙ |