aboutsummaryrefslogtreecommitdiff
path: root/extensions/gui/ix/q.wid
diff options
context:
space:
mode:
authorcarmen rocco <ix9@users.sourceforge.net>2005-04-24 12:10:00 +0000
committercarmen rocco <ix9@users.sourceforge.net>2005-04-24 12:10:00 +0000
commit6a08f42af3f1c3584882081936ca18c39693d8a1 (patch)
tree742bdc01bbf084bf2377078c5f2b92f7af74dc01 /extensions/gui/ix/q.wid
parent9a69d445591c9756a6818d49c52f4356026aba88 (diff)
ngrid
svn path=/trunk/; revision=2812
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 ""} {