cbklib

Check-in [7dd496bd2c]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Final tweaks of registration, xplat
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:7dd496bd2cb7ea8a38b525f1db391d0d62bc2bdf
User & Date: admin 2015-10-13 10:52:41
Context
2015-11-14
04:47
Update software update package check-in: 49a6b6157d user: admin tags: trunk
2015-10-13
10:52
Final tweaks of registration, xplat check-in: 7dd496bd2c user: admin tags: trunk
2015-10-09
02:06
Updates of various libs check-in: 7360c31fb1 user: admin tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to regproc/regproc.tcl.

   233    233       proc setLic {} {
   234    234   	variable serial
   235    235   	variable serialbase
   236    236   	variable datadir
   237    237   	variable appname
   238    238   	variable regwindow
   239    239   	variable appstore
          240  +	variable expired
   240    241   
   241    242   	if {$serial == ""} {
   242    243   	    tk_messageBox -icon warning -title "Incorrect Serial Number" -message "Incorrect Serial Number" -detail "Incorrect serial number. The application will exit now." -parent .number
   243    244   	    exit
   244    245   	}
   245    246   
   246    247   	set count 20000
................................................................................
   256    257   	puts $output
   257    258   	
   258    259   	if {$output >= 0} {
   259    260   	    cd $datadir
   260    261   	    set lic [open $datadir/lic.dat w]
   261    262   	    puts $lic "$serial"
   262    263   	    close $lic
          264  +		grab release .number
   263    265   	    tk_messageBox -icon info -title "Thank You" -message "Thank You" -detail "Thank you for registering $appname." -parent .number
   264    266   	    destroy .number
   265    267   	    #display window that was hidden
   266    268   	    catch {wm deiconify .}
   267    269   
   268    270   	} else {
   269    271   	    if {$expired == 1} {
          272  +		grab release .number
   270    273   		tk_messageBox -icon warning -title "Incorrect Serial Number" -message "Incorrect Serial Number" -detail "Incorrect serial number. The application will exit now." -parent .number
   271    274   		exit
   272    275   	    }
   273         -	    
          276  +	    grab release .number
   274    277   	    tk_messageBox -icon warning -title "Incorrect Serial Number" -message "Incorrect Serial Number" -detail "Incorrect serial number. Please try again." -parent .number
   275    278   	    regproc::getReg
   276    279   	}
   277    280       }
   278    281   
   279    282   
   280    283   
................................................................................
   316    319   	variable appstore
   317    320   	variable expired
   318    321   	variable appname
   319    322   	variable licensetitle
   320    323   
   321    324   	set licensetitle "License" 
   322    325   
          326  +	catch {destroy .number}
   323    327   	toplevel .number
   324    328   	wm title .number $licensetitle
   325    329   	regproc::makeModal .number
   326    330   	wm resizable .number 0 0
   327    331   
   328    332   	wm withdraw .number
   329    333   	wm transient .number .
................................................................................
   347    351   	ttk::frame .number.bottom.upper
   348    352   	pack .number.bottom.upper -side top -fill both -expand no
   349    353   
   350    354   
   351    355   	ttk::frame .number.bottom.lower -padding 5
   352    356   	pack .number.bottom.lower -side bottom -fill both -expand no
   353    357   
   354         -	bind .number <Return> {regproc::setLic; destroy .number; raise .}
   355         -	ttk::button .number.bottom.lower.install -text "Register" -default active -command {regproc::setLic; destroy .number; raise .}
   356         -	ttk::button .number.bottom.lower.cancel -text "Cancel" -command "regproc::exitIfExpired; destroy .number; raise ."
          358  +	bind .number <Return> {grab release .number; regproc::setLic;  raise .}
          359  +	ttk::button .number.bottom.lower.install -text "Register" -default active -command {grab release .number; regproc::setLic; raise .}
          360  +	ttk::button .number.bottom.lower.cancel -text "Cancel" -command "grab release .number; regproc::exitIfExpired; destroy .number; raise ."
   357    361   	pack  .number.bottom.lower.install .number.bottom.lower.cancel  -side right -fill both -expand no
   358    362   	
   359    363   	::tk::PlaceWindow .number widget .
   360    364   
   361    365   	wm deiconify .number
   362    366   	focus .number.bottom.lower.install
   363    367   	if {[tk windowingsystem] eq "aqua"} {