Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Update |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: | fe253b3162cfce6c44bfbd905a5e4eb2b93b9ccd210b61b147ac71d0f6effbae |
| User & Date: | kevin 2017-06-21 03:36:32 |
Context
|
2017-06-21
| ||
| 03:49 | Further refinements check-in: f2d21b7abd user: kevin tags: trunk | |
| 03:36 | Update check-in: fe253b3162 user: kevin tags: trunk | |
|
2017-06-20
| ||
| 03:20 | More tweaks check-in: 19c9e4e75a user: kevin tags: trunk | |
Changes
Changes to scriptlibs/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
|
#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
|
>
>
>
>
>
>
>
|
|
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
...
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
|
#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= } ................................................................................ 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 |
Changes to stringscan.rb.
56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 ... 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 ... 300 301 302 303 304 305 306 307 308 309 310 311 312 313 |
puts "Directory not found.\n"
puts "Search complete.\n"
end
def drawgui
begin
tk.ip_eval("console hide")
rescue
puts "could not hide console.\n"
end
#image data
$folderdata = 'R0lGODlhGAAYAIABAAQHB////yH+EUNyZWF0ZWQgd2l0aCBHSU1QACH5BAEKAAEALAAAAAAYABgAAAI1hI8Wy70JgZshJurOtFzmHm0ghJXVZVJkKo7uC8cr28z0g944ojP2/aMFWcNU0SRLxk5KSQEAOw=='
................................................................................
def checkUpdate
Tk.tk_call('softwareupdate::setIcon', $icon)
Tk.tk_call('softwareupdate::checkVersion', $appname, $appversion)
end
#check version of installed software
def getReg
tk.tk_call('regproc::getReg')
end
#user help
def showHelp
tk.tk_call('machelp::showhelp')
end
#here we initialize our app class
def initialize
$dirname = ""
$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
................................................................................
rescue
raise
end
})
Tk.ip_eval("proc ::tk::mac::OpenDocument {args} {#{setDir} $args}")
Tk.ip_eval("proc ::tk::mac::ShowHelp {} {#{Tk.install_cmd(proc{showHelp})}}")
end
drawgui()
end
end
app = StringscanApp.new()
Tk.mainloop()
|
| | | | | > |
56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 ... 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 ... 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 |
puts "Directory not found.\n"
puts "Search complete.\n"
end
def drawgui
begin
Tk.ip_eval("console hide")
rescue
puts "could not hide console.\n"
end
#image data
$folderdata = 'R0lGODlhGAAYAIABAAQHB////yH+EUNyZWF0ZWQgd2l0aCBHSU1QACH5BAEKAAEALAAAAAAYABgAAAI1hI8Wy70JgZshJurOtFzmHm0ghJXVZVJkKo7uC8cr28z0g944ojP2/aMFWcNU0SRLxk5KSQEAOw=='
................................................................................
def checkUpdate
Tk.tk_call('softwareupdate::setIcon', $icon)
Tk.tk_call('softwareupdate::checkVersion', $appname, $appversion)
end
#check version of installed software
def getReg
Tk.tk_call('regproc::getReg')
end
#user help
def showHelp
Tk.tk_call('machelp::userhelp')
end
#here we initialize our app class
def initialize
$dirname = ""
$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
................................................................................
rescue
raise
end
})
Tk.ip_eval("proc ::tk::mac::OpenDocument {args} {#{setDir} $args}")
Tk.ip_eval("proc ::tk::mac::ShowHelp {} {#{Tk.install_cmd(proc{showHelp})}}")
end
drawgui()
Tk.tk_call('regproc::readLic', $appname, $appversion)
end
end
app = StringscanApp.new()
Tk.mainloop()
|