Dock And Browser

Fixes a few issues with the dock and adds unlimed tabs to the web
browser
This commit is contained in:
pcnerd97 2015-04-07 19:26:28 +01:00
parent bbf81cacae
commit c1cbedbfd0
2 changed files with 3 additions and 16 deletions

View file

@ -1,5 +1,4 @@
Imports Skybound.Gecko
Imports System.IO
Imports System.IO
Namespace My
' The following events are available for MyApplication:
@ -12,18 +11,6 @@ Namespace My
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

View file

@ -38,7 +38,7 @@ Partial Class Web_Browser
Me.pgbottomlcorner = New System.Windows.Forms.Panel()
Me.pgcontents = New System.Windows.Forms.Panel()
Me.pnlwebtabholder = New System.Windows.Forms.Panel()
Me.tabs = New ShiftOS.ShiftOSTabs()
Me.tabs = New TabControl 'ShiftOS.ShiftOSTabs()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.btnhome = New System.Windows.Forms.Button()
Me.txtlocation = New System.Windows.Forms.TextBox()
@ -449,7 +449,7 @@ Partial Class Web_Browser
Friend WithEvents pnloptions As System.Windows.Forms.Panel
Friend WithEvents pnlwebtabholder As System.Windows.Forms.Panel
Friend WithEvents siteloadprogress As ShiftOS.ProgressBarEX
Friend WithEvents tabs As ShiftOS.ShiftOSTabs
Friend WithEvents tabs As TabControl 'ShiftOS.ShiftOSTabs
Friend WithEvents btnAddTab As System.Windows.Forms.Button
Friend WithEvents btnRemTab As System.Windows.Forms.Button
Friend WithEvents TabText As System.Windows.Forms.Timer