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 Unified Diffs Show Whitespace Changes Patch

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

whitespace changes only

Changes to libs/regproc/regproc.tcl.

3
4
5
6
7
8
9

10
11
12
13
14
15
16
...
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
...
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
#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=
}
................................................................................

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

    }

    #dialog after demo has expired
    proc expiredPitch {} {
	variable version 
................................................................................

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

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

	variable serial 







>







 







|







 







|







3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
...
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
...
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
#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=
}
................................................................................

	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  wm attributes . -notify 0]
	}

    }

    #dialog after demo has expired
    proc expiredPitch {} {
	variable version 
................................................................................

	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  wm attributes . -notify 0]
	}
    }

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

	variable serial