summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKevin Walzer <kw@codebykevin.com>2016-07-06 03:00:40 (GMT)
committerKevin Walzer <kw@codebykevin.com>2016-07-06 03:00:40 (GMT)
commit3ff177d9afa1b11b8c17918825f3265fb4e5dbab (patch)
tree7091afb4c46f00d75d600337c1676711722c6bfa
parent2336f2329bfb57ef247c9fb277bb06fabf27f85f (diff)
downloadtk-3ff177d9afa1b11b8c17918825f3265fb4e5dbab.zip
tk-3ff177d9afa1b11b8c17918825f3265fb4e5dbab.tar.gz
tk-3ff177d9afa1b11b8c17918825f3265fb4e5dbab.tar.bz2
Fix for excessive label padding in Tk/Mac; thanks to Brad Lanam for bug report
-rw-r--r--macosx/tkMacOSXButton.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/macosx/tkMacOSXButton.c b/macosx/tkMacOSXButton.c
index ebbcf09..f4fbc48 100644
--- a/macosx/tkMacOSXButton.c
+++ b/macosx/tkMacOSXButton.c
@@ -318,7 +318,8 @@ TkpComputeButtonGeometry(
Tcl_GetString(butPtr->textPtr), -1, butPtr->wrapLength,
butPtr->justify, 0, &butPtr->textWidth, &butPtr->textHeight);
- txtWidth = butPtr->textWidth + DEF_INSET_LEFT + DEF_INSET_RIGHT;
+ /*Remove extraneous padding around label widgets.*/
+ txtWidth = butPtr->textWidth;
txtHeight = butPtr->textHeight + DEF_INSET_BOTTOM + DEF_INSET_TOP;
charWidth = Tk_TextWidth(butPtr->tkfont, "0", 1);
Tk_GetFontMetrics(butPtr->tkfont, &fm);