2005.01
0
0
1
0
1038692351
0
0
0
0
144
My App (Classic)
miniBrowser1
My Application
4194304
2097152
4096
2048
miniBrowser.exe
0
miniBrowser
App
0
1
Application
0
1
1678936063
134217984
kFileQuitShortcut
0
0
1
0
Cmd+Q
134217984
kFileQuit
0
Quit
0
2
0
E&xit
5
0
E&xit
134217984
kEditClear
0
Clear
0
2
0
&Delete
5
0
&Delete
Window1
0
1
Window
0
FileQuit
134217984
Function FileQuit() As Boolean
Quit
End Function
Report
134217984
Sub Report(s as String)
//Used for Tracing events while designing / debugging
Dim d As New Date
ComboBox1.AddRow s + " " + d.ShortTime
End Sub
134217984
33
s as String
cancelling As Boolean
1678936063
0
True
False
True
True
True
False
True
Mini Browser
16777215
False
True
0
32000
32000
64
64
453
621
0
EditField
KeyDown
134217984
Function KeyDown(Key As String) As Boolean
//Accept Return key as "Go"
if (key = chr(3) or Key = chr(13)) and len(AddrField.Text) > 0 then
HTMLViewer1.LoadURL AddrField.Text
End If
End Function
PushButton
Action
134217984
Sub Action()
HTMLViewer1.LoadURL AddrField.Text
End Sub
HTMLViewer
Action
134217984
Function Action(item as MenuItem) As Boolean
//Report "Action"
End Function
CancelLoad
134217984
Function CancelLoad(URL as String) As Boolean
Dim maxHist as Integer
Dim lcUrl as String
//Report "CancelLoad "+ URL
lcUrl = Lowercase(URL)
//Some random Whitelist code to allow a few URLs for testing
If InStr(lcUrl,"real") = 0 and InStr(lcUrl,"rgbltd") = 0 Then
AddrField.Text = URLhistory.prevAddressBar
7
cancelling = True
MsgBox url + " refused"
Return True
End If
cancelling = false
URLhistory.Add URL
backButton.Enabled= URLhistory.validBack
FwdButton.Enabled=URLhistory.validFwd
End Function
Close
134217984
Sub Close()
//Report "Close"
End Sub
DocumentBegin
134217984
Sub DocumentBegin(URL as String)
//Report "DocumentBegin " + URL
//Display URL with visual clue we haven't finished loading
If Not cancelling then
AddrField.Text = ". . . " + URL
End If
End Sub
DocumentComplete
134217984
Sub DocumentComplete(URL as String)
//Report "DocumentComplete " + URL
//Display URL without leading ". . ." displayed when loading
AddrField.Text = URL
//Save URL from address bar in case next URL is cancelled
URLhistory.prevAddressBar = URL
End Sub
DocumentProgressChanged
134217984
Sub DocumentProgressChanged(URL as String, percentageComplete as Integer)
//Report "DocumentProgressChange " + URL + " " + str(percentageComplete) + "%"
//Consider adding a progress bar
End Sub
Error
134217984
Sub Error(errorNumber as Integer, errorMessage as String)
//Report "Error " + str(errorNumber) + " " + errorMessage
End Sub
NewWindow
134217984
Function NewWindow() As HTMLViewer
//Report "NewWindow"
//Popup or contextual-click - Make sure user knows.
If MsgBox("OK to open new window?",36,"PopUp Blocker") = 7 then
Return Nil
End If
//User is happy, so give him a new window
dim x as New Window1
Return x.HTMLViewer1
End Function
Open
134217984
Sub Open()
//Report "Open"
End Sub
SecurityChanged
134217984
Sub SecurityChanged(isSecure as Boolean)
//dim s as String
//if isSecure Then
//s ="Secure"
//Else
//s ="Insecure"
//End If
//Report "SecurityChanged " + s
End Sub
StatusChanged
134217984
Sub StatusChanged(newStatus as String)
//Report "StatusChanged" + " " + newStatus
StatusLbl.Text = newStatus
End Sub
TitleChanged
134217984
Sub TitleChanged(newTitle as String)
//Report "TitleChanged " + newTitle
Self.Title = newTitle
End Sub
ComboBox
StaticText
PushButton
Action
134217984
Sub Action()
HTMLViewer1.LoadURL URLhistory.Back
backButton.Enabled = URLhistory.validBack
FwdButton.Enabled = URLhistory.validFwd
End Sub
PushButton
Action
134217984
Sub Action()
HTMLViewer1.LoadURL URLhistory.Fwd
backButton.Enabled = URLhistory.validBack
FwdButton.Enabled = URLhistory.validFwd
End Sub
HistoryClass
EditField
EditField
0
0
http://www.realsoftware.com/
0
System
True
True
True
16777215
0
True
True
True
0
False
True
True
True
22
484
11
79
0
EditField
-2147483648
AddrField
0
PushButton
PushButton
0
System
True
True
True
Go
0
True
True
20
37
13
575
1
PushButton
-2147483648
GoButton
1
HTMLViewer
HTMLViewer
True
True
True
0
True
True
True
True
350
606
45
7
2
HTMLViewer
-2147483648
HTMLViewer1
2
ComboBox
ComboBox
0
System
True
True
0
True
0
True
True
True
20
606
425
7
3
ComboBox
-2147483648
ComboBox1
3
StaticText
StaticText
0
System
True
True
True
0
0
0
True
True
True
20
606
397
7
4
StaticText
-2147483648
StatusLbl
4
PushButton
PushButton
0
System
True
True
False
Back
0
20
30
11
7
5
PushButton
-2147483648
backButton
5
PushButton
PushButton
0
System
True
True
False
Fwd
0
20
30
11
43
6
PushButton
-2147483648
FwdButton
6
HistoryClass
HistoryClass
370
168
HistoryClass
-2147483648
URLhistory
7
MenuBar1
0
HistoryClass
0
1
0
Add
134217984
Sub Add(URL as String)
Dim maxHist as Integer
If Not fromHistory then // URL didn't come from Back/Fwd buttons so add to history
historyList.append URL
maxHist = ubound(historyList)
if maxHist > 100 then //Restrict length of history array
historyList.remove(0)
maxHist = maxHist - 1
End If
historyPos = maxHist //Remember where we are in history list (at the end)
mValidFwd= False //We're at the end of history list, so Fwd is invalid
End If
if historyPos > 0 then //We're not at start of history, so Back is valid
mValidBack = True
End If
fromHistory = false // We've finished doing Back or Forward, if we were doing them
End Sub
134217984
0
URL as String
Back
134217984
Function Back() As String
if historyPos > 0 Then
historyPos = historyPos - 1
fromHistory = True //Flag that we're in history - don't need to remember URL again
mValidFwd = True //There must now be somewhere to go forward to
if historyPos < 1 Then //We've gone all the way back
mValidBack = False //So Back is invalid
End If
End If
Return historyList(historyPos)
End Function
134217984
0
String
Fwd
134217984
Function Fwd() As String
Dim maxHist as Integer
maxHist = ubound(historyList)
if historyPos < maxHist Then //There's somewhere Forward to go
historyPos = historyPos + 1
fromHistory = True //Flag that we're in history - don't need to remember URL again
//HTMLViewer1.LoadURL historyList(historyPos)
if historyPos >= maxHist Then //We've gone right to the end
mValidFwd = False //So Fwd is now invalid
End If
End If
Return historyList(historyPos)
End Function
134217984
0
String
validBack
134217984
Function validBack() As Boolean
Return mValidBack
End Function
134217984
0
Boolean
validFwd
134217984
Function validFwd() As Boolean
Return mValidFwd
End Function
134217984
0
Boolean
fromHistory As Boolean
historyList() As String
historyPos As Integer
mValidFwd As Boolean
mValidBack As Boolean
prevAddressBar As String
Name
1
ID
Index
1
ID
-2147483648
Super
1
ID
Left
1
Position
0
Top
1
Position
0
0
200