[etoys-dev] Etoys: Morphic-bf.7.mcz

[commits at source.squeak.org]

Bert Freudenberg uploaded a new version of Morphic to project Etoys:
http://source.squeak.org/etoys/Morphic-bf.7.mcz

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

Name: Morphic-bf.7
Author: bf
Time: 18 May 2010, 6:41:38 pm
UUID: 5b261837-fdb7-4c8b-a271-cde198b7feb9
Ancestors: Morphic-kfr.6

- make scrollbars wider if  biggerHandles preference is set

=============== Diff against Morphic-kfr.6 ===============

Item was changed:
  ----- Method: ScrollBar>>buttonExtent (in category 'geometry') -----
  buttonExtent
  	| size |
  	size := Preferences scrollBarsNarrow
+ 		ifTrue: [11]
+ 		ifFalse: [Preferences biggerHandles
+ 			ifFalse: [15]
+ 			ifTrue: [21]].
- 				ifTrue: [11]
- 				ifFalse: [15].
  	^ bounds isWide
  		ifTrue: [size @ self innerBounds height]
  		ifFalse: [self innerBounds width @ size]!

Item was changed:
  ----- Method: ScrollPane>>scrollBarThickness (in category 'geometry') -----
  scrollBarThickness
  	"Includes border"
  	| result |
  	result := Preferences scrollBarsNarrow
+ 		ifTrue: [10]
+ 		ifFalse: [Preferences biggerHandles
+ 			ifFalse: [14]
+ 			ifTrue: [20]].
- 				ifTrue: [10]
- 				ifFalse: [14].
  
  	self flatColoredScrollBarLook
  		ifFalse: [result := result + 2].
  	
  	^ result!