mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
ed6ce8b43b
* ext/tk/*: Support new features of Tcl/Tk8.6b1 and minor bug fixes.
( [KNOWN BUG] Ruby/Tk on Ruby 1.9 will not work on Cygwin. )
* ext/tk/*: Unify sources between Ruby 1.8 & 1.9.
Improve default_widget_set handling.
* ext/tk/*: Multi-TkInterpreter (multi-tk.rb) works on Ruby 1.8 & 1.9.
( [KNOWN BUG] On Ruby 1.8, join to a long term Thread on Tk
callbacks may freeze. On Ruby 1.9, cannot create a second
master interpreter (creating slaves are OK); supported master
interpreter is the default master interpreter only. )
* ext/tk/lib/tkextlib/*: Update supported versions of Tk extensions.
Tcllib 1.8/Tklib 0.4.1 ==> Tcllib 1.11.1/Tklib 0.5
BWidgets 1.7 ==> BWidgets 1.8
TkTable 2.9 ==> TkTable 2.10
TkTreeCtrl 2005-12-02 ==> TkTreeCtrl 2.2.9
Tile 0.8.0/8.5.1 ==> Tile 0.8.3/8.6b1
IncrTcl 2005-02-14 ==> IncrTcl 2008-12-15
TclX 2005-02-07 ==> TclX 2008-12-15
Trofs 0.4.3 ==> Trofs 0.4.4
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@24063 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
72 lines
2.7 KiB
Ruby
72 lines
2.7 KiB
Ruby
#
|
|
# menubar sample 3 : vertical layout menubar; use frame and menubuttons
|
|
#
|
|
|
|
require 'tk'
|
|
|
|
radio_var = TkVariable.new('y')
|
|
|
|
menu_spec = [
|
|
[['&File', true], # when underline option is ture, '&' index is the position
|
|
{:label=>'Open', :command=>proc{puts('Open clicked')}, :underline=>0},
|
|
'---',
|
|
['Check_A', TkVariable.new(true), 6],
|
|
{:type=>'checkbutton', :label=>'Check_B',
|
|
:variable=>TkVariable.new, :underline=>6},
|
|
'---',
|
|
['Radio_X', [radio_var, 'x'], /[XYZ]/, '', {:foreground=>'black'}],
|
|
['Radio_Y', [radio_var, 'y'], /[XYZ]/],
|
|
['Radio_Z', [radio_var, 'z'], /[XYZ]/], # use Regexp for underline position
|
|
'---',
|
|
['cascade', [
|
|
['sss', proc{p 'sss'}, 0],
|
|
['ttt', proc{p 'ttt'}, 0],
|
|
['uuu', proc{p 'uuu'}, 0],
|
|
['vvv', proc{p 'vvv'}, 0],
|
|
],
|
|
0, '',
|
|
{:font=>'Courier 16 italic',
|
|
:menu_config=>{:font=>'Times -18 bold', :foreground=>'black'}}],
|
|
'---',
|
|
['Quit', proc{exit}, 0]],
|
|
|
|
[['Edit', 0],
|
|
['Cut', proc{puts('Cut clicked')}, 2],
|
|
['Copy', proc{puts('Copy clicked')}, 0],
|
|
['Paste', proc{puts('Paste clicked')}, 0]],
|
|
|
|
[['Help', 0, {:menu_name=>'help'}],
|
|
['About This', proc{puts('Ruby/Tk menubar sample 3')}, "This"]]
|
|
# use string index for underline position
|
|
]
|
|
|
|
layout_proc = 'vertical'
|
|
# The following procedure is same to 'layout_proc'=>'vertical'
|
|
=begin
|
|
layout_proc = proc{|parent, mbtn|
|
|
mbtn.direction :right
|
|
mbtn.pack(:side=>:top, :fill=>:x)
|
|
|
|
menu = mbtn.menu
|
|
cmd = proc{|m, dir|
|
|
Tk::Menu::TkInternalFunction.next_menu(m, dir) rescue nil
|
|
# ignore error when the internal function doesn't exist
|
|
}
|
|
menu.bind('Tab', cmd, :widget, 'forward')
|
|
menu.bind('Alt-Tab', cmd, :widget, 'backward')
|
|
}
|
|
=end
|
|
|
|
menubar = TkMenubar.new(nil, menu_spec,
|
|
'layout_proc'=>layout_proc,
|
|
'tearoff'=>false,
|
|
'foreground'=>'grey40',
|
|
'activeforeground'=>'red',
|
|
'font'=>'Helvetia 12 bold')
|
|
menubar.pack('side'=>'left', 'fill'=>'y')
|
|
|
|
TkText.new(:wrap=>'word').pack.insert('1.0', 'This sample script generates "Menu Sidebar".
|
|
If "::tk::MenuNextMenuon" function is available your Tcl/Tk library, you will be able to move to the next menu by Tab key on the posted menu, or the previous menu by Alt + Tab key.
|
|
Please read the sample source, and check how to override default configure options of menu entries on a menu_spec. Maybe, on windows, this menubar does not work properly about keyboard shortcuts. Then, please use "menu" option of root/toplevel widget (see sample/menubar3.rb).')
|
|
|
|
Tk.mainloop
|