1#
2# menubar sample 2 : use 'menu' option of root/toplevel widget
3#
4
5require 'tk'
6
7radio_var = TkVariable.new('y')
8
9menu_spec = [
10  [['File', 0],
11    {:label=>'Open', :command=>proc{puts('Open clicked')}, :underline=>0},
12    '---',
13    ['Check_A', TkVariable.new(true), 6],
14    {:type=>'checkbutton', :label=>'Check_B',
15                :variable=>TkVariable.new, :underline=>6},
16    '---',
17    ['Radio_X', [radio_var, 'x'], 6, '', {:foreground=>'black'}],
18    ['Radio_Y', [radio_var, 'y'], 6],
19    ['Radio_Z', [radio_var, 'z'], 6],
20    '---',
21    ['cascade', [
22                   ['sss', proc{p 'sss'}, 0],
23                   ['ttt', proc{p 'ttt'}, 0],
24                   ['uuu', proc{p 'uuu'}, 0],
25                   ['vvv', proc{p 'vvv'}, 0],
26                ],
27      0, '',
28      {:font=>'Courier 16 italic',
29       :menu_config=>{:font=>'Times -18 bold', :foreground=>'black'}}],
30    '---',
31    ['Quit', proc{exit}, 0]],
32
33  [['Edit', 0],
34    ['Cut', proc{puts('Cut clicked')}, 2],
35    ['Copy', proc{puts('Copy clicked')}, 0],
36    ['Paste', proc{puts('Paste clicked')}, 0]],
37
38  [['Help', 0, {:menu_name=>'help'}],
39    ['About This', proc{puts('Ruby/Tk menubar sample 2')}, 6]]
40]
41
42mbar = Tk.root.add_menubar(menu_spec,
43                           # followings are default configure options
44                           'tearoff'=>'false',
45                           'foreground'=>'grey40',
46                           'activeforeground'=>'red',
47                           'font'=>'Helvetia 12 bold')
48# This (default configure options) is NOT same the following.
49#
50#  mbar = Tk.root.add_menubar(menu_spec)
51#  mbar.configure('foreground'=>'grey40', 'activeforeground'=>'red',
52#                 'font'=>'Helvetia 12 bold')
53
54TkText.new(:wrap=>'word').pack.insert('1.0', 'Please read the sample source, and check how to override default configure options of menu entries on a menu_spec.')
55
56Tk.mainloop
57