Clamp index in case all examples are active

hpi-swa-lab · Jul 4, 2023 · cb22938 · cb22938
1 parent 6bf0b7f
commit cb22938
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/packages/Babylonian-ProbeLog.package/BPProbeLogColumnMorph.class/class/menuSelectionItems.st b/packages/Babylonian-ProbeLog.package/BPProbeLogColumnMorph.class/class/menuSelectionItems.st
@@ -1,9 +1,11 @@
 accessing
 menuSelectionItems
 
-	| examples |
+	| examples firstInactiveIndex |
 	examples := (BPExamples value examples asSortedCollection: [:a :b | 
 			a isActive asNumber > b isActive asNumber ]) asOrderedCollection.
-	examples add: #- beforeIndex: (examples findFirst: [:anExample | anExample isActive not]).
+	firstInactiveIndex := examples findFirst: [:anExample | anExample isActive not].
+	(firstInactiveIndex == 0) ifTrue: [firstInactiveIndex := 1].
+	examples add: #- beforeIndex: firstInactiveIndex.
 
 	^ {BPNilExample new}, examples
diff --git a/packages/Babylonian-ProbeLog.package/BPProbeLogColumnMorph.class/methodProperties.json b/packages/Babylonian-ProbeLog.package/BPProbeLogColumnMorph.class/methodProperties.json
@@ -1,6 +1,6 @@
 {
 	"class" : {
-		"menuSelectionItems" : "joabe 7/4/2023 16:23",
+		"menuSelectionItems" : "joabe 7/4/2023 16:48",
 		"newForExample:context:" : "joabe 5/9/2023 17:38" },
 	"instance" : {
 		"addSwimlane" : "jb 1/31/2022 22:35",