diff --git a/darwin/box.m b/darwin/box.m
index 72b5a71d..f4763e44 100644
--- a/darwin/box.m
+++ b/darwin/box.m
@@ -380,6 +380,7 @@ uiDarwinControlDefaultHide(uiBox, view)
 uiDarwinControlDefaultEnabled(uiBox, view)
 uiDarwinControlDefaultEnable(uiBox, view)
 uiDarwinControlDefaultDisable(uiBox, view)
+uiDarwinControlDefaultSetFocus(uiBox, view)
 
 static void uiBoxSyncEnableState(uiDarwinControl *c, int enabled)
 {
diff --git a/darwin/form.m b/darwin/form.m
index af50e363..5ea481be 100644
--- a/darwin/form.m
+++ b/darwin/form.m
@@ -482,6 +482,7 @@ uiDarwinControlDefaultHide(uiForm, view)
 uiDarwinControlDefaultEnabled(uiForm, view)
 uiDarwinControlDefaultEnable(uiForm, view)
 uiDarwinControlDefaultDisable(uiForm, view)
+uiDarwinControlDefaultSetFocus(uiForm, view)
 
 static void uiFormSyncEnableState(uiDarwinControl *c, int enabled)
 {
diff --git a/darwin/grid.m b/darwin/grid.m
index 4cbf34c2..5e828c65 100644
--- a/darwin/grid.m
+++ b/darwin/grid.m
@@ -694,6 +694,7 @@ uiDarwinControlDefaultHide(uiGrid, view)
 uiDarwinControlDefaultEnabled(uiGrid, view)
 uiDarwinControlDefaultEnable(uiGrid, view)
 uiDarwinControlDefaultDisable(uiGrid, view)
+uiDarwinControlDefaultSetFocus(uiGrid, view)
 
 static void uiGridSyncEnableState(uiDarwinControl *c, int enabled)
 {
diff --git a/darwin/group.m b/darwin/group.m
index 2cfcdf47..8268dca9 100644
--- a/darwin/group.m
+++ b/darwin/group.m
@@ -43,6 +43,7 @@ uiDarwinControlDefaultHide(uiGroup, box)
 uiDarwinControlDefaultEnabled(uiGroup, box)
 uiDarwinControlDefaultEnable(uiGroup, box)
 uiDarwinControlDefaultDisable(uiGroup, box)
+uiDarwinControlDefaultSetFocus(uiGroup, box)
 
 static void uiGroupSyncEnableState(uiDarwinControl *c, int enabled)
 {
diff --git a/darwin/tab.m b/darwin/tab.m
index 28c38318..35c8dd96 100644
--- a/darwin/tab.m
+++ b/darwin/tab.m
@@ -115,6 +115,7 @@ uiDarwinControlDefaultHide(uiTab, tabview)
 uiDarwinControlDefaultEnabled(uiTab, tabview)
 uiDarwinControlDefaultEnable(uiTab, tabview)
 uiDarwinControlDefaultDisable(uiTab, tabview)
+uiDarwinControlDefaultSetFocus(uiTab, tabview)
 
 static void uiTabSyncEnableState(uiDarwinControl *c, int enabled)
 {
diff --git a/darwin/window.m b/darwin/window.m
index 1a048207..e052b7df 100644
--- a/darwin/window.m
+++ b/darwin/window.m
@@ -189,6 +189,7 @@ static void uiWindowHide(uiControl *c)
 uiDarwinControlDefaultEnabled(uiWindow, window)
 uiDarwinControlDefaultEnable(uiWindow, window)
 uiDarwinControlDefaultDisable(uiWindow, window)
+uiDarwinControlDefaultSetFocus(uiWindow, window)
 
 static void uiWindowSyncEnableState(uiDarwinControl *c, int enabled)
 {
diff --git a/ui_darwin.h b/ui_darwin.h
index c9c6ad54..440204fe 100644
--- a/ui_darwin.h
+++ b/ui_darwin.h
@@ -100,6 +100,11 @@ _UI_EXTERN void uiDarwinControlChildVisibilityChanged(uiDarwinControl *);
 		uiDarwinControl(c)->enabled = NO; \
 		uiDarwinControlSyncEnableState(uiDarwinControl(c), uiControlEnabledToUser(c)); \
 	}
+#define uiDarwinControlDefaultSetFocus(type, handlefield) \
+	static void type ## SetFocus(uiControl *c) \
+	{ \
+		return; \
+	}
 #define uiDarwinControlDefaultSyncEnableState(type, handlefield) \
 	static void type ## SyncEnableState(uiDarwinControl *c, int enabled) \
 	{ \
@@ -159,6 +164,7 @@ _UI_EXTERN void uiDarwinControlChildVisibilityChanged(uiDarwinControl *);
 	uiDarwinControlDefaultEnabled(type, handlefield) \
 	uiDarwinControlDefaultEnable(type, handlefield) \
 	uiDarwinControlDefaultDisable(type, handlefield) \
+	uiDarwinControlDefaultSetFocus(type, handlefield) \
 	uiDarwinControlDefaultSyncEnableState(type, handlefield) \
 	uiDarwinControlDefaultSetSuperview(type, handlefield) \
 	uiDarwinControlDefaultHugsTrailingEdge(type, handlefield) \
@@ -186,6 +192,7 @@ _UI_EXTERN void uiDarwinControlChildVisibilityChanged(uiDarwinControl *);
 	uiControl(var)->Enabled = type ## Enabled; \
 	uiControl(var)->Enable = type ## Enable; \
 	uiControl(var)->Disable = type ## Disable; \
+	uiControl(var)->SetFocus = type ## SetFocus; \
 	uiDarwinControl(var)->SyncEnableState = type ## SyncEnableState; \
 	uiDarwinControl(var)->SetSuperview = type ## SetSuperview; \
 	uiDarwinControl(var)->HugsTrailingEdge = type ## HugsTrailingEdge; \