The Trunk: ST80-mt.311.mcz

Marcel Taeumel uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-mt.311.mcz

==================== Summary ====================

Name: ST80-mt.311
Author: mt
Time: 16 June 2026, 11:32:01.132747 am
UUID: 54dd7a01-668e-4a45-9883-b4068fed23f9
Ancestors: ST80-mt.310

Extract scroll-bar viewing code to be used in clean-up from outside (i.e., MVCToolBuilder)

=============== Diff against ST80-mt.310 ===============

Item was changed:
  ----- Method: ScrollController>>controlInitialize (in category 'basic control sequence') -----
  controlInitialize
  	"Recompute scroll bars.  Save underlying image unless it is already saved."
  	| |
  	super controlInitialize.
  	scrollBar region: (0 @ 0 extent: 24 @ view apparentDisplayBox height).
  	scrollBar insideColor: view backgroundColor.
  	marker region: self computeMarkerRegion.
  	scrollBar := scrollBar align: scrollBar topRight with: view apparentDisplayBox topLeft.
  	marker := marker align: marker topCenter with: self upDownLine @ (scrollBar top + 2).
- 	savedArea isNil ifTrue: [savedArea := Form fromDisplay: scrollBar].
- 	scrollBar displayOn: Display.
  
  	"Show a border around yellow-button (menu) region"
  "
  	yellowBar := Rectangle left: self yellowLine right: scrollBar right + 1
  		top: scrollBar top bottom: scrollBar bottom.
  	Display border: yellowBar width: 1 mask: Form veryLightGray.
  "
+ 	self scrollBarShow.
  	self moveMarker
  !

Item was changed:
  ----- Method: ScrollController>>controlTerminate (in category 'basic control sequence') -----
  controlTerminate
  
  	super controlTerminate.
+ 	self scrollBarHide.!
- 	savedArea notNil 	
- 		ifTrue: 
- 			[savedArea displayOn: Display at: scrollBar topLeft.
- 			savedArea := nil].!

Item was added:
+ ----- Method: ScrollController>>scrollBarHide (in category 'scrolling') -----
+ scrollBarHide
+ 
+ 	savedArea notNil 	
+ 		ifTrue: 
+ 			[savedArea displayOn: Display at: scrollBar topLeft.
+ 			savedArea := nil].!

Item was added:
+ ----- Method: ScrollController>>scrollBarShow (in category 'scrolling') -----
+ scrollBarShow
+ 
+ 	savedArea isNil ifTrue: [savedArea := Form fromDisplay: scrollBar].
+ 	scrollBar displayOn: Display.!

Squeak-dev mailing list -- [email protected]
To unsubscribe send an email to [email protected]