ViewVC Help

View File | Revision Log | Show Annotations | Revision Graph | Root Listing

root/i-scream/projects/cms/source/host/winhost/nettest.frm

Comparing projects/cms/source/host/winhost/nettest.frm (file contents):
Revision 1.36 by pjm2, Mon Mar 19 10:11:15 2001 UTC vs.
Revision 1.38 by tdb, Mon Mar 19 13:02:36 2001 UTC

#	Line 4 | Line 4 | Object = "{33155A3D-0CE0-11D1-A6B4-444553540000}#1.0#0
4		Begin VB.Form Form1
5		BorderStyle     =   3  'Fixed Dialog
6		Caption         =   "i-scream Winhost"
7	<	ClientHeight    =   1185
7	>	ClientHeight    =   1380
8		ClientLeft      =   45
9		ClientTop       =   330
10	<	ClientWidth     =   4710
10	>	ClientWidth     =   4635
11		Icon            =   "nettest.frx":0000
12		LinkTopic       =   "Form1"
13		MaxButton       =   0   'False
14		MinButton       =   0   'False
15	<	ScaleHeight     =   1185
16	<	ScaleWidth      =   4710
15	>	ScaleHeight     =   1380
16	>	ScaleWidth      =   4635
17		ShowInTaskbar   =   0   'False
18		StartUpPosition =   2  'CenterScreen
19		Visible         =   0   'False
20		Begin VB.CommandButton Command1
21		Caption         =   "more"
22		Height          =   255
23	<	Left            =   3960
23	>	Left            =   3885
24		TabIndex        =   8
25	<	Top             =   840
25	>	Top             =   1035
26		Width           =   615
27		End
28		Begin VB.TextBox Text1
#	Line 32 | Line 32 | Begin VB.Form Form1
32		MultiLine       =   -1  'True
33		ScrollBars      =   2  'Vertical
34		TabIndex        =   7
35	<	Top             =   1200
36	<	Width           =   4455
35	>	Top             =   1440
36	>	Width           =   4395
37		End
38		Begin VB.CommandButton Hide
39		Caption         =   "hide"
40		Height          =   255
41	<	Left            =   3960
41	>	Left            =   3225
42		TabIndex        =   6
43	<	Top             =   480
43	>	Top             =   1035
44		Width           =   615
45		End
46		Begin SysTray.SystemTray SystemTray
#	Line 60 | Line 60 | Begin VB.Form Form1
60		Height          =   375
61		Left            =   840
62		TabIndex        =   0
63	<	Top             =   3480
63	>	Top             =   3555
64		Width           =   2895
65		End
66		Begin MSWinsockLib.Winsock TCPSock
#	Line 78 | Line 78 | Begin VB.Form Form1
78		_Version        =   393216
79		Protocol        =   1
80		End
81	+	Begin VB.Image Image1
82	+	Height          =   900
83	+	Left            =   2400
84	+	Picture         =   "nettest.frx":08CA
85	+	Top             =   90
86	+	Width           =   2100
87	+	End
88		Begin VB.Label Label2
89		Alignment       =   1  'Right Justify
90		Caption         =   "Next heartbeat:"
91		Height          =   255
92		Left            =   120
93		TabIndex        =   5
94	<	Top             =   480
94	>	Top             =   645
95		Width           =   1455
96		End
97		Begin VB.Label Label1
#	Line 93 | Line 100 | Begin VB.Form Form1
100		Height          =   255
101		Left            =   120
102		TabIndex        =   4
103	<	Top             =   120
103	>	Top             =   165
104		Width           =   1455
105		End
106		Begin VB.Label Label4
#	Line 102 | Line 109 | Begin VB.Form Form1
109		Height          =   255
110		Left            =   1680
111		TabIndex        =   3
112	<	Top             =   480
112	>	Top             =   645
113		Width           =   615
114		End
115		Begin VB.Label Label3
#	Line 111 | Line 118 | Begin VB.Form Form1
118		Height          =   255
119		Left            =   1680
120		TabIndex        =   2
121	<	Top             =   120
121	>	Top             =   165
122		Width           =   615
123		End
124		Begin VB.Label Status
#	Line 120 | Line 127 | Begin VB.Form Form1
127		Height          =   255
128		Left            =   0
129		TabIndex        =   1
130	<	Top             =   840
131	<	Width           =   3855
130	>	Top             =   1035
131	>	Width           =   3180
132		End
133		End
134		Attribute VB_Name = "Form1"
#	Line 168 | Line 175 | Private Sub Command1_Click()
175		' Toggle visibility of the debug output.
176
177		If windowBig Then
178	<	Form1.Height = 1500
178	>	Form1.Height = 1755
179		windowBig = False
180		Else
181	<	Form1.Height = 4350
181	>	Form1.Height = 4380
182		windowBig = True
183		End If
184

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines