1# ----------------------------------------------------------------------------
2#  dnd.tcl
3#  This file is part of Unifix BWidget Toolkit
4#  $Id: dnd.tcl,v 1.2 2009/09/08 21:22:09 oberdorfer Exp $
5# ----------------------------------------------------------------------------
6#
7
8namespace eval DemoDnd {
9}
10
11
12proc DemoDnd::create { nb } {
13
14    set frame [$nb insert end demoDnd -text "Drag and Drop"]
15
16    set titf1 [TitleFrame $frame.titf1 -text "Drag sources"]
17    set subf  [$titf1 getframe]
18
19    set ent1  [LabelEntry $subf.e1 -label "Entry" -labelwidth 14 -dragenabled 1 -dragevent 3]
20    set labf1 [LabelFrame $subf.f1 -text "Label (text)" -width 14]
21    set f     [$labf1 getframe]
22    set lab   [Label $f.l -text "Drag this text" -dragenabled 1 -dragevent 3]
23    pack $lab
24
25    set labf2 [LabelFrame $subf.f2 -text "Label (bitmap)" -width 14]
26    set f     [$labf2 getframe]
27    set lab   [Label $f.l -bitmap info -dragenabled 1 -dragevent 3]
28    pack $lab
29
30    pack $ent1 $labf1 $labf2 -side top -fill x -pady 4
31
32    set titf2 [TitleFrame $frame.titf2 -text "Drop targets"]
33    set subf  [$titf2 getframe]
34
35    set ent1  [LabelEntry $subf.e1 -label "Entry" -labelwidth 14 -dropenabled 1]
36    set labf1 [LabelFrame $subf.f1 -text "Label" -width 14]
37    set f     [$labf1 getframe]
38    set lab   [Label $f.l -dropenabled 1 -highlightthickness 1]
39    pack $lab -fill x
40
41    pack $ent1 $labf1 -side top -fill x -pady 4
42
43    pack $titf1 $titf2 -pady 4
44
45    return $frame
46}
47
48
49