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