Fixed up attributes of Table on Mac OS X.

1 files changed, 9 insertions, 0 deletions

diff --git a/redo/basicctrls_darwin.m b/redo/basicctrls_darwin.m
index c482e5e..5ed17c1 100644
--- a/redo/basicctrls_darwin.m
+++ b/redo/basicctrls_darwin.m
@@ -10,6 +10,8 @@
 #define toNSButton(x) ((NSButton *) (x))
 #define toNSTextField(x) ((NSTextField *) (x))
 
+// TODO move to control_darwin.m
+
 void parent(id control, id parentid)
 {
 	[toNSView(parentid) addSubview:toNSView(control)];
@@ -20,11 +22,18 @@ void controlSetHidden(id control, BOOL hidden)
 	[toNSView(control) setHidden:hidden];
 }
 
+// also fine for NSCells
 void setStandardControlFont(id control)
 {
 	[toNSControl(control) setFont:[NSFont systemFontOfSize:[NSFont systemFontSizeForControlSize:NSRegularControlSize]]];
 }
 
+// also fine for NSCells
+void setSmallControlFont(id control)
+{
+	[toNSControl(control) setFont:[NSFont systemFontOfSize:[NSFont systemFontSizeForControlSize:NSSmallControlSize]]];
+}
+
 @interface goControlDelegate : NSObject {
 @public
 	void *gocontrol;