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
|
=begin header
range.rb - a part of testgtk.c rewritten in Ruby/GTK2
Copyright (C) 2002-2005 Ruby-GNOME2 Project Team
$Id: range.rb,v 1.6 2005/07/18 17:13:32 mutoh Exp $
Rewritten by TAKAHASHI Hitoshi <thitoshi@ne.scphys.kyoto-u.ac.jp>
Original Copyright:
GTK - The GIMP Toolkit
Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the
Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA.
=end
require 'sample'
class RangeSample < SampleWindow
def initialize
super("range controls")
vbox = Gtk::VBox.new(false, 10)
add(vbox)
adjustment = Gtk::Adjustment.new(0.0, 0.0, 101.0, 0.1, 1.0, 1.0)
scale = Gtk::HScale.new(adjustment)
scale.set_size_request(150, 50)
scale.update_policy = Gtk::UPDATE_DELAYED
scale.digits = 1
scale.draw_value = true
vbox.add(scale)
scrollbar = Gtk::HScrollbar.new(adjustment)
scrollbar.update_policy = Gtk::UPDATE_CONTINUOUS
vbox.add(scrollbar)
vbox.add(Gtk::HSeparator.new)
button = Gtk::Button.new("close")
button.signal_connect("clicked"){destroy}
vbox.pack_start(button, true, true, 0)
button.can_default = true
button.grab_default
end
end
|
