cbklib

Check-in [4434b6dc01]
Login

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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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