include('wintools')
include("wincontrolworks")

func _create(_data)
	var(ctlr)

	println(txtbrowse, ' = new QWebView(this);')
	ctlr = txtbrowse 
	include("wincontrol")

	if(linked(onStatusBarMessage))
		createEventArg1(ctlr, 'statusBarMessage', 'onStatusBarMessage', 'QString', 'const QString &text', 'text'@str)
	end
	if(linked(onTitleChanged))
		createEventArg1(ctlr, 'titleChanged', 'onTitleChanged', 'QString', 'const QString &title', 'title'@str)
	end
	if(linked(onUrlChanged))
		createEventArg1(ctlr, 'urlChanged', 'onUrlChanged', 'QUrl', 'const QUrl &url', 'url.toString()'@str)
	end
	if(linked(onLinkClicked))
		createEventArg1(ctlr, 'linkClicked', 'onLinkClicked', 'QUrl', 'const QUrl &url', 'url.toString()'@str)
	end
	if(linked(onLoadProgress))
		createEventArg1(ctlr, 'loadProgress', 'onLoadProgress', 'int', 'int progress', 'progress'@int)
	end
	if(linked(onLoadStarted))
		createEvent(ctlr, 'loadStarted', 'onLoadStarted')
	end
	if(linked(onLoadFinished))
		createEventArg1(ctlr, 'loadFinished', 'onLoadFinished', 'bool', 'bool ok', '(int)ok'@int)
	end

	if(isndef(LinkDelegationPolicy))
		println(ctlr + '->page()->setLinkDelegationPolicy(QWebPage::' + code(LinkDelegationPolicy) + ');')
	end
end

func init()
	lng.include('QWebView')
	QT_MOD += " webkit"
	lng.decl_priv_var(txtbrowse, 'QWebView*')
	include("wincontrol_init")
end

func doNavigate(_data)
	println(ctlr + '->load(QUrl(', URL, '));')
	println(ctlr + '->show();')
end

func doBackward()
	println(ctlr + '->back();')
end

func doForward()
	println(ctlr + '->forward();')
end

func doReload()
	println(ctlr + '->reload();')
end

func CurrentURL()
	return(ctlr + '->url().toString()')
end