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)

1 files changed, 33 insertions, 1 deletions

diff --git a/ShiftOS/ApplicationEvents.vb b/ShiftOS/ApplicationEvents.vb
index 5f28270..a74cbe7 100644
--- a/ShiftOS/ApplicationEvents.vb
+++ b/ShiftOS/ApplicationEvents.vb
@@ -1 +1,33 @@
-
\ No newline at end of file
+Imports Skybound.Gecko

+Imports System.IO

+

+Namespace My

+
    ' The following events are available for MyApplication:

+    ' 

+    ' Startup: Raised when the application starts, before the startup form is created.

+    ' Shutdown: Raised after all application forms are closed.  This event is not raised if the application terminates abnormally.

+    ' UnhandledException: Raised if the application encounters an unhandled exception.

+    ' StartupNextInstance: Raised when launching a single-instance application and the application is already active. 

+    ' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.

+    Partial Friend Class MyApplication

+

+        Protected Overrides Function OnStartup(ByVal eventArgs As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) As Boolean

+

+            Dim ProfileDirectory As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\ShiftOS\xulrunner\DefaultProfile"

+

+            If Not Directory.Exists(ProfileDirectory) Then

+                Directory.CreateDirectory(ProfileDirectory)

+            End If

+            Xpcom.ProfileDirectory = ProfileDirectory

+

+            Dim xrPath As String = System.Reflection.Assembly.GetExecutingAssembly.Location

+            xrPath = xrPath.Substring(0, xrPath.LastIndexOf("\") + 1) & "\xulrunner"

+            Xpcom.Initialize(xrPath)

+

+            Return True

+        End Function

+    End Class

+

+
+End Namespace

+