aboutsummaryrefslogtreecommitdiff
path: root/extensions/gui/ix/q.wid
diff options
context:
space:
mode:
Diffstat (limited to 'extensions/gui/ix/q.wid')
-rwxr-xr-xextensions/gui/ix/q.wid5
1 files changed, 2 insertions, 3 deletions
diff --git a/extensions/gui/ix/q.wid b/extensions/gui/ix/q.wid
index 5efb592f..d9b36cb2 100755
--- a/extensions/gui/ix/q.wid
+++ b/extensions/gui/ix/q.wid
@@ -41,10 +41,9 @@ bind .- <Shift-MouseWheel> {.- xview scroll [expr {- (%D / 120) * 4}] units}
bind .- <ButtonPress-3> {}
bind .- <Button3-Leave> {dnd drag %W}
dnd bindtarget .- text/plain <Drop> {
- foreach l [split %D "\n"] {.- insert end $l}
-
+ foreach l [split %D "\n"] {.- insert end [regsub -- {^file:[/]+} $l "/"]}
}
-dnd bindtarget .- text/uri-list <Drop> {foreach d %D {.- insert end $d}}
+dnd bindtarget .- text/uri-list <Drop> {foreach d %D {.- insert end [regsub -- {^file:[/]+} $d "/"]}}
dnd bindsource .- text/uri-list {
set sel [.- curselection]
if {$sel ne ""} {