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