Embedded debugger: skip empty Phlow views [feenkcom/gtoolkit#3935]

feenkcom · Aug 5, 2024 · e226b23 · e226b23
1 parent 307d9f4
commit e226b23
Showing 1 changed file with 11 additions and 4 deletions.
diff --git a/src/GToolkit-Debugger/GtCoderEmbeddedDebuggerDetailsElement.class.st b/src/GToolkit-Debugger/GtCoderEmbeddedDebuggerDetailsElement.class.st
@@ -189,10 +189,17 @@ GtCoderEmbeddedDebuggerDetailsElement >> updateStackListElement [
 	aCompositeView views
 		ifEmpty: [ self updateWithEmptyView.
 			^ self ].
-	aCompositeView views first
-		asElementDo: [ :anElement | 
-			stackListElement
-				addChild: ((anElement exact: GtCoderEmbeddedDebuggerDropdownConfiguration contentExtent) asScalableElement) ]
+	aCompositeView views do: [ :aView |
+		aView ifItHasContent: [ 
+			aView asElementDo: [ :anElement | 
+				(anElement respondsTo: #exact:)
+					ifTrue: [
+						anElement exact: GtCoderEmbeddedDebuggerDropdownConfiguration contentExtent ]
+					ifFalse: [ 
+						anElement size:  GtCoderEmbeddedDebuggerDropdownConfiguration contentExtent ].
+				stackListElement 
+					addChild: anElement asScalableElement.
+				^ self ] ] ]
 ]
 
 { #category : #'private - updating' }