Stringscan

Check-in [34780351dd]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Push updates
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256:34780351dd82448bb4d9fd6eed34885aa7a6709d501341213389512055f846fd
User & Date: kevin 2018-06-01 12:59:41
Context
2018-06-03
03:04
Tweak Fossil url check-in: b5d92abe29 user: kevin tags: trunk
2018-06-01
12:59
Push updates check-in: 34780351dd user: kevin tags: trunk
2018-05-26
21:21
Tweak error reporting check-in: 31641a2b1c user: kevin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to stringscan.rb.

19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
..
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
...
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
    TkPackage.require('windowlist')
    require 'tk/tk_mac'
end
TkPackage.require('regproc')
TkPackage.require('machelp')
TkPackage.require('softwareupdate')
TkPackage.require('xplat')
TkPackage.require('notifywindow')

if $platform == 'aqua'
    $accelkey = 'Command'
else 
    $accelkey = 'Control'
end

................................................................................
        $appversion = '1.2'
        Tk.tk_call('machelp::setAppName', $appname, $appversion)
        Tk.tk_call('softwareupdate::setAppName', $appname)
        Tk.tk_call('softwareupdate::setVersion', $appname, $appversion)

        bgerror = Tk.install_cmd(proc{
            |*args|
             Tk::messageBox :type => 'error',
    :message => args,
    :icon => 'error', :title => 'Error',
    :parent => $root
        })
        Tk.ip_eval("proc bgerror {args} {#{bgerror} $args}")

        if $platform == 'aqua'
................................................................................
            end
        end

        $grep_list = $lbox.get(0, 'end')
        num = $grep_list.count.to_s
        $bottomlabel.configure('text' => "Found #{num} matches for \"#{$searchterm}\" in #{$dirname}")
    rescue
      bgerr "Unable to locate any terms."
    end

def drawgui 
    begin
        Tk.ip_eval("console hide")
    rescue
      nil







<







 







|







 







|







19
20
21
22
23
24
25

26
27
28
29
30
31
32
..
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
...
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
    TkPackage.require('windowlist')
    require 'tk/tk_mac'
end
TkPackage.require('regproc')
TkPackage.require('machelp')
TkPackage.require('softwareupdate')
TkPackage.require('xplat')


if $platform == 'aqua'
    $accelkey = 'Command'
else 
    $accelkey = 'Control'
end

................................................................................
        $appversion = '1.2'
        Tk.tk_call('machelp::setAppName', $appname, $appversion)
        Tk.tk_call('softwareupdate::setAppName', $appname)
        Tk.tk_call('softwareupdate::setVersion', $appname, $appversion)

        bgerror = Tk.install_cmd(proc{
            |*args|
             Tk::messageBox :type => 'info',
    :message => args,
    :icon => 'error', :title => 'Error',
    :parent => $root
        })
        Tk.ip_eval("proc bgerror {args} {#{bgerror} $args}")

        if $platform == 'aqua'
................................................................................
            end
        end

        $grep_list = $lbox.get(0, 'end')
        num = $grep_list.count.to_s
        $bottomlabel.configure('text' => "Found #{num} matches for \"#{$searchterm}\" in #{$dirname}")
    rescue
      bgerr "Unable to locate any file matching the search term."
    end

def drawgui 
    begin
        Tk.ip_eval("console hide")
    rescue
      nil