hello

pharo-graphics · Jun 26, 2024 · e14d7d0 · e14d7d0
1 parent 2bc149e
commit e14d7d0
Show file tree

Hide file tree

Showing 37 changed files with 431 additions and 341 deletions.
diff --git a/Mooflod/BlElement.extension.st b/Mooflod/BlElement.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #BlElement }
+Extension { #name : 'BlElement' }
 
-{ #category : #'*Mooflod' }
+{ #category : '*Mooflod' }
 BlElement >> newMooflodSkin [
 
 	^ MfBasicMooflodSkin new

diff --git a/Mooflod/MfBasicMooflodSkin.class.st b/Mooflod/MfBasicMooflodSkin.class.st
@@ -3,7 +3,9 @@ I'm the root of all the skins of the MooFlod project.
 
 "
 Class {
-	#name : #MfBasicMooflodSkin,
-	#superclass : #ToBasicSkin,
-	#category : 'Mooflod-Core'
+	#name : 'MfBasicMooflodSkin',
+	#superclass : 'ToBasicSkin',
+	#category : 'Mooflod-Core',
+	#package : 'Mooflod',
+	#tag : 'Core'
 }
diff --git a/Mooflod/MfCircleElement.class.st b/Mooflod/MfCircleElement.class.st
@@ -1,10 +1,12 @@
 Class {
-	#name : #MfCircleElement,
-	#superclass : #ToElement,
-	#category : 'Mooflod-FractalCircleWidget'
+	#name : 'MfCircleElement',
+	#superclass : 'ToElement',
+	#category : 'Mooflod-FractalCircleWidget',
+	#package : 'Mooflod',
+	#tag : 'FractalCircleWidget'
 }
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 MfCircleElement >> initialize [
 
 	super initialize.

diff --git a/Mooflod/MfFilledSquareElement.class.st b/Mooflod/MfFilledSquareElement.class.st
@@ -1,17 +1,19 @@
 Class {
-	#name : #MfFilledSquareElement,
-	#superclass : #ToElement,
+	#name : 'MfFilledSquareElement',
+	#superclass : 'ToElement',
 	#instVars : [
 		'currentY',
 		'fill'
 	],
 	#classVars : [
 		'value'
 	],
-	#category : 'Mooflod-FilledSquareWidget'
+	#category : 'Mooflod-FilledSquareWidget',
+	#package : 'Mooflod',
+	#tag : 'FilledSquareWidget'
 }
 
-{ #category : #example }
+{ #category : 'example' }
 MfFilledSquareElement class >> exampleSimpleFilledSquare [
 
 	<script>
@@ -28,31 +30,31 @@ MfFilledSquareElement class >> exampleSimpleFilledSquare [
 	^ aSquare
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 MfFilledSquareElement >> currentY [
 
 ^currentY
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 MfFilledSquareElement >> defaultGeometry [ 
 
 ^BlSquareGeometry new 
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 MfFilledSquareElement >> fill [ 
 ^fill
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 MfFilledSquareElement >> initFill [
 
 	fill := MfFillingLineElement new .
 	self addChild: fill
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 MfFilledSquareElement >> initialize [
 
 	super initialize.
@@ -64,7 +66,7 @@ MfFilledSquareElement >> initialize [
 	value := 0
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : 'as yet unclassified' }
 MfFilledSquareElement >> openFilledSquare: aSquare [
 
 	| space |
@@ -77,26 +79,26 @@ MfFilledSquareElement >> openFilledSquare: aSquare [
 	^ aSquare
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 MfFilledSquareElement >> setValue: aValue [ 
 	(aValue between: 0 and: 100) ifTrue: [ self value: aValue ].
 	self updateSquare.
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : 'as yet unclassified' }
 MfFilledSquareElement >> squareExtent [
 
 	currentY := 0.
 	^ 200 @ 200
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : 'as yet unclassified' }
 MfFilledSquareElement >> updateFill: anY [
 
 	fill size:200@anY
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : 'as yet unclassified' }
 MfFilledSquareElement >> updateSquare [
 
 	currentY := 0.
@@ -105,12 +107,12 @@ MfFilledSquareElement >> updateSquare [
 		self updateFill: currentY ]
 ]
 
-{ #category : #evaluating }
+{ #category : 'evaluating' }
 MfFilledSquareElement >> value [ 
 ^value
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 MfFilledSquareElement >> value: aValue [
 
 value:= aValue 

diff --git a/Mooflod/MfFilledSquareElementTest.class.st b/Mooflod/MfFilledSquareElementTest.class.st
@@ -1,10 +1,12 @@
 Class {
-	#name : #MfFilledSquareElementTest,
-	#superclass : #TestCase,
-	#category : 'Mooflod-FilledSquareWidget'
+	#name : 'MfFilledSquareElementTest',
+	#superclass : 'TestCase',
+	#category : 'Mooflod-FilledSquareWidget',
+	#package : 'Mooflod',
+	#tag : 'FilledSquareWidget'
 }
 
-{ #category : #tests }
+{ #category : 'tests' }
 MfFilledSquareElementTest >> testSquareIsFilledCorrectly [
 
 	| square |
@@ -14,7 +16,7 @@ MfFilledSquareElementTest >> testSquareIsFilledCorrectly [
 	self assert: square currentY equals: 112
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 MfFilledSquareElementTest >> testSquaredIsNotFilledAtAllAtInitialization [
 
 	| square |

diff --git a/Mooflod/MfFillingLineElement.class.st b/Mooflod/MfFillingLineElement.class.st
@@ -1,10 +1,12 @@
 Class {
-	#name : #MfFillingLineElement,
-	#superclass : #ToElement,
-	#category : 'Mooflod-FilledSquareWidget'
+	#name : 'MfFillingLineElement',
+	#superclass : 'ToElement',
+	#category : 'Mooflod-FilledSquareWidget',
+	#package : 'Mooflod',
+	#tag : 'FilledSquareWidget'
 }
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 MfFillingLineElement >> initialize [
 
 	super initialize.

diff --git a/Mooflod/MfFractalCircleElement.class.st b/Mooflod/MfFractalCircleElement.class.st
@@ -1,16 +1,18 @@
 Class {
-	#name : #MfFractalCircleElement,
-	#superclass : #ToElement,
+	#name : 'MfFractalCircleElement',
+	#superclass : 'ToElement',
 	#instVars : [
 		'currentX',
 		'currentY',
 		'value',
 		'nbOfChilds'
 	],
-	#category : 'Mooflod-FractalCircleWidget'
+	#category : 'Mooflod-FractalCircleWidget',
+	#package : 'Mooflod',
+	#tag : 'FractalCircleWidget'
 }
 
-{ #category : #example }
+{ #category : 'example' }
 MfFractalCircleElement class >> exampleSimpleFractalCircle [
 
 	<script>
@@ -26,21 +28,21 @@ MfFractalCircleElement class >> exampleSimpleFractalCircle [
 	^ c
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 MfFractalCircleElement >> circleExtent [
 
 	^ 390 @ 390
 ]
 
-{ #category : #internal }
+{ #category : 'internal' }
 MfFractalCircleElement >> createCircle: x y: anY [
 
 	| c |
 	c := MfCircleElement new size: x @ anY.
 	self addChild: c
 ]
 
-{ #category : #internal }
+{ #category : 'internal' }
 MfFractalCircleElement >> createCircle: x y: anY color: aColor [
 
 	| c color |
@@ -50,24 +52,24 @@ MfFractalCircleElement >> createCircle: x y: anY color: aColor [
 	self addChild: c
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 MfFractalCircleElement >> currentX [
 
 ^currentX.
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 MfFractalCircleElement >> currentY [ 
 ^currentY.
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 MfFractalCircleElement >> defaultGeometry [
 
 	^ BlCircleGeometry new matchExtent: self extent.
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 MfFractalCircleElement >> initialize [
 
 	super initialize.
@@ -79,13 +81,13 @@ MfFractalCircleElement >> initialize [
 	value := 0
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 MfFractalCircleElement >> numberOfCircles [
 
 ^nbOfChilds 
 ]
 
-{ #category : #'public api' }
+{ #category : 'public api' }
 MfFractalCircleElement >> setValue: aValue [
 
 	(aValue between: 0 and: 100)
@@ -95,7 +97,7 @@ MfFractalCircleElement >> setValue: aValue [
 	self updateCircles
 ]
 
-{ #category : #internal }
+{ #category : 'internal' }
 MfFractalCircleElement >> updateCircles [
 
 	| c |
@@ -109,7 +111,7 @@ MfFractalCircleElement >> updateCircles [
 		self createCircle: currentX y: currentY color: c ]
 ]
 
-{ #category : #evaluating }
+{ #category : 'evaluating' }
 MfFractalCircleElement >> value [
 
 ^value.

diff --git a/Mooflod/MfFractalCircleElementTest.class.st b/Mooflod/MfFractalCircleElementTest.class.st
@@ -1,10 +1,12 @@
 Class {
-	#name : #MfFractalCircleElementTest,
-	#superclass : #TestCase,
-	#category : 'Mooflod-FractalCircleWidget'
+	#name : 'MfFractalCircleElementTest',
+	#superclass : 'TestCase',
+	#category : 'Mooflod-FractalCircleWidget',
+	#package : 'Mooflod',
+	#tag : 'FractalCircleWidget'
 }
 
-{ #category : #tests }
+{ #category : 'tests' }
 MfFractalCircleElementTest >> testIfCirclesAreAddedCorrectly [
 
 	| circle |
@@ -14,7 +16,7 @@ MfFractalCircleElementTest >> testIfCirclesAreAddedCorrectly [
 	self assert: circle numberOfCircles equals: 20.
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 MfFractalCircleElementTest >> testIfValueIsInitializedCorrectly [
 
 	| circle |
@@ -23,7 +25,7 @@ MfFractalCircleElementTest >> testIfValueIsInitializedCorrectly [
 	self assert: circle value equals: 12
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 MfFractalCircleElementTest >> testNothingAddedIfValueIsTooHigh [
 
 	| circle |

diff --git a/Mooflod/MfInputElementSkin.class.st b/Mooflod/MfInputElementSkin.class.st
@@ -1,10 +1,12 @@
 Class {
-	#name : #MfInputElementSkin,
-	#superclass : #MfBasicMooflodSkin,
-	#category : 'Mooflod-InputWidget'
+	#name : 'MfInputElementSkin',
+	#superclass : 'MfBasicMooflodSkin',
+	#category : 'Mooflod-InputWidget',
+	#package : 'Mooflod',
+	#tag : 'InputWidget'
 }
 
-{ #category : #'event handling' }
+{ #category : 'event handling' }
 MfInputElementSkin >> installLookEvent: anEvent [
 	"when installing the skin, changes the properties of widget mentionned down here"