'From Cuis 1.0 of 2 July 2009 [latest update: #215] on 9 July 2009 at 10:10 am'!

!PluggableButtonMorph methodsFor: 'initialize-release' stamp: 'jmv 7/9/2009 10:03'!
on: anObject getState: getStateSel action: actionSel label: labelSelOrString menu: menuSel

	self model: anObject.
	getStateSelector _ getStateSel.
	actionSelector _ actionSel.
	getMenuSelector _ menuSel.
	labelSelOrString isSymbol ifTrue: [
		getLabelSelector _ labelSelOrString.
		self update: labelSelOrString ]
	ifFalse: [
		self label: labelSelOrString ]
! !


!PluggableButtonMorph class methodsFor: 'instance creation' stamp: 'jmv 7/9/2009 10:02'!
on: anObject getState: getStateSel action: actionSel label: labelSelOrString

	^ self new
		on: anObject
		getState: getStateSel
		action: actionSel
		label: labelSelOrString
		menu: nil
! !

!PluggableButtonMorph class methodsFor: 'instance creation' stamp: 'jmv 7/9/2009 10:02'!
on: anObject getState: getStateSel action: actionSel label: labelSelOrString menu: menuSel

	^ self new
		on: anObject
		getState: getStateSel
		action: actionSel
		label: labelSelOrString
		menu: menuSel
! !

