cbklib

Check-in [4434b6dc01]
Login
☰Home Timeline Branches Tags Tickets Wiki 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. 

1
2
3
4
5
6
7
8
9
10
11

# Tcl package index file, version 1.1
# This file is generated by the "pkg_mkIndex" command
# and sourced either when an application starts up or
# 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]]











|

1
2
3
4
5
6
7
8
9
10
11

# Tcl package index file, version 1.1
# This file is generated by the "pkg_mkIndex" command
# and sourced either when an application starts up or
# 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

#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]]
    }







|


<
<
<
<
<
<
|
<
<
<
<
<
<
<
|








1
2
3
4
5
6
7
8
9






10







11
12
13
14
15
16
17
18

#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]]
    }
︙︙
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57

	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








|








30
31
32
33
34
35
36
37
38
39
40
41
42
43
44

	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
︙︙
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208


	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








|








181
182
183
184
185
186
187
188
189
190
191
192
193
194
195


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

This page was generated in about 0.017s by Fossil 2.20 [0d61fd2310] 2022-10-28 19:48:33