From d21bd3058370e123bfda50d6a9fe1b5fcdd2a263 Mon Sep 17 00:00:00 2001
From: Pietro Gagliardi <pietro10@mac.com>
Date: Wed, 30 Jul 2014 12:50:45 -0400
Subject: Moved the Mac OS X function newScrollView() to control_darwin.m and
 verified its styles against Interface Builder.

---
 redo/control_darwin.m | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 redo/control_darwin.m

(limited to 'redo/control_darwin.m')

diff --git a/redo/control_darwin.m b/redo/control_darwin.m
new file mode 100644
index 0000000..10fef8e
--- /dev/null
+++ b/redo/control_darwin.m
@@ -0,0 +1,20 @@
+// 30 july 2014
+
+#import "objc_darwin.h"
+#import <Cocoa/Cocoa.h>
+
+#define toNSView(x) ((NSView *) (x))
+
+// TODO verify this when we add more scrolling controls
+id newScrollView(id content)
+{
+	NSScrollView *sv;
+
+	sv = [[NSScrollView alloc] initWithFrame:NSMakeRect(0, 0, 100, 100)];
+	[sv setDocumentView:toNSView(content)];
+	[sv setHasHorizontalScroller:YES];
+	[sv setHasVerticalScroller:YES];
+	[sv setAutohidesScrollers:YES];
+	[sv setBorderType:NSBezelBorder];
+	return (id) sv;
+}
-- 
cgit v1.2.3