Creating sunburst and sunburst segments as echarts format and test for instance creation.

Apps/EchartsPharo/EcSunburst.class.st

@@ -7,6 +7,32 @@ Class {
 	#category : #'EchartsPharo-EchartsPharo'
 }
 
+{ #category : #accessing }
+EcSunburst >> asEcScript [
+
+	^ 'var mySunburst = echarts.init(document.getElementById(','''', 'sunburst', '''', '));', 
+Character cr asString,
+
+'var data = [',
+
+']',
+
+Character cr asString,
+'var option = {
+  series: {
+    type:', '''', 'sunburst', '''', ',
+    data: data,
+    radius: [0, ', '''', '90%', '''', '],
+    label: {
+      rotate:', '''', 'tangential', '''', ',
+      fontSize: 15,
+    }
+  }
+};
+
+mySunburst.setOption(option);'
+]
+
 { #category : #accessing }
 EcSunburst >> segments [
 

Apps/EchartsPharo/EcSunburstSegment.class.st

@@ -21,6 +21,25 @@ EcSunburstSegment class >> name: aName value: aNumber color: aColor children: an
 		yourself
 ]
 
+{ #category : #'instace creation' }
+EcSunburstSegment class >> rootName: aString [ 
+
+	^ self new
+		name: aString;
+		value: 0;
+		yourself
+]
+
+{ #category : #accessing }
+EcSunburstSegment >> asEcObjectString [
+
+	^ '{ name: ', name, ',
+	value: ', value asString, ',
+	color: ', '''', color asHTMLColor, '''', ',
+	children: []', Character cr asString, 
+	'}'
+]
+
 { #category : #accessing }
 EcSunburstSegment >> children [
 
@@ -45,6 +64,12 @@ EcSunburstSegment >> color: aColor [
 	color := aColor
 ]
 
+{ #category : #accessing }
+EcSunburstSegment >> isRoot [
+
+	^ value = 0
+]
+
 { #category : #accessing }
 EcSunburstSegment >> name [
 

Apps/EchartsPharo/EcSunburstSegmentTest.class.st

@@ -4,6 +4,15 @@ Class {
 	#category : #'EchartsPharo-EchartsPharo'
 }
 
+{ #category : #accessing }
+EcSunburstSegmentTest >> testSunburstSegmentRootCreation [
+
+	| sunburstSegment |
+	sunburstSegment := (EcSunburstSegment rootName: 'rootTest').
+	
+	self assert: {sunburstSegment name. sunburstSegment isRoot} equals: {'rootTest'. true}
+]
+
 { #category : #accessing }
 EcSunburstSegmentTest >> testSunbusrtSegmentInstanceCreation [