Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | - Get rid of hard-coded path to icons. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
84f33b6654e4285c65eb3b86a1bb4dae |
| User & Date: | schelte 2014-08-27 15:38:27.307 |
Context
|
2014-08-27
| ||
| 15:39 | - Specify the correct content type when invoking control commands. check-in: f6f7e5b691 user: schelte tags: trunk | |
| 15:38 | - Get rid of hard-coded path to icons. check-in: 84f33b6654 user: schelte tags: trunk | |
| 13:00 | Initial check-in check-in: 7aead6b94e user: schelte tags: trunk | |
Changes
Changes to demos/mbrowser.tcl.
| ︙ | ︙ | |||
11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
}
}
}
package require upnp
package require didl
proc yieldm {{value ""}} {
yieldto return -level 0 $value
}
proc main {} {
wm title . "Media browser"
ttk::treeview .tv -style Listbox.Treeview -height 16 \
| > > | 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
}
}
}
package require upnp
package require didl
set dir [file dirname [info script]]
proc yieldm {{value ""}} {
yieldto return -level 0 $value
}
proc main {} {
wm title . "Media browser"
ttk::treeview .tv -style Listbox.Treeview -height 16 \
|
| ︙ | ︙ | |||
112 113 114 115 116 117 118 |
}
}
}
}
}
proc icons {w} {
| | > | | 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 |
}
}
}
}
}
proc icons {w} {
global dir
set path [file join $dir icons 16x16]
foreach {tag file} {
object.container folder.png
object.container.album.photoAlbum emblem-photos.png
object.container.storageFolder drive-harddisk.png
object.item text-x-generic.png
object.item.imageItem.photo image-x-generic.png
object.item.videoItem applications-multimedia.png
object.item.audioItem.musicTrack audio-x-generic.png
} {
set ls [glob -nocomplain -dir $path */$file]
if {[llength $ls]} {
set name [file rootname $file]
set img [image create photo ::icon::$name \
-file [lindex $ls 0] -width 20]
$w tag configure $tag -image $img
}
}
|
| ︙ | ︙ |