~amsn-daily/amsn/amsn-packaging

« back to all changes in this revision

Viewing changes to amsncore.tcl

  • Committer: kakaroto
  • Date: 2007-02-26 20:46:11 UTC
  • Revision ID: svn-v4:f248a3e1-9e13-0410-b2cf-a4429de6d898:trunk/amsn:8090
A cleaner implementation for the displaypicture_std_self and displaypicture_not_self, no more needed to call load_my_pic or load_my_smaller_pic, it's automatically done... 
also, cleaner way for ImageExists
and finally, made the checkbuttons in the new login_screen with a white bg so they look better in the canvas....

Show diffs side-by-side

added added

removed removed

Lines of Context:
185
185
# 'Missing' image commands                     #
186
186
################################################
187
187
proc ImageExists {img} {
188
 
        return [expr {([catch {image type $img}]* -1) + 1}]
 
188
        return [expr ![catch {image type $img}]]
189
189
}
190
190
 
191
191
#Use this function to get a not-in-use temporary image name