--- a/DropObject.st	Sat Jan 31 14:04:19 2015 +0100
+++ b/DropObject.st	Thu Feb 05 00:15:25 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libview2' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#DropObject
 	instanceVariableNames:'theObject displayObject'
 	classVariableNames:''
@@ -67,6 +69,13 @@
 	privateIn:DropObject
 !
 
+DropObject subclass:#Project
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:DropObject
+!
+
 DropObject subclass:#Text
 	instanceVariableNames:''
 	classVariableNames:''
@@ -189,6 +198,12 @@
     ^ self newInstanceOf:DropObject::Method for:aMethod
 !
 
+newProject:aPackageSymbol
+    "create an instance for a package (dragging a package from a browser)"
+
+    ^ self newInstanceOf:DropObject::Project for:aPackageSymbol
+!
+
 newText:aTextOrString
     "create an instance for some text (dragging some text from an editor)"
 
@@ -312,6 +327,12 @@
     ^ false
 !
 
+isProjectObject
+    "return true, if the dropObject represents some project"
+
+    ^ false
+!
+
 isTextObject
     "return true, if the dropObject represents some text"
 
@@ -557,6 +578,22 @@
     ^ true
 ! !
 
+!DropObject::Project class methodsFor:'documentation'!
+
+documentation
+"
+    I represent a project being dragged (from a browser's projectList)
+"
+! !
+
+!DropObject::Project methodsFor:'testing'!
+
+isProjectObject
+    "return true, if the dropObject represents a project"
+
+    ^ true
+! !
+
 !DropObject::Text class methodsFor:'defaults'!
 
 displayObjectName
@@ -586,10 +623,10 @@
 !DropObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DropObject.st,v 1.23 2013-12-07 10:44:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DropObject.st,v 1.24 2015-02-04 23:15:25 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/DropObject.st,v 1.23 2013-12-07 10:44:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DropObject.st,v 1.24 2015-02-04 23:15:25 cg Exp $'
 ! !