code cleanup, typo fix

OpenPonk · Oct 24, 2024 · 4654a35 · 4654a35
1 parent cd9f2d2
commit 4654a35
Show file tree

Hide file tree

Showing 6 changed files with 20 additions and 68 deletions.
diff --git a/repository/OpenPonk-Core/DoubleLink.extension.st b/repository/OpenPonk-Core/DoubleLink.extension.st
diff --git a/repository/OpenPonk-Core/OPDiagramElement.class.st b/repository/OpenPonk-Core/OPDiagramElement.class.st
@@ -372,6 +372,20 @@ OPDiagramElement >> owningElement: aDiagramElement [
 		                 to: aDiagramElement
 ]
 
+{ #category : 'actions' }
+OPDiagramElement >> pushBack [
+
+	roassalShape ifNil: [ ^ self ].
+	roassalShape pushBack
+]
+
+{ #category : 'actions' }
+OPDiagramElement >> pushFront [
+
+	roassalShape ifNil: [ ^ self ].
+	roassalShape pushFront
+]
+
 { #category : 'removing' }
 OPDiagramElement >> remove [
 

diff --git a/repository/OpenPonk-Core/UUID.extension.st b/repository/OpenPonk-Core/UUID.extension.st
@@ -1,13 +1,8 @@
 Extension { #name : 'UUID' }
 
-{ #category : '*OpenPonk-Core' }
-UUID >> displayStringOn: aStream [
-
-	self printOn: aStream
-]
-
 { #category : '*OpenPonk-Core' }
 UUID class >> fromSton: stonReader [
+	"Backwards compatibility - UUID used to be printed differently"
 
 	stonReader peek = $[ ifTrue: [
 		^ super new

diff --git a/repository/OpenPonk-Morphic/OSWindowMorphicEventHandler.extension.st b/repository/OpenPonk-Morphic/OSWindowMorphicEventHandler.extension.st
@@ -3,11 +3,10 @@ Extension { #name : 'OSWindowMorphicEventHandler' }
 { #category : '*OpenPonk-Morphic' }
 OSWindowMorphicEventHandler >> dispatchMorphicEvent: anEvent [
 
-	(anEvent isKindOf: MouseMoveEvent) ifTrue: [ 
-		morphicWorld worldState deferredUIMessages flushAllSuchThat: [ 
-			:each | 
+	(anEvent isKindOf: MouseMoveEvent) ifTrue: [
+		morphicWorld worldState deferredUIMessages flushAllSuchThat: [ :each |
 			each size = 1 and: [ (each at: 1) isKindOf: MouseMoveEvent ] ] ].
-	morphicWorld defer: [ 
-		(morphicWorld activeHand isNotNil and: [ anEvent hand isNotNil ]) 
+	morphicWorld defer: [
+		(morphicWorld activeHand isNotNil and: [ anEvent hand isNotNil ])
 			ifTrue: [ morphicWorld activeHand handleEvent: anEvent ] ]
 ]
diff --git a/repository/OpenPonk-Roassal/Announcer.extension.st b/repository/OpenPonk-Roassal/Announcer.extension.st
diff --git a/repository/OpenPonk-Roassal/OPRSControlConfiguration.class.st b/repository/OpenPonk-Roassal/OPRSControlConfiguration.class.st
@@ -92,7 +92,7 @@ OPRSControlConfiguration class >> settingsOn: aBuilder [
 	(aBuilder setting: #dragSnapMargin)
 		parent: #openponk;
 		target: self;
-		label: 'Margin for srag snapping';
+		label: 'Margin for drag snapping';
 		description:
 			'When dragging a shape, it snaps to a horizontally or vertically aligned shapes within this margin, ie. in case of horizontal snapping, how much below of above the shapes can be to still snap to it.';
 		order: 72;