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: | d9d50ad5028f6d19330b29be3f3dfd8cb22469d91d4dcc6c384da5cb14a2d26c |
| 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 ... 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 ... 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 |
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.
................................................................................
Tk::TkDND::DND
$root = TkRoot.new {
title "Stringscan"
}
$root.iconphoto_default($icon)
if $platform == 'aqua'
Tk.tk_call('fullscreen::fullscreen', $root)
end
#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}
................................................................................
$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})
$lbox.focus
end
#select search directory
def choosedir
$tbox.configure('state'=>'normal')
|
> > > | > > > | > |
80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 ... 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 ... 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 |
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.
................................................................................
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}
................................................................................
$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')
|