'From Squeak3.1alpha of 28 February 2001 [latest update: #4163] on 21 June 2001 at 7:47:32 pm'!
"Change Set: scamperStart-ls
Date: 17 June 2001
Author: Lex Spoon
Make Scamper start at local start page, instead of instantly downloading something."!
!Scamper methodsFor: 'browser urls' stamp: 'ls 6/18/2001 10:07'!
aboutScamperHTML
"return a string of HTML which introduces Scamper"
^'
About Scamper
Scamper
This is Scamper, a WWW browser for Squeak. Here are some URL''s to start at:
'! !
!Scamper methodsFor: 'browser urls' stamp: 'ls 6/17/2001 17:57'!
browserUrlContents: aRequest
aRequest = 'start' ifTrue: [
^MIMEDocument contentType: 'text/html' content: self startPage ].
aRequest = 'about' ifTrue: [
^MIMEDocument contentType: 'text/html' content: self aboutScamperHTML ].
^ nil! !
!Scamper class methodsFor: 'initialization' stamp: 'ls 6/17/2001 17:57'!
initialize
self StartUrl: 'browser:about'.
! !
Scamper initialize!