@@ -172,6 +172,13 @@ mainWidget w = runWebGUI $ \webView -> do
172172 Just body <- documentGetBody doc
173173 attachWidget body w
174174
175+mainWidgetWithHead h b = runWebGUI $ \webView -> do
176+ Just doc <- liftM (fmap castToHTMLDocument) $ webViewGetDomDocument webView
177+ Just head <- liftM (fmap castToHTMLElement) $ documentGetHead doc
178+ attachWidget head h
179+ Just body <- documentGetBody doc
180+ attachWidget body b
181+
175182mainWidgetWithCss css w = runWebGUI $ \webView -> do
176183 Just doc <- liftM (fmap castToHTMLDocument) $ webViewGetDomDocument webView
177184 Just head <- liftM (fmap castToHTMLElement) $ documentGetHead doc