--------------4ADF480092DDE3904202DE8D
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit



Hello all,

I noticed that there is no differentiation between the Preferences flag for inboard scroll bars and left/right-side scroll bars. The enclosed changes clean this up so they are orthogonal -- there are now separate flags.

-- 
stp

Stephen Travis Pope  --  http://www.create.ucsb.edu/~stp
stp at expertcity.com   --  stp9 at cornell.edu
--------------4ADF480092DDE3904202DE8D
Content-Type: text/plain; charset=us-ascii;
 name="Left-In-ScrollBars.st"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="Left-In-ScrollBars.st"


'From Squeak 2.4b of April 23, 1999 on 29 April 1999 at 5:15:12 am'!

Preferences enable: #inboardScrollbars! 
Preferences enable: #leftHandScrollbars!

!ScrollPane methodsFor: 'initialization' stamp: 'stp 04/29/1999 05:15'!
initialize
	"Preferences enable: #inboardScrollbars"
	"Preferences enable: #leftHandScrollbars"

	super initialize.
	borderWidth := 2.
	borderColor := Color black.
	retractableScrollBar := (Preferences valueOfFlag: #inboardScrollbars) not.
	scrollBarOnLeft := (Preferences valueOfFlag: #leftHandScrollbars).

	scrollBar := ScrollBar new model: self slotName: 'scrollBar'.
	scrollBar borderWidth: 1; borderColor: Color black.
	retractableScrollBar ifFalse: [self addMorph: scrollBar].

	scroller := TransformMorph new color: Color transparent.
	scroller offset: -3 at 0.
	self addMorph: scroller.

	self on: #mouseEnter send: #mouseEnter: to: self.
	self on: #mouseLeave send: #mouseLeave: to: self.
	self extent: 150 at 120! !

--------------4ADF480092DDE3904202DE8D--