dragndrop ansatz

hpi-swa-teaching · Jun 21, 2022 · c51ff8a · c51ff8a
1 parent 5f9305e
commit c51ff8a
Show file tree

Hide file tree

Showing 3 changed files with 15 additions and 1 deletion.
diff --git a/packages/MorphicAPIExplorer-Core.package/MEXMorphViewer.class/methodProperties.json b/packages/MorphicAPIExplorer-Core.package/MEXMorphViewer.class/methodProperties.json
@@ -2,7 +2,7 @@
 	"class" : {
 		"newWithView:" : "SC 8/5/2021 19:45" },
 	"instance" : {
-		"acceptDroppingMorph:event:" : "PM 7/16/2021 09:12",
+		"acceptDroppingMorph:event:" : "JS 6/21/2022 20:59",
 		"clearContents" : "JF 5/27/2022 11:37",
 		"currentMorph" : "TB 6/23/2021 19:12",
 		"currentMorph:" : "TB 6/23/2021 20:06",

diff --git a/...rphicAPIExplorer-Core.package/MEXPluggableSystemWindow.class/instance/handleDropFiles..st b/...rphicAPIExplorer-Core.package/MEXPluggableSystemWindow.class/instance/handleDropFiles..st
@@ -0,0 +1,13 @@
+as yet unclassified
+handleDropFiles: anEvent
+	"Handle a drop from the OS."
+
+	(self model class canUnderstand: #categories) 
+	ifTrue: [anEvent wasHandled: true. ^self]
+	ifFalse:[Transcript show:( FileStream requestDropStream: (anEvent contents)) fullName].
+	anEvent wasHandled: true.
+	self dropFiles: anEvent.
+
+
+"FileDirectory requestDropDirectory:"
+"FileStream requestDropStream:"
diff --git a/...ages/MorphicAPIExplorer-Core.package/MEXPluggableSystemWindow.class/methodProperties.json b/...ages/MorphicAPIExplorer-Core.package/MEXPluggableSystemWindow.class/methodProperties.json
@@ -2,4 +2,5 @@
 	"class" : {
 		 },
 	"instance" : {
+		"handleDropFiles:" : "JS 6/21/2022 20:52",
 		"handleMouseUp:" : "JF 5/30/2022 14:53" } }