display download URL in status-line

Closes #33
pure-data · Jun 16, 2015 · 43cdf51 · 43cdf51
1 parent cd0c25e
commit 43cdf51
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/deken-plugin.tcl b/deken-plugin.tcl
@@ -154,7 +154,7 @@ proc ::deken::initiate_search {mytoplevel} {
                 set tag ch$counter
                 set readable_date [regsub -all {[TZ]} $date { }]
                 $mytoplevel.results insert end "$title\n\tUploaded by $creator $readable_date\n\n" $tag
-                $mytoplevel.results tag bind $tag <Enter> "$mytoplevel.results tag configure $tag -foreground blue"
+                $mytoplevel.results tag bind $tag <Enter> "$mytoplevel.results tag configure $tag -foreground blue; ::deken::status $URL"
                 if {[::deken::architecture_match $filename]} {
                     $mytoplevel.results tag bind $tag <Leave> "$mytoplevel.results tag configure $tag -foreground black"
                     $mytoplevel.results tag configure $tag -foreground black