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
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"} {