Stringscan

Check-in [c62a21fa99]
Login

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

Overview
Comment:Further refinements
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: c62a21fa990b8ff73854615f79be96ada88ae0ee741c51fe1db83867c8c653c6
User & Date: kevin 2020-05-14 13:03:23
Context
2020-05-19
15:27
Significant updates for Windows deployment check-in: 94163cac4b user: kevin tags: trunk
2020-05-14
13:03
Further refinements check-in: c62a21fa99 user: kevin tags: trunk
2020-05-13
00:07
Tweaks for Windows check-in: 59f366c7b1 user: kevin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to scriptlibs/regproc/regproc.tcl.

122
123
124
125
126
127
128
129
130
131
132

    namespace export *
}


#map this process to the call for donations
if {[tk windowingsystem] eq "aqua"} {
proc tk::mac::Quit {} {
    regproc::makePitch
}
}







|
|
|

122
123
124
125
126
127
128
129
130
131
132

    namespace export *
}


#map this process to the call for donations
if {[tk windowingsystem] eq "aqua"} {
    proc tk::mac::Quit {} {
	regproc::makePitch
    }
}

Changes to stringscan.rb.

99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
			|*args|
				args = ""
				stringgrep
			})
				
        if $platform == 'aqua'
	  Tk.ip_eval("proc ::tk::mac::OpenDocument {args} {#{set_dir} $args}")
         # Tk.ip_eval("proc ::tk::mac::Quit {} proc{shutdown}")
		end
		Tk.ip_eval("proc set_search_term {args} {#{set_search_term} $args}")
		Tk.ip_eval("proc set_search_folder {args} {#{set_dir} $args}")
        Tk.ip_eval("proc execute_search {}  {#{execute_search}}")
      
        drawgui  
    end







<







99
100
101
102
103
104
105

106
107
108
109
110
111
112
			|*args|
				args = ""
				stringgrep
			})
				
        if $platform == 'aqua'
	  Tk.ip_eval("proc ::tk::mac::OpenDocument {args} {#{set_dir} $args}")

		end
		Tk.ip_eval("proc set_search_term {args} {#{set_search_term} $args}")
		Tk.ip_eval("proc set_search_folder {args} {#{set_dir} $args}")
        Tk.ip_eval("proc execute_search {}  {#{execute_search}}")
      
        drawgui  
    end