The Trunk: Tools-mt.974.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-mt.974.mcz

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

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

Name: Tools-mt.974
Author: mt
Time: 9 June 2020, 7:38:06.607541 pm
UUID: 74e1388d-f759-9c40-a4fc-18822d353360
Ancestors: Tools-mt.973

Hides "stack top" field in the debugger if there is none.

=============== Diff against Tools-mt.973 ===============

Item was changed:
  ----- Method: ContextVariablesInspector>>fieldStackTop (in category 'fields') -----
  fieldStackTop
- "Note that #valueGetter returns the actual printString to not confuse an empty stack top with nil or an empty string. So the value pane will just stay empty if there is no stack top and it will show 'nil' or '''' otherwise."
 
  ^ (self newFieldForType: #stackTop key: #stackTop)
  name: 'stack top' translated; emphasizeName;
+ valueGetter: [:context | context top];
- valueGetter: [:context | context actualStackSize > 0 ifTrue: [context top printString] ifFalse: ['']];
- printValueAsIs;
  valueGetterExpression: 'ThisContext top';
  yourself!

Item was removed:
- ----- Method: ContextVariablesInspector>>selectionOrObject (in category 'selection - convenience') -----
- selectionOrObject
- "Special treatment for #stackTop. See #fieldStackTop."
-
- ^ self selectedField
- ifNil: [super selectionOrObject]
- ifNotNil: [:field |
- field key = #stackTop
- ifTrue: [
- self object actualStackSize > 0
- ifTrue: [self object top]
- ifFalse: [self error: 'There is nothing on stack top.']]
- ifFalse: [super selectionOrObject]]
- !

Item was changed:
  ----- Method: ContextVariablesInspector>>streamBaseFieldsOn: (in category 'fields - streaming') -----
  streamBaseFieldsOn: aStream
 
  self object ifNil: [^ self].
+ aStream nextPut: self fieldSelf.
+ self object actualStackSize > 0
+ ifTrue: [aStream nextPut: self fieldStackTop].
+ aStream nextPut: self fieldAllTempVars.!
- aStream
- nextPut: self fieldSelf;
- nextPut: self fieldStackTop;
- nextPut: self fieldAllTempVars.!

Item was changed:
  ----- Method: FormInspector>>fieldPixels (in category 'fields') -----
  fieldPixels
 
  ^ (self newFieldForType: #misc key: #pixels)
  name: 'pixels' translated; emphasizeName;
+ printValueAsIs;
- shouldPrintValueAsIs: true;
  valueGetter: [:form | self embedForm: form inText: form printString];
  yourself!