Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Tweak registration code for Windows GUI |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
e6aab2121372e0ec7887fb7d67799970 |
User & Date: | kevin 2018-06-05 03:15:29 |
Context
2019-11-20
| ||
03:17 | Update check-in: 4fac9f3de3 user: kevin tags: trunk | |
2018-06-05
| ||
03:15 | Tweak registration code for Windows GUI check-in: e6aab21213 user: kevin tags: trunk | |
2018-04-27
| ||
12:17 | Change build parameters on macOS check-in: 162b239e51 user: kevin tags: trunk | |
Changes
Changes to scriptlibs/regproc/regproc.tcl.
︙ | ︙ | |||
36 37 38 39 40 41 42 | #set the 30-day clock for application/version proc setClock {} { variable datadir variable appname variable appversion variable appstore | < | 36 37 38 39 40 41 42 43 44 45 46 47 48 49 | #set the 30-day clock for application/version proc setClock {} { variable datadir variable appname variable appversion variable appstore set launchTime [clock seconds] set saveTime [open $datadir/$appname$appversion.dat w] puts $saveTime $launchTime close $saveTime } |
︙ | ︙ | |||
250 251 252 253 254 255 256 | for {set i 1} {$i < $count} {incr i 1} { lappend serialbase [string toupper $appname]-[expr $i * 5]-[expr $i/11]-[expr $i - 1]-[string toupper [string trim [string range $appname 0 1]]] } set output [lsearch -inline $serialbase $serial] | < < | 249 250 251 252 253 254 255 256 257 258 259 260 261 262 | for {set i 1} {$i < $count} {incr i 1} { lappend serialbase [string toupper $appname]-[expr $i * 5]-[expr $i/11]-[expr $i - 1]-[string toupper [string trim [string range $appname 0 1]]] } set output [lsearch -inline $serialbase $serial] if {$output >= 0} { cd $datadir set lic [open $datadir/lic.dat w] puts $lic "$serial" close $lic grab release .number |
︙ | ︙ |