From 268bac465a88ed72012d5fb6c6710347be97f130 Mon Sep 17 00:00:00 2001
From: Alain Plantec <alain.plantec@univ-brest.fr>
Date: Tue, 28 Jan 2025 15:42:35 +0100
Subject: [PATCH] Working on a first cleaned version of ToAccordionElement (not
 ready to be used  but cleaned enough)

---
 .../ToAccordionElement.class.st               | 128 +++++++++---------
 .../ToAccordionElementSkin.class.st           |  19 +--
 .../ToAccordionHeaderElement.class.st         | 107 +++++++++++++++
 .../ToAccordionHeaderElementSkin.class.st     |  29 ++++
 .../ToAccordionListElement.class.st           |  50 ++-----
 .../ToAccordionListNodeManager.class.st       |  13 +-
 .../ToAccordionNode.class.st                  |  11 --
 .../ToAccordionXPElement.class.st             | 115 ----------------
 .../ToAccordionXPElementSkin.class.st         |  36 -----
 .../ToBasicAccordionElement.class.st          | 101 --------------
 10 files changed, 215 insertions(+), 394 deletions(-)
 create mode 100644 src/Toplo-Widget-Accordion/ToAccordionHeaderElement.class.st
 create mode 100644 src/Toplo-Widget-Accordion/ToAccordionHeaderElementSkin.class.st
 delete mode 100644 src/Toplo-Widget-Accordion/ToAccordionNode.class.st
 delete mode 100644 src/Toplo-Widget-Accordion/ToAccordionXPElement.class.st
 delete mode 100644 src/Toplo-Widget-Accordion/ToAccordionXPElementSkin.class.st
 delete mode 100644 src/Toplo-Widget-Accordion/ToBasicAccordionElement.class.st

diff --git a/src/Toplo-Widget-Accordion/ToAccordionElement.class.st b/src/Toplo-Widget-Accordion/ToAccordionElement.class.st
index dfee79673..ec2a23f8d 100644
--- a/src/Toplo-Widget-Accordion/ToAccordionElement.class.st
+++ b/src/Toplo-Widget-Accordion/ToAccordionElement.class.st
@@ -1,17 +1,11 @@
 Class {
 	#name : #ToAccordionElement,
 	#superclass : #ToElement,
-	#traits : 'TToClickable',
-	#classTraits : 'TToClickable classTrait',
 	#instVars : [
+		'header',
 		'body',
 		'headerBuilder',
-		'clickHandler',
-		'clickEventClass',
-		'isCollapsed',
-		'header',
-		'headerContainer',
-		'iconContainer'
+		'bodyBuilder'
 	],
 	#category : #'Toplo-Widget-Accordion-Core'
 }
@@ -22,59 +16,82 @@ ToAccordionElement class >> exampleWithLabel [
 	<script>
 	| inst |
 	inst := self new.
-	inst builder: [ :header | header addChild: (ToLabel text: 'coucou') ].
+	inst headerBuilder: [ :header |
+		header addChild: (ToLabel text: 'Header') ].
+	inst bodyBuilder: [ :body |
+		body addChild:
+			(ToLabel new text: 'Body with random background color').
+		body
+			hMatchParent;
+			height: 100;
+			background: Color random ].
 	inst openInSpace.
 	^ inst
 ]
 
-{ #category : #accessing }
-ToAccordionElement >> builder: aValuable [
-	"With an header as argument"
-	
-	aValuable value: header
-]
-
-{ #category : #'t - clickable' }
-ToAccordionElement >> clickHandler [
+{ #category : #'as yet unclassified' }
+ToAccordionElement class >> exampleWithLabelAndAlbumInBody [
 
-	^ clickHandler 
+	<script>
+	| inst |
+	inst := self new.
+	inst headerBuilder: [ :header |
+		header addChild: (ToLabel text: 'Header') ].
+	inst bodyBuilder: [ :body |
+		| album |
+		album := ToAlbum new
+			         withSaveCapability;
+			         whenSaveRequestedDo: [ :saveRequested |
+				         saveRequested accepted: true ];
+			         whenCancelRequestedDo: [ :cancelRequested |
+				         cancelRequested editorElement text: '' ];
+			         yourself.
+		album hMatchParent.
+		album vFitContent.
+		album next vFitContent.
+		album infinite vFitContent.
+		album text: 'AAAAAAAA'.
+		body addChild: album ].
+	inst openInSpace.
+	^ inst
 ]
 
-{ #category : #'t - clickable' }
-ToAccordionElement >> clickHandler: anHandler [
-
-	clickHandler := anHandler
+{ #category : #accessing }
+ToAccordionElement >> bodyBuilder: aValuable [
+	"With a body as argument"
+	
+	bodyBuilder := aValuable
 ]
 
 { #category : #'expanding-collapsing' }
 ToAccordionElement >> collapse [
 
+	body removeChildren.
 	body removeFromParent
 ]
 
 { #category : #'expanding-collapsing' }
 ToAccordionElement >> expand [
 
+	bodyBuilder ifNil: [ ^ self ].
+	bodyBuilder value: body.
 	self addChild: body
 ]
 
 { #category : #accessing }
-ToAccordionElement >> icon: aToImage [
-
-	iconContainer removeChildren.
-	iconContainer addChild: aToImage	
+ToAccordionElement >> headerBuilder: aValuable [
+	"With an header as argument"
+	
+	header builder: aValuable
 ]
 
 { #category : #initialization }
 ToAccordionElement >> initialize [
 
 	super initialize.
-	isCollapsed := true.
-	self height: 30.
 	self layout: BlLinearLayout vertical.
 	self hMatchParent.
 	self vFitContent.
-	self background: Color random.
 	self initializeHeader.
 	self initializeClick.
 	self initializeBody.
@@ -89,20 +106,16 @@ ToAccordionElement >> initializeBody [
 			        c vertical fitContent.
 			        c horizontal matchParent ];
 		        border: (BlBorder paint: Color veryLightGray width: 1);
-		        yourself.
-	body addChild: (BlElement new
-			 border: Color black;
-			 background: Color black;
-			 size: 50 @ 50)
+		        yourself
 ]
 
 { #category : #initialization }
 ToAccordionElement >> initializeClick [
 
-	self whenClickedDo: [ :e |
+	header whenClickedDo: [ :e |
 		e consume.
-		isCollapsed := isCollapsed not.
-		isCollapsed
+		header isCollapsed: header isCollapsed not.
+		header isCollapsed
 			ifFalse: [ self expand ]
 			ifTrue: [ self collapse ] ]
 ]
@@ -110,27 +123,20 @@ ToAccordionElement >> initializeClick [
 { #category : #initialization }
 ToAccordionElement >> initializeHeader [
 
-	headerContainer := ToElement new.
-	headerContainer layout: BlLinearLayout horizontal.
-	headerContainer hMatchParent.
-	headerContainer vFitContent.
-	self addChild: headerContainer.
-
-	header := ToElement new.
-	header hMatchParent.
-	header vFitContent.
-
-	iconContainer := ToElement new.
-	iconContainer fitContent.
-	headerContainer addChild: iconContainer.
-
-	headerContainer addChild: header
+	header := ToAccordionHeaderElement new.
+	self addChild: header
 ]
 
-{ #category : #initialization }
+{ #category : #testing }
 ToAccordionElement >> isCollapsed [ 
 	
-	^ isCollapsed 
+	^ header isCollapsed 
+]
+
+{ #category : #accessing }
+ToAccordionElement >> isCollapsed: aBoolean [
+	
+	header isCollapsed: aBoolean
 ]
 
 { #category : #skin }
@@ -138,15 +144,3 @@ ToAccordionElement >> newRawSkin [
 
 	^ ToAccordionElementSkin new
 ]
-
-{ #category : #'t - clickable' }
-ToAccordionElement >> rawClickEventClass [
-
-	^ clickEventClass
-]
-
-{ #category : #'t - clickable' }
-ToAccordionElement >> rawClickEventClass: aClass [
-
-	clickEventClass := aClass
-]
diff --git a/src/Toplo-Widget-Accordion/ToAccordionElementSkin.class.st b/src/Toplo-Widget-Accordion/ToAccordionElementSkin.class.st
index 70477ef8d..8c6c2252d 100644
--- a/src/Toplo-Widget-Accordion/ToAccordionElementSkin.class.st
+++ b/src/Toplo-Widget-Accordion/ToAccordionElementSkin.class.st
@@ -4,26 +4,9 @@ Class {
 	#category : #'Toplo-Widget-Accordion-Core'
 }
 
-{ #category : #'event handling' }
-ToAccordionElementSkin >> clickedSkinEvent: anEvent [
-
-	super clickedSkinEvent: anEvent.
-	anEvent elementDo: [ :e |
-		| arrowTk |
-		arrowTk := e isCollapsed
-			           ifTrue: [ #'submenu-arrow-up' ]
-			           ifFalse: [ #'submenu-arrow-down' ].
-		e icon: (e valueOfTokenNamed: arrowTk) value ]
-]
-
 { #category : #'event handling' }
 ToAccordionElementSkin >> installSkinEvent: anEvent [
 
 	super installSkinEvent: anEvent.
-	anEvent elementDo: [ :e |
-		| arrowTk |
-		arrowTk := e isCollapsed
-			           ifTrue: [ #'submenu-arrow-up' ]
-			           ifFalse: [ #'submenu-arrow-down' ].
-		e icon: (e valueOfTokenNamed: arrowTk) value ]
+	anEvent elementDo: [ :e |  ]
 ]
diff --git a/src/Toplo-Widget-Accordion/ToAccordionHeaderElement.class.st b/src/Toplo-Widget-Accordion/ToAccordionHeaderElement.class.st
new file mode 100644
index 000000000..b7019ef20
--- /dev/null
+++ b/src/Toplo-Widget-Accordion/ToAccordionHeaderElement.class.st
@@ -0,0 +1,107 @@
+Class {
+	#name : #ToAccordionHeaderElement,
+	#superclass : #ToElement,
+	#traits : 'TToClickable',
+	#classTraits : 'TToClickable classTrait',
+	#instVars : [
+		'builder',
+		'clickHandler',
+		'clickEventClass',
+		'isCollapsed',
+		'iconContainer',
+		'content'
+	],
+	#category : #'Toplo-Widget-Accordion-Core'
+}
+
+{ #category : #examples }
+ToAccordionHeaderElement class >> exampleWithLabel [
+
+	<script>
+	| inst |
+	inst := self new.
+	inst builder: [ :header | header addChild: (ToLabel text: 'header') ].
+	inst openInSpace.
+	^ inst
+]
+
+{ #category : #'as yet unclassified' }
+ToAccordionHeaderElement >> builder: aValuable [
+	"With an header as argument"
+	
+	aValuable value: content
+]
+
+{ #category : #'as yet unclassified' }
+ToAccordionHeaderElement >> clickHandler [
+
+	^ clickHandler 
+]
+
+{ #category : #'as yet unclassified' }
+ToAccordionHeaderElement >> clickHandler: anHandler [
+
+	clickHandler := anHandler
+]
+
+{ #category : #accessing }
+ToAccordionHeaderElement >> content [ 
+
+	^ content
+]
+
+{ #category : #'as yet unclassified' }
+ToAccordionHeaderElement >> icon: aToImage [
+
+	iconContainer removeChildren.
+	iconContainer addChild: aToImage	
+]
+
+{ #category : #initialization }
+ToAccordionHeaderElement >> initialize [
+
+	super initialize.
+	isCollapsed := true.
+	self layout: BlLinearLayout horizontal.
+	self hMatchParent.
+	self vFitContent.
+	content := ToElement new.
+	content layout: BlLinearLayout horizontal.
+	content hMatchParent.
+	content vFitContent.
+
+	iconContainer := ToElement new.
+	iconContainer fitContent.
+	self addChild: iconContainer.
+	self addChild: content
+]
+
+{ #category : #'as yet unclassified' }
+ToAccordionHeaderElement >> isCollapsed [ 
+	
+	^ isCollapsed 
+]
+
+{ #category : #'as yet unclassified' }
+ToAccordionHeaderElement >> isCollapsed: aBoolean [
+
+	isCollapsed := aBoolean
+]
+
+{ #category : #skin }
+ToAccordionHeaderElement >> newRawSkin [
+
+	^ ToAccordionHeaderElementSkin new
+]
+
+{ #category : #'as yet unclassified' }
+ToAccordionHeaderElement >> rawClickEventClass [
+
+	^ clickEventClass
+]
+
+{ #category : #'as yet unclassified' }
+ToAccordionHeaderElement >> rawClickEventClass: aClass [
+
+	clickEventClass := aClass
+]
diff --git a/src/Toplo-Widget-Accordion/ToAccordionHeaderElementSkin.class.st b/src/Toplo-Widget-Accordion/ToAccordionHeaderElementSkin.class.st
new file mode 100644
index 000000000..626db9aef
--- /dev/null
+++ b/src/Toplo-Widget-Accordion/ToAccordionHeaderElementSkin.class.st
@@ -0,0 +1,29 @@
+Class {
+	#name : #ToAccordionHeaderElementSkin,
+	#superclass : #ToRawSkin,
+	#category : #'Toplo-Widget-Accordion-Core'
+}
+
+{ #category : #'as yet unclassified' }
+ToAccordionHeaderElementSkin >> clickedSkinEvent: anEvent [
+
+	super clickedSkinEvent: anEvent.
+	anEvent elementDo: [ :e |
+		| arrowTk |
+		arrowTk := e isCollapsed
+			           ifTrue: [ #'submenu-arrow-up' ]
+			           ifFalse: [ #'submenu-arrow-down' ].
+		e icon: (e valueOfTokenNamed: arrowTk) value ]
+]
+
+{ #category : #'event handling' }
+ToAccordionHeaderElementSkin >> installSkinEvent: anEvent [
+
+	super installSkinEvent: anEvent.
+	anEvent elementDo: [ :e |
+		| arrowTk |
+		arrowTk := e isCollapsed
+			           ifTrue: [ #'submenu-arrow-up' ]
+			           ifFalse: [ #'submenu-arrow-down' ].
+		e icon: (e valueOfTokenNamed: arrowTk) value ]
+]
diff --git a/src/Toplo-Widget-Accordion/ToAccordionListElement.class.st b/src/Toplo-Widget-Accordion/ToAccordionListElement.class.st
index 1af26f5f2..b4e842403 100644
--- a/src/Toplo-Widget-Accordion/ToAccordionListElement.class.st
+++ b/src/Toplo-Widget-Accordion/ToAccordionListElement.class.st
@@ -5,50 +5,22 @@ Class {
 }
 
 { #category : #'Xp to trash' }
-ToAccordionListElement class >> exampleBasicAccordion [
+ToAccordionListElement class >> example1 [
 
 	<script>
 	| list |
 	list := ToAccordionListElement new.
 	list dataAccessor addAll: ((1 to: 5) collect: [ :i |
-			 ToBasicAccordionElement new button addChild:
-				 (ToLabel text: 'coucou ' , i asString) ]).
-	list matchParent.
-	list openInSpace
-]
-
-{ #category : #'Xp to trash' }
-ToAccordionListElement class >> exampleCollapse [
-
-	<script>
-	| list |
-	list := ToAccordionListElement new.
-	list dataAccessor addAll: ((1 to: 5) collect: [ :i |
-			 ToAccordionXPElement new labelText: 'coucou ' , i asString ]).
-	list matchParent.
-	list openInSpace
-]
-
-{ #category : #example }
-ToAccordionListElement class >> exampleSkinAccordion [
-
-	<script>
-	| list |
-	list := self new.
-	list dataAccessor addAll: ((1 to: 5) collect: [ :i |
-			 ToAccordionElement new builder: [ :h | h addChild: (ToLabel text:'coucou ' , i asString) ]]).
-	list matchParent.
-	list openInSpace
-]
-
-{ #category : #'Xp to trash' }
-ToAccordionListElement class >> exampleToAccordionXPElement [
-
-	<script>
-	| list |
-	list := ToAccordionListElement new.
-	list dataAccessor addAll: ((1 to: 5) collect: [ :i |
-			 ToAccordionXPElement new labelText: 'coucou ' , i asString ]).
+			 ToAccordionElement new
+				 headerBuilder: [ :header |
+					 header addChild: (ToLabel text: 'Header ' , i asString) ];
+				 bodyBuilder: [ :body |
+					 body background: Color white.
+					 body addChild: (BlElement new
+								  margin: (BlInsets all: 5);
+								  border: Color random;
+								  background: Color random;
+								  size: 50 @ 50) ] ]).
 	list matchParent.
 	list openInSpace
 ]
diff --git a/src/Toplo-Widget-Accordion/ToAccordionListNodeManager.class.st b/src/Toplo-Widget-Accordion/ToAccordionListNodeManager.class.st
index dc5df7c4a..c94eebe65 100644
--- a/src/Toplo-Widget-Accordion/ToAccordionListNodeManager.class.st
+++ b/src/Toplo-Widget-Accordion/ToAccordionListNodeManager.class.st
@@ -7,12 +7,11 @@ Class {
 { #category : #'instance creation' }
 ToAccordionListNodeManager >> buildNode: aNode [
 	
-	| collapse |
-	collapse := aNode holder dataItem. 
-	"in the case of this list the dateitem is in fact a bl element."
-	
-	collapse removeFromParent. 
-	aNode addChild: collapse at: 1
+	| accordionElement |
+	accordionElement := aNode holder dataItem. 
+	"in the case of this list the dateitem is in fact a ToAccordionElement"
+	accordionElement removeFromParent. 
+	aNode addChild: accordionElement at: 1
 ]
 
 { #category : #initialization }
@@ -33,7 +32,7 @@ ToAccordionListNodeManager >> newHolder [
 { #category : #'instance creation' }
 ToAccordionListNodeManager >> newNodeForHolder: aNodeHolder [
 
-	^ ToAccordionNode new
+	^ ToListNode new
 ]
 
 { #category : #initialization }
diff --git a/src/Toplo-Widget-Accordion/ToAccordionNode.class.st b/src/Toplo-Widget-Accordion/ToAccordionNode.class.st
deleted file mode 100644
index 70c1b40da..000000000
--- a/src/Toplo-Widget-Accordion/ToAccordionNode.class.st
+++ /dev/null
@@ -1,11 +0,0 @@
-Class {
-	#name : #ToAccordionNode,
-	#superclass : #ToListNode,
-	#category : #'Toplo-Widget-Accordion-Core'
-}
-
-{ #category : #accessing }
-ToAccordionNode >> builder: aValuable [
-
-	aValuable value: self header
-]
diff --git a/src/Toplo-Widget-Accordion/ToAccordionXPElement.class.st b/src/Toplo-Widget-Accordion/ToAccordionXPElement.class.st
deleted file mode 100644
index 363b56959..000000000
--- a/src/Toplo-Widget-Accordion/ToAccordionXPElement.class.st
+++ /dev/null
@@ -1,115 +0,0 @@
-"
-This version works but failed to honor the clicked skin event because  (which is used as the underlying implementation for the header) the skin clicked event is not passed by design to the parent. 
-
-
-"
-Class {
-	#name : #ToAccordionXPElement,
-	#superclass : #ToElement,
-	#traits : 'TToButtonOwner + (TToTripletElement - {#tripletProperties:}) + TToLabeledIcon',
-	#classTraits : 'TToButtonOwner classTrait + TToTripletElement classTrait + TToLabeledIcon classTrait',
-	#instVars : [
-		'body',
-		'isCollapsed'
-	],
-	#category : #'Toplo-Widget-Accordion-XP'
-}
-
-{ #category : #examples }
-ToAccordionXPElement class >> exampleWithLabel [
-
-	<script>
-	| inst |
-	inst := ToAccordionXPElement new.
-	inst labelText: 'coucou'.
-	inst addEventHandlerOn: ToSkinEvent do: [ :e | e traceCr ]. 
-	inst openInSpace.
-	^ inst
-]
-
-{ #category : #initialization }
-ToAccordionXPElement >> buttonClass [
-
-	^ ToButton
-]
-
-{ #category : #initialization }
-ToAccordionXPElement >> collapse [
-
-	body removeFromParent.
-	
-]
-
-{ #category : #initialization }
-ToAccordionXPElement >> expand [
-
-	self addChild: body.
-	
-]
-
-{ #category : #initialization }
-ToAccordionXPElement >> initialize [
-
-	super initialize.
-	self initializeAsButtonOwner.
-	isCollapsed := true.
-	self height: 30.
-	self layout: BlLinearLayout vertical.
-	self hMatchParent.
-	self vFitContent.
-	self background: Color random.
-
-	self initializeBody.
-	self initializeClick
-]
-
-{ #category : #initialization }
-ToAccordionXPElement >> initializeBody [
-
-	body := ToElement new
-		           constraintsDo: [ :c |
-			           c vertical fitContent.
-			           c horizontal matchParent ];
-		           border: (BlBorder paint: Color veryLightGray width: 1);
-		           yourself.
-	body addChild: (BlElement new
-			 border: Color black;
-			 background: Color black;
-			 size: 50 @ 50).
-	
-]
-
-{ #category : #initialization }
-ToAccordionXPElement >> initializeClick [
-
-	self whenClickedDo: [ :e |
-		e consume.
-		isCollapsed := isCollapsed not.
-		isCollapsed
-			ifFalse: [ self expand ]
-			ifTrue: [ self collapse ] ]
-]
-
-{ #category : #initialization }
-ToAccordionXPElement >> isCollapsed [
-
-	^ isCollapsed 
-]
-
-{ #category : #skin }
-ToAccordionXPElement >> newRawSkin [
-
-	^ ToAccordionXPElementSkin new 
-]
-
-{ #category : #'t - triplet element - private - accessing' }
-ToAccordionXPElement >> properties [
-
-	^ self button properties
-]
-
-{ #category : #'t - triplet element - private - accessing' }
-ToAccordionXPElement >> tripletProperties [
-
-	^ self button tripletProperties
-]
diff --git a/src/Toplo-Widget-Accordion/ToAccordionXPElementSkin.class.st b/src/Toplo-Widget-Accordion/ToAccordionXPElementSkin.class.st
deleted file mode 100644
index 208abe3af..000000000
--- a/src/Toplo-Widget-Accordion/ToAccordionXPElementSkin.class.st
+++ /dev/null
@@ -1,36 +0,0 @@
-Class {
-	#name : #ToAccordionXPElementSkin,
-	#superclass : #ToRawSkin,
-	#category : #'Toplo-Widget-Accordion-XP'
-}
-
-{ #category : #'event handling' }
-ToAccordionXPElementSkin >> installSkinEvent: anEvent [
-
-	super installSkinEvent: anEvent.
-	anEvent elementDo: [ :e | "
-				(e hasIcon and: [ e hasLabel ])
-					ifTrue: [
-					e startInterspace: (e valueOfTokenNamed: #'button-interspace') ]
-					ifFalse: [ e startInterspace: 0 ] ]"
-		| arrowTk |
-		e endFlexible: true.
-		e endInterspace: (e valueOfTokenNamed: #'menu-item-start-alignment').
-		arrowTk := e isCollapsed
-			           ifTrue: [ #'submenu-arrow-up' ]
-			           ifFalse: [ #'submenu-arrow-down' ].
-		e endElement: (e valueOfTokenNamed: arrowTk) value ]
-]
-
-{ #category : #'event handling' }
-ToAccordionXPElementSkin >> pressedSkinEvent: anEvent [
-
-	super pressedSkinEvent: anEvent.
-	anEvent elementDo: [ :e |
-		| arrowTk |
-		arrowTk := e isCollapsed
-			           ifTrue: [ #'submenu-arrow-up' ]
-			           ifFalse: [ #'submenu-arrow-down' ].
-		e endElement removeFromParent.
-		e endElement: (e valueOfTokenNamed: arrowTk) value ]
-]
diff --git a/src/Toplo-Widget-Accordion/ToBasicAccordionElement.class.st b/src/Toplo-Widget-Accordion/ToBasicAccordionElement.class.st
deleted file mode 100644
index d64a1a8c7..000000000
--- a/src/Toplo-Widget-Accordion/ToBasicAccordionElement.class.st
+++ /dev/null
@@ -1,101 +0,0 @@
-Class {
-	#name : #ToBasicAccordionElement,
-	#superclass : #ToElement,
-	#traits : 'TToButtonOwner',
-	#classTraits : 'TToButtonOwner classTrait',
-	#instVars : [
-		'body',
-		'headerBuilder',
-		'isCollapsed'
-	],
-	#category : #'Toplo-Widget-Accordion-XP'
-}
-
-{ #category : #examples }
-ToBasicAccordionElement class >> example [
-
-	<script>
-	| inst |
-	inst := self new.
-	inst openInSpace.
-	^ inst
-]
-
-{ #category : #examples }
-ToBasicAccordionElement class >> exampleWithLabel [
-
-	<script>
-	| inst |
-	inst := self new.
-	inst builder: [ :header | header addChild: (ToLabel text: 'coucou') ].
-	inst openInSpace.
-	^ inst
-]
-
-{ #category : #initialization }
-ToBasicAccordionElement >> builder: aValuable [
-
-	aValuable value: self button
-]
-
-{ #category : #initialization }
-ToBasicAccordionElement >> buttonClass [
-
-	^ ToGeneralButton
-]
-
-{ #category : #initialization }
-ToBasicAccordionElement >> collapse [
-
-	body removeFromParent.
-	
-]
-
-{ #category : #initialization }
-ToBasicAccordionElement >> expand [
-
-	self addChild: body.
-	
-]
-
-{ #category : #initialization }
-ToBasicAccordionElement >> initialize [
-
-	super initialize.
-	self initializeAsButtonOwner.
-	isCollapsed := true.
-	self height: 30.
-	self layout: BlLinearLayout vertical.
-	self hMatchParent.
-	self vFitContent.
-	self background: Color random.
-	self initializeClick.
-	self initializeBody
-]
-
-{ #category : #initialization }
-ToBasicAccordionElement >> initializeBody [
-
-	body := ToElement new
-		           constraintsDo: [ :c |
-			           c vertical fitContent.
-			           c horizontal matchParent ];
-		           border: (BlBorder paint: Color veryLightGray width: 1);
-		           yourself.
-	body addChild: (BlElement new
-			 border: Color black;
-			 background: Color black;
-			 size: 50 @ 50).
-	
-]
-
-{ #category : #initialization }
-ToBasicAccordionElement >> initializeClick [
-
-	self whenClickedDo: [ :e |
-		e consume.
-		isCollapsed := isCollapsed not.
-		isCollapsed
-			ifFalse: [ self expand ]
-			ifTrue: [ self collapse ] ]
-]