Merge pull request #76 from hpi-swa-teaching/master

release v0.6

Author: LeonBein

packages/Presenter-Core.package/PSContentContainer.class/class/for..st

@@ -1,4 +1,4 @@
 instance creation
 for: aMorph
 
-	^ self new addContent: aMorph
+	^ self new setContent: aMorph

packages/Presenter-Core.package/PSContentContainer.class/instance/actionForCorner..st

@@ -0,0 +1,4 @@
+resizing
+actionForCorner: aSymbol
+
+	^ ('drag', aSymbol capitalized, 'Event:fromHandle:') asSymbol

packages/Presenter-Core.package/PSContentContainer.class/instance/addHandleAt..st

@@ -0,0 +1,8 @@
+handles
+addHandleAt: aPosition
+
+	| handle |
+	handle := self createHandleOnMove: (self actionForCorner: aPosition).
+	handle setProperty: #morphicLayerNumber toValue: self handleLayerNumber.
+	self addMorphInLayer: handle.
+	self resizeHandles at: aPosition put: handle

packages/Presenter-Core.package/PSContentContainer.class/instance/addHandleAtPosition.withIndex..st

@@ -2,7 +2,9 @@ handles
 addResizeHandles
 
 	self hasHandles ifFalse: [
-		self corners
-			withIndexDo: [:each :index |
-				self addHandleAtPosition: each withIndex: index].
+		self addHandleAt: #topLeft.
+		self addHandleAt: #topRight.
+		self addHandleAt: #bottomRight.
+		self addHandleAt: #bottomLeft. 
+		self placeHandles.
 		self hasHandles: true]

packages/Presenter-Core.package/PSContentContainer.class/instance/addResizeHandles.st

@@ -0,0 +1,12 @@
+handles
+createHandleOnMove: aSymbol
+
+	| handle |
+	handle := RectangleMorph new
+		extent: self resizeHandleSize;
+		color: Color black.
+	handle
+		on: #mouseMove
+		send: aSymbol
+		to: self.
+	^ handle

packages/Presenter-Core.package/PSContentContainer.class/instance/corners.st

@@ -0,0 +1,4 @@
+resizing
+dragBottomLeftEvent: evt fromHandle: handle
+	
+	self extentBottomLeft: (self resizeFractionsOf: evt)

packages/Presenter-Core.package/PSContentContainer.class/instance/createHandleAtPosition.withIndex..st

@@ -0,0 +1,4 @@
+resizing
+dragBottomRightEvent: evt fromHandle: handle
+	
+	self extentBottomRight: (self resizeFractionsOf: evt)