The Inbox: EToys-ct.346.mcz

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

The Inbox: EToys-ct.346.mcz

commits-2
A new version of EToys was added to project The Inbox:
http://source.squeak.org/inbox/EToys-ct.346.mcz

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

Name: EToys-ct.346
Author: ct
Time: 15 August 2019, 5:42:28.043735 pm
UUID: 7a1f0f8c-14fd-4140-b3b6-ec51e2da52e8
Ancestors: EToys-mt.345

Deprecate methods

=============== Diff against EToys-mt.345 ===============

Item was changed:
  ----- Method: CurrentProjectRefactoring class>>currentInterruptName: (in category 'revectoring to current') -----
  currentInterruptName: aString
  "
  CurrentProjectRefactoring currentInterruptName:
  "
+ ^Project current interruptName: aString!
- ^Project interruptName: aString!

Item was removed:
- ----- Method: DisplayScreen class>>hostWindowSize: (in category '*Etoys-Squeakland-host window access') -----
- hostWindowSize: aPoint
- self primitiveWindowSize: self hostWindowIndex width: aPoint x heigth: aPoint y
- !

Item was removed:
- ----- Method: Number>>cubed (in category '*Etoys-Squeakland-mathematical functions') -----
- cubed
- "Answer the cube of the receiver."
-
- ^ self * self * self!

Item was removed:
- ----- Method: SystemProgressMorph>>label:min:max: (in category '*Etoys-Squeakland-private') -----
- label: shortDescription min: minValue max: maxValue
- | slot range newBarSize barSize lastRefresh index |
- ((range := maxValue - minValue) <= 0 or: [(slot := self nextSlotFor: shortDescription) = 0])
- ifTrue: [^[:barVal| 0 ]].
- self openInWorld.
- activeSlots <= 1
- ifTrue: [self align: self fullBounds center with: Display boundingBox center].
- barSize := -1. "Enforces a inital draw of the morph"
- lastRefresh := 0.
- index := Preferences unifyNestedProgressBars ifFalse: [slot] ifTrue: [1].
- ^[:barVal |
- (barVal between: minValue and: maxValue) ifTrue: [
- newBarSize := (barVal - minValue / range * BarWidth) truncated.
- newBarSize > barSize ifTrue: [
- barSize := newBarSize.
- (bars at: index) barSize: barSize.
- Time primMillisecondClock - lastRefresh > 25 ifTrue: [
- self currentWorld displayWorld.
- lastRefresh := Time primMillisecondClock]]].
- slot]
- !