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: | d41a80c60021ea3221ed74f799609830bc6a48c4 |
| 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.
3 4 5 6 7 8 9 10 11 12 13 14 15 16 ... 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 ... 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 |
#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=
}
................................................................................
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 add [list wm attributes . -notify 0]]
}
}
#dialog after demo has expired
proc expiredPitch {} {
variable version
................................................................................
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 add [list wm attributes . -notify 0]]
}
}
#check for license, validate if found, set demo pitch if not found
proc readLic {application version} {
variable serial
|
> | | |
3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 ... 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 ... 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 |
#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=
}
................................................................................
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
................................................................................
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
|