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
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
|
#
# manager demo --- called from demo.rb
#
unless Object.const_defined?('DemoVar')
fail RuntimeError, "This is NOT a stand alone script. This script is called from 'demo.rb'. "
end
module DemoManager
@@progress = TkVariable.new(false)
@@status = TkVariable.new('Compute in progress...')
@@homogeneous = TkVariable.new(false)
@@constw = TkVariable.new
@@afterobj = nil
def self.create(nb)
frame = nb.insert('end', 'demoManager', :text=>'Manager')
topf = TkFrame.new(frame)
titf1 = Tk::BWidget::TitleFrame.new(topf, :text=>"MainFrame")
titf2 = Tk::BWidget::TitleFrame.new(topf, :text=>"NoteBook")
titf3 = Tk::BWidget::TitleFrame.new(frame, :text=>"Paned & ScrolledWindow")
_mainframe(titf1.get_frame)
_notebook(titf2.get_frame)
_paned(titf3.get_frame)
Tk.pack(titf1, titf2, :padx=>4, :side=>:left, :fill=>:both, :expand=>true)
Tk.pack(topf, :fill=>:x, :pady=>2)
Tk.pack(titf3, :pady=>2, :padx=>4, :fill=>:both, :expand=>true)
frame
end
def self._mainframe(parent)
labf1 = Tk::BWidget::LabelFrame.new(parent, :text=>'Toolbar',
:side=>:top, :anchor=>:w,
:relief=>:sunken, :borderwidth=>2)
subf = labf1.get_frame
chk1 = TkCheckbutton.new(subf, :text=>'View toolbar 1',
:variable=>DemoVar.toolbar1,
:command=>proc{
DemoVar.mainframe.show_toolbar(
0, DemoVar.toolbar1.value
)
})
chk2 = TkCheckbutton.new(subf, :text=>'View toolbar 2',
:variable=>DemoVar.toolbar2,
:command=>proc{
DemoVar.mainframe.show_toolbar(
1, DemoVar.toolbar2.value
)
})
Tk.pack(chk1, chk2, :anchor=>:w, :fill=>:x)
labf1.pack(:fill=>:both)
labf2 = Tk::BWidget::LabelFrame.new(parent, :text=>'Status bar',
:side=>:top, :anchor=>:w,
:relief=>:sunken, :borderwidth=>2)
subf = labf2.get_frame
chk1 = TkCheckbutton.new(subf, :text=>"Show Progress\nindicator",
:justify=>:left, :variable=>@@progress,
:command=>proc{ _show_progress })
chk1.pack(:anchor=>:w, :fill=>:x)
Tk.pack(labf1, labf2, :side=>:left, :padx=>4, :fill=>:both)
end
def self._notebook(parent)
TkCheckbutton.new(parent, :text=>'Homogeneous label',
:variable=>@@homogeneous,
:command=>proc{
DemoVar.notebook[:homogeneous] = @@homogeneous.value
}).pack(:side=>:left, :anchor=>:n, :fill=>:x)
end
def self._paned(parent)
pw1 = Tk::BWidget::PanedWindow.new(parent, :side=>:top)
pane = pw1.add(:minsize=>100)
pw2 = Tk::BWidget::PanedWindow.new(pane, :side=>:left)
pane1 = pw2.add(:minsize=>100)
pane2 = pw2.add(:minsize=>100)
pane3 = pw1.add(:minsize=>100)
[pane1, pane2].each{|pane|
sw = Tk::BWidget::ScrolledWindow.new(pane)
lb = TkListbox.new(sw, :height=>8, :width=>20, :highlightthickness=>0)
(1..8).each{|i| lb.insert('end', "Valur #{i}") }
sw.set_widget(lb)
sw.pack(:fill=>:both, :expand=>true)
}
sw = Tk::BWidget::ScrolledWindow.new(pane3, :relief=>:sunken,
:borderwidth=>2)
sf = Tk::BWidget::ScrollableFrame.new(sw)
sw.set_widget(sf)
subf = sf.get_frame
lab = TkLabel.new(subf, :text=>'This is a ScrollableFrame')
chk = TkCheckbutton.new(subf, :text=>'Constrained with',
:variable=>@@constw, :command=>proc{
sf['constrainedwidth'] = @@constw.value
})
lab.pack
chk.pack(:anchor=>:w)
chk.bind('FocusIn', proc{sf.see(chk)})
(0..20).each{|i|
ent = TkEntry.new(subf, :width=>50).pack(:fill=>:x, :pady=>4)
ent.bind('FocusIn', proc{sf.see(ent)})
ent.insert('end', "Text field #{i}")
}
Tk.pack(sw, pw2, pw1, :fill=>:both, :expand=>true)
end
def self._show_progress
unless @@afterobj
@@afterobj = TkTimer.new(30, -1, proc{_update_progress})
end
if @@progress.bool
DemoVar.status.value = 'Compute in progress...'
DemoVar.prgindic.value = 0
DemoVar.mainframe.show_statusbar(:progression)
@@afterobj.start unless @@afterobj.running?
else
DemoVar.status.value = ''
DemoVar.mainframe.show_statusbar(:status)
@@afterobj.stop
end
end
def self._update_progress
if @@progress.bool
if DemoVar.prgindic.numeric < 100
DemoVar.prgindic.numeric += 5
else
@@progress.value = false
DemoVar.mainframe.show_statusbar(:status)
DemoVar.status.value = 'Done'
@@afterobj.stop
Tk.after(500, proc{ DemoVar.status.value = '' })
end
else
@@afterobj.stop
end
end
end
|
