home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 May / PCWorld_2002-05_cd.bin / Software / TemaCD / activetcltk / ActiveTcl8.3.4.1-8.win32-ix86.exe / ActiveTcl8.3.4.1-win32-ix86 / demos / BWidgets / dnd.tcl < prev    next >
Encoding:
Text File  |  2001-10-22  |  1.2 KB  |  43 lines
  1.  
  2. namespace eval DemoDnd {
  3. }
  4.  
  5.  
  6. proc DemoDnd::create { nb } {
  7.  
  8.     set frame [$nb insert end demoDnd -text "Drag and Drop"]
  9.  
  10.     set titf1 [TitleFrame $frame.titf1 -text "Drag sources"]
  11.     set subf  [$titf1 getframe]
  12.  
  13.     set ent1  [LabelEntry $subf.e1 -label "Entry" -labelwidth 14 -dragenabled 1 -dragevent 3]
  14.     set labf1 [LabelFrame $subf.f1 -text "Label (text)" -width 14]
  15.     set f     [$labf1 getframe]
  16.     set lab   [Label $f.l -text "Drag this text" -dragenabled 1 -dragevent 3]
  17.     pack $lab
  18.  
  19.     set labf2 [LabelFrame $subf.f2 -text "Label (bitmap)" -width 14]
  20.     set f     [$labf2 getframe]
  21.     set lab   [Label $f.l -bitmap info -dragenabled 1 -dragevent 3]
  22.     pack $lab
  23.  
  24.     pack $ent1 $labf1 $labf2 -side top -fill x -pady 4
  25.  
  26.     set titf2 [TitleFrame $frame.titf2 -text "Drop targets"]
  27.     set subf  [$titf2 getframe]
  28.  
  29.     set ent1  [LabelEntry $subf.e1 -label "Entry" -labelwidth 14 -dropenabled 1]
  30.     set labf1 [LabelFrame $subf.f1 -text "Label" -width 14]
  31.     set f     [$labf1 getframe]
  32.     set lab   [Label $f.l -dropenabled 1 -highlightthickness 1]
  33.     pack $lab -fill x
  34.  
  35.     pack $ent1 $labf1 -side top -fill x -pady 4
  36.  
  37.     pack $titf1 $titf2 -pady 4
  38.  
  39.     return $frame
  40. }
  41.  
  42.  
  43.