Well, one should attach :-)

Karl Ramberg wrote:
> 
> Added buttons to the top of Scamper to improve navigation
> speed. The Stop button is quite useful.
> To do: Optional if the button row is shown. Find the bookmarks enhancement,
> include that and add a bookmarks button.
> 
> New in v0.2
> ReloadButton
> Changed layout for all panes so less space is wasted, hopefully.
> Fixed editStartPage
> 
> Karl
-------------- next part --------------
'From Squeak2.8alpha of 19 February 2000 [latest update: #2310] on 11 June 2000 at 1:35:54 pm'!

!Scamper methodsFor: 'menus' stamp: 'kfr 6/11/2000 13:33'!
editStartPage
	| win textMorph |
	Smalltalk isMorphic ifFalse: [^ self inform: 'only works for morphic currently'].

	win _ SystemWindow labelled: 'edit Bookmark page'.
	win model: self.
	textMorph _ PluggableTextMorph on: self text: #startPage  accept: #startPage:.
	win addMorph: textMorph frame: (0 at 0 extent: 1 at 1).
	win openInWorld.
	^ true! !

!Scamper methodsFor: 'menus' stamp: 'kfr 6/11/2000 13:24'!
reload
	self stopEverything.
	self jumpToUrl: currentUrl
	
! !

!Scamper methodsFor: 'user interface' stamp: 'kfr 6/11/2000 13:26'!
openAsMorph
	"open a set of windows for viewing this browser"
	|win urlMorph buttonRow button |

	"create a window for it"
	win _ SystemWindow labelled: 'Scamper'.
	win model: self.
	win setProperty: #webBrowserView toValue: true.

	"create a button row"

	buttonRow _ AlignmentMorph new.
	buttonRow borderWidth: 0.
	buttonRow inset: 0.
buttonRow hResizing: #spaceFill.
	buttonRow centering: #center.
	buttonRow setProperty: #clipToOwnerWidth toValue: true.
	buttonRow addTransparentSpacerOfSize: (5 at 0).
	
	
	button _ SimpleButtonMorph new label: 'Back';
			 target: self;
			 color: Color transparent;
			 cornerStyle: #rounded;
			borderColor: Color black;
			 actionSelector: #back;
			 actWhen: #buttonUp;
			setBalloonText: 'Go back to previous URL in history'.
	buttonRow addMorphBack: button.
	buttonRow addTransparentSpacerOfSize: (5 at 0).
	
	button _ SimpleButtonMorph new label: 'Forward';
			target: self;
color: Color transparent;
			 cornerStyle: #rounded;
			borderColor: Color black;
			 actionSelector: #forward;
			 actWhen: #buttonUp;
			setBalloonText: 'Go forward to next URL in history'.
	buttonRow addMorphBack: button.
buttonRow addTransparentSpacerOfSize: (5 at 0).

button _ SimpleButtonMorph new label: 'Reload';
			target: self;
color: Color transparent;
			 cornerStyle: #rounded;
			borderColor: Color black;
			 actionSelector: #reload;
			 actWhen: #buttonUp;
			setBalloonText: 'Reload page'.
	buttonRow addMorphBack: button.
buttonRow addTransparentSpacerOfSize: (5 at 0).

	button _ SimpleButtonMorph new label: 'Home';
			 target: self;
color: Color transparent;
			 cornerStyle: #rounded;
			borderColor: Color black;
			 actionSelector: #visitStartPage;
			 actWhen: #buttonUp;
			setBalloonText: 'Go to start page.'.
	buttonRow addMorphBack: button.
buttonRow addTransparentSpacerOfSize: (5 at 0).	
	
	button _ SimpleButtonMorph new label: 'Stop!!';
			 target: self;
color: Color transparent;
			 cornerStyle: #rounded;
			borderColor: Color black;
			 actionSelector: #stopEverything;
			 actWhen: #buttonUp;
			setBalloonText: 'Stop loading page.'.
	buttonRow addMorphBack: button.

	
	win addMorph: buttonRow frame: (0 at 0 extent: 1 at 0.07).

	"create a view of the current url"
	urlMorph _  PluggableTextMorph on: self text: #currentUrl accept: #jumpToAbsoluteUrl:.
	urlMorph acceptOnCR: true.
	win addMorph: urlMorph frame: (0 at 0.07 extent: 1 at 0.06).

"create the text area"
	win addMorph: (WebPageMorph on: self bg: #backgroundColor text: #formattedPage readSelection: #formattedPageSelection menu: #menu:shifted:)
		frame: (0 at 0.13 extent: 1 at 0.81).

	"create a status view"
	win addMorph: (PluggableTextMorph on: self text: #status accept: nil) frame: (0 at 0.94 extent: 1.0 at 0.06).

	
	
	win openInWorld.
	^win! !