Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Updates to softwareupdate and regproc packages |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | 4434b6dc018d7754c42ac3c34110aac30ce0354d |
| User & Date: | admin 2015-06-28 01:22:20 |
Context
|
2015-06-28
| ||
| 20:59 | Add more libs check-in: d779a931b1 user: admin tags: trunk | |
| 01:22 | Updates to softwareupdate and regproc packages check-in: 4434b6dc01 user: admin tags: trunk | |
|
2015-06-27
| ||
| 02:24 | Updates to cbkimages package check-in: 45bf100905 user: admin tags: trunk | |
Changes
Changes to regproc/pkgIndex.tcl.
4 5 6 7 8 9 10 11 |
# by a "package unknown" script. It invokes the
# "package ifneeded" command to set up package-related
# information so that packages will be loaded automatically
# in response to "package require" commands. When this
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
package ifneeded regproc 1.3 [list source [file join $dir regproc.tcl]]
|
| |
4 5 6 7 8 9 10 11 |
# by a "package unknown" script. It invokes the
# "package ifneeded" command to set up package-related
# information so that packages will be loaded automatically
# in response to "package require" commands. When this
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
package ifneeded regproc 1.4 [list source [file join $dir regproc.tcl]]
|
Changes to regproc/regproc.tcl.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 .. 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 ... 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 |
#regproc.tcl routines to register serial numbers # Copyright (C) 2015 WordTech Communications LLC #MIT license. package provide regproc 1.3 package require http image create photo _unlock -data { R0lGODlhGAAgAIABAAAAAP///yH+GkNyZWF0ZWQgd2l0aCBHSU1QIG9uIGEgTWFj ACH5BAEKAAEALAAAAAAYACAAAAJRjI+gq+jO4npQWmqsBvQenzBYVE1YQH7imWbm ib5xA89cPcp4uPX+DwwKh7SdbWXUGF2S5VHn6oBURWrL+lBmb6UrTpucfsE14u85 tKZ5wkMBADs= } image create photo _check -data { R0lGODlhIAAaAIABAAQHB////yH+GkNyZWF0ZWQgd2l0aCBHSU1QIG9uIGEgTWFj ACH5BAEKAAEALAAAAAAgABoAAAJMjI+pCeuvgIR0yVtzuFxDDnoWGIoHWZobikUV 2zLTA89yfLNjetY7iag1Ir4VzCFMfpI6ChOYeeJeTxVTZRBie6htEOrl2sJcsmVb AAA7 } package require xplat namespace eval regproc { if {![info exists library]} { variable library [file dirname [info script]] } ................................................................................ wm withdraw .purchase wm transient .purchase . wm protocol .purchase WM_DELETE_WINDOW {} ttk::frame .purchase.top -padding 10 pack .purchase.top -side top -fill both -expand yes ttk::label .purchase.top.label -text "You are currently using a demo of $appname. This version will give you the chance to try \n$appname free of charge for 30 days. Would you like to buy $appname now?" -image _unlock -compound left -anchor n pack .purchase.top.label -side top -fill x -expand yes ttk::frame .purchase.bottom -padding 5 pack .purchase.bottom -side bottom -fill both -expand yes ttk::frame .purchase.bottom.upper ................................................................................ wm protocol .number WM_DELETE_WINDOW {} ttk::frame .number.top -padding 10 pack .number.top -side top -fill both -expand yes ttk::label .number.top.label -text "Please enter your serial number for $appname\nin the field below:" -image _check -compound left -anchor n -padding 10 pack .number.top.label -side top -fill both -expand yes ttk::entry .number.top.entry -textvariable [namespace current]::serial pack .number.top.entry -side bottom -fill both -expand yes ttk::frame .number.bottom -padding 5 pack .number.bottom -side bottom -fill both -expand yes |
| < < < < < < < < < < < < < < > | | |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 .. 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 ... 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 |
#regproc.tcl routines to register serial numbers # Copyright (C) 2015 WordTech Communications LLC #MIT license. package provide regproc 1.4 package require http package require xplat package require cbkimages namespace eval regproc { if {![info exists library]} { variable library [file dirname [info script]] } ................................................................................ wm withdraw .purchase wm transient .purchase . wm protocol .purchase WM_DELETE_WINDOW {} ttk::frame .purchase.top -padding 10 pack .purchase.top -side top -fill both -expand yes ttk::label .purchase.top.label -text "You are currently using a demo of $appname. This version will give you the chance to try \n$appname free of charge for 30 days. Would you like to buy $appname now?" -image toolbarimages::clock_toolbar -compound left -anchor n pack .purchase.top.label -side top -fill x -expand yes ttk::frame .purchase.bottom -padding 5 pack .purchase.bottom -side bottom -fill both -expand yes ttk::frame .purchase.bottom.upper ................................................................................ wm protocol .number WM_DELETE_WINDOW {} ttk::frame .number.top -padding 10 pack .number.top -side top -fill both -expand yes ttk::label .number.top.label -text "Please enter your serial number for $appname\nin the field below:" -image toolbarimages::accept_toolbar -compound left -anchor n -padding 10 pack .number.top.label -side top -fill both -expand yes ttk::entry .number.top.entry -textvariable [namespace current]::serial pack .number.top.entry -side bottom -fill both -expand yes ttk::frame .number.bottom -padding 5 pack .number.bottom -side bottom -fill both -expand yes |
Changes to softwareupdate/softwareupdate.tcl.
204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 |
}
#dialog if current version is installed
proc upToDate {name number} {
catch {destroy .updateprogress}
tk_messageBox -icon info -message "You're up to date!" -detail "$name $number is the currently the newest version available."
}
#show progress of installation
proc progressDialog {} {
|
| |
204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 |
}
#dialog if current version is installed
proc upToDate {name number} {
catch {destroy .updateprogress}
tk_messageBox -icon info -message "You're up to date!" -detail "$name $number is the currently the newest version available." -parent . -title "Up to Date"
}
#show progress of installation
proc progressDialog {} {
|