my $drag_obj = 0;