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 | 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 | 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 } |
︙ | |||
316 317 318 319 320 321 322 323 324 325 326 327 328 329 | 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 | 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 |
︙ |