From 6e5d9ddc54b0febb0197e289e14e7d36da3c3bff Mon Sep 17 00:00:00 2001
From: "locka%iol.ie" <locka%iol.ie>
Date: Sun, 4 Oct 1998 14:43:16 +0000
Subject: [PATCH] Added a few more URLs to the drop down and simple busy/idle
 indicator

---
 .../embed/ActiveX/tests/vbrowse/browser.frm   |  24 +++++++++++++-----
 .../embed/ActiveX/tests/vbrowse/browser.frx   | Bin 36 -> 200 bytes
 2 files changed, 18 insertions(+), 6 deletions(-)

diff --git a/webshell/embed/ActiveX/tests/vbrowse/browser.frm b/webshell/embed/ActiveX/tests/vbrowse/browser.frm
index 6dca96d1c2a..07172101679 100644
--- a/webshell/embed/ActiveX/tests/vbrowse/browser.frm
+++ b/webshell/embed/ActiveX/tests/vbrowse/browser.frm
@@ -6,10 +6,10 @@ Begin VB.Form Form1
    ClientHeight    =   5880
    ClientLeft      =   60
    ClientTop       =   345
-   ClientWidth     =   7005
+   ClientWidth     =   7485
    LinkTopic       =   "Form1"
    ScaleHeight     =   5880
-   ScaleWidth      =   7005
+   ScaleWidth      =   7485
    StartUpPosition =   3  'Windows Default
    Begin ComctlLib.StatusBar StatusBar1 
       Align           =   2  'Align Bottom
@@ -17,8 +17,8 @@ Begin VB.Form Form1
       Left            =   0
       TabIndex        =   8
       Top             =   5625
-      Width           =   7005
-      _ExtentX        =   12356
+      Width           =   7485
+      _ExtentX        =   13203
       _ExtentY        =   450
       SimpleText      =   ""
       _Version        =   327682
@@ -26,7 +26,7 @@ Begin VB.Form Form1
          NumPanels       =   1
          BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
             AutoSize        =   1
-            Object.Width           =   11853
+            Object.Width           =   12700
             Text            =   ""
             TextSave        =   ""
             Key             =   ""
@@ -45,7 +45,9 @@ Begin VB.Form Form1
    End
    Begin VB.ComboBox cmbUrl 
       Height          =   315
+      ItemData        =   "browser.frx":0000
       Left            =   3120
+      List            =   "browser.frx":0016
       TabIndex        =   6
       Text            =   "http://www.mozilla.com"
       Top             =   120
@@ -54,7 +56,7 @@ Begin VB.Form Form1
    Begin MOZILLACONTROLLibCtl.MozillaBrowser Browser1 
       Height          =   4815
       Left            =   0
-      OleObjectBlob   =   "browser.frx":0000
+      OleObjectBlob   =   "browser.frx":00A4
       TabIndex        =   5
       Top             =   600
       Width           =   6975
@@ -99,6 +101,14 @@ Begin VB.Form Form1
       Top             =   120
       Width           =   495
    End
+   Begin VB.Shape Throbber1 
+      FillColor       =   &H0000FF00&
+      FillStyle       =   0  'Solid
+      Height          =   375
+      Left            =   6960
+      Top             =   120
+      Width           =   375
+   End
 End
 Attribute VB_Name = "Form1"
 Attribute VB_GlobalNameSpace = False
@@ -107,10 +117,12 @@ Attribute VB_PredeclaredId = True
 Attribute VB_Exposed = False
 Private Sub Browser1_BeforeNavigate(ByVal URL As String, ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Cancel As Boolean)
     StatusBar1.Panels(1).Text = "Loading " & URL
+    Throbber1.FillColor = &HFF&
 End Sub
 
 Private Sub Browser1_NavigateComplete(ByVal URL As String)
     StatusBar1.Panels(1).Text = "Loaded " & URL
+    Throbber1.FillColor = &HFF00&
 End Sub
 
 Private Sub btnBack_Click()
diff --git a/webshell/embed/ActiveX/tests/vbrowse/browser.frx b/webshell/embed/ActiveX/tests/vbrowse/browser.frx
index c13f04b98b13920e8aaeb41546a6f6ca770d9526..f43336f734dcf264209ea28e47973d3f719933cd 100644
GIT binary patch
literal 200
zcmZQ$U}j)sFhE0W3=#}t3>hUQ1y=g{<>lpix%pL@IXQ`X$@#hB$l`gaCB?~!1*sqj
z5oC$V#EkrWkf;Q*Xl`b5QGRiLS_w!-2w5gMFApRpj4GB2R_Noz$-u(^0TE0L4EE9t
U4CjRy7?^-;egg&uT}1{40KdO8&j0`b

literal 36
kcmeZq;$+}qfPe@l1_pa+28Q!OKt7PoZ@|EytH{6r05;kJ$N&HU