211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
|
# File 'sample/tkextlib/bwidget/demo.rb', line 211
def _create_intro
top = TkToplevel.new(:relief=>:raised, :borderwidth=>2)
top.withdraw
top.overrideredirect(true)
ximg = TkLabel.new(top, :bitmap=>"@#{File.join(DEMODIR,'x1.xbm')}",
:foreground=>'grey90', :background=>'white')
bwimg = TkLabel.new(ximg, :bitmap=>"@#{File.join(DEMODIR,'bwidget.xbm')}",
:foreground=>'grey90', :background=>'white')
frame = TkFrame.new(ximg, :background=>'white')
TkLabel.new(frame, :text=>'Loading demo',
:background=>'white', :font=>'times 8').pack
TkLabel.new(frame, :textvariable=>DemoVar.prgtext,
:background=>'white', :font=>'times 8', :width=>35).pack
Tk::BWidget::ProgressBar.new(frame, :width=>50, :height=>10,
:background=>'white',
:variable=>DemoVar.prgindic,
:maximum=>10).pack
frame.place(:x=>0, :y=>0, :anchor=>:nw)
bwimg.place(:relx=>1, :rely=>1, :anchor=>:se)
ximg.pack
Tk::BWidget.place(top, 0, 0, :center)
top.deiconify
top
end
|