Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1186.mcz
==================== Summary ====================
Name: Tools-mt.1186 Author: mt Time: 20 January 2023, 6:50:26.795382 pm UUID: 19c7a120-92c1-fd49-a0fd-96a76f3285c1 Ancestors: Tools-mt.1185
Complements System-mt.1385
=============== Diff against Tools-mt.1185 ===============
Item was added: + ----- Method: Debugger>>initialExtentKey (in category 'initialize-release') ----- + initialExtentKey + + ^ { self class name . self isNotifier }!
Item was changed: ----- Method: Debugger>>openFullFromNotifier: (in category 'initialize-release') ----- openFullFromNotifier: topView "Create a full debugger to replace the given view."
+ RealEstateAgent rememberExtentFor: self. self initializeFull. topView model: nil. "so close won't release me." self breakDependents. ^ ToolBuilder default close: topView; open: self label: topView label "Keep the label."!
Item was changed: ----- Method: Inspector>>replaceInspectorWithExplorer (in category 'toolbuilder') ----- replaceInspectorWithExplorer "Switch to an explorer tool. If there are custom fields, the user can choose to not discard them, which will just spawn a new explorer tool besides this inspector." | window currentBounds | self flag: #todo. "ct: In the long term, we should try to communicate specific selectors (here: #expression) along the observer pattern for requests such as #acceptChanges or #wantToChange instead of exploiting contentsTyped etc." (self okToDiscardCustomFields and: [contentsTyped notNil ==> [self confirm: 'Changes have not been saved. Is it OK to cancel those changes?' translated orCancel: [^ self]]]) ifFalse: [^ self object explore]. self customFields removeAll. self changed: #contents. "Reset value pane contents before accepting all contents" self changed: #acceptChanges. "We copy the current state anyway. See below." + RealEstateAgent rememberExtentFor: self. currentBounds := ToolBuilder default class getBoundsForWindow: self containingWindow.
"Close first because MVC fiddles around with processes." self changed: #close. window := ToolSet explore: self object. "---- In MVC, the lines after this will not be executed ---"
window model setExpression: self expression. ToolBuilder default class setBoundsForWindow: window to: currentBounds.!
Item was added: + ----- Method: MessageSet>>initialExtentKey (in category 'initialize-release') ----- + initialExtentKey + + ^ { self class name . windowLabel hash}!
Item was changed: ----- Method: ObjectExplorer>>inspectObject (in category 'toolbuilder') ----- inspectObject "Switch to an inspector tool." | window currentBounds | + RealEstateAgent rememberExtentFor: self. currentBounds := ToolBuilder findDefault getBoundsForWindow: self containingWindow.
"Close first because MVC fiddles around with processes." self changed: #close. window := ToolSet inspect: self rootObject. "---- In MVC, the lines after this will not be executed ---"
window model setExpression: self expression. ToolBuilder findDefault setBoundsForWindow: window to: currentBounds.!
packages@lists.squeakfoundation.org