More tests.

src/Material-Design-Lite-Extensions-Tests.package/MDLPanelSwitcherButtonTest.class/instance/testSelect.st

@@ -0,0 +1,4 @@
+tests
+testSelect
+	self deny: [ :html | MDLPanelSwitcherButton new renderContentOn: html ] generatedIncludes: 'class="panel-switcher-button__content panel-switcher-selected"'.
+	self assert: [ :html | MDLPanelSwitcherButton new select; renderContentOn: html ] generatedIncludes: 'class="panel-switcher-button__content panel-switcher-selected"'

src/Material-Design-Lite-Extensions-Tests.package/MDLVerticalToolbarTest.class/instance/testAddAllButtons.st

@@ -0,0 +1,10 @@
+tests
+testAddAllButtons
+	| toolbar |
+	toolbar := MDLVerticalToolbar new.
+	self assert: toolbar buttons size equals: 0.
+	toolbar
+		addAllButtons:
+			{(MDLFoldButton for: '#id').
+			MDLPanelSwitcherButton new}.
+	self assert: toolbar buttons size equals: 2

src/Material-Design-Lite-Extensions-Tests.package/MDLVerticalToolbarTest.class/instance/testAddButton.st

@@ -0,0 +1,7 @@
+tests
+testAddButton
+	| toolbar |
+	toolbar := MDLVerticalToolbar new.
+	self assert: toolbar buttons size equals: 0.
+	toolbar addButton: (MDLFoldButton for: '#id').
+	self assert: toolbar buttons size equals: 1

src/Material-Design-Lite-Extensions-Tests.package/MDLVerticalToolbarTest.class/instance/testChildren.st

@@ -0,0 +1,8 @@
+tests
+testChildren
+	| toolbar buttons |
+	toolbar := MDLVerticalToolbar new.
+	buttons := {(MDLFoldButton for: '#id').
+	MDLPanelSwitcherButton new}.
+	toolbar addAllButtons: buttons.
+	self assertCollection: toolbar children hasSameElements: buttons

src/Material-Design-Lite-Extensions-Tests.package/MDLVerticalToolbarTest.class/instance/testRendering.st

@@ -0,0 +1,11 @@
+tests
+testRendering
+	self
+		assert: [ :html | 
+			html
+				render:
+					(MDLVerticalToolbar
+						buttons:
+							{(MDLFoldButton for: '#id').
+							MDLPanelSwitcherButton new}) ]
+		generatedIncludes: 'class="vertical-toolbar"'

src/Material-Design-Lite-Extensions-Tests.package/MDLVerticalToolbarTest.class/instance/testResetButtonsSelection.st

@@ -0,0 +1,12 @@
+tests
+testResetButtonsSelection
+	| toolbar buttons |
+	toolbar := MDLVerticalToolbar new.
+	buttons := {(MDLFoldButton for: '#id').
+	(MDLPanelSwitcherButton new
+		select;
+		yourself)}.
+	toolbar addAllButtons: buttons.
+	self assert: (toolbar children anySatisfy: #isSelected).
+	toolbar resetButtonsSelection.
+	self deny: (toolbar children anySatisfy: #isSelected)

src/Material-Design-Lite-Extensions-Tests.package/MDLVerticalToolbarTest.class/properties.json

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "",
+	"super" : "MDLAbstractSeasideTestCase",
+	"category" : "Material-Design-Lite-Extensions-Tests-Panels",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "MDLVerticalToolbarTest",
+	"type" : "normal"
+}

src/Material-Design-Lite-Extensions.package/MDLFoldButton.class/instance/isSelected.st

@@ -0,0 +1,5 @@
+accessing
+isSelected
+	"To be polymorphic with MDLPanelSwitcherButton"
+
+	^ false

src/Material-Design-Lite-Extensions.package/MDLPanelSwitcherButton.class/instance/initialize.st

@@ -0,0 +1,4 @@
+initialization
+initialize
+	super initialize.
+	self isSelected: false

src/Material-Design-Lite-Extensions.package/MDLPanelSwitcherButton.class/instance/isSelected.st

@@ -1,3 +1,3 @@
 accessing
 isSelected
-	^ isSelected ifNil: [ isSelected := false ]
+	^ isSelected

src/Material-Design-Lite-Extensions.package/MDLPanelSwitcherButton.class/instance/renderContentOn..st

@@ -1,19 +1,19 @@
 rendering
 renderContentOn: html
 	html div
-		class: #'panel-switcher-button';
+		class: 'panel-switcher-button';
 		id: self id;
 		with: [ html div
 				id: html nextId;
-				class: #'panel-switcher-button__content';
-				class: #'panel-switcher-selected' if: self isSelected;
+				class: 'panel-switcher-button__content';
+				class: 'panel-switcher-selected' if: self isSelected;
 				onClick:
 					'$(".panel-switcher-selected").removeClass("panel-switcher-selected"); $(this).addClass("panel-switcher-selected")'
 						js
 						,
 							((html jQuery id: self panelId) load
 								html: [ :r | 
-									self owner resetButtonSelection.
+									self owner resetButtonsSelection.
 									self select.
 									self actionBlock value: r ];
 								onComplete: self onCompleteJs);

src/Material-Design-Lite-Extensions.package/MDLVerticalToolbar.class/instance/renderContentOn..st

@@ -1,10 +1,10 @@
 rendering
 renderContentOn: html
 	html div
-		class: #'vertical-toolbar';
+		class: 'vertical-toolbar';
 		with: [ 
 					self buttons
 						do: [ :button | 
 							html div
-								class: #'vertical-toolbar__button';
+								class: 'vertical-toolbar__button';
 								with: [ html render: button ] ] ]

src/Material-Design-Lite-Extensions.package/MDLVerticalToolbar.class/instance/resetButtonsSelection.st

@@ -0,0 +1,3 @@
+action
+resetButtonsSelection
+	self buttons do: [ :each | each isSelected: false ]