diff --git a/Constants/ConstMsg.vb b/Constants/ConstMsg.vb
index 095064e..83e33c6 100644
--- a/Constants/ConstMsg.vb
+++ b/Constants/ConstMsg.vb
@@ -1,8 +1,5 @@
Module ConstMsg
- 'Public Const MSG_MISSINGKEYWD As Integer = 10100
- 'Public Const MSG_NUMERICKEYBOARDWD As Integer = 10200
-
Public Const MSG_EGTCAM5 As Integer = 5000
Public Const MSG_MAINWINDOW As Integer = MSG_EGTCAM5
Public Const MSG_TOPCOMMANDBAR As Integer = MSG_EGTCAM5 + 100
@@ -21,6 +18,8 @@
Public Const MSG_OPTIONPAGE As Integer = MSG_EGTCAM5 + 1500
Public Const MSG_DOORS As Integer = MSG_EGTCAM5 + 3000
Public Const MSG_DOORSERRORS As Integer = MSG_EGTCAM5 + 3100
+ Public Const MSG_GUNSTOCK As Integer = MSG_EGTCAM5 + 3200
+ Public Const MSG_GUNSTOCKERRORS As Integer = MSG_EGTCAM5 + 3250
Public Const MSG_MISSINGKEYWD As Integer = 10100
End Module
diff --git a/EgtCAM5Resources.xaml b/EgtCAM5Resources.xaml
index 6e0d306..ac7eb80 100644
--- a/EgtCAM5Resources.xaml
+++ b/EgtCAM5Resources.xaml
@@ -660,8 +660,13 @@
-
+
+
diff --git a/IniFile.vb b/IniFile.vb
index 0f459a6..0d51ce0 100644
--- a/IniFile.vb
+++ b/IniFile.vb
@@ -3,6 +3,8 @@ Imports EgtUILib
Module IniFile
+ Friend EgaltechBlue1 As New SolidColorBrush(Color.FromArgb(255, 77, 132, 196))
+
Friend Enum ProjectModeOpt As Integer
DRAW = 1
MACHINING = 2
@@ -57,7 +59,8 @@ Module IniFile
Friend m_MruFiles As New MruList
Friend m_MruScripts As New MruList
Friend m_MruDoors As New MruList
- Friend m_MruGunStock As New MruList
+ Friend m_MruNewGunStock As New MruList
+ Friend m_MruModifyGunStock As New MruList
' Current Machine
Friend m_sMachineName As String
Friend m_sCurrMachIniFilePath As String
@@ -130,4 +133,12 @@ Module IniFile
Return EgtUILib.WritePrivateProfileWinPos(IpAppName, IpKeyName, nFlag, nLeft, nTop, nWidth, nHeight, m_sIniFile)
End Function
+ Friend Function IsActiveDoors() As Boolean
+ Return (IniFile.m_nKeyOptions And KEY_OPT.DOORS) <> 0 And (GetPrivateProfileInt(S_DOORS, K_DDFENABLE, 0) <> 0)
+ End Function
+
+ Friend Function IsActiveGunStock() As Boolean
+ Return (IniFile.m_nKeyOptions And KEY_OPT.GUNSTOCK) <> 0 And (GetPrivateProfileInt(S_GUNSTOCK, K_MODENABLE, 0) <> 0)
+ End Function
+
End Module
diff --git a/MTableDb/MTableDbView.xaml b/MTableDb/MTableDbView.xaml
index 5170696..a3a8be7 100644
--- a/MTableDb/MTableDbView.xaml
+++ b/MTableDb/MTableDbView.xaml
@@ -8,7 +8,7 @@
TitleBarBrush="{StaticResource EgaltechBlue1}"
BorderBrush="{StaticResource EgaltechBlue1}"
WindowStyle="None" ResizeMode="NoResize" TitleBarHeight="30" IsResizable="False"
- IsMinimizable="True" WindowStartupLocation="CenterScreen" ShowInTaskbar="False"
+ IsMinimizable="False" WindowStartupLocation="CenterScreen" ShowInTaskbar="False"
CloseCommand="{Binding CloseMTableWindowCommand,Mode=OneWay,UpdateSourceTrigger=PropertyChanged}"
CloseCommandParameter="{Binding Path=SelectedItem, ElementName=TablesListBox}">
@@ -24,7 +24,7 @@
-
+
+ ToolTip="{Binding SetActiveTableToolTip}"
+ Style="{StaticResource MTableWindowButton}">
+
+
+
diff --git a/MTableDb/MTableDbViewModel.vb b/MTableDb/MTableDbViewModel.vb
index 2c519e8..2f30c16 100644
--- a/MTableDb/MTableDbViewModel.vb
+++ b/MTableDb/MTableDbViewModel.vb
@@ -2,7 +2,6 @@
Imports System.IO
Imports EgtUILib
Imports System.Text.RegularExpressions
-Imports Microsoft.Win32
Namespace EgtCAM5
@@ -188,6 +187,7 @@ Namespace EgtCAM5
Sub New()
EgtGetCurrMachineName(m_sPreviousActiveMachine)
+ MTableListBoxItem.NewMTableIndex = 0
UpdateTables()
SetActiveTable()
If m_TablesList.Count > 0 Then
@@ -304,15 +304,13 @@ Namespace EgtCAM5
Public Sub SaveTable(param As Object)
Dim SelectedMTable As MTableListBoxItem = DirectCast(param, MTableListBoxItem)
If IsNothing(SelectedMTable) Then Return
- Dim sFile As String = String.Empty
+ 'Dim sFile As String = String.Empty
If String.IsNullOrEmpty(SelectedMTable.TableNamePath) Then
- If Not SaveTableAsDialog(sFile, SelectedMTable.TableName) Then Return
- SelectedMTable.m_TableNamePath = sFile
- SelectedMTable.TableName = Path.GetFileNameWithoutExtension(sFile)
- VerifyNewName(SelectedMTable.TableName)
+ SaveTableAs(SelectedMTable)
+ Else
+ TableUtility.WriteDoorTable(SelectedMTable, SelectedMTable.TableNamePath)
+ SelectedMTable.IsModifiedReset()
End If
- TableUtility.WriteDoorTable(SelectedMTable, SelectedMTable.TableNamePath)
- SelectedMTable.IsModifiedReset()
End Sub
#End Region ' SaveTableCommand
@@ -340,7 +338,7 @@ Namespace EgtCAM5
Dim sFile As String = String.Empty
If SaveTableAsDialog(sFile, SelectedMTable.TableName) Then
SelectedMTable.IsModifiedReset()
- VerifyNewName(SelectedMTable.TableName)
+ VerifyNewName(Path.GetFileNameWithoutExtension(sFile))
TableUtility.WriteDoorTable(SelectedMTable, sFile)
UpdateTables()
' seleziono la tabella appena salvata
@@ -356,16 +354,15 @@ Namespace EgtCAM5
' Direttorio corrente per MTable
Dim sDir As String = IniFile.m_sTablesRoot
' Apertura dialogo di scelta file DDF
- Dim SaveFileDialog As New SaveFileDialog
- SaveFileDialog.Title = EgtMsg(MSG_DOORS + 5)
- SaveFileDialog.Filter = "MTable script(*.mtl)|*.mtl"
- SaveFileDialog.FilterIndex = 1
- SaveFileDialog.InitialDirectory = sDir
- SaveFileDialog.FileName = sTableName
- If SaveFileDialog.ShowDialog <> True Then
+ Dim SaveFileDialogView As New EgtWPFLib5.EgtSaveFileDialog
+ SaveFileDialogView.Title = EgtMsg(MSG_DOORS + 5)
+ SaveFileDialogView.Extension = ".mtl"
+ SaveFileDialogView.Directory = sDir
+ SaveFileDialogView.FileName = sTableName
+ If SaveFileDialogView.ShowDialog <> True Then
Return False
End If
- sPath = SaveFileDialog.FileName
+ sPath = SaveFileDialogView.FileName
Return True
End Function
@@ -391,6 +388,20 @@ Namespace EgtCAM5
Public Sub RemoveTable(param As Object)
Dim SelectedMTable As MTableListBoxItem = DirectCast(param, MTableListBoxItem)
If IsNothing(SelectedMTable) Then Return
+ ' cancello tutte le tavole nella lista impostate su non visibili (quelle rimaste quando viene creata una nuova tabella e passando ad un altra non la si salva)
+ Dim Index As Integer = m_TablesList.Count - 1
+ While Index >= 0
+ If m_TablesList(Index).Visibility <> Visibility.Visible Then
+ m_TablesList.RemoveAt(Index)
+ End If
+ Index -= 1
+ End While
+ ' verifico se la tabella selezionata è quella attiva
+ If SelectedMTable.ActiveTable Then
+ MessageBox.Show(EgtMsg(MSG_DOORSERRORS + 8) & vbCrLf & EgtMsg(MSG_DOORSERRORS + 9), "", MessageBoxButton.OK, MessageBoxImage.Stop)
+ Exit Sub
+ End If
+ ' chiedo conferma prima di cancellare la tabella
If MessageBox.Show(EgtMsg(MSG_DOORS + 6), "", MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
If Not String.IsNullOrEmpty(SelectedMTable.TableNamePath) Then
File.Delete(SelectedMTable.TableNamePath)
diff --git a/MTableDb/MTableListBox.vb b/MTableDb/MTableListBox.vb
index 1ac1b13..2af7e23 100644
--- a/MTableDb/MTableListBox.vb
+++ b/MTableDb/MTableListBox.vb
@@ -45,7 +45,7 @@ Public Class MTableListBoxItem
Friend SharedMachIndex As Integer = 0
- Friend Shared NewMTableIndex As Integer = 1
+ Friend Shared NewMTableIndex As Integer = 0
Friend m_TableNamePath As String
Public ReadOnly Property TableNamePath As String
@@ -81,7 +81,7 @@ Public Class MTableListBoxItem
Public ReadOnly Property StateColor As Brush
Get
If ActiveTable Then
- Return Brushes.Blue
+ Return IniFile.EgaltechBlue1
Else
Return Brushes.Transparent
End If
diff --git a/MainWindow/MainWindowViewModel.vb b/MainWindow/MainWindowViewModel.vb
index 52f3fc4..91ef606 100644
--- a/MainWindow/MainWindowViewModel.vb
+++ b/MainWindow/MainWindowViewModel.vb
@@ -373,8 +373,13 @@ Namespace EgtCAM5
'' Impostazioni MruLists
m_MruFiles.Init(S_MRUFILES, 8)
m_MruScripts.Init(S_MRUSCRIPTS, 8)
- m_MruDoors.Init(S_MRUDOORS, 8)
- m_MruGunStock.Init(S_MRUGUNSTOCK, 8)
+ If IniFile.IsActiveDoors() Then
+ m_MruDoors.Init(S_MRUDOORS, 8)
+ End If
+ If IniFile.IsActiveGunStock() Then
+ m_MruNewGunStock.Init(S_MRUGUNSTOCK, 8)
+ m_MruModifyGunStock.Init(S_MRUGUNSTOCK, 8)
+ End If
' Installo funzione gestione eventi per lua
EgtSetProcessEvents(m_ProcEventsCallback)
' Installo funzione output testo su status per lua
diff --git a/ProjectPage/GunStockPanel/GunStockPanelView.xaml b/ProjectPage/GunStockPanel/GunStockPanelView.xaml
index 2348a23..806e877 100644
--- a/ProjectPage/GunStockPanel/GunStockPanelView.xaml
+++ b/ProjectPage/GunStockPanel/GunStockPanelView.xaml
@@ -3,12 +3,30 @@
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
- -->
+
+
diff --git a/ProjectPage/GunStockPanel/GunStockPanelViewModel.vb b/ProjectPage/GunStockPanel/GunStockPanelViewModel.vb
index ff3eb86..df0b36c 100644
--- a/ProjectPage/GunStockPanel/GunStockPanelViewModel.vb
+++ b/ProjectPage/GunStockPanel/GunStockPanelViewModel.vb
@@ -1,67 +1,152 @@
Imports System.Collections.ObjectModel
+Imports EgtUILib
Namespace EgtCAM5
Public Class GunStockPanelViewModel
Inherits ViewModelBase
- Public ReadOnly Property MruGunStockNames As ObservableCollection(Of String)
+ Public ReadOnly Property MruNewGunStockNames As ObservableCollection(Of String)
Get
- Return IniFile.m_MruGunStock.m_FileNames
+ Return IniFile.m_MruNewGunStock.m_FileNames
End Get
End Property
- ' Definizione comandi
- Private m_cmdGunStock As ICommand
- Private Shared m_cmdOpenMruGunStock As ICommand
+ Public ReadOnly Property MruModifyGunStockNames As ObservableCollection(Of String)
+ Get
+ Return IniFile.m_MruModifyGunStock.m_FileNames
+ End Get
+ End Property
+
+#Region "Messages"
+
+ Public ReadOnly Property NewGunStockMsg As String
+ Get
+ Return EgtMsg(MSG_DOORS + 4)
+ End Get
+ End Property
+ Public ReadOnly Property ModifyGunStockMsg As String
+ Get
+ Return EgtMsg(MSG_DOORS + 4)
+ End Get
+ End Property
+
+#End Region ' Messages
+
+#Region "ToolTip"
+
+ Public ReadOnly Property NewGunStockToolTip As String
+ Get
+ Return EgtMsg(MSG_DOORS + 4)
+ End Get
+ End Property
+ Public ReadOnly Property ModifyGunStockToolTip As String
+ Get
+ Return EgtMsg(MSG_DOORS + 4)
+ End Get
+ End Property
+
+#End Region ' ToolTip
+
+ ' Definizione comandi
+ Private m_cmdNewGunStock As ICommand
+ Private m_cmdModifyGunStock As ICommand
+ Private Shared m_cmdOpenMruNewGunStock As ICommand
+ Private Shared m_cmdOpenMruModifyGunStock As ICommand
#Region "COMMANDS"
-#Region "GunStockCommand"
+#Region "NewGunStockCommand"
'''
''' Returns a command that do Import.
'''
- Public ReadOnly Property GunStockCommand As ICommand
+ Public ReadOnly Property NewGunStockCommand As ICommand
Get
- If m_cmdGunStock Is Nothing Then
- m_cmdGunStock = New RelayCommand(AddressOf GunStock)
+ If m_cmdNewGunStock Is Nothing Then
+ m_cmdNewGunStock = New RelayCommand(AddressOf NewGunStock)
End If
- Return m_cmdGunStock
+ Return m_cmdNewGunStock
End Get
End Property
'''
''' Execute the Door. This method is invoked by the DoorsCommand.
'''
- Public Sub GunStock(ByVal param As Object)
+ Public Sub NewGunStock(ByVal param As Object)
Application.Msn.NotifyColleagues(Application.GUNSTOCKSCRIPT, String.Empty)
End Sub
-#End Region ' GunStockCommand
+#End Region ' NewGunStockCommand
-#Region "OpenMruGunStockCommand"
+#Region "ModifyGunStockCommand"
+
+ '''
+ ''' Returns a command that do Import.
+ '''
+ Public ReadOnly Property ModifyGunStockCommand As ICommand
+ Get
+ If m_cmdModifyGunStock Is Nothing Then
+ m_cmdModifyGunStock = New RelayCommand(AddressOf ModifyGunStock)
+ End If
+ Return m_cmdModifyGunStock
+ End Get
+ End Property
+
+ '''
+ ''' Execute the Door. This method is invoked by the DoorsCommand.
+ '''
+ Public Sub ModifyGunStock(ByVal param As Object)
+ Application.Msn.NotifyColleagues(Application.GUNSTOCKSCRIPT, String.Empty)
+ End Sub
+
+#End Region ' ModifyGunStockCommand
+
+#Region "OpenMruNewGunStockCommand"
'''
''' Returns a command that do Open.
'''
- Public Shared ReadOnly Property OpenMruGunStockCommand As ICommand
+ Public Shared ReadOnly Property OpenMruNewGunStockCommand As ICommand
Get
- If m_cmdOpenMruGunStock Is Nothing Then
- m_cmdOpenMruGunStock = New RelayCommand(AddressOf OpenMruGunStock)
+ If m_cmdOpenMruNewGunStock Is Nothing Then
+ m_cmdOpenMruNewGunStock = New RelayCommand(AddressOf OpenMruNewGunStock)
End If
- Return m_cmdOpenMruGunStock
+ Return m_cmdOpenMruNewGunStock
End Get
End Property
'''
''' Execute the Open. This method is invoked by the OpenCommand.
'''
- Public Shared Sub OpenMruGunStock(ByVal param As Object)
+ Public Shared Sub OpenMruNewGunStock(ByVal param As Object)
Application.Msn.NotifyColleagues(Application.GUNSTOCKSCRIPT, DirectCast(param, String).Replace("__", "_"))
End Sub
-#End Region ' OpenMruGunStockCommand
+#End Region ' OpenMruNewGunStockCommand
+
+#Region "OpenMruNewGunStockCommand"
+
+ '''
+ ''' Returns a command that do Open.
+ '''
+ Public Shared ReadOnly Property OpenMruModifyGunStockCommand As ICommand
+ Get
+ If m_cmdOpenMruModifyGunStock Is Nothing Then
+ m_cmdOpenMruModifyGunStock = New RelayCommand(AddressOf OpenMruModifyGunStock)
+ End If
+ Return m_cmdOpenMruModifyGunStock
+ End Get
+ End Property
+
+ '''
+ ''' Execute the Open. This method is invoked by the OpenCommand.
+ '''
+ Public Shared Sub OpenMruModifyGunStock(ByVal param As Object)
+ Application.Msn.NotifyColleagues(Application.GUNSTOCKSCRIPT, DirectCast(param, String).Replace("__", "_"))
+ End Sub
+
+#End Region ' OpenMruNewGunStockCommand
#End Region
diff --git a/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/LayerTreeView.vb b/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/LayerTreeView.vb
index 555e342..5480379 100644
--- a/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/LayerTreeView.vb
+++ b/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/LayerTreeView.vb
@@ -109,7 +109,7 @@ Public Class LayerTreeViewItem
MyBase.New(Name)
Me.m_Id = Id
Me.PictureString = Image
- Me.LayerColor = New SolidColorBrush(Color.FromArgb(CByte(CurrColor.A), CByte(CurrColor.R), CByte(CurrColor.G), CByte(CurrColor.B)))
+ Me.LayerColor = New SolidColorBrush(Color.FromArgb(CByte(CurrColor.A * 255 / 100), CByte(CurrColor.R), CByte(CurrColor.G), CByte(CurrColor.B)))
End Sub
Sub New(Id As Integer, Name As String)
diff --git a/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderView.xaml b/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderView.xaml
index b6b852f..96dd6a2 100644
--- a/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderView.xaml
+++ b/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderView.xaml
@@ -22,7 +22,9 @@
+ ItemsSource="{Binding Path=LayerList}"
+ VirtualizingStackPanel.IsVirtualizing = "True"
+ VirtualizingStackPanel.VirtualizationMode = "Recycling">
diff --git a/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderViewModel.vb b/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderViewModel.vb
index 95ba1c7..599fc6a 100644
--- a/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderViewModel.vb
+++ b/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderViewModel.vb
@@ -159,7 +159,7 @@ Namespace EgtCAM5
Me.HeaderName = HeaderName
End Sub)
Application.Msn.Register(Application.UPDATEHEADERCOLOR, Sub(HeaderColor As Color3d)
- Me.HeaderColor = New SolidColorBrush(Color.FromArgb(CByte(HeaderColor.A), CByte(HeaderColor.R), CByte(HeaderColor.G), CByte(HeaderColor.B)))
+ Me.HeaderColor = New SolidColorBrush(Color.FromArgb(CByte(HeaderColor.A * 255 / 100), CByte(HeaderColor.R), CByte(HeaderColor.G), CByte(HeaderColor.B)))
End Sub)
Application.Msn.Register(Application.UPDATEOBJTREEOLDID, Sub(ObjTreeOldId As Integer)
Me.m_nObjTreeOldId = ObjTreeOldId
@@ -737,7 +737,7 @@ Namespace EgtCAM5
End If
Dim nObjs As Integer = EgtGetGroupObjs(nGroupId)
- If (nObjs > 20000) Then
+ If (nObjs > 275000) Then
Dim sText As String = "Too many entities (" + nObjs.ToString() + ")"
CurrNodColl.Add(New LayerTreeViewItem(GDB_ID.NULL, sText))
Return
diff --git a/ProjectPage/ProjectView.xaml.vb b/ProjectPage/ProjectView.xaml.vb
index db5577e..218ab7b 100644
--- a/ProjectPage/ProjectView.xaml.vb
+++ b/ProjectPage/ProjectView.xaml.vb
@@ -52,10 +52,8 @@ Public Class ProjectView
If GetPrivateProfileFloatingWinPos(S_GENERAL, "OptionPanel", sState, nIndex, nLeft, nTop) And Not String.IsNullOrEmpty(sState) Then
PanelPositioning(OptionPanel, sState, nIndex, nLeft, nTop)
End If
- m_bDoors = (IniFile.m_nKeyOptions And KEY_OPT.DOORS) <> 0 And
- (GetPrivateProfileInt(S_DOORS, K_DDFENABLE, 0) <> 0)
- m_bGunStock = (IniFile.m_nKeyOptions And KEY_OPT.GUNSTOCK) <> 0 And
- (GetPrivateProfileInt(S_GUNSTOCK, K_MODENABLE, 0) <> 0)
+ m_bDoors = IniFile.IsActiveDoors()
+ m_bGunStock = IsActiveGunStock()
Application.Msn.Register(Application.DRAWMODE_ISCHECKED, Sub()
ShowPanel.Visibility = Visibility.Visible
ViewPanel.Visibility = Visibility.Visible
diff --git a/ProjectPage/ProjectViewModel.vb b/ProjectPage/ProjectViewModel.vb
index 36e8fab..19ccb80 100644
--- a/ProjectPage/ProjectViewModel.vb
+++ b/ProjectPage/ProjectViewModel.vb
@@ -706,13 +706,13 @@ Namespace EgtCAM5
Application.Msn.NotifyColleagues(Application.SETMACHININGMODE)
End If
If bOk Then
- IniFile.m_MruGunStock.Add(IniFile.m_MODFilePath)
+ IniFile.m_MruNewGunStock.Add(IniFile.m_MODFilePath)
Dim sFile As String = String.Empty
If EgtGetCurrFilePath(sFile) Then
IniFile.m_MruFiles.Add(sFile)
End If
Else
- IniFile.m_MruGunStock.Remove(IniFile.m_MODFilePath)
+ IniFile.m_MruNewGunStock.Remove(IniFile.m_MODFilePath)
Try
Dim sErrFilePath As String = Path.ChangeExtension(IniFile.m_MODFilePath, ".txt")
Dim fileReader As String = My.Computer.FileSystem.ReadAllText(sErrFilePath)
diff --git a/SingleFolderOpenFileDialog/SingleFolderOpenFileDialogView.xaml b/SingleFolderOpenFileDialog/SingleFolderOpenFileDialogView.xaml
deleted file mode 100644
index b9b8592..0000000
--- a/SingleFolderOpenFileDialog/SingleFolderOpenFileDialogView.xaml
+++ /dev/null
@@ -1,11 +0,0 @@
-
-
-
-
-
diff --git a/SingleFolderOpenFileDialog/SingleFolderOpenFileDialogView.xaml.vb b/SingleFolderOpenFileDialog/SingleFolderOpenFileDialogView.xaml.vb
deleted file mode 100644
index 6529245..0000000
--- a/SingleFolderOpenFileDialog/SingleFolderOpenFileDialogView.xaml.vb
+++ /dev/null
@@ -1,3 +0,0 @@
-Public Class SingleFolderOpenFileDialogView
-
-End Class
diff --git a/SingleFolderOpenFileDialog/SingleFolderOpenFileDialogViewModel.vb b/SingleFolderOpenFileDialog/SingleFolderOpenFileDialogViewModel.vb
deleted file mode 100644
index 40a8453..0000000
--- a/SingleFolderOpenFileDialog/SingleFolderOpenFileDialogViewModel.vb
+++ /dev/null
@@ -1,3 +0,0 @@
-Public Class SingleFolderOpenFileDialogViewModel
-
-End Class