--- a/AbstractDirectoryBrowser.st	Tue Jan 10 14:18:48 2006 +0100
+++ b/AbstractDirectoryBrowser.st	Tue Jan 10 14:32:27 2006 +0100
@@ -59,7 +59,6 @@
 !AbstractDirectoryBrowser methodsFor:'drag & drop'!
 
 canDrop:aContext
-
     ^ inDropMode and:[canDropItem]
 !
 
@@ -211,5 +210,5 @@
 !AbstractDirectoryBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractDirectoryBrowser.st,v 1.17 2005-08-12 14:46:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractDirectoryBrowser.st,v 1.18 2006-01-10 13:31:59 cg Exp $'
 ! !

--- a/Tools_MethodCategoryList.st	Tue Jan 10 14:18:48 2006 +0100
+++ b/Tools_MethodCategoryList.st	Tue Jan 10 14:32:27 2006 +0100
@@ -101,43 +101,43 @@
 
     ^ 
      #(#FullSpec
-	#name: #windowSpec
-	#window: 
+        #name: #windowSpec
+        #window: 
        #(#WindowSpec
-	  #label: 'ProtocolList'
-	  #name: 'ProtocolList'
-	  #min: #(#Point 0 0)
-	  #max: #(#Point 1024 721)
-	  #bounds: #(#Rectangle 16 46 316 346)
-	)
-	#component: 
+          #label: 'ProtocolList'
+          #name: 'ProtocolList'
+          #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: #selectedProtocolIndices
-	      #menu: #menuHolder
-	      #hasHorizontalScrollBar: true
-	      #hasVerticalScrollBar: true
-	      #miniScrollerHorizontal: true
-	      #isMultiSelect: true
-	      #valueChangeSelector: #selectionChangedByClick
-	      #useIndex: true
-	      #sequenceList: #protocolList
-	      #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: #selectedProtocolIndices
+              #menu: #menuHolder
+              #hasHorizontalScrollBar: true
+              #hasVerticalScrollBar: true
+              #miniScrollerHorizontal: true
+              #isMultiSelect: true
+              #valueChangeSelector: #selectionChangedByClick
+              #useIndex: true
+              #sequenceList: #protocolList
+              #doubleClickChannel: #doubleClickChannel
+              #properties: 
+             #(#PropertyListDictionary
+                #dragArgument: nil
+                #dropArgument: nil
+                #canDropSelector: #canDropContext:
+                #dropSelector: #doDropContext:
+              )
+            )
+           )
          
-	)
+        )
       )
 ! !
 
@@ -655,7 +655,7 @@
 
 !MethodCategoryList methodsFor:'drag & drop'!
 
-canDrop:aDropContext
+canDropContext:aDropContext
     |cat methods|
 
     methods := aDropContext dropObjects collect:[:obj | obj theObject].
@@ -685,7 +685,7 @@
     ^ cat
 !
 
-doDrop:aDropContext
+doDropContext:aDropContext
     |cat methods|
 
     methods := aDropContext dropObjects collect:[:aDropObject | aDropObject theObject].
@@ -693,7 +693,7 @@
 
     cat := self categoryAtTargetPointOf:aDropContext.
     cat notNil ifTrue:[
-	self masterApplication moveMethods:methods toProtocol:cat.
+        self masterApplication moveMethods:methods toProtocol:cat.
     ].
 ! !
 
@@ -1259,5 +1259,5 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.6 2005-11-18 14:55:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.7 2006-01-10 13:32:27 cg Exp $'
 ! !