12
12
titf1 = Tk::BWidget::TitleFrame.new(frame, :text=>'Drag source')
13
13
subf = titf1.get_frame
15
ent1 = Tk::BWidget::LabelEntry.new(subf, :label=>'Entry',
16
:labelwidth=>14, :dragenabled=>true,
15
ent1 = Tk::BWidget::LabelEntry.new(subf, :label=>'Entry',
16
:labelwidth=>14, :dragenabled=>true,
18
labf1 = Tk::BWidget::LabelFrame.new(subf, :text=>'Label (text)',
18
labf1 = Tk::BWidget::LabelFrame.new(subf, :text=>'Label (text)',
20
20
f = labf1.get_frame
21
lab = Tk::BWidget::Label.new(f, :text=>'Drag this text',
21
lab = Tk::BWidget::Label.new(f, :text=>'Drag this text',
22
22
:dragenabled=>true, :dragevent=>3).pack
24
labf2 = Tk::BWidget::LabelFrame.new(subf, :text=>'Label (bitmap)',
24
labf2 = Tk::BWidget::LabelFrame.new(subf, :text=>'Label (bitmap)',
26
26
f = labf2.get_frame
27
lab = Tk::BWidget::Label.new(f, :bitmap=>'info',
27
lab = Tk::BWidget::Label.new(f, :bitmap=>'info',
28
28
:dragenabled=>true, :dragevent=>3).pack
30
30
Tk.pack(ent1, labf1, labf2, :side=>:top, :fill=>:x, :pady=>4)
32
32
titf2 = Tk::BWidget::TitleFrame.new(frame, :text=>'Drop targets')
33
33
subf = titf2.get_frame
35
ent1 = Tk::BWidget::LabelEntry.new(subf, :label=>'Entry',
35
ent1 = Tk::BWidget::LabelEntry.new(subf, :label=>'Entry',
36
36
:labelwidth=>14, :dropenabled=>true)
37
37
labf1 = Tk::BWidget::LabelFrame.new(subf, :text=>'Label', :width=>14)
38
38
f = labf1.get_frame
39
lab = Tk::BWidget::Label.new(f, :dropenabled=>true,
39
lab = Tk::BWidget::Label.new(f, :dropenabled=>true,
40
40
:highlightthickness=>1).pack(:fill=>:x)
41
41
Tk.pack(ent1, labf1, :side=>:top, :fill=>:x, :pady=>4)
42
42
Tk.pack(titf1, titf2, :pady=>4)