159 lines
3.5 KiB
Objective-C
159 lines
3.5 KiB
Objective-C
// 16 july 2014
|
|
|
|
#import "objc_darwin.h"
|
|
#import "_cgo_export.h"
|
|
#import <Cocoa/Cocoa.h>
|
|
|
|
#define toNSButton(x) ((NSButton *) (x))
|
|
#define toNSTextField(x) ((NSTextField *) (x))
|
|
|
|
@interface goControlDelegate : NSObject {
|
|
@public
|
|
void *gocontrol;
|
|
}
|
|
@end
|
|
|
|
@implementation goControlDelegate
|
|
|
|
- (IBAction)buttonClicked:(id)sender
|
|
{
|
|
buttonClicked(self->gocontrol);
|
|
}
|
|
|
|
- (IBAction)checkboxToggled:(id)sender
|
|
{
|
|
checkboxToggled(self->gocontrol);
|
|
}
|
|
|
|
@end
|
|
|
|
id newButton(void)
|
|
{
|
|
NSButton *b;
|
|
|
|
b = [[NSButton alloc] initWithFrame:NSZeroRect];
|
|
[b setButtonType:NSMomentaryPushInButton];
|
|
[b setBordered:YES];
|
|
[b setBezelStyle:NSRoundedBezelStyle];
|
|
setStandardControlFont((id) b);
|
|
return (id) b;
|
|
}
|
|
|
|
void buttonSetDelegate(id button, void *b)
|
|
{
|
|
goControlDelegate *d;
|
|
|
|
d = [goControlDelegate new];
|
|
d->gocontrol = b;
|
|
[toNSButton(button) setTarget:d];
|
|
[toNSButton(button) setAction:@selector(buttonClicked:)];
|
|
}
|
|
|
|
const char *buttonText(id button)
|
|
{
|
|
return [[toNSButton(button) title] UTF8String];
|
|
}
|
|
|
|
void buttonSetText(id button, char *text)
|
|
{
|
|
[toNSButton(button) setTitle:[NSString stringWithUTF8String:text]];
|
|
}
|
|
|
|
id newCheckbox(void)
|
|
{
|
|
NSButton *c;
|
|
|
|
c = [[NSButton alloc] initWithFrame:NSZeroRect];
|
|
[c setButtonType:NSSwitchButton];
|
|
[c setBordered:NO];
|
|
setStandardControlFont((id) c);
|
|
return (id) c;
|
|
}
|
|
|
|
void checkboxSetDelegate(id checkbox, void *b)
|
|
{
|
|
goControlDelegate *d;
|
|
|
|
d = [goControlDelegate new];
|
|
d->gocontrol = b;
|
|
[toNSButton(checkbox) setTarget:d];
|
|
[toNSButton(checkbox) setAction:@selector(checkboxToggled:)];
|
|
}
|
|
|
|
BOOL checkboxChecked(id c)
|
|
{
|
|
if ([toNSButton(c) state] == NSOnState)
|
|
return YES;
|
|
return NO;
|
|
}
|
|
|
|
void checkboxSetChecked(id c, BOOL checked)
|
|
{
|
|
NSInteger state;
|
|
|
|
state = NSOnState;
|
|
if (checked == NO)
|
|
state = NSOffState;
|
|
[toNSButton(c) setState:state];
|
|
}
|
|
|
|
// also good for labels
|
|
static id finishNewTextField(NSTextField *t, BOOL bordered)
|
|
{
|
|
// same for text fields, password fields, and labels
|
|
setStandardControlFont((id) t);
|
|
// these three are the same across text fields, password fields, and labels; the only difference is the setBezeled: value, and it's only different on labels
|
|
// THE ORDER OF THESE CALLS IS IMPORTANT; CHANGE IT AND THE BORDERS WILL DISAPPEAR
|
|
[t setBordered:NO];
|
|
[t setBezelStyle:NSTextFieldSquareBezel];
|
|
[t setBezeled:bordered];
|
|
// smart quotes and other autocorrect features are handled by the window; see newWindow() in window_darwin.m for details
|
|
// Interface Builder does this to make the text box behave properly
|
|
// this disables both word wrap AND ellipsizing in one fell swoop
|
|
// however, we need to send it to the control's cell, not to the control directly
|
|
[[t cell] setLineBreakMode:NSLineBreakByClipping];
|
|
// Interface Builder also sets this to allow horizontal scrolling
|
|
// it also sets this for labels, despite those not being scrollable
|
|
[[t cell] setScrollable:YES];
|
|
return (id) t;
|
|
}
|
|
|
|
id newTextField(void)
|
|
{
|
|
NSTextField *t;
|
|
|
|
t = [[NSTextField alloc] initWithFrame:NSZeroRect];
|
|
return finishNewTextField(t, YES);
|
|
}
|
|
|
|
id newPasswordField(void)
|
|
{
|
|
NSSecureTextField *t;
|
|
|
|
t = [[NSSecureTextField alloc] initWithFrame:NSZeroRect];
|
|
return finishNewTextField(toNSTextField(t), YES);
|
|
}
|
|
|
|
// also good for labels
|
|
const char *textFieldText(id t)
|
|
{
|
|
return [[toNSTextField(t) stringValue] UTF8String];
|
|
}
|
|
|
|
// also good for labels
|
|
void textFieldSetText(id t, char *text)
|
|
{
|
|
[toNSTextField(t) setStringValue:[NSString stringWithUTF8String:text]];
|
|
}
|
|
|
|
id newLabel(void)
|
|
{
|
|
NSTextField *l;
|
|
|
|
l = [[NSTextField alloc] initWithFrame:NSZeroRect];
|
|
[l setEditable:NO];
|
|
[l setSelectable:NO];
|
|
[l setDrawsBackground:NO];
|
|
return finishNewTextField(l, NO);
|
|
}
|