Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Tweak software for GUI without console on Windows |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | 1b3b2f81d25ac4c59f2f96d5edf848d56b534f0c |
| User & Date: | kevin 2018-06-05 03:12:40 |
Context
|
2019-11-18
| ||
| 02:56 | Tweak icons check-in: fe05cfa61c user: kevin tags: trunk | |
|
2018-06-05
| ||
| 03:12 | Tweak software for GUI without console on Windows check-in: 1b3b2f81d2 user: kevin tags: trunk | |
|
2018-05-14
| ||
| 12:23 | Clear text when new directory added check-in: 3fad865399 user: kevin tags: trunk | |
Changes
Changes to scriptlibs/regproc/regproc.tcl.
36 36 37 37 #set the 30-day clock for application/version 38 38 proc setClock {} { 39 39 variable datadir 40 40 variable appname 41 41 variable appversion 42 42 variable appstore 43 - puts "datadir is $datadir" 44 43 45 44 set launchTime [clock seconds] 46 45 set saveTime [open $datadir/$appname$appversion.dat w] 47 46 puts $saveTime $launchTime 48 47 close $saveTime 49 48 } 50 49 ................................................................................ 250 249 for {set i 1} {$i < $count} {incr i 1} { 251 250 252 251 lappend serialbase [string toupper $appname]-[expr $i * 5]-[expr $i/11]-[expr $i - 1]-[string toupper [string trim [string range $appname 0 1]]] 253 252 } 254 253 255 254 256 255 set output [lsearch -inline $serialbase $serial] 257 - puts $serial 258 - puts $output 259 256 260 257 if {$output >= 0} { 261 258 cd $datadir 262 259 set lic [open $datadir/lic.dat w] 263 260 puts $lic "$serial" 264 261 close $lic 265 262 grab release .number