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
|
=begin
uimanager2.rb -
Copyright (C) 2004-2006 Masao Mutoh
This program is licenced under the same licence as Ruby-GNOME2.
$Id: uimanager2.rb,v 1.5 2006/06/17 13:18:12 mutoh Exp $
=end
require 'gtk2'
if str = Gtk.check_version(2, 4, 0)
puts "This sample requires GTK+ 2.4.0 or later"
puts str
exit
end
callback = Proc.new {|actiongroup, action|
puts "`#{action.name}' is clicked. "
if action.is_a? Gtk::ToggleAction
puts "active? = #{action.active?}"
end
}
callback_quit = Proc.new {
p "Quit is called."
Gtk.main_quit
}
callback_radio = Proc.new {|action, current|
puts "action = `#{action.name}'"
puts "current = `#{current.name}'"
}
actions = [
["FileMenu", nil, "_File"],
["PreferencesMenu", nil, "_Preferences"],
["ColorMenu", nil, "_Color"],
["ShapeMenu", nil, "_Shape"],
["HelpMenu", nil, "_Help"],
["New", Gtk::Stock::NEW, "_New", "<control>N", "Create a new file", callback],
["Open", Gtk::Stock::OPEN, "_Open", "<control>O", "Open a file", callback],
["Save", Gtk::Stock::SAVE, "_Save", "<control>S", "Save current file", callback],
["SaveAs", Gtk::Stock::SAVE, "Save _As...", nil, "Save to a file", callback],
["Quit", Gtk::Stock::QUIT, "_Quit", "<control>Q", "Quit", callback_quit],
["About", nil, "_About", "<control>A", "About", callback],
["Logo", "demo-gtk-logo", nil, nil, "GTK+", callback]
]
toggle_actions = [
["Bold", Gtk::Stock::BOLD, "_Bold", "<control>B", "Bold", callback, true]
]
color_radio_actions = [
["Red", nil, "_Red", "<control>R", "Blood", 0],
["Green", nil, "_Green", "<control>G", "Grass", 1],
["Blue", nil, "_Blue", "<control>B", "Sky", 2]
]
shape_radio_actions = [
["Square", nil, "_Square", "<control>S", "Square", 0],
["Rectangle", nil, "_Rectangle", "<control>R", "Rectangle", 1],
["Oval", nil, "_Oval", "<control>O", "Egg", 2]
]
window = Gtk::Window.new("Gtk::UIManager sample2")
window.signal_connect("destroy"){Gtk.main_quit}
actiongroup = Gtk::ActionGroup.new("Actions")
actiongroup.add_actions(actions)
actiongroup.add_toggle_actions(toggle_actions)
actiongroup.add_radio_actions(color_radio_actions, 1) do |action, current|
puts "action = `#{action.name}'"
puts "current = `#{current.name}'"
end
actiongroup.add_radio_actions(shape_radio_actions, 2, callback_radio)
uimanager = Gtk::UIManager.new
uimanager.insert_action_group(actiongroup, 0)
window.add_accel_group(uimanager.accel_group)
uimanager.add_ui("./uimanager2.xml")
vbox = Gtk::VBox.new
vbox.pack_start(uimanager["/MenuBar"], false, false)
vbox.pack_start(Gtk::Label.new("Gtk::UIManager Sample"))
window.add(vbox)
window.set_default_size(100, 100).show_all
Gtk.main
|
