Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Tweak to regproc |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
229b883386b0475636afa9f530caf8e0 |
| User & Date: | kevin 2017-06-21 03:51:35 |
Context
|
2017-12-08
| ||
| 13:50 | Rev bump check-in: a697eb5bcd user: kevin tags: trunk | |
|
2017-06-21
| ||
| 03:51 | Tweak to regproc check-in: 229b883386 user: kevin tags: trunk | |
|
2017-04-24
| ||
| 03:01 | Rev bump check-in: 29b5a8441f user: kevin tags: trunk | |
Changes
libs/regproc/pkgIndex.tcl became a regular file.
| ︙ | ︙ |
Changes to libs/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
|
| ︙ | ︙ |