From: sls <sls>
Date: Fri, 16 Jun 1995 08:40:10 +0000 (+0000)
Subject: Use a color photo.
X-Git-Tag: r_5_1_4~43
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=20e22577efb08f5d7316af00fcfe0533a598975b;p=tkinspect

Use a color photo.
---

diff --git a/about.tcl b/about.tcl
index c6dc49f..381e12f 100644
--- a/about.tcl
+++ b/about.tcl
@@ -12,7 +12,7 @@ dialog about {
 	global tkinspect tkinspect_library
 	wm withdraw $self
 	wm transient $self .
-	pack [frame $self.border -relief ridge -bd 4]
+	pack [frame $self.border -relief ridge -bd 4] -expand 1 -fill both
 	label $self.title -text "tkinspect" -font $slot(boldFont)
 	label $self.ver \
 	    -text "Release $tkinspect(release) ($tkinspect(release_date))" \
@@ -21,10 +21,15 @@ dialog about {
 	    -font $slot(obliqueFont)
 	frame $self.mug -bd 4
 	label $self.mug.l -text "Sam Shen <slshen@lbl.gov>"
-	label $self.mug.bm -bitmap @$tkinspect_library/sls.xbm -bd 2 \
+	global about_priv
+	if ![info exists about_priv(mug_image)] {
+	    set about_priv(mug_image) \
+		[image create photo -file $tkinspect_library/sls.ppm]
+	}
+	label $self.mug.bm -image $about_priv(mug_image) -bd 2 \
 	    -relief sunken
-	pack $self.mug.l $self.mug.bm -in $self.mug \
-	    -side left -fill both -expand yes
+	pack $self.mug.l -side left -fill both -expand yes
+	pack $self.mug.bm -fill none
 	button $self.ok -text "Ok" -command "destroy $self"
 	pack $self.title $self.ver $self.com $self.mug \
 	    -in $self.border -side top -fill x