Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | More tweaks |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: | 19c9e4e75a07b0316f5933421e6f251cc504cde1530c6d070c1e6098eab8ebba |
| User & Date: | kevin 2017-06-20 03:20:30 |
Context
|
2017-06-21
| ||
| 03:36 | Update check-in: fe253b3162 user: kevin tags: trunk | |
|
2017-06-20
| ||
| 03:20 | More tweaks check-in: 19c9e4e75a user: kevin tags: trunk | |
| 03:15 | More tweaks check-in: c51392b042 user: kevin tags: trunk | |
Changes
Changes to stringscan.rb.
78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 |
#initialize variables for entry
$dirname = TkVariable.new
$searchterm = TkVariable.new
#top window and frame
Tk::TkDND::DND
$root = tkroot.new {
title "stringscan"
}
#menu
$menubar = TkMenu.new($root)
TkOption.add '*tearOff', 0
if $platform == 'aqua'
$appmenu = TkSysMenu_Apple.new($menubar)
$menubar.add :cascade, :menu => $appmenu
$appmenu.add :command, :label => 'About Stringscan', :command=> proc{aboutWindow}
$appmenu.add :command, :label => 'License', :command=>proc{getReg}
$appmenu.add :command, :label=>'Check for Updates', :command=>proc{checkUpdate}
$appmenu.add :separator
end
$searchmenu = TkMenu.new($menubar)
$menubar.add :cascade, :menu => $searchmenu, :label => 'Search'
$searchmenu.add :command, :label => 'Run Search', :command => proc{stringgrep}
$searchmenu.add :command, :label => 'Choose Directory...', :command => proc{ $dirname = Tk::chooseDirectory('initialdir'=>Dir.home, 'parent'=>$root)
$direntry.value = $dirname
}
if $platform == 'win32'
$searchmenu.add :command, :label => "Exit", :command=>exit
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'
$helpmenu.add :command, :label=>'Stringscan Help', :command=>proc{
tk.tk_call('machelp::userhelp')
}
end
$helpmenu.add :command, :label=>'Contact Code by Kevin', :command=>proc{
Tk.tk_call('xplat::launch', 'mailto:kw@codebykevin.com?subject=Stringscan')
}
$helpmenu.add :command, :label=>'Web Site', :command=>proc{
Tk.tk_call('xplat::launch', 'https://www.codebykevin.com/stringscan.html')
|
| | < | | |
78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 |
#initialize variables for entry
$dirname = TkVariable.new
$searchterm = TkVariable.new
#top window and frame
Tk::TkDND::DND
$root = TkRoot.new {
title "Stringscan"
}
#menu
$menubar = TkMenu.new($root)
TkOption.add '*tearOff', 0
if $platform == 'aqua'
$appmenu = TkSysMenu_Apple.new($menubar)
$menubar.add :cascade, :menu => $appmenu
$appmenu.add :command, :label => 'About Stringscan', :command=> proc{aboutWindow}
$appmenu.add :command, :label => 'License', :command=>proc{getReg}
$appmenu.add :command, :label=>'Check for Updates', :command=>proc{checkUpdate}
$appmenu.add :separator
end
$searchmenu = TkMenu.new($menubar)
$menubar.add :cascade, :menu => $searchmenu, :label => 'Search'
$searchmenu.add :command, :label => 'Run Search', :command => proc{stringgrep}
$searchmenu.add :command, :label => 'Choose Directory...', :command => proc{ $dirname = Tk::chooseDirectory('initialdir'=>Dir.home, 'parent'=>$root)
$direntry.value = $dirname
}
if $platform == 'win32'
$searchmenu.add :command, :label => "Exit", :command=>exit
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'
$helpmenu.add :command, :label=>'Stringscan Help', :command=>proc{
Tk.tk_call('machelp::userhelp')
}
end
$helpmenu.add :command, :label=>'Contact Code by Kevin', :command=>proc{
Tk.tk_call('xplat::launch', 'mailto:kw@codebykevin.com?subject=Stringscan')
}
$helpmenu.add :command, :label=>'Web Site', :command=>proc{
Tk.tk_call('xplat::launch', 'https://www.codebykevin.com/stringscan.html')
|