simplify ToSelectList node and related skins

pharo-graphics · Oct 21, 2024 · 481c167 · 481c167
1 parent 21a047d
commit 481c167
Show file tree

Hide file tree

Showing 6 changed files with 16 additions and 50 deletions.
diff --git a/src/Toplo-Widget-List/ToListNode.class.st b/src/Toplo-Widget-List/ToListNode.class.st
@@ -13,8 +13,12 @@ ToListNode >> clickEventHandlerClasses [
 		  ifFalse: [ { ToListNodeSingleSelectionClickEventHandler } ]
 ]
 
-{ #category : #'instance creation' }
-ToListNode >> newRawSkin [ 
+{ #category : #skin }
+ToListNode >> installRawStyle [
 
-	^ ToListNodeSkin new
+	super installRawStyle.
+	self outskirts: BlOutskirts inside.
+	self padding: (BlInsets
+			 horizontal: (self valueOfTokenNamed: #'list-node-padding-H')
+			 vertical: (self valueOfTokenNamed: #'list-node-padding-V'))
 ]
diff --git a/src/Toplo-Widget-Select/ToMultiSelectPopupWindowManager.class.st b/src/Toplo-Widget-Select/ToMultiSelectPopupWindowManager.class.st
@@ -30,7 +30,7 @@ ToMultiSelectPopupWindowManager >> defaultNodeFactory [
 	^ [ :theHolder |
 	  theHolder isGroup
 		  ifTrue: [ ToSelectGroupListNode new ]
-		  ifFalse: [ ToSelectDataListNode new ] ]
+		  ifFalse: [ ToListNode new ] ]
 ]
 
 { #category : #initialization }

diff --git a/src/Toplo-Widget-Select/ToSelectDataListNode.class.st b/src/Toplo-Widget-Select/ToSelectDataListNode.class.st
diff --git a/src/Toplo-Widget-Select/ToSelectGroupListNode.class.st b/src/Toplo-Widget-Select/ToSelectGroupListNode.class.st
@@ -1,24 +1,18 @@
 Class {
 	#name : #ToSelectGroupListNode,
-	#superclass : #ToSelectListNode,
+	#superclass : #ToListNode,
 	#category : #'Toplo-Widget-Select-List'
 }
 
 { #category : #skin }
 ToSelectGroupListNode >> installRawStyle [
 
-	| verticalPadding leftPadding rightPadding label |
+	| label |
 	super installRawStyle.
-	verticalPadding := self valueOfTokenNamed: #'padding-content-V'.
-	rightPadding := self valueOfTokenNamed: #'padding-content-H'.
-	leftPadding := (self valueOfTokenNamed: #'padding-content-H') / 3.
-	self padding: (BlInsets
-			 top: verticalPadding + 6
-			 left: leftPadding
-			 bottom: verticalPadding
-			 right: rightPadding).
+	self padding:
+		((self padding withTop: self padding top + 6) withBottom:
+			 self padding bottom + 3).
 	label := self firstChild.
-	label text
-		foreground: Color lightGray;
-		light
+	label foreground: Color lightGray.
+	label applyStyle
 ]
diff --git a/src/Toplo-Widget-Select/ToSelectListNode.class.st b/src/Toplo-Widget-Select/ToSelectListNode.class.st
@@ -3,9 +3,3 @@ Class {
 	#superclass : #ToListNode,
 	#category : #'Toplo-Widget-Select-List'
 }
-
-{ #category : #accessing }
-ToSelectListNode >> isGroup [
-
-	^ self holder isGroup
-]
diff --git a/src/Toplo-Widget-Select/ToSelectPopupWindowManager.class.st b/src/Toplo-Widget-Select/ToSelectPopupWindowManager.class.st
@@ -49,7 +49,7 @@ ToSelectPopupWindowManager >> defaultNodeBuilder [
 { #category : #initialization }
 ToSelectPopupWindowManager >> defaultNodeFactory [
 
-	^ [ :theHolder | ToSelectDataListNode new ]
+	^ [ :theHolder | ToListNode new ]
 ]
 
 { #category : #initialization }