'From Squeak3.7 of ''4 September 2004'' [latest update: #5989] on 26 March 2009 at 1:31:56 pm'!

!LightWidget methodsFor: 'drawing' stamp: 'jmv 2/23/2009 14:03'!
hide
	owner ifNil: [^ self].
	self visible: false! !

!LightWidget methodsFor: 'drawing' stamp: 'jmv 2/23/2009 14:03'!
show
	"Make sure this morph is on-stage."
	self visible: true! !

!LightWidget methodsFor: 'geometry testing' stamp: 'jmv 2/23/2009 14:28'!
containsPoint: aPoint
	| shadow |
	
	self isParallelRectangle ifTrue: [
		^bounds containsPoint: aPoint ].

	shadow _ self shadowForm.
	^(shadow pixelValueAt: aPoint - shadow offset) > 0! !

!LightWidget methodsFor: 'geometry testing' stamp: 'jmv 2/23/2009 14:14'!
isParallelRectangle
	"Answers true if the receiver fills exactly a rectangle aligned with Display borders"
	^false! !


!ButtonLW methodsFor: 'geometry testing' stamp: 'jmv 2/23/2009 14:14'!
isParallelRectangle
	"Answers true if the receiver fills exactly a rectangle aligned with Display borders"
	^true! !


!CheckBoxLW methodsFor: 'geometry testing' stamp: 'jmv 2/23/2009 14:14'!
isParallelRectangle
	"Answers true if the receiver fills exactly a rectangle aligned with Display borders"
	^true! !


!DialogLW methodsFor: 'geometry testing' stamp: 'jmv 2/23/2009 14:15'!
isParallelRectangle
	"Answers true if the receiver fills exactly a rectangle aligned with Display borders"
	^true! !


!EntryField2LW methodsFor: 'geometry testing' stamp: 'jmv 2/23/2009 14:18'!
isParallelRectangle
	"Answers true if the receiver fills exactly a rectangle aligned with Display borders"
	^true! !


!HoleLW methodsFor: 'geometry testing' stamp: 'jmv 2/23/2009 14:18'!
isParallelRectangle
	"Answers true if the receiver fills exactly a rectangle aligned with Display borders"
	^true! !


!ImageLW methodsFor: 'geometry testing' stamp: 'jmv 2/23/2009 14:18'!
isParallelRectangle
	"Answers true if the receiver fills exactly a rectangle aligned with Display borders"
	^true! !


!ListLW methodsFor: 'geometry testing' stamp: 'jmv 2/23/2009 14:15'!
isParallelRectangle
	"Answers true if the receiver fills exactly a rectangle aligned with Display borders"
	^true! !


!ListOldLW methodsFor: 'geometry testing' stamp: 'jmv 2/23/2009 14:24'!
isParallelRectangle
	"Answers true if the receiver fills exactly a rectangle aligned with Display borders"
	^true! !


!OldMorph methodsFor: 'drawing' stamp: 'jmv 2/23/2009 14:03'!
hide
	owner ifNil: [^ self].
	self visible: false! !

!OldMorph methodsFor: 'drawing' stamp: 'jmv 2/23/2009 14:03'!
show
	"Make sure this morph is on-stage."
	self visible: true! !


!ProgressBarLW methodsFor: 'geometry testing' stamp: 'jmv 2/23/2009 14:20'!
isParallelRectangle
	"Answers true if the receiver fills exactly a rectangle aligned with Display borders"
	^true! !


!SliderLW methodsFor: 'geometry testing' stamp: 'jmv 2/23/2009 14:20'!
isParallelRectangle
	"Answers true if the receiver fills exactly a rectangle aligned with Display borders"
	^true! !


!TextEntryFieldLW methodsFor: 'geometry testing' stamp: 'jmv 2/23/2009 14:21'!
isParallelRectangle
	"Answers true if the receiver fills exactly a rectangle aligned with Display borders"
	^true! !

