From ecb1dbd33a0eb78178b6cddb8c1fcef97d51204d Mon Sep 17 00:00:00 2001 From: TheUltimateHacker Date: Sat, 28 Mar 2015 15:10:56 -0400 Subject: Gecko Implementation Rest in Pieces, Trident! I've converted the Internet Browser to Gecko, the Firefox Rendering Engine. Virtually no code has been changed (unless you include the other stuff I'm working on like FullScreenLogin.vb) --- ShiftOS/Web Browser.vb | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'ShiftOS/Web Browser.vb') diff --git a/ShiftOS/Web Browser.vb b/ShiftOS/Web Browser.vb index 7f1eea8..6d163e7 100644 --- a/ShiftOS/Web Browser.vb +++ b/ShiftOS/Web Browser.vb @@ -448,19 +448,19 @@ End If End Sub - Private Sub webwindowt1_Navigated(sender As Object, e As WebBrowserNavigatedEventArgs) Handles webwindowt1.Navigated + Private Sub webwindowt1_Navigated(sender As Object, e As WebBrowserNavigatedEventArgs) updatetitles() txtlocation.Text = webwindowt1.Url.ToString End Sub - Private Sub webwindowt2_Navigated(sender As Object, e As WebBrowserNavigatedEventArgs) Handles webwindowt2.Navigated + Private Sub webwindowt2_Navigated(sender As Object, e As WebBrowserNavigatedEventArgs) updatetitles() txtlocation.Text = webwindowt1.Url.ToString End Sub - Private Sub webwindowt3_Navigated(sender As Object, e As WebBrowserNavigatedEventArgs) Handles webwindowt3.Navigated + Private Sub webwindowt3_Navigated(sender As Object, e As WebBrowserNavigatedEventArgs) updatetitles() txtlocation.Text = webwindowt1.Url.ToString End Sub - Private Sub webwindowt4_Navigated(sender As Object, e As WebBrowserNavigatedEventArgs) Handles webwindowt4.Navigated + Private Sub webwindowt4_Navigated(sender As Object, e As WebBrowserNavigatedEventArgs) updatetitles() txtlocation.Text = webwindowt1.Url.ToString End Sub @@ -632,7 +632,7 @@ If webwindowt4.DocumentTitle = "" Then lbtitletext.Text = "Web Browser" Else lbtitletext.Text = "Web Browser - " & webwindowt4.DocumentTitle End Sub - Private Sub webloading(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles webwindowt1.ProgressChanged, webwindowt2.ProgressChanged, webwindowt3.ProgressChanged, webwindowt4.ProgressChanged + Private Sub webloading(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Try If e.MaximumProgress > 0L AndAlso e.CurrentProgress > 0L Then siteloadprogress.Value = CInt(Math.Round((100 * e.CurrentProgress / e.MaximumProgress))) -- cgit v1.2.3