Stringscan

Check-in [19c9e4e75a]
Login

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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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