Stringscan

Check-in [d9d50ad502]
Login

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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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
145



146
147
148
149
150
151
152
    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}







|
>
>
>







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
285

286
287
288
289
290
291
292
        $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')







|
>







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