Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | More Windows tweaks |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: | 00a170d1679fc65c5ee14f4cb27975a618ae5fb1de19991a97ce7a197bee182c |
| User & Date: | kevin 2017-07-09 20:43:00 |
Context
|
2017-07-10
| ||
| 01:13 | Add wm iconphoto check-in: 4c4b74b980 user: kevin tags: trunk | |
|
2017-07-09
| ||
| 20:43 | More Windows tweaks check-in: 00a170d167 user: kevin tags: trunk | |
| 20:37 | Further refinements to Windows build check-in: a1be26d00c user: kevin tags: trunk | |
Changes
Changes to stringscan.rb.
145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 |
$appmenu.add :separator
end
$searchmenu = TkMenu.new($menubar)
$menubar.add :cascade, :menu => $searchmenu, :label => 'Search'
$searchmenu.add :command, :label => 'Choose Directory...', 'accelerator' => "#{$accelkey}+O", :command => proc{choosedir}
$searchmenu.add :command, :label => 'Run Search', 'accelerator' => "#{$accelkey}+R", :command => proc{stringgrep}
if $platform == 'win32'
$searchmenu.add :command, :label => "Exit", :command=>exit, 'accelerator' => "#{$accelkey}+Q"
end
if $platform == 'aqua'
Tk.tk_call("windowlist::windowMenu", $menubar)
end
$helpmenu = TkSysMenu_Help.new($menubar)
$menubar.add :cascade, :menu => $helpmenu, :label => 'Help'
if $platform != 'aqua'
|
| |
145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 |
$appmenu.add :separator
end
$searchmenu = TkMenu.new($menubar)
$menubar.add :cascade, :menu => $searchmenu, :label => 'Search'
$searchmenu.add :command, :label => 'Choose Directory...', 'accelerator' => "#{$accelkey}+O", :command => proc{choosedir}
$searchmenu.add :command, :label => 'Run Search', 'accelerator' => "#{$accelkey}+R", :command => proc{stringgrep}
if $platform == 'win32'
$searchmenu.add :command, :label => "Exit", :command=>proc{exit}, 'accelerator' => "#{$accelkey}+Q"
end
if $platform == 'aqua'
Tk.tk_call("windowlist::windowMenu", $menubar)
end
$helpmenu = TkSysMenu_Help.new($menubar)
$menubar.add :cascade, :menu => $helpmenu, :label => 'Help'
if $platform != 'aqua'
|