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