Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Update file for 1.1 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
d9d50ad5028f6d19330b29be3f3dfd8c |
| User & Date: | kevin 2017-09-19 03:13:29 |
Context
|
2017-09-19
| ||
| 11:43 | Code formatting and cleanup check-in: 28f8803fe4 user: kevin tags: trunk | |
| 03:13 | Update file for 1.1 check-in: d9d50ad502 user: kevin tags: trunk | |
|
2017-09-18
| ||
| 02:25 | Code cleanup check-in: c7f9249bd0 user: kevin tags: trunk | |
Changes
Changes to stringscan.rb.
| ︙ | ︙ | |||
80 81 82 83 84 85 86 87 88 89 90 91 92 93 |
def stringgrep
$root.update
$file_list = []
$grep_list = []
$p.start
$bottomlabel.configure('text' => "Searching for \"#{$searchterm}\" in #{$dirname}")
$lbox.delete(0, 'end')
$root.update
Find.find("#{$dirname}") do |path|
$file_list << path unless FileTest.directory?(path)
end
for i in $file_list
begin
#we are only reading text files here, not binary.
| > > > | 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 |
def stringgrep
$root.update
$file_list = []
$grep_list = []
$p.start
$bottomlabel.configure('text' => "Searching for \"#{$searchterm}\" in #{$dirname}")
$lbox.delete(0, 'end')
$tbox.configure('state'=>'normal')
$tbox.delete('1.0', 'end')
$tbox.configure('state'=>'disabled')
$root.update
Find.find("#{$dirname}") do |path|
$file_list << path unless FileTest.directory?(path)
end
for i in $file_list
begin
#we are only reading text files here, not binary.
|
| ︙ | ︙ | |||
138 139 140 141 142 143 144 |
Tk::TkDND::DND
$root = TkRoot.new {
title "Stringscan"
}
$root.iconphoto_default($icon)
if $platform == 'aqua'
Tk.tk_call('fullscreen::fullscreen', $root)
| | > > > | 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 |
Tk::TkDND::DND
$root = TkRoot.new {
title "Stringscan"
}
$root.iconphoto_default($icon)
if $platform == 'aqua'
Tk.tk_call('fullscreen::fullscreen', $root)
end
$root.withdraw
#menu
$menubar = TkMenu.new($root)
TkOption.add '*tearOff', 0
if $platform == 'aqua'
$appmenu = TkSysMenu_Apple.new($menubar)
$menubar.add :cascade, :menu => $appmenu
$appmenu.add :command, :label => 'About Stringscan', :command=> proc{aboutWindow}
|
| ︙ | ︙ | |||
278 279 280 281 282 283 284 |
$root.bind("#{$accelkey}-Q", proc{exit})
$root.bind("#{$accelkey}-q", proc{exit})
$root.bind("#{$accelkey}-O", proc{choosedir})
$root.bind("#{$accelkey}-o", proc{choosedir})
$root.bind("#{$accelkey}-R", proc{stringgrep})
$root.bind("#{$accelkey}-r", proc{stringgrep})
| | > | 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 |
$root.bind("#{$accelkey}-Q", proc{exit})
$root.bind("#{$accelkey}-q", proc{exit})
$root.bind("#{$accelkey}-O", proc{choosedir})
$root.bind("#{$accelkey}-o", proc{choosedir})
$root.bind("#{$accelkey}-R", proc{stringgrep})
$root.bind("#{$accelkey}-r", proc{stringgrep})
$root.update
$root.deiconify
end
#select search directory
def choosedir
$tbox.configure('state'=>'normal')
|
| ︙ | ︙ |