Adds the example instances browser

Author: codeZeilen

packages/Babylonian-UI.package/BPExampleInstancesBrowser.class/README.md

@@ -0,0 +1,8 @@
+accessing
+actualExampleList
+	"We misuse example list for example instance methods --pre"
+	^ exampleList ifNil: [
+		exampleList := self selectedPackage 
+							ifNotNil: [:aPackage | aPackage methods select: [:aMethod | aMethod compiledMethod isExampleInstanceMethod]]
+							ifNil: [#()].
+		exampleList := exampleList sorted: [:aMethod | aMethod selector] ascending]

packages/Babylonian-UI.package/BPExampleInstancesBrowser.class/instance/actualExampleList.st

@@ -0,0 +1,7 @@
+accessing
+actualPackageList
+	
+	^ packageList ifNil: [
+		packageList := (SystemNavigation default allExampleInstanceMethods 
+			collect: [:aMethod | aMethod  packageInfo]) asSet 
+			sorted: [:aPackage | aPackage name] ascending]

packages/Babylonian-UI.package/BPExampleInstancesBrowser.class/instance/actualPackageList.st

@@ -0,0 +1,7 @@
+accessing
+exampleList
+	
+	^ self actualExampleList collect: [:methodReference | 
+		methodReference compiledMethod methodClass printString , 
+		' ' , 
+		methodReference compiledMethod exampleInstanceName]

packages/Babylonian-UI.package/BPExampleInstancesBrowser.class/instance/exampleList.st

@@ -0,0 +1,4 @@
+private - message list
+selection
+	
+	^ self selectedExample ifNotNil: [:aMethodReference | aMethodReference]

packages/Babylonian-UI.package/BPExampleInstancesBrowser.class/instance/selection.st

@@ -0,0 +1,8 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"actualExampleList" : "pre 1/10/2023 12:32",
+		"actualPackageList" : "pre 1/10/2023 12:28",
+		"exampleList" : "pre 1/10/2023 12:37",
+		"selection" : "pre 1/10/2023 12:34" } }

packages/Babylonian-UI.package/BPExampleInstancesBrowser.class/methodProperties.json

@@ -0,0 +1,14 @@
+{
+	"category" : "Babylonian-UI-Tools",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		 ],
+	"name" : "BPExampleInstancesBrowser",
+	"pools" : [
+		 ],
+	"super" : "BPExamplesBrowser",
+	"type" : "normal" }

packages/Babylonian-UI.package/BPExampleInstancesBrowser.class/properties.json

@@ -1,5 +1,7 @@
 accessing
 actualPackageList
 
-	^ packageList ifNil: [packageList := (SystemNavigation default allExamples collect: [:anExample | 
-			anExample method methodClass package]) asSet sorted: [:aPackage | aPackage name] ascending]
+	^ packageList ifNil: [
+		packageList := (SystemNavigation default allExamples 
+			collect: [:anExample | anExample method methodClass package]) asSet 
+			sorted: [:aPackage | aPackage name] ascending]

packages/Babylonian-UI.package/BPExamplesBrowser.class/instance/actualPackageList.st

@@ -3,7 +3,7 @@
 		"open" : "pre 10/13/2020 15:15" },
 	"instance" : {
 		"actualExampleList" : "pre 2/15/2021 11:15",
-		"actualPackageList" : "pre 2/15/2021 11:15",
+		"actualPackageList" : "pre 1/10/2023 12:26",
 		"buildExamplesListWith:" : "pre 10/13/2020 14:49",
 		"buildPackagesListWith:" : "pre 10/13/2020 14:45",
 		"buildWith:" : "pre 10/13/2020 14:51",