Tkx-1-0.0s-dnd6.pl-14: package require BWidget
Tkx-2-0.0s-dnd6.pl-22: wm title . {BWidgets Demo for Drag 'n Drop enabled buttons.}
CreateButton: 1
Tkx-3-0.0s-dnd6.pl-40: Bitmap::get new
Tkx-4-0.0s-dnd6.pl-40: Button .b1 -image image1 -text {1.) Drag} -command perl::callback
Tkx-5-0.0s-dnd6.pl-41: pack .b1
enable DND for .b1
Tkx-6-0.0s-dnd6.pl-48: DragSite::include button DragSiteIncludeButton.b1 <B1-Motion>
Tkx-7-0.0s-dnd6.pl-49: list copy  move  link
Tkx-8-0.0s-dnd6.pl-49: list FOOBAR [list copy {} move {} link {}]
Tkx-9-0.0s-dnd6.pl-49: DropSite::register .b1 -dropcmd perl::callback -droptypes [list FOOBAR {copy {} move {} link {}}]
Tkx-10-0.0s-dnd6.pl-52: DragSite::register .b1 -dragevent 1 -draginitcmd perl::callback -dragendcmd perl::callback
CreateButton: 2
Tkx-11-0.0s-dnd6.pl-40: Bitmap::get file
Tkx-12-0.1s-dnd6.pl-40: Button .b2 -image image2 -text {2.) and} -command perl::callback
Tkx-13-0.1s-dnd6.pl-41: pack .b2
enable DND for .b2
Tkx-14-0.1s-dnd6.pl-48: DragSite::include button DragSiteIncludeButton.b2 <B1-Motion>
Tkx-15-0.1s-dnd6.pl-49: list copy  move  link
Tkx-16-0.1s-dnd6.pl-49: list FOOBAR [list copy {} move {} link {}]
Tkx-17-0.1s-dnd6.pl-49: DropSite::register .b2 -dropcmd perl::callback -droptypes [list FOOBAR {copy {} move {} link {}}]
Tkx-18-0.1s-dnd6.pl-52: DragSite::register .b2 -dragevent 1 -draginitcmd perl::callback -dragendcmd perl::callback
CreateButton: 3
Tkx-19-0.1s-dnd6.pl-40: Bitmap::get copy
Tkx-20-0.1s-dnd6.pl-40: Button .b3 -image image3 -text {3.) Drop} -command perl::callback
Tkx-21-0.1s-dnd6.pl-41: pack .b3
enable DND for .b3
Tkx-22-0.1s-dnd6.pl-48: DragSite::include button DragSiteIncludeButton.b3 <B1-Motion>
Tkx-23-0.1s-dnd6.pl-49: list copy  move  link
Tkx-24-0.1s-dnd6.pl-49: list FOOBAR [list copy {} move {} link {}]
Tkx-25-0.1s-dnd6.pl-49: DropSite::register .b3 -dropcmd perl::callback -droptypes [list FOOBAR {copy {} move {} link {}}]
Tkx-26-0.1s-dnd6.pl-52: DragSite::register .b3 -dragevent 1 -draginitcmd perl::callback -dragendcmd perl::callback
CreateButton: 4
Tkx-27-0.1s-dnd6.pl-40: Bitmap::get redo
Tkx-28-0.1s-dnd6.pl-40: Button .b4 -image image4 -text {4.) Demo} -command perl::callback
Tkx-29-0.1s-dnd6.pl-41: pack .b4
enable DND for .b4
Tkx-30-0.1s-dnd6.pl-48: DragSite::include button DragSiteIncludeButton.b4 <B1-Motion>
Tkx-31-0.1s-dnd6.pl-49: list copy  move  link
Tkx-32-0.1s-dnd6.pl-49: list FOOBAR [list copy {} move {} link {}]
Tkx-33-0.1s-dnd6.pl-49: DropSite::register .b4 -dropcmd perl::callback -droptypes [list FOOBAR {copy {} move {} link {}}]
Tkx-34-0.1s-dnd6.pl-52: DragSite::register .b4 -dragevent 1 -draginitcmd perl::callback -dragendcmd perl::callback
CreateEntry
Tkx-35-0.1s-dnd6.pl-63: entry ..e -width 20 -textvariable SCALAR(0x18301a0)
Tkx-36-0.1s-dnd6.pl-66: pack .e -padx 5 -pady 5
enable DND for .e
Tkx-37-0.1s-dnd6.pl-71: DragSite::include entry FOOBAR <B1-Motion>
Tkx-38-0.1s-dnd6.pl-72: list copy  move  link
Tkx-39-0.1s-dnd6.pl-72: list FOOBAR [list copy {} move {} link {}]
Tkx-40-0.1s-dnd6.pl-72: DropSite::register .e -dropcmd perl::callback -dropovercmd perl::callback -droptypes [list FOOBAR {copy {} m
ove {} link {}}]
Tkx-41-0.1s-dnd6.pl-27: winfo children .
Tkx-42-0.1s-dnd6.pl-27: Button .b -text {Exit Demo} -command perl::callback
Tkx-43-0.1s-dnd6.pl-27: pack .b -padx 5 -pady 5
        DragInitCmdButton:
args[0]:        $VAR1 = undef;
args[1]:        $VAR1 = bless( do{\(my $o = 26882256)}, 'Tcl' );
args[2]:        $VAR1 = '::perl::CODE(0x1aee6ec)';
Drag Source:    .b1
X-Coordinate:   122
Y-Coordinate:   74
Top Level:      .drag
Tkx-44-3.4s-dnd6.pl-130: list FOOBAR copy DragInitButton.b1
        DropCmdButton:
args[0]:        $VAR1 = undef;
args[1]:        $VAR1 = bless( do{\(my $o = 26882256)}, 'Tcl' );
args[2]:        $VAR1 = '::perl::CODE(0x1aee194)';
Drop Target:    .b2
Drag Source:    .b1
X-Coordinate:   112
Y-Coordinate:   97
Operation:      default
Type of Data:   FOOBAR
Dragged Data:   DragInitButton.b1
Tkx-45-5.3s-dnd6.pl-99: list DropCmdButton copy DropCmdButton.b2
        DragEndCmdButton:
args[0]:        $VAR1 = undef;
args[1]:        $VAR1 = bless( do{\(my $o = 26882256)}, 'Tcl' );
args[2]:        $VAR1 = '::perl::CODE(0x1aee8e4)';
Drag Source:    .b1
Drop Target:    .b2
Operation:      copy
Type of Data:   FOOBAR
Dragged Data:   DragInitButton.b1
Result of Drop: DropCmdButton copy DropCmdButton.b2
        DragInitCmdButton:
args[0]:        $VAR1 = undef;
args[1]:        $VAR1 = bless( do{\(my $o = 26882256)}, 'Tcl' );
args[2]:        $VAR1 = '::perl::CODE(0x1aee6ec)';
Drag Source:    .b3
X-Coordinate:   123
Y-Coordinate:   115
Top Level:      .drag
Tkx-46-13.0s-dnd6.pl-130: list FOOBAR copy DragInitButton.b3
        DropOverCmdEntry:
args[0]:        $VAR1 = undef;
args[1]:        $VAR1 = bless( do{\(my $o = 26882256)}, 'Tcl' );
args[2]:        $VAR1 = '::perl::CODE(0x1aeedf4)';
Drop Target:    .e
Drag Source:    .b3
Event:          enter
X-Coordinate:   157
Y-Coordinate:   159
Operation:      default
Type of Data:   FOOBAR
Dragged Data:   DragInitButton.b3
        DropCmdEntry:
args[0]:        $VAR1 = undef;
args[1]:        $VAR1 = bless( do{\(my $o = 26882256)}, 'Tcl' );
args[2]:        $VAR1 = '::perl::CODE(0x1aeeb54)';
Drop Target:    .e
Drag Source:    .b3
X-Coordinate:   148
Y-Coordinate:   164
Operation:      default
Type of Data:   FOOBAR
Dragged Data:   DragInitButton.b3
Tkx-47-14.8s-dnd6.pl-173: list FOOBAR copy entry
        DragEndCmdButton:
args[0]:        $VAR1 = undef;
args[1]:        $VAR1 = bless( do{\(my $o = 26882256)}, 'Tcl' );
args[2]:        $VAR1 = '::perl::CODE(0x1aee8e4)';
Drag Source:    .b3
Drop Target:    .e
Operation:      copy
Type of Data:   FOOBAR
Dragged Data:   DragInitButton.b3
Result of Drop: FOOBAR copy entry
Tkx-48-18.6s-Tcl.pm-512: destroy .