Merge e7e4dc7 into 0f40cd3

src/Material-Design-Lite-Demo/MDLAlertsScreen.class.st

@@ -1,7 +1,4 @@
 "
-Description
---------------------
-
 Component to display some feedback to the user.
 "
 Class {
@@ -10,11 +7,6 @@ Class {
 	#category : #'Material-Design-Lite-Demo-Extensions'
 }
 
-{ #category : #accessing }
-MDLAlertsScreen class >> description [
-	^ 'Component to display some feedback to the user.'
-]
-
 { #category : #accessing }
 MDLAlertsScreen class >> icon [
 	^ 'compAlertsPng'

src/Material-Design-Lite-Demo/MDLAnchorButtonsScreen.class.st

@@ -1,20 +1,12 @@
 "
-Description
---------------------
-
-I'm the screen representing the anchor buttons
+Variations on Material Design buttons like anchors.
 "
 Class {
 	#name : #MDLAnchorButtonsScreen,
 	#superclass : #MDLComponentDemo,
 	#category : #'Material-Design-Lite-Demo-Components'
 }
 
-{ #category : #sections }
-MDLAnchorButtonsScreen class >> description [
-	^ 'Variations on Material Design buttons like anchors.'
-]
-
 { #category : #accessing }
 MDLAnchorButtonsScreen class >> icon [
 	^ 'compAnchorPng'

src/Material-Design-Lite-Demo/MDLBadgesScreen.class.st

@@ -1,20 +1,12 @@
 "
-I am the screen representing badges.
-
-There are 2 different kinds of badges:  text or icon badges.
-
+Small status descriptors for UI elements.
 "
 Class {
 	#name : #MDLBadgesScreen,
 	#superclass : #MDLComponentDemo,
 	#category : #'Material-Design-Lite-Demo-Components'
 }
 
-{ #category : #accessing }
-MDLBadgesScreen class >> description [
-	^ 'Small status descriptors for UI elements.'
-]
-
 { #category : #accessing }
 MDLBadgesScreen class >> icon [
 	^ 'compbadgesPng'

src/Material-Design-Lite-Demo/MDLButtonsScreen.class.st

@@ -1,17 +1,12 @@
 "
-I'm the screen representing the buttons.
+Variations on Material Design buttons.
 "
 Class {
 	#name : #MDLButtonsScreen,
 	#superclass : #MDLComponentDemo,
-	#category : 'Material-Design-Lite-Demo-Components'
+	#category : #'Material-Design-Lite-Demo-Components'
 }
 
-{ #category : #sections }
-MDLButtonsScreen class >> description [
-	^ 'Variations on Material Design buttons.'
-]
-
 { #category : #accessing }
 MDLButtonsScreen class >> icon [
 	^ 'compbuttonsPng'

src/Material-Design-Lite-Demo/MDLCalendarScreen.class.st

@@ -1,20 +1,15 @@
 "
-Screen to render MDLCalendarWidget examples
+A calendar in Material Design style to pick a date
 "
 Class {
 	#name : #MDLCalendarScreen,
 	#superclass : #MDLWidgetDemo,
 	#instVars : [
 		'selectedDay'
 	],
-	#category : 'Material-Design-Lite-Demo-Widgets'
+	#category : #'Material-Design-Lite-Demo-Widgets'
 }
 
-{ #category : #accessing }
-MDLCalendarScreen class >> description [
-	^ 'A calendar in Material Design style to pick a date'
-]
-
 { #category : #accessing }
 MDLCalendarScreen class >> icon [
 	^ #compcalendarPng

src/Material-Design-Lite-Demo/MDLCardWidgetScreen.class.st

@@ -1,17 +1,12 @@
 "
-Screen to render MDLCardWidget examples
+A Card widget to make easy the use of the cards.
 "
 Class {
 	#name : #MDLCardWidgetScreen,
 	#superclass : #MDLWidgetDemo,
-	#category : 'Material-Design-Lite-Demo-Widgets'
+	#category : #'Material-Design-Lite-Demo-Widgets'
 }
 
-{ #category : #accessing }
-MDLCardWidgetScreen class >> description [
-	^ 'A Card widget to make easy the use of the cards.'
-]
-
 { #category : #accessing }
 MDLCardWidgetScreen class >> icon [
 	^ 'compcardsPng'

src/Material-Design-Lite-Demo/MDLCardsScreen.class.st

@@ -1,17 +1,12 @@
 "
-I am the screen representing cards.
+Self-contained pieces of paper with data
 "
 Class {
 	#name : #MDLCardsScreen,
 	#superclass : #MDLComponentDemo,
-	#category : 'Material-Design-Lite-Demo-Components'
+	#category : #'Material-Design-Lite-Demo-Components'
 }
 
-{ #category : #accessing }
-MDLCardsScreen class >> description [
-	^ 'Self-contained pieces of paper with data'
-]
-
 { #category : #accessing }
 MDLCardsScreen class >> icon [
 		^ 'compcardsPng'

src/Material-Design-Lite-Demo/MDLChipsScreen.class.st

@@ -1,17 +1,12 @@
 "
-I am the screen representing chips.
+Chips represent complex entities in small blocks, such as a contact.
 "
 Class {
 	#name : #MDLChipsScreen,
 	#superclass : #MDLComponentDemo,
-	#category : 'Material-Design-Lite-Demo-Components'
+	#category : #'Material-Design-Lite-Demo-Components'
 }
 
-{ #category : #accessing }
-MDLChipsScreen class >> description [
-	^ 'Chips represent complex entities in small blocks, such as a contact.'
-]
-
 { #category : #accessing }
 MDLChipsScreen class >> icon [
 	^ 'compchipsPng'

src/Material-Design-Lite-Demo/MDLComponentDemo.class.st

@@ -9,3 +9,8 @@ Class {
 	#superclass : #MDLDemoScreen,
 	#category : #'Material-Design-Lite-Demo-Components'
 }
+
+{ #category : #testing }
+MDLComponentDemo class >> isAbstract [
+	^ self = MDLComponentDemo
+]

src/Material-Design-Lite-Demo/MDLDemoScreen.class.st

@@ -16,9 +16,7 @@ Class {
 
 { #category : #accessing }
 MDLDemoScreen class >> description [
-	"I should return a String that is the global description of the component."
-
-	^ self subclassResponsibility
+	^ self comment
 ]
 
 { #category : #accessing }

src/Material-Design-Lite-Demo/MDLDialogsScreen.class.st

@@ -1,17 +1,12 @@
 "
-I'm representing dialogs screen
+Modal windows for dedicated user input.
 "
 Class {
 	#name : #MDLDialogsScreen,
 	#superclass : #MDLComponentDemo,
-	#category : 'Material-Design-Lite-Demo-Components'
+	#category : #'Material-Design-Lite-Demo-Components'
 }
 
-{ #category : #accessing }
-MDLDialogsScreen class >> description [
-	^ 'Modal windows for dedicated user input.'
-]
-
 { #category : #accessing }
 MDLDialogsScreen class >> icon [
 		^ 'compdialogPng'

src/Material-Design-Lite-Demo/MDLElevationScreen.class.st

@@ -1,20 +1,12 @@
 "
-Description
---------------------
-
-I am a screen presenting the elevations properties of MDL.
+Elevation is the relative depth, or distance, between two surfaces along the z-axis.
 "
 Class {
 	#name : #MDLElevationScreen,
 	#superclass : #MDLComponentDemo,
 	#category : #'Material-Design-Lite-Demo-Components'
 }
 
-{ #category : #accessing }
-MDLElevationScreen class >> description [
-	^ 'Elevation is the relative depth, or distance, between two surfaces along the z-axis.'
-]
-
 { #category : #accessing }
 MDLElevationScreen class >> icon [
 	^ 'elevationPng'

src/Material-Design-Lite-Demo/MDLExpansionPanelScreen.class.st

@@ -1,17 +1,12 @@
 "
-Demo screen for the MDLExpansionPanel.
+Implementation of expansion panel for MDL.
 "
 Class {
 	#name : #MDLExpansionPanelScreen,
 	#superclass : #MDLWidgetDemo,
 	#category : #'Material-Design-Lite-Demo-Widgets'
 }
 
-{ #category : #accessing }
-MDLExpansionPanelScreen class >> description [
-	^ 'Implementation of expansion panel for MDL.'
-]
-
 { #category : #accessing }
 MDLExpansionPanelScreen class >> icon [
 	self flag: #TODO. "Choose better icon"

src/Material-Design-Lite-Demo/MDLExtensionsDemo.class.st

@@ -10,7 +10,7 @@ Class {
 	#category : #'Material-Design-Lite-Demo-Extensions'
 }
 
-{ #category : #accessing }
-MDLExtensionsDemo class >> icon [
-	^ 'logoSvg'
+{ #category : #testing }
+MDLExtensionsDemo class >> isAbstract [
+	^ self = MDLExtensionsDemo
 ]

src/Material-Design-Lite-Demo/MDLLayoutScreen.class.st

@@ -1,19 +1,12 @@
 "
-I'm the screen representing different layouts
-
-See Navigation, Tabs, Footer and Grid sections for more informations
+Building blocks for constructing a page layout.
 "
 Class {
 	#name : #MDLLayoutScreen,
 	#superclass : #MDLComponentDemo,
 	#category : #'Material-Design-Lite-Demo-Components'
 }
 
-{ #category : #accessing }
-MDLLayoutScreen class >> description [
-	^ 'Building blocks for constructing a page layout.'
-]
-
 { #category : #accessing }
 MDLLayoutScreen class >> icon [
 	^ 'complayoutPng'

src/Material-Design-Lite-Demo/MDLLeftPanelScreen.class.st

@@ -1,20 +1,12 @@
 "
-Description
---------------------
-
-Screen to render resizable left panels examples.
+Simple component to add a resizable left panel to a browser
 "
 Class {
 	#name : #MDLLeftPanelScreen,
 	#superclass : #MDLExtensionsDemo,
 	#category : #'Material-Design-Lite-Demo-Extensions'
 }
 
-{ #category : #accessing }
-MDLLeftPanelScreen class >> description [
-	^ 'Simple component to add a resizable left panel to a browser'
-]
-
 { #category : #accessing }
 MDLLeftPanelScreen class >> icon [
 	^ 'extLeftPanelPng'

src/Material-Design-Lite-Demo/MDLListsScreen.class.st

@@ -1,17 +1,12 @@
 "
-I'm representing list screen
+Customizable scrollable lists.
 "
 Class {
 	#name : #MDLListsScreen,
 	#superclass : #MDLComponentDemo,
-	#category : 'Material-Design-Lite-Demo-Components'
+	#category : #'Material-Design-Lite-Demo-Components'
 }
 
-{ #category : #accessing }
-MDLListsScreen class >> description [
-	^ 'Customizable scrollable lists.'
-]
-
 { #category : #accessing }
 MDLListsScreen class >> icon [
 		^ 'complistsPng'

src/Material-Design-Lite-Demo/MDLLoadingScreen.class.st

@@ -1,17 +1,12 @@
 "
-I represent loading components screen.
+Indicate loading and progress states.
 "
 Class {
 	#name : #MDLLoadingScreen,
 	#superclass : #MDLComponentDemo,
-	#category : 'Material-Design-Lite-Demo-Components'
+	#category : #'Material-Design-Lite-Demo-Components'
 }
 
-{ #category : #accessing }
-MDLLoadingScreen class >> description [
-	^ 'Indicate loading and progress states.'
-]
-
 { #category : #accessing }
 MDLLoadingScreen class >> icon [
 	^ 'comploadingPng'

src/Material-Design-Lite-Demo/MDLMenuButtonScreen.class.st

@@ -1,20 +1,15 @@
 "
-Demo screen for the MDLMenuButtonWidget
+A widget to create a button that expand to show a menu when clicked
 "
 Class {
 	#name : #MDLMenuButtonScreen,
 	#superclass : #MDLWidgetDemo,
 	#instVars : [
 		'selectedUser'
 	],
-	#category : 'Material-Design-Lite-Demo-Widgets'
+	#category : #'Material-Design-Lite-Demo-Widgets'
 }
 
-{ #category : #accessing }
-MDLMenuButtonScreen class >> description [
-	^ 'A widget to create a button that expand to show a menu when clicked'
-]
-
 { #category : #accessing }
 MDLMenuButtonScreen class >> icon [
 	^ #compmenusPng

src/Material-Design-Lite-Demo/MDLMenusScreen.class.st

@@ -1,17 +1,12 @@
 "
-I'm representing the menu components screen
+Lists of clickable actions. Those menus are anchored to elements and can have their anchor point specified.
 "
 Class {
 	#name : #MDLMenusScreen,
 	#superclass : #MDLComponentDemo,
-	#category : 'Material-Design-Lite-Demo-Components'
+	#category : #'Material-Design-Lite-Demo-Components'
 }
 
-{ #category : #accessing }
-MDLMenusScreen class >> description [
-	^ 'Lists of clickable actions. Those menus are anchored to elements and can have their anchor point specified.'
-]
-
 { #category : #accessing }
 MDLMenusScreen class >> icon [
 		^'compmenusPng'