--- a/Tools_ClassList.st	Mon Jan 09 11:08:29 2006 +0100
+++ b/Tools_ClassList.st	Tue Jan 10 14:18:48 2006 +0100
@@ -119,43 +119,43 @@
 
     ^ 
      #(#FullSpec
-	#name: #windowSpec
-	#window: 
+        #name: #windowSpec
+        #window: 
        #(#WindowSpec
-	  #label: 'ClassList'
-	  #name: 'ClassList'
-	  #min: #(#Point 0 0)
-	  #max: #(#Point 1024 721)
-	  #bounds: #(#Rectangle 16 46 316 346)
-	)
-	#component: 
+          #label: 'ClassList'
+          #name: 'ClassList'
+          #min: #(#Point 0 0)
+          #max: #(#Point 1024 721)
+          #bounds: #(#Rectangle 16 46 316 346)
+        )
+        #component: 
        #(#SpecCollection
-	  #collection: #(
-	   #(#SequenceViewSpec
-	      #name: 'List'
-	      #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
-	      #tabable: true
-	      #model: #selectedClassNameIndices
-	      #menu: #menuHolder
-	      #hasHorizontalScrollBar: true
-	      #hasVerticalScrollBar: true
-	      #miniScrollerHorizontal: true
-	      #isMultiSelect: true
-	      #valueChangeSelector: #selectionChangedByClick
-	      #useIndex: true
-	      #sequenceList: #classNameList
-	      #doubleClickChannel: #doubleClickChannel
-	      #properties: 
-	     #(#PropertyListDictionary
-		#dragArgument: nil
-		#dropArgument: nil
-		#canDropSelector: #canDrop:
-		#dropSelector: #doDrop:
-	      )
-	    )
-	   )
+          #collection: #(
+           #(#SequenceViewSpec
+              #name: 'List'
+              #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+              #tabable: true
+              #model: #selectedClassNameIndices
+              #menu: #menuHolder
+              #hasHorizontalScrollBar: true
+              #hasVerticalScrollBar: true
+              #miniScrollerHorizontal: true
+              #isMultiSelect: true
+              #valueChangeSelector: #selectionChangedByClick
+              #useIndex: true
+              #sequenceList: #classNameList
+              #doubleClickChannel: #doubleClickChannel
+              #properties: 
+             #(#PropertyListDictionary
+                #dragArgument: nil
+                #dropArgument: nil
+                #canDropSelector: #canDropContext:
+                #dropSelector: #doDropContext:
+              )
+            )
+           )
          
-	)
+        )
       )
 ! !
 
@@ -876,7 +876,7 @@
 
 !ClassList methodsFor:'drag & drop'!
 
-canDrop:aDropContext
+canDropContext:aDropContext
     |methods cls|
 
     methods := aDropContext dropObjects collect:[:obj | obj theObject].
@@ -904,7 +904,7 @@
     ^ cls
 !
 
-doDrop:aDropContext
+doDropContext:aDropContext
     |cls methods|
 
     methods := aDropContext dropObjects collect:[:aDropObject | aDropObject theObject].
@@ -912,11 +912,11 @@
 
     cls := self classAtTargetPointOf:aDropContext.
     methods first mclass isMeta ifTrue:[
-	cls := cls theMetaclass
+        cls := cls theMetaclass
     ].
 
     cls notNil ifTrue:[
-	self masterApplication moveMethods:methods toClass:cls.
+        self masterApplication moveMethods:methods toClass:cls.
     ].
 ! !
 
@@ -1597,5 +1597,5 @@
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.8 2005-06-15 12:50:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.9 2006-01-10 13:18:33 cg Exp $'
 ! !