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: | e6aab2121372e0ec7887fb7d67799970c52b725d |
| 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
43
44
45
46
47
48
49
50
...
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
|
#set the 30-day clock for application/version
proc setClock {} {
variable datadir
variable appname
variable appversion
variable appstore
puts "datadir is $datadir"
set launchTime [clock seconds]
set saveTime [open $datadir/$appname$appversion.dat w]
puts $saveTime $launchTime
close $saveTime
}
................................................................................
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]
puts $serial
puts $output
if {$output >= 0} {
cd $datadir
set lic [open $datadir/lic.dat w]
puts $lic "$serial"
close $lic
grab release .number
|
<
<
<
|
36
37
38
39
40
41
42
43
44
45
46
47
48
49
...
249
250
251
252
253
254
255
256
257
258
259
260
261
262
|
#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
}
................................................................................
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
|