Vivia Nikolaidou ha scritto:
> It's OK, but since I committed your previous patch already, can you diff
> against current SVN and resend it? :)
I checked out amsn-devel before of amsn-commits... sorry
Patch attached to message.
Index: utils/dpbrowser/dpbrowser.tcl
===================================================================
--- utils/dpbrowser/dpbrowser.tcl (revisione 7726)
+++ utils/dpbrowser/dpbrowser.tcl (copia locale)
@@ -61,11 +61,15 @@
set dps_per_row $options(-width)
if {$email == "self"} {
+ set defaultfiles [glob -nocomplain -directory [file join skins default displaypic] *.png]
+ set l [llength $defaultfiles]
set cachefiles [glob -nocomplain -directory [file join $HOME displaypic] *.dat]
+ set files [concat $defaultfiles $cachefiles]
set pic_in_use ""
} else {
- set cachefiles [glob -nocomplain -directory [file join $HOME displaypic cache] *.dat]
+ set files [glob -nocomplain -directory [file join $HOME displaypic cache] *.dat]
set pic_in_use [::abook::getContactData $email displaypicfile ""]
+ set l -1
}
#TODO: put in order of time
# use: [file atime $file] (the last acces time in seconds from a fixed point > not available on FAT)
@@ -80,7 +84,8 @@
set email ""
}
- foreach file $cachefiles {
+ set j 0
+ foreach file $files {
#exclude the image the user is currently using
if { $options(-picinuse) != "no" || [string first $pic_in_use $file] == -1 } {
set fd [open $file]
@@ -112,8 +117,14 @@
# bind $entry.img <Enter> "showtooltip %X %Y [filenoext $file].png"
# bind $entry.img <Leave> "showtooltip %X %Y [filenoext $file].png"
- label $entry.text -text [lindex $greps 1] -bg $color
+ if { $j < $l } {
+ label $entry.text -bg $color
+ } else {
+ label $entry.text -text [lindex $greps 1] -bg $color
+ }
+ status_log "Image $file; Label [lindex $greps 1]"
+
pack $entry.img $entry.text -side top
grid $entry \
-row [expr {$i / $dps_per_row}] -column [expr {$i % $dps_per_row}] \
@@ -123,6 +134,7 @@
}
close $fd
}
+ incr j
}
if {$i == 0} {
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys - and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
Amsn-devel mailing list
Amsn-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/amsn-devel
