Add build files and extra source files for windows

diff --git a/windows/cmd/gvui/LayoutPropertyInfo.cls b/windows/cmd/gvui/LayoutPropertyInfo.cls
new file mode 100644 (file)
index 0000000..c2dfa32
--- /dev/null
+++ b/windows/cmd/gvui/LayoutPropertyInfo.cls
@@ -0,0 +1,89 @@
+VERSION 1.0 CLASS\r
+BEGIN\r
+  MultiUse = -1  'True\r
+  Persistable = 0  'NotPersistable\r
+  DataBindingBehavior = 0  'vbNone\r
+  DataSourceBehavior  = 0  'vbNone\r
+  MTSTransactionMode  = 0  'NotAnMTSObject\r
+END\r
+Attribute VB_Name = "LayoutPropertyInfo"\r
+Attribute VB_GlobalNameSpace = False\r
+Attribute VB_Creatable = True\r
+Attribute VB_PredeclaredId = False\r
+Attribute VB_Exposed = False\r
+Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"\r
+Attribute VB_Ext_KEY = "Top_Level" ,"Yes"\r
+'local variable(s) to hold property value(s)\r
+Private mvarPName As String '\r
+Private mvarDefaultValue As String '\r
+Private mvarScope As Integer    'a mask indicating the types of graph elems\r
+                                '(graph, node, edge) to which the prop is applicable\r
+Private mvarEngine  As Integer 'a mask indicating to which layout engine the\r
+                                'prop is applicable\r
+\r
+Public Property Let Engine(ByVal vData As Integer)\r
+    mvarEngine = vData\r
+End Property\r
+\r
+Public Property Get Engine() As Integer\r
+    Engine = mvarEngine\r
+End Property\r
+\r
+Public Function hasEngine(Engine As Integer) As Boolean\r
+    hasEngine = (mvarEngine And Engine) <> 0\r
+End Function\r
+\r
+Public Function isDot() As Boolean\r
+    isDot = (mvarEngine And DOT) <> 0\r
+End Function\r
+\r
+Public Function isNeato() As Boolean\r
+    isNeato = (mvarEngine And NEATO) <> 0\r
+End Function\r
+\r
+Public Function isTwopi() As Boolean\r
+    isTwopi = (mvarEngine And TWOPI) <> 0\r
+End Function\r
+\r
+Public Property Let Scope(ByVal vData As Integer)\r
+    mvarScope = vData\r
+End Property\r
+\r
+Public Property Get Scope() As Integer\r
+    Scope = mvarScope\r
+End Property\r
+\r
+Public Function hasScope(Scope As Integer) As Boolean\r
+    hasScope = (mvarScope And Scope) <> 0\r
+End Function\r
+\r
+Public Function isEdge() As Boolean\r
+    isEdge = (mvarScope And EDGE) <> 0\r
+End Function\r
+\r
+Public Function isNode() As Boolean\r
+    isNode = (mvarScope And NODE) <> 0\r
+End Function\r
+\r
+Public Function isGraph() As Boolean\r
+    isGraph = (mvarScope And GRAPH) <> 0\r
+End Function\r
+\r
+Public Property Let DefaultValue(ByVal vData As String)\r
+    mvarDefaultValue = vData\r
+End Property\r
+\r
+Public Property Get DefaultValue() As String\r
+    DefaultValue = mvarDefaultValue\r
+End Property\r
+\r
+Public Property Let PName(ByVal vData As String)\r
+    mvarPName = vData\r
+End Property\r
+\r
+Public Property Get PName() As String\r
+    PName = mvarPName\r
+End Property\r
+\r
+\r
+\r