mirror of
https://github.com/SistemaRayoXP/Virtual-Mac.git
synced 2024-11-28 15:49:16 +00:00
8b3286fe05
New Mac Wizard working, and revamped, so now you choose emulator and OS. Thank to adespoton for the Mac compatibility matrix. (https://docs.google.com/spreadsheets/d/1us6SCBgVs8NqbxofJXTmHDeK3nKQJpcgya2nWC9_t2w/edit#gid=0) Now PearPC files can be loaded and saved (I've taken code from PearPC Config File Generator and adapted it to Virtual Mac) Still getting the challenge of dealing with BII and SheepShaver config files. Will upload new versions of files when they work. Updated to 0.6.1 in file version, but technically it's 0.6.1 Beta (Or 0.6.1 RC, 0.6.0, not the final 0.6.1) Now with some investigation, the app is "translated" to Spanish and German (Please forgive the bad German translation, I used GTranslate and Virtual PC as reference points for this). To change the language, go to File > Options > Language and select the new language. Note that German(de-DE) or Spanish(es-MX) might be loaded by default if you are using these languages in you Windows installation. Note that the translation is crap, and is not complete, so many parts are still in English. Will try to fix this in 0.7.1 Still need to fix Saving BII and SS files, so this is not final 0.6.1, will release a "revision" later.
290 lines
11 KiB
VB.net
290 lines
11 KiB
VB.net
'------------------------------------------------------------------------------
|
|
' <auto-generated>
|
|
' Este código fue generado por una herramienta.
|
|
' Versión de runtime:4.0.30319.42000
|
|
'
|
|
' Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si
|
|
' se vuelve a generar el código.
|
|
' </auto-generated>
|
|
'------------------------------------------------------------------------------
|
|
|
|
Option Strict On
|
|
Option Explicit On
|
|
|
|
|
|
Namespace My
|
|
|
|
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0"), _
|
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
|
Partial Friend NotInheritable Class MySettings
|
|
Inherits Global.System.Configuration.ApplicationSettingsBase
|
|
|
|
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
|
|
|
|
#Region "Funcionalidad para autoguardar de My.Settings"
|
|
#If _MyType = "WindowsForms" Then
|
|
Private Shared addedHandler As Boolean
|
|
|
|
Private Shared addedHandlerLockObject As New Object
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
|
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
|
|
If My.Application.SaveMySettingsOnExit Then
|
|
My.Settings.Save()
|
|
End If
|
|
End Sub
|
|
#End If
|
|
#End Region
|
|
|
|
Public Shared ReadOnly Property [Default]() As MySettings
|
|
Get
|
|
|
|
#If _MyType = "WindowsForms" Then
|
|
If Not addedHandler Then
|
|
SyncLock addedHandlerLockObject
|
|
If Not addedHandler Then
|
|
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
|
addedHandler = True
|
|
End If
|
|
End SyncLock
|
|
End If
|
|
#End If
|
|
Return defaultInstance
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.Configuration.DefaultSettingValueAttribute("")> _
|
|
Public Property DefaultMacFolder() As String
|
|
Get
|
|
Return CType(Me("DefaultMacFolder"),String)
|
|
End Get
|
|
Set
|
|
Me("DefaultMacFolder") = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.Configuration.DefaultSettingValueAttribute("")> _
|
|
Public Property VMNames() As String
|
|
Get
|
|
Return CType(Me("VMNames"),String)
|
|
End Get
|
|
Set
|
|
Me("VMNames") = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.Configuration.DefaultSettingValueAttribute("")> _
|
|
Public Property VMIcons() As String
|
|
Get
|
|
Return CType(Me("VMIcons"),String)
|
|
End Get
|
|
Set
|
|
Me("VMIcons") = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.Configuration.DefaultSettingValueAttribute("")> _
|
|
Public Property VMRoutes() As String
|
|
Get
|
|
Return CType(Me("VMRoutes"),String)
|
|
End Get
|
|
Set
|
|
Me("VMRoutes") = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.Configuration.DefaultSettingValueAttribute("")> _
|
|
Public Property CustomIcons() As String
|
|
Get
|
|
Return CType(Me("CustomIcons"),String)
|
|
End Get
|
|
Set
|
|
Me("CustomIcons") = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.Configuration.DefaultSettingValueAttribute("")> _
|
|
Public Property SheepShaverROM() As String
|
|
Get
|
|
Return CType(Me("SheepShaverROM"),String)
|
|
End Get
|
|
Set
|
|
Me("SheepShaverROM") = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.Configuration.DefaultSettingValueAttribute("")> _
|
|
Public Property BasiliskROM() As String
|
|
Get
|
|
Return CType(Me("BasiliskROM"),String)
|
|
End Get
|
|
Set
|
|
Me("BasiliskROM") = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.Configuration.DefaultSettingValueAttribute("")> _
|
|
Public Property vMacROM() As String
|
|
Get
|
|
Return CType(Me("vMacROM"),String)
|
|
End Get
|
|
Set
|
|
Me("vMacROM") = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.Configuration.DefaultSettingValueAttribute("")> _
|
|
Public Property VMType() As String
|
|
Get
|
|
Return CType(Me("VMType"),String)
|
|
End Get
|
|
Set
|
|
Me("VMType") = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
|
|
Public Property TestWindow() As Boolean
|
|
Get
|
|
Return CType(Me("TestWindow"),Boolean)
|
|
End Get
|
|
Set
|
|
Me("TestWindow") = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.Configuration.DefaultSettingValueAttribute("")> _
|
|
Public Property x() As String
|
|
Get
|
|
Return CType(Me("x"),String)
|
|
End Get
|
|
Set
|
|
Me("x") = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.Configuration.DefaultSettingValueAttribute("")> _
|
|
Public Property vMacPath() As String
|
|
Get
|
|
Return CType(Me("vMacPath"),String)
|
|
End Get
|
|
Set
|
|
Me("vMacPath") = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.Configuration.DefaultSettingValueAttribute("")> _
|
|
Public Property SheepShaverPath() As String
|
|
Get
|
|
Return CType(Me("SheepShaverPath"),String)
|
|
End Get
|
|
Set
|
|
Me("SheepShaverPath") = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.Configuration.DefaultSettingValueAttribute("")> _
|
|
Public Property BasiliskPath() As String
|
|
Get
|
|
Return CType(Me("BasiliskPath"),String)
|
|
End Get
|
|
Set
|
|
Me("BasiliskPath") = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.Configuration.DefaultSettingValueAttribute("")> _
|
|
Public Property PearPCPath() As String
|
|
Get
|
|
Return CType(Me("PearPCPath"),String)
|
|
End Get
|
|
Set
|
|
Me("PearPCPath") = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.Configuration.DefaultSettingValueAttribute("")> _
|
|
Public Property QEMUPath() As String
|
|
Get
|
|
Return CType(Me("QEMUPath"),String)
|
|
End Get
|
|
Set
|
|
Me("QEMUPath") = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
|
|
Public Property VerifyEmulatorPaths() As Boolean
|
|
Get
|
|
Return CType(Me("VerifyEmulatorPaths"),Boolean)
|
|
End Get
|
|
Set
|
|
Me("VerifyEmulatorPaths") = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.Configuration.DefaultSettingValueAttribute("en-US")> _
|
|
Public Property Lang() As String
|
|
Get
|
|
Return CType(Me("Lang"),String)
|
|
End Get
|
|
Set
|
|
Me("Lang") = value
|
|
End Set
|
|
End Property
|
|
End Class
|
|
End Namespace
|
|
|
|
Namespace My
|
|
|
|
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
|
Friend Module MySettingsProperty
|
|
|
|
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
|
Friend ReadOnly Property Settings() As Global.VirtualMac.My.MySettings
|
|
Get
|
|
Return Global.VirtualMac.My.MySettings.Default
|
|
End Get
|
|
End Property
|
|
End Module
|
|
End Namespace
|