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') |
︙ | ︙ |