diff --git a/Modules/stdwinmodule.c b/Modules/stdwinmodule.c
index ab71b37d861..179cfe85810 100644
--- a/Modules/stdwinmodule.c
+++ b/Modules/stdwinmodule.c
@@ -1506,6 +1506,18 @@ window_scroll(wp, args)
 	return None;
 }
 
+static object *
+window_setactive(wp, args)
+	windowobject *wp;
+	object *args;
+{
+	if (!getnoarg(args))
+		return NULL;
+	wsetactive(wp->w_win);
+	INCREF(None);
+	return None;
+}
+
 static object *
 window_setdocsize(wp, args)
 	windowobject *wp;
@@ -1660,6 +1672,7 @@ static struct methodlist window_methods[] = {
 	{"getwinsize",	window_getwinsize},
 	{"menucreate",	window_menucreate},
 	{"scroll",	window_scroll},
+	{"setactive",	window_setactive},
 	{"setdocsize",	window_setdocsize},
 	{"setorigin",	window_setorigin},
 	{"setselection",window_setselection},