'From Pharo0.1 of 16 May 2008 [Latest update: #10178] on 12 December 2008 at 1:18:45 pm'!

!OBButtonBar methodsFor: 'updating' stamp: 'gvc 12/12/2008 13:16'!
buttonFor: aCommand
	
	^ (PluggableButtonMorphPlus
		on: aCommand
		getState: nil
		action: (aCommand isActive ifTrue: [#execute] ifFalse: [#yourself])
		label: #buttonLabel)
			getEnabledSelector: #isActive;
			hResizing: #spaceFill;
			vResizing: #spaceFill;
			styleWith: OBMorphBuilder new;
			setBalloonText:  aCommand longDescription;
			yourself
! !

!OBButtonBar methodsFor: 'visual' stamp: 'gvc 12/12/2008 11:44'!
adoptPaneColor: aColor

	self submorphs do: [:ea | ea onColor: aColor offColor: aColor whiter].
	super adoptPaneColor: aColor.! !


!OBEnhancementButtonBar methodsFor: 'visual' stamp: 'gvc 12/12/2008 11:44'!
adoptPaneColor: aColor

	(self submorphs reject: [:ea | ea isKindOf: OBBackButtonMorph]) do: [:ea | ea onColor: aColor offColor: aColor whiter].
	super adoptPaneColor: aColor! !


!OBPaneScroller methodsFor: 'private' stamp: 'gvc 12/12/2008 12:00'!
basicUpdatePanes
	| builder | 
	builder := OBMorphBuilder new.
	panes := model 
		ifNil: [Array new]
		ifNotNil: [model columns collect: [:ea | ea buildOn: builder]].		
	self clearPanes.
	panes do: [:ea | self pushPane: ea].
	self adoptPaneColor: self paneColor
! !


!OBRadioButtonBar methodsFor: 'constructing' stamp: 'gvc 12/12/2008 11:42'!
adoptPaneColor: aColor
	
	super adoptPaneColor: aColor! !


!OBScrollBar methodsFor: 'accessing' stamp: 'gvc 12/12/2008 11:42'!
adoptPaneColor: aColor
	"Adopt the given pane color"
	super adoptPaneColor: aColor.
	aColor ifNil:[^self].
	self sliderColor: aColor.! !