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

Version 0.2

Author: LeonBein

packages/BaselineOfPresenter.package/BaselineOfPresenter.class/instance/baseline..st

@@ -5,7 +5,6 @@ baseline: spec
 		for: #'common'
 		do: [
 			spec
-				
 				package: 'Presenter-Core';
 				package: 'Presenter-Tests' with: [spec requires: #('Presenter-Core')];
 				yourself.
@@ -14,4 +13,5 @@ baseline: spec
 				group: 'tests' with: #('Presenter-Tests')];
 				yourself.
 			spec
-				preLoadDoIt: #preLoad
+				preLoadDoIt: #preLoad;
+				postLoadDoIt: #postLoad.

packages/BaselineOfPresenter.package/BaselineOfPresenter.class/instance/postLoad.st

@@ -0,0 +1,4 @@
+baseline
+postLoad
+
+	PSPresentationTool initialize.

packages/BaselineOfPresenter.package/BaselineOfPresenter.class/instance/preLoad.st

@@ -1,4 +1,4 @@
-as yet unclassified
+baseline
 preLoad
 
 	(TextStyle named: 'BitstreamVeraSans') fontArray do: [:font |

packages/BaselineOfPresenter.package/BaselineOfPresenter.class/methodProperties.json

@@ -2,5 +2,6 @@
 	"class" : {
 		 },
 	"instance" : {
-		"baseline:" : "fn 4/17/2018 11:58",
+		"baseline:" : "LM 6/13/2018 13:41",
+		"postLoad" : "LM 6/13/2018 13:51",
 		"preLoad" : "WoC 5/28/2018 17:40" } }

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

@@ -1,4 +1,4 @@
 presentation mode
 enablePresentationMode 
 
-	self removeResizeHandles 
+	self removeResizeHandles

packages/Presenter-Core.package/PSContentContainer.class/methodProperties.json

@@ -13,7 +13,7 @@
 		"defaultContextMenuContent" : "MK 6/1/2018 18:06",
 		"disablePresentationMode" : "MK 5/25/2018 16:12",
 		"dragCorner:event:fromHandle:" : "MK 5/25/2018 17:10",
-		"enablePresentationMode" : "MK 5/25/2018 15:19",
+		"enablePresentationMode" : "LM 6/8/2018 20:10",
 		"extent:" : "MK 5/25/2018 17:11",
 		"extentBottomLeft:" : "MK 5/25/2018 17:12",
 		"extentBottomRight:" : "MK 5/25/2018 17:12",

packages/Presenter-Core.package/PSPresentationTool.class/class/initialize.st

@@ -0,0 +1,5 @@
+instance creation
+initialize
+
+	super initialize.
+	self registerInWorldMenu

packages/Presenter-Core.package/PSPresentationTool.class/class/registerInWorldMenu.st

@@ -0,0 +1,4 @@
+instance creation
+registerInWorldMenu 
+
+	TheWorldMenu registerOpenCommand: {'PowerSqueak'. {self. #open}}

packages/Presenter-Core.package/PSPresentationTool.class/instance/abandonMorph..st

@@ -0,0 +1,5 @@
+presentation loading
+abandonMorph: aMorph
+
+	aMorph ifNotNil: [aMorph abandon].
+	^ nil

packages/Presenter-Core.package/PSPresentationTool.class/instance/askForPresentationName.st

@@ -0,0 +1,4 @@
+presentation saving
+askForPresentationName 
+
+	^ UIManager default request: 'Please enter a presentation name: ' initialAnswer: 'Presentation' centerAt: World center