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 3 #Copyright 2015 WordTech Communications LLC 4 4 5 5 #MIT license 6 6 7 7 package provide regproc 1.4 8 8 package require http 9 9 package require xplat 10 + 10 11 11 12 image create photo _unlock -data { 12 13 R0lGODlhGAAgAIABAAAAAP///yH+GkNyZWF0ZWQgd2l0aCBHSU1QIG9uIGEgTWFj 13 14 ACH5BAEKAAEALAAAAAAYACAAAAJRjI+gq+jO4npQWmqsBvQenzBYVE1YQH7imWbm 14 15 ib5xA89cPcp4uPX+DwwKh7SdbWXUGF2S5VHn6oBURWrL+lBmb6UrTpucfsE14u85 15 16 tKZ5wkMBADs= 16 17 } ................................................................................ 134 135 135 136 wm deiconify .purchase 136 137 focus .purchase.bottom.lower.install 137 138 138 139 if {[tk windowingsystem] eq "aqua"} { 139 140 after idle [list after 0 wm attributes .purchase -notify 1] 140 141 141 - bind all <FocusIn> [list add [list wm attributes . -notify 0]] 142 + bind all <FocusIn> [list wm attributes . -notify 0] 142 143 } 143 144 144 145 } 145 146 146 147 #dialog after demo has expired 147 148 proc expiredPitch {} { 148 149 variable version ................................................................................ 189 190 190 191 wm deiconify .expired 191 192 focus .expired.bottom.lower.install 192 193 193 194 if {[tk windowingsystem] eq "aqua"} { 194 195 after idle [list after 0 wm attributes .expired -notify 1] 195 196 196 - bind all <FocusIn> [list add [list wm attributes . -notify 0]] 197 + bind all <FocusIn> [list wm attributes . -notify 0] 197 198 } 198 199 } 199 200 200 201 #check for license, validate if found, set demo pitch if not found 201 202 proc readLic {application version} { 202 203 203 204 variable serial