TextSweep

Check-in [1b3b2f81d2]
Login

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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

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