diff options
| author | treectrl <treectrl> | 2004-07-30 21:22:28 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2004-07-30 21:22:28 (GMT) |
| commit | 1c3f145e22b62866909b38b197f330529ce53440 (patch) | |
| tree | 34926850543548044ab16edc804c01618fce9e4e /library/filelist-bindings.tcl | |
| parent | 5fb9bdb1fa421d4540b0bf643d43871a69499915 (diff) | |
| download | tktreectrl-1c3f145e22b62866909b38b197f330529ce53440.zip tktreectrl-1c3f145e22b62866909b38b197f330529ce53440.tar.gz tktreectrl-1c3f145e22b62866909b38b197f330529ce53440.tar.bz2 | |
Use "dragimage configure -visible" instead of "dragimage visible".
Diffstat (limited to 'library/filelist-bindings.tcl')
| -rw-r--r-- | library/filelist-bindings.tcl | 4 |
1 files 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} { |