1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
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
|
#!/usr/bin/env ruby
require 'tk'
require 'tkextlib/iwidgets'
helpvar = TkVariable.new
viewmode = TkVariable.new
menu_spec = [
[:menubutton, 'file', {
:text=>'File', :menu=>[
[:options, {:tearoff=>false}],
[:command, 'new', {
:label=>'New', :helpstr=>'Open new document',
:command=>proc{puts 'NEW'}
}
],
[:command, 'close', {
:label=>'Close', :helpstr=>'Close current document',
:command=>proc{puts 'CLOSE'}
}
],
[:separator, 'sep1'],
[:command, 'exit', {
:label=>'Exit', :helpstr=>'Exit application',
:command=>proc{exit}
}
]
]
}
],
[:menubutton, 'edit', {
:text=>'Edit', :menu=>[
[:options, {:tearoff=>false}],
[:command, 'undo', {
:label=>'Undo', :underline=>0,
:helpstr=>'Undo last command',
:command=>proc{puts 'UNDO'}
}
],
[:separator, 'sep2'],
[:command, 'cut', {
:label=>'Cut', :underline=>1,
:helpstr=>'Cut selection to clipboard',
:command=>proc{puts 'CUT'}
}
],
[:command, 'copy', {
:label=>'Copy', :underline=>1,
:helpstr=>'Copy selection to clipboard',
:command=>proc{puts 'COPY'}
}
],
[:command, 'paste', {
:label=>'Paste', :underline=>0,
:helpstr=>'Paste clipboard contents',
:command=>proc{puts 'PASTE'}
}
]
]
}
],
[:menubutton, 'options', {
:text=>'Options', :menu=>[
[:options, {:tearoff=>false, :selectcolor=>'blue'}],
[:radiobutton, 'byName', {
:variable=>viewmode, :value=>'NAME',
:label=>'by Name', :helpstr=>'View files by name order',
:command=>proc{puts 'NAME'}
}
],
[:radiobutton, 'byDate', {
:variable=>viewmode, :value=>'DATE',
:label=>'by Date', :helpstr=>'View files by date order',
:command=>proc{puts 'DATE'}
}
],
[:cascade, 'prefs', {
:label=>'Preferences', :menu=>[
[:command, 'colors', {
:label=>'Colors...', :helpstr=>'Change text colors',
:command=>proc{puts 'COLORS'}
}
],
[:command, 'fonts', {
:label=>'Fonts...', :helpstr=>'Change text font',
:command=>proc{puts 'COLORS'}
}
]
]
}
]
]
}
]
]
#mb = Tk::Iwidgets::Menubar.new(:helpvariable=>helpvar,
# :menubuttons=>menu_spec)
mb = Tk::Iwidgets::Menubar.new(:helpvariable=>helpvar)
mb.configure(:menubuttons=>menu_spec)
fr = TkFrame.new(:width=>300, :height=>300)
ef = TkEntry.new(:textvariable=>helpvar)
mb.pack(:anchor=>:nw, :fill=>:x, :expand=>true)
fr.pack(:fill=>:both, :expand=>true)
ef.pack(:anchor=>:sw, :fill=>:x, :expand=>true)
Tk.mainloop
|
