'From Cuis 2.0 of 12 February 2010 [latest update: #418] on 23 February 2010 at 4:55:32 pm'!

!MenuMorph class methodsFor: 'images' stamp: 'jmv 2/23/2010 16:52'!
pushPinImage
	"Answer the push-pin image, creating and caching it at this time if it is absent"
	"Created using:
	Clipboard default clipboardText:
	 	((ByteArray streamContents:[:s |
			PNGReadWriter
				putForm: (Form fromFileNamed: 'pushPinImage.png')
				onStream: s]) asString base64Encoded)
	"
	^ PushPinImage ifNil: [ PushPinImage _ (

Form fromBinaryStream: 'iVBORw0KGgoAAAANSUhEUgAAAA0AAAAOCAYAAAD0f5bSAAACGklEQVR4XoWSX0hTYRjGT+d8
5ztnZ1qToGJQoankAtuaIyGsnBdR3mQSFtMIAonSWRcy0quu8ioc2lxeCGIQSRetckNG2FUX
lnZZMeefOfFmdWMQdfPruK7EQS+8Nx/83ud53vdTStX0i2lqa2tobmnhdMtFBgYHUf5Xbreb
V6kUrYl1jNFlZOt96k/6WVldKQ1nMhl0XedzZg0tnkexWx3LoZ+9QcDvLw3lcjkcpsHrmRTV
Uzn2xDdQY+vIoY8Iy0U0Gv0HFgoFEokEi4uLTE5O4nBaXLt+laGF7za0rZS3VTcxPefwnvKh
5PN5fD4fgUAATdOQmo44UInp3Etv/A3mUxuKbaDbLZq7MGwXSiQSobOzk46ODhyG5HZPL+6x
rxiPFhBPsojYKjL6DTm6hKz04XK5UNraLtNz9w7J2STJ5Ax/fv+i6eUmIm7nGF7CrGlEN8rQ
rH1FJ+FwGKW/P0KV/wwP53/wLveTBx8KOGJryMdfMLwXcDrK6bvXRygUYmJigq2tLZT5Twuo
uoEcmLWt5JHbCpG3iEPVqKqGbk+fmnq2e9UnPB5E/XnU0RXE2DLm8SZ0Vdh2dBtUCQaDO6Fs
Nkt5WRlSGBjBW4jhTDG06HuOrA8ihChudgfU3d2NZVm0t1+xj2qhH6zC9F5CHvMiDGfxd4yM
jOyE6urqSKfTxcf3c3N0dd3kyOGj7K+ooKGhkfHx8V15/gJScSdVQWdhoAAAAABJRU5ErkJg
gg==' base64Decoded asByteArray readStream

	)]! !

!MenuMorph class methodsFor: 'as yet unclassified' stamp: 'jmv 2/23/2010 16:54'!
initialize
	PushPinImage _ nil! !

MenuMorph initialize!

!MenuMorph class reorganize!
('example' example example2)
('images' closeBoxImage pushPinImage)
('instance creation' entitled:)
('class initialization')
('as yet unclassified' initialize)
!

"Postscript:
Leave the line above, and replace the rest of this comment by a useful one.
Executable statements should follow this comment, and should
be separated by periods, with no exclamation points (!!).
Be sure to put any further comments in double-quotes, like this one."
MenuMorph initialize!

