From: erg <devnull@localhost>
Date: Thu, 20 Jan 2005 19:57:36 +0000 (+0000)
Subject: Add build files and extra source files for windows
X-Git-Tag: LAST_LIBGRAPH~32^2~8055
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=5951c0c68e27f3ed3b18ce320f63ff79dcc91b50;p=graphviz

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
index 000000000..43c9cdbaf
--- /dev/null
+++ b/windows/cmd/gvui/GVUI.vbp
@@ -0,0 +1,46 @@
+Type=Exe
+Form=frmLayoutControl.frm
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\WINDOWS\System32\Stdole2.tlb#OLE Automation
+Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; comdlg32.ocx
+Module=Registry; Registry.bas
+Module=Other; Other.bas
+Module=Process; Process.bas
+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
+Class=LayoutProperty; LayoutProperty.cls
+Class=LayoutPropertySet; LayoutPropertySet.cls
+Class=LayoutPropertyInfo; LayoutPropertyInfo.cls
+Module=Main; Main.bas
+Class=LayoutPropertyInfoSet; LayoutPropertyInfoSet.cls
+IconForm="frmLayoutControl"
+Startup="frmLayoutControl"
+HelpFile=""
+Title="GVUI"
+ExeName32="GVUI.exe"
+Command32=""
+Name="GVUI"
+HelpContextID="0"
+CompatibleMode="0"
+MajorVer=1
+MinorVer=0
+RevisionVer=0
+AutoIncrementVer=0
+ServerSupportFiles=0
+CompilationType=0
+OptimizationType=0
+FavorPentiumPro(tm)=0
+CodeViewDebugInfo=0
+NoAliasing=0
+BoundsCheck=0
+OverflowCheck=0
+FlPointCheck=0
+FDIVCheck=0
+UnroundedFP=0
+StartMode=0
+Unattended=0
+Retained=0
+ThreadPerObject=0
+MaxNumberOfThreads=1
+DebugStartupOption=0
+
+[MS Transaction Server]
+AutoRefresh=1
diff --git a/windows/cmd/gvui/GVUI.vbw b/windows/cmd/gvui/GVUI.vbw
new file mode 100644
index 000000000..bef9f65f2
--- /dev/null
+++ b/windows/cmd/gvui/GVUI.vbw
@@ -0,0 +1,9 @@
+frmLayoutControl = 0, 0, 673, 356, , 0, 118, 673, 634, C
+Registry = 110, 110, 629, 436, 
+Other = 44, 44, 563, 370, 
+Process = 132, 132, 698, 534, Z
+LayoutProperty = 176, 176, 682, 578, C
+LayoutPropertySet = 0, 0, 506, 402, 
+LayoutPropertyInfo = 0, 0, 549, 319, C
+Main = 22, 22, 571, 341, C
+LayoutPropertyInfoSet = 132, 132, 681, 451, 
diff --git a/windows/cmd/gvui/LayoutProperty.cls b/windows/cmd/gvui/LayoutProperty.cls
new file mode 100644
index 000000000..ff86c90b8
--- /dev/null
+++ b/windows/cmd/gvui/LayoutProperty.cls
@@ -0,0 +1,86 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+  Persistable = 0  'NotPersistable
+  DataBindingBehavior = 0  'vbNone
+  DataSourceBehavior  = 0  'vbNone
+  MTSTransactionMode  = 0  'NotAnMTSObject
+END
+Attribute VB_Name = "LayoutProperty"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = True
+Attribute VB_PredeclaredId = False
+Attribute VB_Exposed = False
+Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
+Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
+'local variable(s) to hold property value(s)
+Private mvarScope As String 'local copy
+Private mvarValue As String 'local copy
+Private mvarPName As String 'local copy
+
+Public Property Let PName(ByVal vData As String)
+'used when assigning a value to the property, on the left side of an assignment.
+'Syntax: X.PName = 5
+    mvarPName = vData
+End Property
+
+Public Property Get PName() As String
+'used when retrieving value of a property, on the right side of an assignment.
+'Syntax: Debug.Print X.PName
+    PName = mvarPName
+End Property
+
+
+
+Public Property Let Value(ByVal vData As String)
+'used when assigning a value to the property, on the left side of an assignment.
+'Syntax: X.Value = 5
+    mvarValue = vData
+End Property
+
+
+Public Property Get Value() As String
+'used when retrieving value of a property, on the right side of an assignment.
+'Syntax: Debug.Print X.Value
+    Value = mvarValue
+End Property
+
+
+
+Public Property Let Scope(ByVal vData As String)
+'used when assigning a value to the property, on the left side of an assignment.
+'Syntax: X.Scope = 5
+    mvarScope = vData
+End Property
+
+
+Public Property Get Scope() As String
+'used when retrieving value of a property, on the right side of an assignment.
+'Syntax: Debug.Print X.Scope
+    Scope = mvarScope
+End Property
+
+Public Property Get Id() As String
+    Id = mvarPName & ":" & mvarScope
+End Property
+
+Public Function ToString() As String
+
+    If mvarScope = "Graph" Then
+        ToString = "-G"
+    ElseIf mvarScope = "Node" Then
+        ToString = "-N"
+    ElseIf mvarScope = "Edge" Then
+        ToString = "-E"
+    ElseIf mvarScope = "Subgraph" Then
+        ToString = "-S"
+    ElseIf mvarScope = "Cluster" Then
+        ToString = "-C"
+    End If
+    
+    ToString = ToString & mvarPName & "=" & _
+                IIf(Mid(mvarValue, 1, 1) = Chr(34), "", Chr(34)) & _
+                mvarValue & _
+                IIf(Mid(mvarValue, 1, 1) = Chr(34), "", Chr(34))
+End Function
+