Manpower

Check-in [229b883386]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Tweak to regproc
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 229b883386b0475636afa9f530caf8e09a6908a0
User & Date: kevin 2017-06-21 03:51:35
Context
2017-12-08
13:50
Rev bump check-in: a697eb5bcd user: kevin tags: trunk
2017-06-21
03:51
Tweak to regproc check-in: 229b883386 user: kevin tags: trunk
2017-04-24
03:01
Rev bump check-in: 29b5a8441f user: kevin tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

libs/regproc/pkgIndex.tcl became a regular file.

Changes to libs/regproc/regproc.tcl.

1
2
3
4
5
6
7
8
9

10
11
12
13
14
15
16
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17









+







#regproc.tcl  routines to register serial numbers

#Copyright 2015 WordTech Communications LLC

#MIT license

package provide regproc 1.4
package require http
package require xplat


image create photo _unlock -data  {
    R0lGODlhGAAgAIABAAAAAP///yH+GkNyZWF0ZWQgd2l0aCBHSU1QIG9uIGEgTWFj
    ACH5BAEKAAEALAAAAAAYACAAAAJRjI+gq+jO4npQWmqsBvQenzBYVE1YQH7imWbm
    ib5xA89cPcp4uPX+DwwKh7SdbWXUGF2S5VHn6oBURWrL+lBmb6UrTpucfsE14u85
    tKZ5wkMBADs=
}
134
135
136
137
138
139
140
141

142
143
144
145
146
147
148
135
136
137
138
139
140
141

142
143
144
145
146
147
148
149







-
+








	wm deiconify .purchase
	focus .purchase.bottom.lower.install

	if {[tk windowingsystem] eq "aqua"} {
	    after idle [list after 0 wm attributes .purchase -notify 1]

	    bind all <FocusIn> [list add [list  wm attributes . -notify 0]]
	    bind all <FocusIn> [list  wm attributes . -notify 0]
	}

    }

    #dialog after demo has expired
    proc expiredPitch {} {
	variable version 
189
190
191
192
193
194
195
196

197
198
199
200
201
202
203
190
191
192
193
194
195
196

197
198
199
200
201
202
203
204







-
+








	wm deiconify .expired
	focus .expired.bottom.lower.install

	if {[tk windowingsystem] eq "aqua"} {
	    after idle [list after 0 wm attributes .expired -notify 1]

	    bind all <FocusIn> [list add [list  wm attributes . -notify 0]]
	    bind all <FocusIn> [list  wm attributes . -notify 0]
	}
    }

    #check for license, validate if found, set demo pitch if not found
    proc readLic {application version} {

	variable serial