Add new feature Toplo theme

src/Pyramid-Bloc/PyramidChangeTextCommand.class.st

@@ -18,5 +18,9 @@ PyramidChangeTextCommand >> setValueFor: aBlTextElement with: aString [
 	rope := aString asRopedText.
 
 	attributes do: [ :a | rope attribute: a ].
-	aBlTextElement text: rope
+	aBlTextElement text: rope.
+	"Fix label color on theme change when label is create during the session without copy or open from save"
+	aBlTextElement parent ifNil: [ ^ self ].
+	(((aBlTextElement parent)class) name) = (#ToLabel)
+	ifTrue: [ aBlTextElement parent text: aString asRopedText ]
 ]

src/Pyramid-Bloc/PyramidDrawOrderIcons.class.st

@@ -224,7 +224,7 @@ blpaintbackground2 := BlPaintBackground new.
 PyramidDrawOrderIcons class >> formMoveBackward [
 
 	^ (BlElement new
-		   size: 16 @ 16;
+		   extent: 16 @ 16;
 		   addChildren: self blocMoveBackward materializeAsBlElement)
 		  exportAsForm
 ]
@@ -233,7 +233,7 @@ PyramidDrawOrderIcons class >> formMoveBackward [
 PyramidDrawOrderIcons class >> formMoveForward [
 
 	^ (BlElement new
-		   size: 16 @ 16;
+		   extent: 16 @ 16;
 		   addChildren: self blocMoveForward materializeAsBlElement)
 		  exportAsForm
 ]
@@ -242,7 +242,7 @@ PyramidDrawOrderIcons class >> formMoveForward [
 PyramidDrawOrderIcons class >> formOnBackground [
 
 	^ (BlElement new
-		   size: 16 @ 16;
+		   extent: 16 @ 16;
 		   addChildren: self blocOnBackground materializeAsBlElement)
 		  exportAsForm
 ]
@@ -251,7 +251,7 @@ PyramidDrawOrderIcons class >> formOnBackground [
 PyramidDrawOrderIcons class >> formOnForeground [
 
 	^ (BlElement new
-		   size: 16 @ 16;
+		   extent: 16 @ 16;
 		   addChildren: self blocOnForeground materializeAsBlElement)
 		  exportAsForm
 ]

src/Pyramid-Bloc/PyramidLibraryDefault.class.st

@@ -87,7 +87,7 @@ PyramidLibraryDefault >> smalltalkIconsCategory [
 			            name: each key;
 			            block: [
 				            { (BlElement new
-					             size: each value extent;
+					             extent: each value extent;
 					             background:
 						             (BlImageBackground image:
 								              (PyramidExternalRessourceProxy fromSource:

src/Pyramid-Bloc/PyramidSelectionMakerExtension.class.st

@@ -75,10 +75,10 @@ PyramidSelectionMakerExtension >> dragEvent: anEvent [
 
 	xmin := self dragOrigin x min: anEvent position x.
 	ymin := self dragOrigin y min: anEvent position y.
-	
+
 	self selectionGhost
 		position: xmin @ ymin;
-		size: (anEvent position - self dragOrigin) abs
+		extent: (anEvent position - self dragOrigin) abs
 ]
 
 { #category : #accessing }
@@ -100,7 +100,7 @@ PyramidSelectionMakerExtension >> dragStart: anEvent [
 	self dragOrigin: anEvent position.
 
 	self selectionGhost
-		size: 0 @ 0;
+		extent: 0 @ 0;
 		position: self dragOrigin;
 		visibility: BlVisibility visible
 ]

src/Pyramid-Bloc/PyramidVisualPystonForCly.class.st

@@ -89,7 +89,7 @@ PyramidVisualPystonForCly >> build [
 	blElement isCollection ifTrue: [
 		blElement := BlElement new
 			             addChildren: blElement;
-			             size: 1500 @ 1500;
+			             extent: 1500 @ 1500;
 			             yourself ].
 	imageMorph := ImageMorph withForm: blElement exportAsForm.
 	self addMorph: imageMorph fullFrame: LayoutFrame identity.
@@ -242,7 +242,7 @@ PyramidVisualPystonForCly >> update [
 	blElement isCollection ifTrue: [
 		blElement := BlElement new
 			             addChildren: blElement;
-			             size: 1500 @ 1500;
+			             extent: 1500 @ 1500;
 			             yourself ].
 
 	imageMorph form: blElement exportAsForm

src/Pyramid-Toplo/PyramidAddStampPresenter.class.st

@@ -0,0 +1,85 @@
+Class {
+	#name : #PyramidAddStampPresenter,
+	#superclass : #SpPresenter,
+	#instVars : [
+		'stampManagerPresenter',
+		'treeTableAddStamp',
+		'selectedStampToAdd',
+		'addStampButton'
+	],
+	#category : #'Pyramid-Toplo-plugin-theme-management'
+}
+
+{ #category : #adding }
+PyramidAddStampPresenter >> addSelectedStampToElement [ 
+
+	selectedStampToAdd ifNil: [ ^ self ].
+
+	selectedStampToAdd command 
+		setValueFor: self stampManagerPresenter currentSelectedElement 
+		with: true.
+
+	self refreshStampTreeTable.
+]
+
+{ #category : #accessing }
+PyramidAddStampPresenter >> addStampButton [
+
+	^ addStampButton
+]
+
+{ #category : #layout }
+PyramidAddStampPresenter >> defaultLayout [
+
+	| defaultLayout stampToolBarAddButton |
+
+	defaultLayout := SpBoxLayout newVertical spacing: 6; yourself.
+
+	stampToolBarAddButton := SpBoxLayout newHorizontal hAlignStart; yourself.
+	stampToolBarAddButton add: addStampButton width: 380.
+
+	defaultLayout add: treeTableAddStamp expand: true.
+	defaultLayout add: stampToolBarAddButton expand: false.
+
+	^ defaultLayout
+]
+
+{ #category : #'initialization - deprecated' }
+PyramidAddStampPresenter >> initializePresenter [ 
+
+	addStampButton := SpButtonPresenter new
+								label: 'Add Stamp';
+								icon: (Smalltalk ui icons iconNamed: #add);
+								whenActivatedDo: [ self addSelectedStampToElement ].
+
+	treeTableAddStamp := SpTreeTablePresenter new.
+	treeTableAddStamp whenSelectedItemChangedDo: [ :aStampSelected | selectedStampToAdd := aStampSelected ].
+	treeTableAddStamp addColumn: (SpCompositeTableColumn new
+			title: 'List of stamps';
+			addColumn: (SpStringTableColumn evaluated: #name);
+			yourself).
+]
+
+{ #category : #adding }
+PyramidAddStampPresenter >> refreshStampTreeTable [
+
+		self stampManagerPresenter refreshStampTreeTable
+]
+
+{ #category : #accessing }
+PyramidAddStampPresenter >> stampManagerPresenter [
+
+	^ stampManagerPresenter
+]
+
+{ #category : #accessing }
+PyramidAddStampPresenter >> stampManagerPresenter: aPyramidStampManagerPresenter [
+
+	stampManagerPresenter := aPyramidStampManagerPresenter
+]
+
+{ #category : #accessing }
+PyramidAddStampPresenter >> treeTableAddStamp [
+
+	^ treeTableAddStamp
+]

src/Pyramid-Toplo/PyramidContainsValidSelectorInterpreter.class.st

@@ -7,7 +7,7 @@ Class {
 		'invalidSelectors',
 		'ignoredSelectors'
 	],
-	#category : #'Pyramid-Toplo-EXPERIMENTAL-plugin-theme-management'
+	#category : #'Pyramid-Toplo-plugin-theme-management'
 }
 
 { #category : #operating }

src/Pyramid-Toplo/PyramidElementThemeSelectorPresenter.class.st

@@ -3,12 +3,13 @@ Class {
 	#superclass : #PyramidThemeSelectorPresenter,
 	#instVars : [
 		'projectModel',
+		'themePropertyManager',
 		'inheritSelector',
 		'labelPresenter',
 		'commandExecutor',
 		'themeCommand'
 	],
-	#category : #'Pyramid-Toplo-EXPERIMENTAL-plugin-theme-management'
+	#category : #'Pyramid-Toplo-plugin-theme-management'
 }
 
 { #category : #'as yet unclassified' }
@@ -67,7 +68,7 @@ PyramidElementThemeSelectorPresenter >> elementsOrSelectionChanged: anEvent [
 
 	self triggerThemeChangement: false.
 	self updatePresenterFor: anEvent selection.
-	self triggerThemeChangement: true
+	self triggerThemeChangement: true.
 ]
 
 { #category : #accessing }
@@ -83,7 +84,7 @@ PyramidElementThemeSelectorPresenter >> initializePresenters [
 	themeCommand := PyramidThemeCommand new.
 	inheritSelector := SpCheckBoxPresenter new
 		                   label: 'Inherits from parents';
-		                   whenChangedDo: [ :aBoolean | self applyTheme ];
+		                   whenChangedDo: [ :aBoolean | self applyTheme. self themeSelector enabled: (aBoolean not) ];
 		                   yourself.
 	labelPresenter := SpLabelPresenter new
 		                  label: 'Element Theme (empty select)';
@@ -110,11 +111,11 @@ PyramidElementThemeSelectorPresenter >> projectModel [
 PyramidElementThemeSelectorPresenter >> projectModel: aPyramidProjectModel [
 
 	projectModel := aPyramidProjectModel.
-	projectModel
+	projectModel announcer
 		when: PyramidElementsChangedEvent
 		do: [ :evt | self elementsOrSelectionChanged: evt ]
 		for: self.
-	projectModel
+	projectModel announcer
 		when: PyramidSelectionChangedEvent
 		do: [ :evt | self elementsOrSelectionChanged: evt ]
 		for: self.
@@ -170,7 +171,5 @@ PyramidElementThemeSelectorPresenter >> updatePresenterFor: aCollectionOfElement
 	collectionOfLocalThemes first ifNotNil: [
 		self inheritSelector state: false.
 		self themeSelector enabled: true.
-		self selectTheme: collectionOfLocalThemes first ].
-
-	self layout: self defaultLayout
+		self selectTheme: collectionOfLocalThemes first ]
 ]

src/Pyramid-Toplo/PyramidSelectorPossibleStamps.class.st

@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'theme'
 	],
-	#category : #'Pyramid-Toplo-EXPERIMENTAL-plugin-theme-management'
+	#category : #'Pyramid-Toplo-plugin-theme-management'
 }
 
 { #category : #'as yet unclassified' }

src/Pyramid-Toplo/PyramidSpaceThemeSelectorPresenter.class.st

@@ -6,7 +6,7 @@ Class {
 	#instVars : [
 		'projectModel'
 	],
-	#category : #'Pyramid-Toplo-EXPERIMENTAL-plugin-theme-management'
+	#category : #'Pyramid-Toplo-plugin-theme-management'
 }
 
 { #category : #'as yet unclassified' }
@@ -16,6 +16,29 @@ PyramidSpaceThemeSelectorPresenter >> applyTheme [
 	self projectModel informElementsChanged
 ]
 
+{ #category : #accessing }
+PyramidSpaceThemeSelectorPresenter >> builder [
+
+	^ builder
+]
+
+{ #category : #accessing }
+PyramidSpaceThemeSelectorPresenter >> builder: anObject [
+
+	builder:= anObject.
+]
+
+{ #category : #accessing }
+PyramidSpaceThemeSelectorPresenter >> editor: aPyramidEditor [
+]
+
+{ #category : #displaying }
+PyramidSpaceThemeSelectorPresenter >> installOn: aBuilder [
+
+	self builder: aBuilder.
+
+]
+
 { #category : #initialization }
 PyramidSpaceThemeSelectorPresenter >> labelPresenter [
 

src/Pyramid-Toplo/PyramidStampCommand.class.st

@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'stamp'
 	],
-	#category : #'Pyramid-Toplo-EXPERIMENTAL-plugin-theme-management'
+	#category : #'Pyramid-Toplo-plugin-theme-management'
 }
 
 { #category : #'as yet unclassified' }