Fix Spec example + little formatting

tinchodias · Mar 19, 2019 · c7d44c9 · c7d44c9
1 parent 31ecbb0
commit c7d44c9
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 8 deletions.
diff --git a/src/Hiedra/HiSimpleRenderer.class.st b/src/Hiedra/HiSimpleRenderer.class.st
@@ -370,8 +370,7 @@ HiSimpleRenderer >> renderNodes: nodes on: athensCanvas [
 
 	athensCanvas paintMode restoreAfter: [
 		"Set the stroke for all the nodes."
-		(athensCanvas setStrokePaint: nodeColor)
-			width: nodeBorderWidth.
+		(athensCanvas setStrokePaint: nodeColor) width: nodeBorderWidth.
 
 		nodes do: [ :each |
 			athensCanvas pathTransform restoreAfter: [

diff --git a/src/Hiedra/HiSpecExample.class.st b/src/Hiedra/HiSpecExample.class.st
@@ -78,12 +78,16 @@ HiSpecExample >> initializeWidgets [
 
 	"Configure hiedra controller"
 	hiedraColumnController := HiColumnController new.	
-		hiedraColumnController renderer
-			nodeRadius: 1.0;
-			nodeBorderWidth: 5.0;
-			rowHeight: rowHeight;
-			cellWidth: 8;
-			nodeColor: Smalltalk ui theme textColor.
+	"Increase the default value since Spec wants all Morphs initially."
+	hiedraColumnController pageSize: 1000.
+	hiedraColumnController renderer
+		rowHeight: rowHeight;
+		nodeRadius: 1.5;
+		nodeBorderWidth: 3.0;
+		arrowSize: 2.5;
+		nodeConnectionOffset: 3.5;
+		cellWidth: 8;
+		nodeColor: Smalltalk ui theme textColor.
 
 	"Configure columns"
 	tree columns:	{