1 files changed, 15 insertions, 0 deletions
diff --git a/Source/SPBundleHTMLOutputController.m b/Source/SPBundleHTMLOutputController.m
index 7bcff455..57b75889 100644
--- a/Source/SPBundleHTMLOutputController.m
+++ b/Source/SPBundleHTMLOutputController.m
@@ -211,6 +211,7 @@
 	[self setInitHTMLSourceString:@""];
 	windowUUID = @"";
 	docUUID = @"";
+	NSLog(@"close");
 	[self release];
 }
 
@@ -366,6 +367,8 @@
 		return @"getShellEnvironmentForName";
 	if (aSelector == @selector(makeHTMLOutputWindowKeyWindow))
 		return @"makeHTMLOutputWindowKeyWindow";
+	if (aSelector == @selector(closeHTMLOutputWindow))
+		return @"closeHTMLOutputWindow";
 	return @"";
 }
 
@@ -379,6 +382,9 @@
 	if (selector == @selector(makeHTMLOutputWindowKeyWindow)) {
 		return NO;
 	}
+	if (selector == @selector(closeHTMLOutputWindow)) {
+		return NO;
+	}
 	return YES;
 }
 
@@ -441,6 +447,15 @@
 }
 
 /**
+ * JavaScript window.system.makeHTMLOutputWindowKeyWindow() function
+ * to make the HTML output window the first responder
+ */
+- (void)closeHTMLOutputWindow
+{
+	[[self window] close];
+}
+
+/**
  * JavaScript window.system.run('a_command'|new Array('a_command', 'uuid')) function
  * to return the result of the BASH command a_command
  */