Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | More refinements |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: | 8ff20c9b760d6725347fc6600cdfb15739b1823dab069b06a2d8d7d372ea61e8 |
| User & Date: | kevin 2017-06-11 04:20:22 |
Context
|
2017-06-11
| ||
| 04:52 | More polish check-in: 21d76d7da6 user: kevin tags: trunk | |
| 04:20 | More refinements check-in: 8ff20c9b76 user: kevin tags: trunk | |
| 04:14 | Refine search process check-in: d3127b90fb user: kevin tags: trunk | |
Changes
Changes to stringscan.rb.
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
...
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
$menubar.add :cascade, :menu => $appmenu
$appmenu.add :command, :label => 'About Stringscan', :command=> proc{aboutWindow}
$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)}
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)
................................................................................
#button frame and buttons
$buttonframe = Tk::Tile::Frame.new($mainframe){padding 2}.pack('side' => 'top','fill' => 'both','expand' => 'no')
$choosebutton = Tk::Tile::Button.new($buttonframe) {
image $folderimage
takefocus 0
padding 5
command proc{$dirname.value = Tk::chooseDirectory('initialdir'=>Dir.home, 'parent'=>$root)}
}.pack('side' => 'left','fill' => 'both','expand' => 'no')
Tk::RbWidget::BalloonHelp.new($choosebutton, 'text'=>'Select Directory', 'background'=>'lightyellow', 'relief'=>'flat')
stringgrepProc = proc {stringgrep}
$runbutton = Tk::Tile::Button.new($buttonframe) {
image $glassimage
takefocus 0
padding 5
|
|
>
>
>
|
>
>
|
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
...
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
$menubar.add :cascade, :menu => $appmenu
$appmenu.add :command, :label => 'About Stringscan', :command=> proc{aboutWindow}
$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)
$dirname.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)
................................................................................
#button frame and buttons
$buttonframe = Tk::Tile::Frame.new($mainframe){padding 2}.pack('side' => 'top','fill' => 'both','expand' => 'no')
$choosebutton = Tk::Tile::Button.new($buttonframe) {
image $folderimage
takefocus 0
padding 5
command proc{
$dirname = Tk::chooseDirectory('initialdir'=>Dir.home, 'parent'=>$root)
$dirname.value = $dirname
}
}.pack('side' => 'left','fill' => 'both','expand' => 'no')
Tk::RbWidget::BalloonHelp.new($choosebutton, 'text'=>'Select Directory', 'background'=>'lightyellow', 'relief'=>'flat')
stringgrepProc = proc {stringgrep}
$runbutton = Tk::Tile::Button.new($buttonframe) {
image $glassimage
takefocus 0
padding 5
|