1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
|
// 16 july 2014
#import "objc_darwin.h"
#import "_cgo_export.h"
#import <Cocoa/Cocoa.h>
#define toNSView(x) ((NSView *) (x))
#define toNSWindow(x) ((NSWindow *) (x))
#define toNSControl(x) ((NSControl *) (x))
#define toNSButton(x) ((NSButton *) (x))
#define toNSTextField(x) ((NSTextField *) (x))
void parent(id control, id parentid)
{
[toNSView(parentid) addSubview:toNSView(control)];
}
void controlSetHidden(id control, BOOL hidden)
{
[toNSView(control) setHidden:hidden];
}
void setStandardControlFont(id control)
{
[toNSControl(control) setFont:[NSFont systemFontOfSize:[NSFont systemFontSizeForControlSize:NSRegularControlSize]]];
}
@interface goControlDelegate : NSObject {
@public
void *gocontrol;
}
@end
@implementation goControlDelegate
- (IBAction)buttonClicked:(id)sender
{
buttonClicked(self->gocontrol);
}
@end
id newButton(void)
{
NSButton *b;
// TODO cache the initial rect?
b = [[NSButton alloc] initWithFrame:NSMakeRect(0, 0, 100, 100)];
[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:NSMakeRect(0, 0, 100, 100)];
[c setButtonType:NSSwitchButton];
[c setBordered:NO];
setStandardControlFont((id) c);
return (id) c;
}
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];
}
static id finishNewTextField(NSTextField *t)
{
// same for text fields and password fields
setStandardControlFont((id) t);
// TODO border (Interface Builder setting is confusing)
// 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
[[t cell] setScrollable:YES];
return (id) t;
}
id newTextField(void)
{
NSTextField *t;
t = [[NSTextField alloc] initWithFrame:NSMakeRect(0, 0, 100, 100)];
return finishNewTextField(t);
}
id newPasswordField(void)
{
NSSecureTextField *t;
t = [[NSSecureTextField alloc] initWithFrame:NSMakeRect(0, 0, 100, 100)];
return finishNewTextField(toNSTextField(t));
}
const char *textFieldText(id t)
{
return [[toNSTextField(t) stringValue] UTF8String];
}
void textFieldSetText(id t, char *text)
{
[toNSTextField(t) setStringValue:[NSString stringWithUTF8String:text]];
}
|
