'++LotusScript Development Environment:2:5:(Options):0:66

'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Switchto(Source As Form, View As VIEW)
Declare Sub Switchfrom(Source As Form, View As VIEW)

'++LotusScript Development Environment:2:5:(Declarations):0:2

'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
	Static Source As FORM
	Set Source = Bind(Objectname_)
	On Event Switchto From Source Call Switchto
	On Event Switchfrom From Source Call Switchfrom
End Sub

'++LotusScript Development Environment:2:2:Switchto:1:12
Sub Switchto(Source As Form, View As VIEW)
	On Error 11026 Goto NoWebtrek
	
	Source.Body.fldProxyServer.ReadOnly = False
	Source.Body.fldProxyPort.ReadOnly = False
	CurrentDocument.Setup.Body.fldProxyServer.Text = CurrentDocument.Webtrek~ Browser.Body.oleWebtrek.ProxyServerHTTP
	CurrentDocument.Setup.Body.fldProxyPort.Text = Str(CurrentDocument.Webtrek~ Browser.Body.oleWebtrek.ProxyPortHTTP)
	Source.Body.btnProxySave.Enabled = True
	Goto EndLoadPage
	
NoWebtrek:
	Source.Body.fldProxyServer.ReadOnly = True
	Source.Body.fldProxyPort.ReadOnly = True
	Source.Body.btnProxySave.Enabled = False
	Resume EndLoadPage
	
EndLoadPage:
End Sub
'++LotusScript Development Environment:2:2:Switchfrom:1:12
Sub Switchfrom(Source As Form, View As VIEW)
	
End Sub