Add build files and extra source files for windows

diff --git a/windows/cmd/gvui/GVUI.vbp b/windows/cmd/gvui/GVUI.vbp
new file mode 100644 (file)
index 0000000..43c9cdb
--- /dev/null
+++ b/windows/cmd/gvui/GVUI.vbp
@@ -0,0 +1,46 @@
+Type=Exe\r
+Form=frmLayoutControl.frm\r
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\WINDOWS\System32\Stdole2.tlb#OLE Automation\r
+Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; comdlg32.ocx\r
+Module=Registry; Registry.bas\r
+Module=Other; Other.bas\r
+Module=Process; Process.bas\r
+Reference=*\G{00025E01-0000-0000-C000-000000000046}#4.0#0#..\..\..\Program Files\Common Files\Microsoft Shared\DAO\DAO350.DLL#Microsoft DAO 3.51 Object Library\r
+Class=LayoutProperty; LayoutProperty.cls\r
+Class=LayoutPropertySet; LayoutPropertySet.cls\r
+Class=LayoutPropertyInfo; LayoutPropertyInfo.cls\r
+Module=Main; Main.bas\r
+Class=LayoutPropertyInfoSet; LayoutPropertyInfoSet.cls\r
+IconForm="frmLayoutControl"\r
+Startup="frmLayoutControl"\r
+HelpFile=""\r
+Title="GVUI"\r
+ExeName32="GVUI.exe"\r
+Command32=""\r
+Name="GVUI"\r
+HelpContextID="0"\r
+CompatibleMode="0"\r
+MajorVer=1\r
+MinorVer=0\r
+RevisionVer=0\r
+AutoIncrementVer=0\r
+ServerSupportFiles=0\r
+CompilationType=0\r
+OptimizationType=0\r
+FavorPentiumPro(tm)=0\r
+CodeViewDebugInfo=0\r
+NoAliasing=0\r
+BoundsCheck=0\r
+OverflowCheck=0\r
+FlPointCheck=0\r
+FDIVCheck=0\r
+UnroundedFP=0\r
+StartMode=0\r
+Unattended=0\r
+Retained=0\r
+ThreadPerObject=0\r
+MaxNumberOfThreads=1\r
+DebugStartupOption=0\r
+\r
+[MS Transaction Server]\r
+AutoRefresh=1\r

diff --git a/windows/cmd/gvui/GVUI.vbw b/windows/cmd/gvui/GVUI.vbw
new file mode 100644 (file)
index 0000000..bef9f65
--- /dev/null
+++ b/windows/cmd/gvui/GVUI.vbw
@@ -0,0 +1,9 @@
+frmLayoutControl = 0, 0, 673, 356, , 0, 118, 673, 634, C\r
+Registry = 110, 110, 629, 436, \r
+Other = 44, 44, 563, 370, \r
+Process = 132, 132, 698, 534, Z\r
+LayoutProperty = 176, 176, 682, 578, C\r
+LayoutPropertySet = 0, 0, 506, 402, \r
+LayoutPropertyInfo = 0, 0, 549, 319, C\r
+Main = 22, 22, 571, 341, C\r
+LayoutPropertyInfoSet = 132, 132, 681, 451, \r

diff --git a/windows/cmd/gvui/LayoutProperty.cls b/windows/cmd/gvui/LayoutProperty.cls
new file mode 100644 (file)
index 0000000..ff86c90
--- /dev/null
+++ b/windows/cmd/gvui/LayoutProperty.cls
@@ -0,0 +1,86 @@
+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 = "LayoutProperty"\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 mvarScope As String 'local copy\r
+Private mvarValue As String 'local copy\r
+Private mvarPName As String 'local copy\r
+\r
+Public Property Let PName(ByVal vData As String)\r
+'used when assigning a value to the property, on the left side of an assignment.\r
+'Syntax: X.PName = 5\r
+    mvarPName = vData\r
+End Property\r
+\r
+Public Property Get PName() As String\r
+'used when retrieving value of a property, on the right side of an assignment.\r
+'Syntax: Debug.Print X.PName\r
+    PName = mvarPName\r
+End Property\r
+\r
+\r
+\r
+Public Property Let Value(ByVal vData As String)\r
+'used when assigning a value to the property, on the left side of an assignment.\r
+'Syntax: X.Value = 5\r
+    mvarValue = vData\r
+End Property\r
+\r
+\r
+Public Property Get Value() As String\r
+'used when retrieving value of a property, on the right side of an assignment.\r
+'Syntax: Debug.Print X.Value\r
+    Value = mvarValue\r
+End Property\r
+\r
+\r
+\r
+Public Property Let Scope(ByVal vData As String)\r
+'used when assigning a value to the property, on the left side of an assignment.\r
+'Syntax: X.Scope = 5\r
+    mvarScope = vData\r
+End Property\r
+\r
+\r
+Public Property Get Scope() As String\r
+'used when retrieving value of a property, on the right side of an assignment.\r
+'Syntax: Debug.Print X.Scope\r
+    Scope = mvarScope\r
+End Property\r
+\r
+Public Property Get Id() As String\r
+    Id = mvarPName & ":" & mvarScope\r
+End Property\r
+\r
+Public Function ToString() As String\r
+\r
+    If mvarScope = "Graph" Then\r
+        ToString = "-G"\r
+    ElseIf mvarScope = "Node" Then\r
+        ToString = "-N"\r
+    ElseIf mvarScope = "Edge" Then\r
+        ToString = "-E"\r
+    ElseIf mvarScope = "Subgraph" Then\r
+        ToString = "-S"\r
+    ElseIf mvarScope = "Cluster" Then\r
+        ToString = "-C"\r
+    End If\r
+    \r
+    ToString = ToString & mvarPName & "=" & _\r
+                IIf(Mid(mvarValue, 1, 1) = Chr(34), "", Chr(34)) & _\r
+                mvarValue & _\r
+                IIf(Mid(mvarValue, 1, 1) = Chr(34), "", Chr(34))\r
+End Function\r
+\r