Stringscan

Check-in [f2d21b7abd]
Login

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

Overview
Comment:Further refinements
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: f2d21b7abdfcd2086bd161ad254daec766d7d997debab78ff607ea6217bb73d3
User & Date: kevin 2017-06-21 03:49:51
Context
2017-06-21
03:57
Tweak to regproc check-in: 7f6dfa1d62 user: kevin tags: trunk
03:49
Further refinements check-in: f2d21b7abd user: kevin tags: trunk
03:36
Update check-in: fe253b3162 user: kevin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to scriptlibs/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
#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

# #handle errors in Tk
# proc bgerror {args} {
#     global cachedir
#     exec syslog -s -l Error "Stringscan: An error occurred: $args" 2>$cachedir/bgerr
# }


image create photo _unlock -data  {
    R0lGODlhGAAgAIABAAAAAP///yH+GkNyZWF0ZWQgd2l0aCBHSU1QIG9uIGEgTWFj
    ACH5BAEKAAEALAAAAAAYACAAAAJRjI+gq+jO4npQWmqsBvQenzBYVE1YQH7imWbm
    ib5xA89cPcp4uPX+DwwKh7SdbWXUGF2S5VHn6oBURWrL+lBmb6UrTpucfsE14u85
    tKZ5wkMBADs=
}










<
<
<
<
<
<







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=
}
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210

	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 







|







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

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

	variable serial 

Changes to stringscan.rb.

283
284
285
286
287
288
289






290
291
292
293
294
295
296
    $searchterm = ""
    $appname = 'Stringscan'
    $appnversion = '1.0'
    Tk.tk_call('machelp::setAppName', $appname, $appversion)
    Tk.tk_call('softwareupdate::setAppName', $appname);
    Tk.tk_call('softwareupdate::setVersion', $appname, $appversion);







        if $platform == 'aqua'
          ##map ruby proc to "odoc" Apple Event
          setDir = Tk.install_cmd(proc{
                               |*args|
                               filename=(args[0]).delete('{}')
                               begin
                                 if File.directory?(filename)







>
>
>
>
>
>







283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
    $searchterm = ""
    $appname = 'Stringscan'
    $appnversion = '1.0'
    Tk.tk_call('machelp::setAppName', $appname, $appversion)
    Tk.tk_call('softwareupdate::setAppName', $appname);
    Tk.tk_call('softwareupdate::setVersion', $appname, $appversion);

    bgerror = Tk.install_cmd(proc{
                               |*args|
                               puts args
                             })
    Tk.ip_eval("proc bgerror {args} {#{bgerror} $args}")

        if $platform == 'aqua'
          ##map ruby proc to "odoc" Apple Event
          setDir = Tk.install_cmd(proc{
                               |*args|
                               filename=(args[0]).delete('{}')
                               begin
                                 if File.directory?(filename)