forked from hummypkg/webif
f550931f71
git-svn-id: file:///root/webif/svn/humax/pkg/src/webif/trunk@1356 2a923420-c742-0410-a762-8d5b09965624
79 lines
1.8 KiB
Plaintext
79 lines
1.8 KiB
Plaintext
|
|
require system.class
|
|
|
|
#if {![exists -proc class]} { package require oo }
|
|
#class browse {}
|
|
|
|
set _flatten [system pkginst flatten]
|
|
|
|
proc _addicon {img {hover ""} {class va}} {
|
|
set icon "<img src=$img class=\"$class\" height=21"
|
|
if {$hover ne ""} {
|
|
append icon " alt=\"$hover\" title=\"$hover\""
|
|
}
|
|
append icon ">"
|
|
return $icon
|
|
}
|
|
|
|
proc {dir iconset} {dir} {
|
|
set icons {}
|
|
set attrs {}
|
|
|
|
set noflat 0
|
|
if $::_flatten {
|
|
if {[string match {\[*\]} [file tail $dir]]} { set noflat 1 }
|
|
if {[file exists "$dir/.noflatten"]} { set noflat 1 }
|
|
if $noflat { lappend icons \
|
|
[_addicon "/img/flat-tyre.png" "No-flatten" }
|
|
lappend attrs "noflat=$noflat"
|
|
}
|
|
|
|
set autoshrinkr 0
|
|
if {[file exists "$dir/.autoshrinkr"]} {
|
|
set autoshrinkr 1
|
|
lappend icons [_addicon "/img/compressr.png" \
|
|
"Recursive Auto-shrink"]
|
|
lappend attrs "autoshrinkr=1"
|
|
}
|
|
|
|
set autoshrink 0
|
|
if {!$autoshrinkr && [file exists "$dir/.autoshrink"]} {
|
|
set autoshrink 1
|
|
lappend icons [_addicon "/img/compress.png" "Auto-shrink"]
|
|
lappend attrs "autoshrink=1"
|
|
}
|
|
|
|
|
|
set autodedup 0
|
|
if {[file exists "$dir/.autodedup"]} {
|
|
set autodedup 1
|
|
lappend icons [_addicon "/img/dedup.png" "Auto-dedup"]
|
|
lappend attrs "autodedup=1"
|
|
}
|
|
|
|
set autodecryptr 0
|
|
if {[file exists "$dir/.autodecryptr"]} {
|
|
set autodecryptr 1
|
|
lappend icons [_addicon "/img/decryptr.png" \
|
|
"Recursive Auto-decrypt"]
|
|
lappend attrs "autodecryptr=1"
|
|
}
|
|
|
|
set autodecrypt 0
|
|
if {!$autodecryptr && [file exists "$dir/.autodecrypt"]} {
|
|
set autodecrypt 1
|
|
lappend icons [_addicon "/img/decrypt.png" "Auto-decrypt"]
|
|
lappend attrs "autodecrypt=1"
|
|
}
|
|
|
|
set autompg 0
|
|
if {[file exists "$dir/.autompg"]} {
|
|
set autompg 1
|
|
lappend icons [_addicon "/img/mpg.png" "Auto-MPG Extract"]
|
|
lappend attrs "autompg=1"
|
|
}
|
|
|
|
return [list $icons $attrs]
|
|
}
|
|
|