'From Moshi of 3 March 2007 [latest update: #604] on 9 January 2008 at 2:00:45 am'!
"Change Set:		notYetImp-sw
Date:			14 December 2007
Author:			Scott Wallace

An improvement to not-yet-implemented -- instead of just a simple informer, also now offers the user the opportunity to go right to the stub method to get on with implementing it."!


!Object methodsFor: 'user interface' stamp: 'sw 12/14/2007 18:12'!
notYetImplemented
	"This method was invoked from a method whose implementation is missing.  Inform the user, and give the user a chance to implement it at this time."

	| aMenu |
	aMenu := MenuMorph new defaultTarget: self.
	aMenu addTitle: ( 'Not yet implemented' translated, ' (', thisContext sender printString, ')').
	aMenu add: 'okay' translated action: #yourself.
	aMenu addLine.
	aMenu add: 'implement it now...' target: SystemNavigation default selector: #openSingleMethodBrowserFor: argument: thisContext sender.
	aMenu popUpInWorld! !


!SystemNavigation methodsFor: '*green' stamp: 'sw 12/14/2007 18:46'!
openSingleMethodBrowserFor: aMessage
	"Open a single-message browser"

	| mr |
	mr _ MethodReference new
		setStandardClass: aMessage method sourceClass
		methodSymbol: aMessage selector.

	self browseSingleMessage: mr! !