Stringscan

Check-in [3db5b85264]
Login

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

Overview
Comment:Tweak for bgerror, software update
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | trunk
Files: files | file ages | folders
SHA3-256:3db5b852642410cfb1d4b01114dcc5855547a746cddfa824b094d2c2692a87dd
User & Date: kevin 2018-06-05 04:39:26
Context
2018-06-05
04:39
Tweak for bgerror, software update Leaf check-in: 3db5b85264 user: kevin tags: trunk
03:16
Rev bump to 1.2 for Windows, extensive re-work of deployment to use shortcuts to rubyw because of crash in linked exe without console check-in: ace55adfc0 user: kevin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to buildapp.

140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162

hdiutil create  -srcfolder build -fs HFS+ -volname Stringscan Stringscan.dmg

codesign  --signature-size 9400 -f -s "Developer ID Application: Kevin Walzer" --verbose=2  Stringscan.dmg

echo "Uploading DMG..."

upload Stringscan.dmg updates

upload stringscan-changes.tcl

upload stringscan-version.tcl

cd ../

#create archive of entire source tree
tar cvfz Stringscan-$1.tgz Stringscan


echo "Done."










|

|

|











140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162

hdiutil create  -srcfolder build -fs HFS+ -volname Stringscan Stringscan.dmg

codesign  --signature-size 9400 -f -s "Developer ID Application: Kevin Walzer" --verbose=2  Stringscan.dmg

echo "Uploading DMG..."

#upload Stringscan.dmg updates

#upload stringscan-changes.tcl

#upload stringscan-version.tcl

cd ../

#create archive of entire source tree
tar cvfz Stringscan-$1.tgz Stringscan


echo "Done."



Changes to scriptlibs/softwareupdate/softwareupdate.tcl.

96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
...
345
346
347
348
349
350
351







352
353
354
    #get the current installation path
    proc findCurrentInstallation {} {
	variable currentinstall
	variable appname 
	switch [tk windowingsystem] {

	    "aqua" {
		set approot [info nameofexecutable]
		set apppath [split $approot /]
		set currentinstall [join [lrange $apppath 0 [lsearch $apppath "*.app"]] / ]
	    }
	    
	    "win32" {
		set currentinstall [file join $::env(APPDATA) ${appname}_App]  
	    }
	    
	    "x11" {
................................................................................
	    }
	}

	catch {destroy .downloadprogress}

    }








    namespace export *

}







<
<
|







 







>
>
>
>
>
>
>



96
97
98
99
100
101
102


103
104
105
106
107
108
109
110
...
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
    #get the current installation path
    proc findCurrentInstallation {} {
	variable currentinstall
	variable appname 
	switch [tk windowingsystem] {

	    "aqua" {


	 set currentinstall
	    }
	    
	    "win32" {
		set currentinstall [file join $::env(APPDATA) ${appname}_App]  
	    }
	    
	    "x11" {
................................................................................
	    }
	}

	catch {destroy .downloadprogress}

    }


    proc setInstall {dirname} {
	variable currentinstall
	set currentinstall $dirname
    }
	

    namespace export *

}

Changes to stringscan.rb.

41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
..
68
69
70
71
72
73
74
75

76
77
78
79
80
81
82
83
84
85
86
        $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'
            ##map ruby proc to "odoc" Apple Event
................................................................................
                    end
                rescue
                    raise
                end
            })    
            Tk.ip_eval("proc ::tk::mac::OpenDocument {args} {#{setDir} $args}")
            Tk.ip_eval("proc ::tk::mac::ShowHelp {} {#{Tk.install_cmd(proc{showHelp})}}")
            Tk.ip_eval("proc ::softwareupdate::findCurrentInstallation {} {#{Tk.install_cmd(proc{getInstall})}}")

        end        
        drawgui
        Tk.tk_call('regproc::readLic', $appname, $appversion)
        getInstall
    end  

    #core method; here we search for a string in text files within a directory and  display a list of matching files in the listbox 
    def stringgrep
        $root.update
        $file_list = []
        $grep_list = []







|
<







 







|
>



<







41
42
43
44
45
46
47
48

49
50
51
52
53
54
55
..
67
68
69
70
71
72
73
74
75
76
77
78

79
80
81
82
83
84
85
        $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'
            ##map ruby proc to "odoc" Apple Event
................................................................................
                    end
                rescue
                    raise
                end
            })    
            Tk.ip_eval("proc ::tk::mac::OpenDocument {args} {#{setDir} $args}")
            Tk.ip_eval("proc ::tk::mac::ShowHelp {} {#{Tk.install_cmd(proc{showHelp})}}")
        install = getInstall
        Tk.tk_call('softwareupdate::setInstall', install)
        end        
        drawgui
        Tk.tk_call('regproc::readLic', $appname, $appversion)

    end  

    #core method; here we search for a string in text files within a directory and  display a list of matching files in the listbox 
    def stringgrep
        $root.update
        $file_list = []
        $grep_list = []