From 1c3f145e22b62866909b38b197f330529ce53440 Mon Sep 17 00:00:00 2001
From: treectrl <treectrl>
Date: Fri, 30 Jul 2004 21:22:28 +0000
Subject: Use "dragimage configure -visible" instead of "dragimage visible".

---
 library/filelist-bindings.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/library/filelist-bindings.tcl b/library/filelist-bindings.tcl
index a937879..43e61ec 100644
--- a/library/filelist-bindings.tcl
+++ b/library/filelist-bindings.tcl
@@ -250,7 +250,7 @@ proc TreeCtrl::FileListMotion {T x y} {
 	    set x [expr {[$T canvasx $x] - $Priv(drag,x)}]
 	    set y [expr {[$T canvasy $y] - $Priv(drag,y)}]
 	    $T dragimage offset $x $y
-	    $T dragimage visible yes
+	    $T dragimage configure -visible yes
 	}
     }
     return
@@ -283,7 +283,7 @@ proc TreeCtrl::FileListRelease1 {T x y} {
 
 	    # Some dragging occurred
 	    if {$Priv(drag,motion)} {
-		$T dragimage visible no
+		$T dragimage configure -visible no
 		if {$Priv(drop) ne ""} {
 		    $T selection modify {} $Priv(drop)
 		    if {[lsearch -exact [$T notify eventnames] Drag] != -1} {
-- 
cgit v0.12