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') |
︙ | ︙ |