From 7fc6340bbd1afe188d4050c72b8f4bea9c1c22e0 Mon Sep 17 00:00:00 2001 From: Pat Thoyts Date: Sat, 21 Jun 2003 22:43:32 +0000 Subject: [PATCH] Minor fix for the flat menu bar. Updated the contributors list. --- about.tcl | 3 ++- tkinspect.tcl | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/about.tcl b/about.tcl index cda4e4c..b137404 100644 --- a/about.tcl +++ b/about.tcl @@ -23,7 +23,8 @@ dialog about { frame $self.mug -bd 4 label $self.mug.l -justify left \ -text "Originally by Sam Shen\n\Contributions\ - from:\nPaul Healy\nJohn LoVerso\n\T. Schotanus\nPat Thoyts\n" + from:\nPaul Healy\nJohn LoVerso\n\T. Schotanus\ + \nPat Thoyts\nAlexander Caldwell\n" global about_priv if ![info exists about_priv(mug_image)] { diff --git a/tkinspect.tcl b/tkinspect.tcl index 51ebb23..73f9705 100644 --- a/tkinspect.tcl +++ b/tkinspect.tcl @@ -405,7 +405,7 @@ dialog tkinspect_main { set w $self.menu.[string tolower $name] menubutton $w -menu $w.m -text $name -underline 0 -bd 1 -relief flat bind $w {%W configure -relief raised -bd 1} - bind $w {%W configure -relief flat -bd 0} + bind $w {%W configure -relief flat -bd 1} pack $w -side left menu $w.m return $w.m -- 2.23.0