From 1d117b79651fb09d7a5e56b8848cb942cfd164b5 Mon Sep 17 00:00:00 2001 From: Pietro Gagliardi Date: Sat, 16 Aug 2014 00:37:38 -0400 Subject: Implemented Group on Mac OS X. --- redo/basicctrls_darwin.m | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) (limited to 'redo/basicctrls_darwin.m') diff --git a/redo/basicctrls_darwin.m b/redo/basicctrls_darwin.m index ed7ec10..5e0ece5 100644 --- a/redo/basicctrls_darwin.m +++ b/redo/basicctrls_darwin.m @@ -6,6 +6,8 @@ #define toNSButton(x) ((NSButton *) (x)) #define toNSTextField(x) ((NSTextField *) (x)) +#define toNSView(x) ((NSView *) (x)) +#define toNSBox(x) ((NSBox *) (x)) @interface goControlDelegate : NSObject { @public @@ -156,3 +158,28 @@ id newLabel(void) [l setDrawsBackground:NO]; return finishNewTextField(l, NO); } + +id newGroup(id container) +{ + NSBox *group; + + group = [[NSBox alloc] initWithFrame:NSZeroRect]; + [group setBorderType:NSLineBorder]; + [group setBoxType:NSBoxPrimary]; + [group setTransparent:NO]; + // can't use setSmallControlFont() here because the selector is different + [group setTitleFont:[NSFont systemFontOfSize:[NSFont systemFontSizeForControlSize:NSSmallControlSize]]]; + [group setTitlePosition:NSAtTop]; + [group setContentView:toNSView(container)]; + return (id) group; +} + +const char *groupText(id group) +{ + return [[toNSBox(group) title] UTF8String]; +} + +void groupSetText(id group, char *text) +{ + [toNSBox(group) setTitle:[NSString stringWithUTF8String:text]]; +} -- cgit v1.2.3