The Trunk: Tools-ct.880.mcz

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

The Trunk: Tools-ct.880.mcz

commits-2
Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-ct.880.mcz

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

Name: Tools-ct.880
Author: ct
Time: 16 August 2019, 3:01:31.116735 am
UUID: e5349a54-c042-ea41-9400-f109f268dd70
Ancestors: Tools-mt.877

Fix a scaling bug in Debugger: If the global scaleFactor is different from 1.0, SavedExtent was changed each time a Debugger is closed (because of the multiplication in RealEstateAgent class>>initialFrameFor:initialExtent:world:)

=============== Diff against Tools-mt.877 ===============

Item was changed:
  ----- Method: Debugger>>windowIsClosing (in category 'initialize') -----
  windowIsClosing
  "My window is being closed; if debugging save its extent.  Clean up.  Restart the low space watcher."
  interruptedProcess ifNil: [ ^ self ].
  SavedExtent ifNotNil:
  [ self dependents
  detect:
  [ : each | each isWindowForModel: self ]
  ifFound:
  [ : topWindow | | isDebuggerNotNotifier |
  isDebuggerNotNotifier := self dependents anySatisfy:
  [ : each | each isTextView ].
+ isDebuggerNotNotifier ifTrue: [
+ SavedExtent := (topWindow extent / RealEstateAgent scaleFactor) rounded ] ]
- isDebuggerNotNotifier ifTrue: [ SavedExtent := topWindow extent ] ]
  ifNone: [ "do nothing" ] ].
  interruptedProcess terminate.
  interruptedProcess := interruptedController := contextStack := receiverInspector := contextVariablesInspector := nil.
  "Restart low space watcher."
  Smalltalk installLowSpaceWatcher!