diff options
Diffstat (limited to 'demos/simple_source.tcl')
| -rw-r--r-- | demos/simple_source.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/demos/simple_source.tcl b/demos/simple_source.tcl index 53b0df3..2cff6d3 100644 --- a/demos/simple_source.tcl +++ b/demos/simple_source.tcl @@ -10,7 +10,7 @@ tkdnd::drag_source register .drag_source_text DND_Text tkdnd::drag_source register .drag_source_files DND_Files
## Event <<DragInitCmd>>
-set filename [info script]
+set filename [file normalize [info script]]
bind .drag_source_text <<DragInitCmd>> \
{list copy DND_Text {Some nice dropped text!}}
bind .drag_source_files <<DragInitCmd>> \
|