PortAuthority

Check-in [27f79b5b2a]
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:27f79b5b2afc07fa9f590d9590987832cdd5fc2b
User & Date: kevin 2017-06-21 03:51:26
Context
2017-10-16
02:28
Version 7.7 check-in: 7d2212ef44 user: kevin tags: trunk
2017-06-21
03:51
Tweak to regproc check-in: 27f79b5b2a user: kevin tags: trunk
2017-04-24
02:54
rev bump check-in: 83d6383bd1 user: kevin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

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

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