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: | 229b883386b0475636afa9f530caf8e09a6908a0 |
| 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.
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
|