Merge pull request #163 from jecisc/93-Add-source-code-in-a-tab-in-th…

…e-demo 93-Add-source-code-in-a-tab-in-the-demo
pharo-spec · Dec 27, 2018 · 648a681 · 648a681
2 parents 0f9663f + 070d8f2
commit 648a681
Show file tree

Hide file tree

Showing 3 changed files with 49 additions and 8 deletions.
diff --git a/src/Spec-Examples/SpecDemoPage.class.st b/src/Spec-Examples/SpecDemoPage.class.st
@@ -7,7 +7,7 @@ Class {
 	#instVars : [
 		'tabManager'
 	],
-	#category : #'Spec-Examples-Demo-Support'
+	#category : #'Spec-Examples-Demo'
 }
 
 { #category : #specs }
@@ -32,6 +32,23 @@ SpecDemoPage class >> priority [
 	^ 999
 ]
 
+{ #category : #initialization }
+SpecDemoPage >> codeFor: aClass [
+	^ TonelWriter sourceCodeOf: aClass
+]
+
+{ #category : #initialization }
+SpecDemoPage >> codeTab [
+	^ self newTab
+		label: 'Code';
+		icon: (self iconNamed: #changeUpdate);
+		presenter:
+			(self newCode
+				text: (self codeFor: self pageClass);
+				yourself);
+		yourself
+]
+
 { #category : #initialization }
 SpecDemoPage >> commentFor: aClass [
 
@@ -71,7 +88,8 @@ SpecDemoPage >> initializeWidgets [
 	"tabManager whenTabSelected: [ self updateTitle ]."
 	tabManager
 		addTab: self exampleTab;
-		addTab: self commentTab.
+		addTab: self commentTab;
+		addTab: self codeTab.
 ]
 
 { #category : #initialization }

diff --git a/src/Spec-Examples/SpecDemoSpacerPage.class.st b/src/Spec-Examples/SpecDemoSpacerPage.class.st
@@ -0,0 +1,28 @@
+"
+Description
+--------------------
+
+I am a demo on layout spacers
+"
+Class {
+	#name : #SpecDemoSpacerPage,
+	#superclass : #SpecDemoPage,
+	#category : #'Spec-Examples-Demo-Layouts'
+}
+
+{ #category : #specs }
+SpecDemoSpacerPage class >> pageName [
+	^ 'Spacers in layout'
+]
+
+{ #category : #specs }
+SpecDemoSpacerPage class >> priority [
+
+	^ 50
+]
+
+{ #category : #initialization }
+SpecDemoSpacerPage >> pageClass [
+
+	^ SpecSpacerDemo
+]
diff --git a/src/Spec-Examples/SpecSpacerDemo.class.st b/src/Spec-Examples/SpecSpacerDemo.class.st
@@ -12,7 +12,7 @@ I am a simple demo to show how to use spacers in Spec layouts.
 "
 Class {
 	#name : #SpecSpacerDemo,
-	#superclass : #SpecDemoPage,
+	#superclass : #ComposablePresenter,
 	#instVars : [
 		'input2',
 		'input3',
@@ -57,11 +57,6 @@ SpecSpacerDemo class >> example [
 	^ self new openWithSpec
 ]
 
-{ #category : #initialization }
-SpecSpacerDemo class >> pageName [
-	^ 'Spacers in layout'
-]
-
 { #category : #specs }
 SpecSpacerDemo class >> title [
 	^ 'Spacer demo'