shiftos-archive/ShiftOS
1
0
Fork 0
mirror of https://github.com/TheUltimateHacker/ShiftOS.git synced 2025-01-22 09:01:58 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Dock And Browser

Browse source 
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
Show stats Download patch file Download diff file Expand all files Collapse all files

15
ShiftOS/ApplicationEvents.vb
View file

@ -1,5 +1,4 @@
Imports Skybound.Gecko Imports System.IO
Imports System.IO
Namespace My Namespace My
' The following events are available for MyApplication: ' The following events are available for MyApplication:
@ -12,18 +11,6 @@ Namespace My
Partial Friend Class MyApplication Partial Friend Class MyApplication
Protected Overrides Function OnStartup(ByVal eventArgs As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) As Boolean 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 Return True
End Function End Function
End Class End Class

4
ShiftOS/Web Browser.Designer.vb generated
View file

@ -38,7 +38,7 @@ Partial Class Web_Browser
Me.pgbottomlcorner = New System.Windows.Forms.Panel() Me.pgbottomlcorner = New System.Windows.Forms.Panel()
Me.pgcontents = New System.Windows.Forms.Panel() Me.pgcontents = New System.Windows.Forms.Panel()
Me.pnlwebtabholder = 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.Panel1 = New System.Windows.Forms.Panel()
Me.btnhome = New System.Windows.Forms.Button() Me.btnhome = New System.Windows.Forms.Button()
Me.txtlocation = New System.Windows.Forms.TextBox() 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 pnloptions As System.Windows.Forms.Panel
Friend WithEvents pnlwebtabholder As System.Windows.Forms.Panel Friend WithEvents pnlwebtabholder As System.Windows.Forms.Panel
Friend WithEvents siteloadprogress As ShiftOS.ProgressBarEX 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 btnAddTab As System.Windows.Forms.Button
Friend WithEvents btnRemTab As System.Windows.Forms.Button Friend WithEvents btnRemTab As System.Windows.Forms.Button
Friend WithEvents TabText As System.Windows.Forms.Timer Friend WithEvents TabText As System.Windows.Forms.Timer