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: |
19c9e4e75a07b0316f5933421e6f251c |
| 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 |
#initialize variables for entry
$dirname = TkVariable.new
$searchterm = TkVariable.new
#top window and frame
Tk::TkDND::DND
| | | < | | | 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')
|
| ︙ | ︙ |