diff options
author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-07-06 09:42:12 +0000 |
---|---|---|
committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-07-06 09:42:12 +0000 |
commit | d8465ff9abf63545262b7d8f88b069522ae82823 (patch) | |
tree | ea1597d41d1de11febd12cc38b71838e0691bfcb /ext/tk/sample/tkextlib/bwidget/dnd.rb | |
parent | 3d8fa5556164f3aa2f6f1733ffe4a96fc4f33ed8 (diff) | |
download | ruby-d8465ff9abf63545262b7d8f88b069522ae82823.tar.gz |
* ext/tk/lib : improve framework of developping Tcl/Tk extension wrappers
* BWidget extension support on Ruby/Tk
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@6586 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/sample/tkextlib/bwidget/dnd.rb')
-rw-r--r-- | ext/tk/sample/tkextlib/bwidget/dnd.rb | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/ext/tk/sample/tkextlib/bwidget/dnd.rb b/ext/tk/sample/tkextlib/bwidget/dnd.rb new file mode 100644 index 0000000000..9938b4b099 --- /dev/null +++ b/ext/tk/sample/tkextlib/bwidget/dnd.rb @@ -0,0 +1,43 @@ +# +# dnd demo --- called from demo.rb +# + +module DemoDnD + def self.create(nb) + frame = nb.insert('end', 'demoDnD', :text=>'Drag and Drop') + + titf1 = Tk::BWidget::TitleFrame.new(frame, :text=>'Drag source') + subf = titf1.get_frame + + ent1 = Tk::BWidget::LabelEntry.new(subf, :label=>'Entry', + :labelwidth=>14, :dragenabled=>true, + :dragevent=>3) + labf1 = Tk::BWidget::LabelFrame.new(subf, :text=>'Label (text)', + :width=>14) + f = labf1.get_frame + lab = Tk::BWidget::Label.new(f, :text=>'Drag this text', + :dragenabled=>true, :dragevent=>3).pack + + labf2 = Tk::BWidget::LabelFrame.new(subf, :text=>'Label (bitmap)', + :width=>14) + f = labf2.get_frame + lab = Tk::BWidget::Label.new(f, :bitmap=>'info', + :dragenabled=>true, :dragevent=>3).pack + + Tk.pack(ent1, labf1, labf2, :side=>:top, :fill=>:x, :pady=>4) + + titf2 = Tk::BWidget::TitleFrame.new(frame, :text=>'Drop targets') + subf = titf2.get_frame + + ent1 = Tk::BWidget::LabelEntry.new(subf, :label=>'Entry', + :labelwidth=>14, :dropenabled=>true) + labf1 = Tk::BWidget::LabelFrame.new(subf, :text=>'Label', :width=>14) + f = labf1.get_frame + lab = Tk::BWidget::Label.new(f, :dropenabled=>true, + :highlightthickness=>1).pack(:fill=>:x) + Tk.pack(ent1, labf1, :side=>:top, :fill=>:x, :pady=>4) + Tk.pack(titf1, titf2, :pady=>4) + + frame + end +end |