'From Squeak2.8alpha of 13 January 2000 [latest update: #1974] on 30 April 2000 at 8:59:04 pm'!
"Change Set:		PlusMinusBoxes-dew
Date:			30 April 2000
Author:			Doug Way

Changes the hierarchy widget (SimpleHierarchicalListMorph) to use Windows-style plus-minus boxes instead of Mac-style arrows to represent expanded/unexpanded state."!


!IndentingListItemMorph methodsFor: 'drawing' stamp: 'dew 4/30/2000 20:57'!
drawToggleOn: aCanvas in: aRectangle

	| aForm |

	aCanvas 
		fillRectangle: (bounds withRight: aRectangle right)
		color: container color.
	complexContents hasContents ifFalse: [^self].
	aForm _ isExpanded 
		ifTrue: [container expandedForm]
		ifFalse: [container notExpandedForm].
	^aCanvas 
		image: aForm 
		at: aRectangle topLeft + (0@1)
		sourceRect: aForm boundingBox 
		rule: Form paint! !


!SimpleHierarchicalListMorph methodsFor: 'as yet unclassified' stamp: 'dew 4/30/2000 20:53'!
expandedForm

	^expandedForm ifNil: [expandedForm _ 
Form
	extent: 9@9
	fromArray: #(2r111111111e23 2r100000001e23 2r100000001e23 2r100000001e23 2r101111101e23 2r100000001e23 2r100000001e23 2r100000001e23 2r111111111e23)
	offset: 0@0.
	expandedForm
	].

! !

!SimpleHierarchicalListMorph methodsFor: 'as yet unclassified' stamp: 'dew 4/30/2000 20:53'!
notExpandedForm

	^notExpandedForm ifNil: [notExpandedForm _ 
Form
	extent: 9@9
	fromArray: #(2r111111111e23 2r100000001e23 2r100010001e23 2r100010001e23 2r101111101e23 2r100010001e23 2r100010001e23 2r100000001e23 2r111111111e23)
	offset: 0@0.
	notExpandedForm
	].
! !