'From Squeak2.9alpha of 30 August 2000 [latest update: #3193] on 22 January 2001 at 4:18:03 pm'! "Change Set: ScrollPaneEventFix Date: 22 January 2001 Author: Jesse Welton Little fix of circular circular event logic in ScrollPane and TwoWayScrollPane, due to lines self on: #mouseEnter send: #mouseEnter: to: self. self on: #mouseLeave send: #mouseLeave: to: self. in #initialize. These lines are extraneous because the EventHandler mechanism is invoked by the shadowed definition of #mouseEnter: in Morph."! !ScrollPane methodsFor: 'initialization' stamp: 'JW 1/22/2001 16:05'! initialize retractableScrollBar _ (Preferences valueOfFlag: #inboardScrollbars) not. scrollBarOnLeft _ (Preferences valueOfFlag: #scrollBarsOnRight) not. super initialize. hasFocus _ false. borderWidth _ 2. borderColor _ Color black. scrollBar := ScrollBar new model: self slotName: 'scrollBar'. scrollBar borderWidth: 1; borderColor: Color black. scroller := TransformMorph new color: Color transparent. scroller offset: -3@0. self addMorph: scroller. retractableScrollBar ifFalse: [self addMorph: scrollBar]. self extent: 150@120! ! !TwoWayScrollPane methodsFor: 'initialization' stamp: 'JW 1/22/2001 16:06'! initialize | | super initialize. borderWidth _ 2. borderColor _ #inset. yScrollBar := ScrollBar new model: self slotName: 'yScrollBar'. yScrollBar borderWidth: 2; borderColor: #inset. self addMorph: yScrollBar. xScrollBar := ScrollBar new model: self slotName: 'xScrollBar'. xScrollBar borderWidth: 2; borderColor: #inset. self addMorph: xScrollBar. scroller := TransformMorph new color: Color transparent. scroller offset: 0@0. self addMorph: scroller. self extent: 150@120! !