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
Changes to scriptlibs/regproc/regproc.tcl.
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
...
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
|
#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= } ................................................................................ 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 |
<
<
<
<
<
<
|
|
4
5
6
7
8
9
10
11
12
13
14
15
16
17
...
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
|
#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 .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)
|