Newer
Older
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
#!/usr/bin/env ruby
# ratio.rb
# Translated from FOX C++ version to Ruby (Dec 2004) by Brett Hallett.
# Demonstrates the use of the FXSpring method to retain size ratios between widgets when form is resized.
#
require 'fox16'
require 'fox16/colors'
require 'fox16/kwargs'
include Fox
class MainWindow < FXMainWindow
def initialize(app)
# Initialize base class first
super(app, 'Ratio', :opts => DECOR_ALL,
:width => 400, :height => 200,
:padLeft => 8, :padRight => 8, :padTop => 8, :padBottom =>8,
:hSpacing => 6, :vSpacing => 6)
# Add quit button and connect it to application
FXButton.new(self, "&Quit", nil, app, FXApp::ID_QUIT,
:opts => FRAME_RAISED|FRAME_THICK|LAYOUT_SIDE_BOTTOM|LAYOUT_CENTER_X,
:padLeft => 20, :padRight => 20, :padTop => 2, :padBottom => 2)
# Label above it
FXLabel.new(self,
"FXSpring can be used to keep widgets at fixed size ratios.\n\nResize the window to see how it behaves!",
:opts => LAYOUT_SIDE_TOP|LAYOUT_FILL_X)
# Layout manager to place the springs
horz = FXHorizontalFrame.new(self, FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y,
:padLeft => 0, :padRight => 0, :padTop => 0, :padBottom => 0,
:hSpacing => 0, :vSpacing => 0)
# First spring is set to behave normally in Y direction,
# but to have a ratio 1 for the X direction
FXSpring.new(horz, LAYOUT_FILL_X|LAYOUT_FILL_Y, :relw => 1, :padding => 0) do |spring|
FXLabel.new(spring, "1", :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y) do |label|
label.backColor = FXColor::Red
end
end
# Second spring has ratio 2 in the X direction
FXSpring.new(horz, LAYOUT_FILL_X|LAYOUT_FILL_Y, :relw => 2, :padding => 0) do |spring|
FXLabel.new(spring, "2", :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y) do |label|
label.backColor = FXColor::Green
end
end
# Third spring has ratio 3 in the X direction
FXSpring.new(horz, LAYOUT_FILL_X|LAYOUT_FILL_Y, :relw => 3, :padding => 0) do |spring|
puts "pl, pr, pt, pb = #{spring.padLeft}, #{spring.padRight}, #{spring.padTop}, #{spring.padBottom}"
FXLabel.new(spring, "3", :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y) do |label|
label.backColor = FXColor::Blue
end
end
end
def create
super
show(PLACEMENT_SCREEN)
end # create
end # class MainWindow
if __FILE__ == $0
# Construct an application
FXApp.new('Smithy', 'Max') do |theApp|
# Construct the main window
MainWindow.new(theApp)
# Create and show the application windows
theApp.create
# Run the application
theApp.run
end
end