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








<







19
20
21
22
23
24
25

26
27
28
29
30
31
32
    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

43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
        $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'







|







42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
        $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'
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
            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







|







110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
            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