diff options
Diffstat (limited to 'redo/basicctrls_darwin.m')
| -rw-r--r-- | redo/basicctrls_darwin.m | 27 |
1 files changed, 27 insertions, 0 deletions
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]]; +} |