41 lines
838 B
Objective-C
41 lines
838 B
Objective-C
// 29 october 2014
|
|
|
|
#include "objc_darwin.h"
|
|
#include "_cgo_export.h"
|
|
#import <Cocoa/Cocoa.h>
|
|
|
|
@interface goSpinbox : NSObject {
|
|
@public
|
|
void *gospinbox;
|
|
}
|
|
@property NSInteger integerValue;
|
|
@end
|
|
|
|
@implementation goSpinbox
|
|
@synthesize integerValue;
|
|
@end
|
|
|
|
id newSpinboxStepper(void)
|
|
{
|
|
NSStepper *s;
|
|
|
|
s = [[NSStepper alloc] initWithFrame:NSZeroRect];
|
|
[s setMinValue:0];
|
|
[s setMaxValue:100];
|
|
[s setIncrement:1];
|
|
[s setAutorepeat:YES]; // hold mouse button to step repeatedly
|
|
return (id) s;
|
|
}
|
|
|
|
id spinboxSetup(id textfield, id stepper, void *gospinbox)
|
|
{
|
|
goSpinbox *g;
|
|
|
|
g = [goSpinbox new];
|
|
g->gospinbox = gospinbox;
|
|
// TODO set any options?
|
|
[textfield bind:@"integerValue" toObject:g withKeyPath:@"integerValue" options:nil];
|
|
[stepper bind:@"integerValue" toObject:g withKeyPath:@"integerValue" options:nil];
|
|
return (id) g;
|
|
}
|