'From etoys2.1 of 26 July 2007 [latest update: #1576] on 3 September 2007 at 3:13:32 am'!
"Change Set:		sugarNavsViewer-sw
Date:			1 September 2007
Author:			Scott Wallace

Make some of the sugar navigator-bar menu items available in its viewer."!


!Player methodsFor: 'scripts-standard' stamp: 'sw 9/3/2007 03:08'!
useGrayLook
	"Install the standard 'gray look' for the sugar nav bar."

	costume makeGray! !

!Player methodsFor: 'scripts-standard' stamp: 'sw 9/3/2007 03:08'!
useGreenLook
	"Install the standard 'green look' for the sugar nav bar."

	costume makeGreen! !

!Player methodsFor: 'slot getters/setters' stamp: 'sw 9/3/2007 03:08'!
getHighlightColor
	"Answer the value of the costume's highlightColor."

	^ costume highlightColor
! !

!Player methodsFor: 'slot getters/setters' stamp: 'sw 9/3/2007 03:08'!
setHighlightColor: aColor
	"Set the costume's highlightColor."

	costume highlightColor: aColor! !


!SugarNavTab methodsFor: 'accessing' stamp: 'sw 9/3/2007 03:09'!
highlightColor
	"Answer the highlight color used by buttons in the nav bar."

	^ referent highLightColor! !

!SugarNavTab methodsFor: 'accessing' stamp: 'sw 9/3/2007 03:09'!
highlightColor: aColor
	"Set the highlight color to be used with buttons in the sugar nav bar."

	^ referent highLightColor: aColor! !


!SugarNavTab class methodsFor: 'scripting' stamp: 'sw 9/1/2007 04:31'!
additionsToViewerCategories
	"Answer a list of (<categoryName> <list of category specs>) pairs that characterize the phrases this kind of morph wishes to add to various Viewer categories."

	^ #(

	(navigator (
(command useGreenLook 'use green look')
(command useGrayLook 'use gray look')
(slot highlightColor 'The highlight color for the navigator bar' Color readWrite Player getHighlightColor Player setHighlightColor:)
)))! !