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 234 235 236 237 238 239 240 241 242 243 244 245 246 ... 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 ... 316 317 318 319 320 321 322 323 324 325 326 327 328 329 ... 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 |
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 ................................................................................ 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 } tk_messageBox -icon warning -title "Incorrect Serial Number" -message "Incorrect Serial Number" -detail "Incorrect serial number. Please try again." -parent .number regproc::getReg } } ................................................................................ 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 . ................................................................................ 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> {regproc::setLic; destroy .number; raise .} ttk::button .number.bottom.lower.install -text "Register" -default active -command {regproc::setLic; destroy .number; raise .} ttk::button .number.bottom.lower.cancel -text "Cancel" -command "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"} { |
> > > | > | | | |
233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 ... 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 ... 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 ... 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 |
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 ................................................................................ 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 } } ................................................................................ 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 . ................................................................................ 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"} { |