The Trunk: MorphicExtras-mt.271.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
2 messages Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: MorphicExtras-mt.271.mcz

commits-2
Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-mt.271.mcz

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

Name: MorphicExtras-mt.271
Author: mt
Time: 19 February 2020, 5:05:20.185123 pm
UUID: 2c003dbb-22b3-df4a-b378-d365e5050d63
Ancestors: MorphicExtras-mt.270

Slightly increase default size of thumbnails (for flaps) and make them aware of scaling. Feels way better in Etoys now to work with viewers. I can actually hit them now. :-)

=============== Diff against MorphicExtras-mt.270 ===============

Item was changed:
  ----- Method: ThumbnailMorph>>initialize (in category 'initialization') -----
  initialize
  "Initialize the receiver, obeying a #nominalExtent property if I  
  have one"
  | anExtent |
  super initialize.
  ""
  anExtent := self
  valueOfProperty: #nominalExtent
+ ifAbsent: [((32 @ 32) * RealEstateAgent scaleFactor) truncated].
- ifAbsent: [25 @ 25].
  self
  extent: (anExtent
  )!


Reply | Threaded
Open this post in threaded view
|

Re: The Trunk: MorphicExtras-mt.271.mcz

marcel.taeumel

Am 19.02.2020 17:05:31 schrieb [hidden email] <[hidden email]>:

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

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

Name: MorphicExtras-mt.271
Author: mt
Time: 19 February 2020, 5:05:20.185123 pm
UUID: 2c003dbb-22b3-df4a-b378-d365e5050d63
Ancestors: MorphicExtras-mt.270

Slightly increase default size of thumbnails (for flaps) and make them aware of scaling. Feels way better in Etoys now to work with viewers. I can actually hit them now. :-)

=============== Diff against MorphicExtras-mt.270 ===============

Item was changed:
----- Method: ThumbnailMorph>>initialize (in category 'initialization') -----
initialize
"Initialize the receiver, obeying a #nominalExtent property if I
have one"
| anExtent |
super initialize.
""
anExtent := self
valueOfProperty: #nominalExtent
+ ifAbsent: [((32 @ 32) * RealEstateAgent scaleFactor) truncated].
- ifAbsent: [25 @ 25].
self
extent: (anExtent
)!