Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Tweak to regproc |
---|---|
Timelines: | family | ancestors | trunk |
Files: | files | file ages | folders |
SHA1: |
d41a80c60021ea3221ed74f799609830 |
User & Date: | admin 2017-06-21 03:50:25 |
Context
2017-06-21
| ||
03:50 | Tweak to regproc Leaf check-in: d41a80c600 user: admin tags: trunk | |
2017-04-08
| ||
02:02 | Fixes for tls in softwareupdate check-in: aec1fd578c user: admin tags: trunk | |
Changes
Changes to regproc/regproc.tcl.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | #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= } | > | 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= } |
︙ | ︙ | |||
134 135 136 137 138 139 140 | wm deiconify .purchase focus .purchase.bottom.lower.install if {[tk windowingsystem] eq "aqua"} { after idle [list after 0 wm attributes .purchase -notify 1] | | | 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 | wm deiconify .purchase focus .purchase.bottom.lower.install if {[tk windowingsystem] eq "aqua"} { after idle [list after 0 wm attributes .purchase -notify 1] bind all <FocusIn> [list wm attributes . -notify 0] } } #dialog after demo has expired proc expiredPitch {} { variable version |
︙ | ︙ | |||
189 190 191 192 193 194 195 | 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 |
︙ | ︙ |