Adds an examples browser to get an overview of all examples present in the system. Just send BPExamplesBrowser open

Author: codeZeilen

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

@@ -0,0 +1,4 @@
+opening
+open
+	
+	^ ToolBuilder open: self new

packages/Babylonian-UI.package/BPExamplesBrowser.class/class/open.st

@@ -0,0 +1,11 @@
+accessing
+actualExampleList
+	
+	^ exampleList ifNil: [
+		exampleList := self selectedPackage 
+							ifNotNil: [:p | p methods gather: [:m | m compiledMethod bpExamples]]
+							ifNil: [#()].
+		exampleList := exampleList sorted: [:e | 
+			self flag: #todo. "Sorry for that... too lazy to do it correctly right now,
+			writing browsers is boring --pre"
+			(e isActive ifTrue: ['aaa'] ifFalse: ['xxx']) , e exampleName]]

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

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

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

@@ -0,0 +1,11 @@
+toolbuilder
+buildExamplesListWith: builder
+	
+	| listSpec |
+	listSpec := builder pluggableListSpec new.
+	listSpec 
+		model: self;
+		list: #exampleList; 
+		getIndex: #exampleListIndex; 
+		setIndex: #exampleListIndex:.
+	^listSpec

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

@@ -0,0 +1,11 @@
+toolbuilder
+buildPackagesListWith: builder
+	
+	| listSpec |
+	listSpec := builder pluggableListSpec new.
+	listSpec 
+		model: self;
+		list: #packageList; 
+		getIndex: #packageListIndex; 
+		setIndex: #packageListIndex:.
+	^listSpec

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

@@ -0,0 +1,12 @@
+toolbuilder
+buildWith: builder
+	
+	| windowSpec max result |
+	self wantsOptionalButtons ifTrue:[max := 0.3] ifFalse:[max := 0.3].
+	windowSpec := self buildWindowWith: builder specs: {
+		(0@0 corner: 0.5@max) -> [self buildPackagesListWith: builder].
+		(0.5@0 corner: 1@max) -> [self buildExamplesListWith: builder].
+		(0@max corner: 1@1) -> [self buildCodePaneWith: builder].
+	}.
+	result := builder build: windowSpec.
+	^result

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

@@ -0,0 +1,5 @@
+accessing
+exampleList: anObject
+	
+	exampleList := anObject.
+	self changed: #exampleList.

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

@@ -0,0 +1,11 @@
+accessing
+exampleList
+	
+	^ self actualExampleList collect: [:e | |text|
+		text := (e method methodClass className asString , 
+			' - ' , 
+			e method selector asString , 
+			' - ' , 
+			e exampleName asString) asText.
+		e isActive ifTrue: [text allBold].
+		text]

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

@@ -0,0 +1,8 @@
+accessing
+exampleListIndex: anIndex
+	
+	exampleListIndex := anIndex.
+	contents := anIndex ~= 0 ifTrue: [self selectedMessage] ifFalse: [''].
+	self 
+		changed: #exampleListIndex;
+		contentsChanged