[squeak-dev] The Trunk: Tools-ct.1160.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri May 20 12:24:23 UTC 2022
Christoph Thiede uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-ct.1160.mcz
==================== Summary ====================
Name: Tools-ct.1160
Author: ct
Time: 20 May 2022, 2:24:04.560206 pm
UUID: 6d318114-13ab-2d43-ad0a-258807421ff7
Ancestors: Tools-mt.1158, Tools-ct.1158
Merges and comments Tools-ct.1158 (do not update process browsers from inactive projects).
=============== Diff against Tools-mt.1158 ===============
Item was changed:
----- Method: ProcessBrowser>>startAutoUpdate (in category 'updating') -----
startAutoUpdate
self isAutoUpdatingPaused
ifTrue: [^ autoUpdateProcess resume].
+
+ self isAutoUpdating ifFalse:
+ [| project |
+ project := Project current.
+ autoUpdateProcess :=
+ [[[self hasView] whileTrue:
+ [2 seconds wait.
+ project addDeferredUIMessage: [self updateProcessList]].
+ autoUpdateProcess := nil]
+ ensure: [self removeActionsForEvent: #aboutToEnterWorld]] fork.
+
+ "Do not update process browsers from inactive projects. Otherwise, an auto-updating process browser from a Morphic project would raise periodic errors after entering an MVC project, or an auto-updating process browser from a MVC project would cause spooky screen updates after entering a Morphic project."
+ self flag: #startStepping:. "A better solution strategy would use something like StepMessages for MVC, which however do not exist as of today."
+ project world
+ when: #aboutToLeaveWorld send: #pauseAutoUpdate to: self;
+ when: #aboutToEnterWorld send: #startAutoUpdate to: self].
+
+ self updateProcessList.!
- self isAutoUpdating
- ifFalse: [autoUpdateProcess := [[self hasView]
- whileTrue: [(Delay forSeconds: 2) wait.
- Project current addDeferredUIMessage: [self updateProcessList]].
- autoUpdateProcess := nil] fork].
- self updateProcessList
- !
More information about the Squeak-dev
mailing list
|