From 7c29765d699c952118f88aef8be1a8028ac2eea2 Mon Sep 17 00:00:00 2001
From: Maximiliano Tabacman <mtabacman@users.noreply.github.com>
Date: Fri, 25 Aug 2023 00:02:51 -0300
Subject: [PATCH] More CSS classes

---
 .../Willow-SemanticUI/SemanticStyle.class.st  | 60 +++++++++++++++++++
 .../SemanticUIComponentSupplier.class.st      | 43 +++++++------
 2 files changed, 81 insertions(+), 22 deletions(-)

diff --git a/source/Willow-SemanticUI/SemanticStyle.class.st b/source/Willow-SemanticUI/SemanticStyle.class.st
index b09d588..50fbed3 100644
--- a/source/Willow-SemanticUI/SemanticStyle.class.st
+++ b/source/Willow-SemanticUI/SemanticStyle.class.st
@@ -46,6 +46,12 @@ SemanticStyle >> aligned [
 	cssClasses add: 'aligned'
 ]
 
+{ #category : #icons }
+SemanticStyle >> alternate [
+
+	cssClasses add: 'alternate'
+]
+
 { #category : #color }
 SemanticStyle >> approve [
 
@@ -142,6 +148,12 @@ SemanticStyle >> close [
 	cssClasses add: 'close'
 ]
 
+{ #category : #icons }
+SemanticStyle >> cloud [
+
+	cssClasses add: 'cloud'
+]
+
 { #category : #table }
 SemanticStyle >> column [
 
@@ -226,6 +238,12 @@ SemanticStyle >> doubling [
 	cssClasses add: 'doubling'
 ]
 
+{ #category : #icons }
+SemanticStyle >> download [
+
+	cssClasses add: 'download'
+]
+
 { #category : #general }
 SemanticStyle >> dropdown [
 
@@ -352,6 +370,12 @@ SemanticStyle >> image [
 	cssClasses add: 'image'
 ]
 
+{ #category : #general }
+SemanticStyle >> info [
+
+	cssClasses add: 'info'
+]
+
 { #category : #initialization }
 SemanticStyle >> initialize [
 
@@ -466,6 +490,12 @@ SemanticStyle >> modal [
 	cssClasses add: 'modal'
 ]
 
+{ #category : #general }
+SemanticStyle >> negative [
+
+	cssClasses add: 'negative'
+]
+
 { #category : #color }
 SemanticStyle >> ok [
 
@@ -490,12 +520,24 @@ SemanticStyle >> orange [
 	cssClasses add: 'orange'
 ]
 
+{ #category : #icons }
+SemanticStyle >> outline [
+
+	cssClasses add: 'outline'
+]
+
 { #category : #general }
 SemanticStyle >> pointing [
 
 	cssClasses add: 'pointing'
 ]
 
+{ #category : #general }
+SemanticStyle >> positive [
+
+	cssClasses add: 'positive'
+]
+
 { #category : #general }
 SemanticStyle >> primary [
 
@@ -616,6 +658,12 @@ SemanticStyle >> striped [
 	cssClasses add: 'striped'
 ]
 
+{ #category : #general }
+SemanticStyle >> sub [
+
+	cssClasses add: 'sub'
+]
+
 { #category : #general }
 SemanticStyle >> submit [
 
@@ -670,6 +718,12 @@ SemanticStyle >> top [
 	cssClasses add: 'top'
 ]
 
+{ #category : #icons }
+SemanticStyle >> trash [
+
+	cssClasses add: 'trash'
+]
+
 { #category : #numbers }
 SemanticStyle >> two [
 
@@ -682,6 +736,12 @@ SemanticStyle >> ui [
 	cssClasses add: 'ui'
 ]
 
+{ #category : #icons }
+SemanticStyle >> upload [
+
+	cssClasses add: 'upload'
+]
+
 { #category : #positioning }
 SemanticStyle >> vertical [
 
diff --git a/source/Willow-SemanticUI/SemanticUIComponentSupplier.class.st b/source/Willow-SemanticUI/SemanticUIComponentSupplier.class.st
index 531c097..657b29a 100644
--- a/source/Willow-SemanticUI/SemanticUIComponentSupplier.class.st
+++ b/source/Willow-SemanticUI/SemanticUIComponentSupplier.class.st
@@ -38,9 +38,9 @@ SemanticUIComponentSupplier >> activeElementStyle [
 SemanticUIComponentSupplier >> asynchronicButtonLabeled: aRenderable applying: aComponentCommand [
 
 	^ AsynchronicButtonWebView
-		labeled: aRenderable
-		applying:
-			[ :theButton | (theButton addClass semantic: [ :style | style ui button ]) + aComponentCommand ]
+		  labeled: aRenderable
+		  applying: [ :theButton |
+		  ( theButton addClass semantic: [ :style | style ui button ] ) + aComponentCommand ]
 ]
 
 { #category : #Supplying }
@@ -77,10 +77,9 @@ SemanticUIComponentSupplier >> dialogBuilder [
 SemanticUIComponentSupplier >> dropdownListApplying: aComponentCommand applyingToOptions: anOptionCommand [
 
 	^ SingleSelectionWebView
-		dropDownListApplying: [ :view | 
-			(view addScript js: [ :canvas | canvas jQuery this call: 'dropdown' ])
-				+ aComponentCommand ]
-		applyingToOptions: anOptionCommand
+		  dropDownListApplying: [ :view |
+			  ( view addScript js: [ :canvas | canvas jQuery this call: 'dropdown' ] ) + aComponentCommand ]
+		  applyingToOptions: anOptionCommand
 ]
 
 { #category : #'Supplying - Non Portable' }
@@ -167,12 +166,12 @@ SemanticUIComponentSupplier >> naturalNumberFieldApplying: aComponentCommand [
 	| field |
 
 	field := NumberFieldWebView
-		applying: [ :theField | theField boundNotNegative + aComponentCommand ]
-		transformingWith: NaturalNumberCodec new.
+		         applying: [ :theField | theField boundNotNegative + aComponentCommand ]
+		         transformingWith: NaturalNumberCodec new.
 
 	^ SemanticComponent
-		wrapping: field
-		applying: [ :container | container addClass semantic: [ :style | style ui input ] ]
+		  wrapping: field
+		  applying: [ :container | container addClass semantic: [ :style | style ui input ] ]
 ]
 
 { #category : #Supplying }
@@ -180,14 +179,14 @@ SemanticUIComponentSupplier >> radioRenderingWith: aRenderingBlock applyingToLab
 
 	| radio |
 
-	radio := SemanticRadioWebView 
-				renderingWith: aRenderingBlock 
-				applyingToLabel: aLabelCommand
-				applyingToInput: anInputCommand.
+	radio := SemanticRadioWebView
+		         renderingWith: aRenderingBlock
+		         applyingToLabel: aLabelCommand
+		         applyingToInput: anInputCommand.
 
 	^ SemanticComponent
-		wrapping: radio
-		applying: [ :container | container addClass semantic: [ :style | style inline fields ] ]
+		  wrapping: radio
+		  applying: [ :container | container addClass semantic: [ :style | style inline fields ] ]
 ]
 
 { #category : #'Supplying - Non Portable' }
@@ -227,9 +226,9 @@ SemanticUIComponentSupplier >> singleLineTextFieldApplying: aComponentCommand [
 SemanticUIComponentSupplier >> singleSelectionListBoxDisplayingAtOnce: aNumberOfElements applying: aComponentCommand applyingToOptions: anOptionCommand [
 
 	^ SingleSelectionWebView
-		listBoxDisplayingAtOnce: aNumberOfElements
-		applying: aComponentCommand
-		applyingToOptions: anOptionCommand
+		  listBoxDisplayingAtOnce: aNumberOfElements
+		  applying: aComponentCommand
+		  applyingToOptions: anOptionCommand
 ]
 
 { #category : #Supplying }
@@ -252,8 +251,8 @@ SemanticUIComponentSupplier >> synchronicLinkLabeled: aRenderable applying: aCom
 SemanticUIComponentSupplier >> tableBuilder [
 
 	^ TableWebViewBuilder new
-		apply: [ :table | table addClass semantic: [ :s | s ui table ] ];
-		yourself
+		  apply: [ :table | table addClass semantic: [ :s | s ui table ] ];
+		  yourself
 ]
 
 { #category : #'Supplying - Non Portable' }