'From SqueakLight|II of 31 May 2008 [latest update: #7198] on 23 July 2008 at 5:17:14 pm'! !Morph methodsFor: 'private' stamp: 'ar 11/13/2000 01:43'! privateRemoveMorph: aMorph "Private!! Should only be used by methods that maintain the ower/submorph invariant." self isInWorld ifTrue:[self invalidRect: aMorph fullBounds from: aMorph]. submorphs _ submorphs copyWithout: aMorph. self layoutChanged. ! ! !ScrollPane methodsFor: 'scrolling' stamp: 'RAA 6/8/2000 12:34'! hideScrollBar (submorphs includes: scrollBar) ifFalse: [^self]. self privateRemoveMorph: scrollBar. scrollBar privateOwner: nil. retractableScrollBar ifFalse: [self resetExtent].! ! !ScrollPane methodsFor: 'scrolling' stamp: 'JW 2/3/2001 10:19'! hideScrollBarIndefinitely "Get rid of scroll bar for short panes that don't want it shown." self setProperty: #noScrollBarPlease toValue: true. self hideScrollBar.! !