From 22af0f18be8c9eb50e647c3c339e355ad9ee7cce Mon Sep 17 00:00:00 2001
From: John Scipione <jscipione@gmail.com>
Date: Mon, 16 Mar 2015 18:39:52 -0400
Subject: [PATCH] RadioButton: Scale mark to font size

This way the amount of inset varies, small font get small inset,
large fonts get large inset.
---
 src/kits/interface/ControlLook.cpp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/kits/interface/ControlLook.cpp b/src/kits/interface/ControlLook.cpp
index efde4ecb9b..3e6c4ccb15 100644
--- a/src/kits/interface/ControlLook.cpp
+++ b/src/kits/interface/ControlLook.cpp
@@ -558,7 +558,10 @@ BControlLook::DrawRadioButton(BView* view, BRect& rect, const BRect& updateRect,
 	rgb_color markColor;
 	if (_RadioButtonAndCheckBoxMarkColor(base, markColor, flags)) {
 		view->SetHighColor(markColor);
-		rect.InsetBy(3, 3);
+		BFont font;
+		view->GetFont(&font);
+		float inset = roundf(font.Size() / 4);
+		rect.InsetBy(inset, inset);
 		view->FillEllipse(rect);
 	}
 }