--- a/InspectorView.st	Fri Jun 05 06:39:03 2015 +0200
+++ b/InspectorView.st	Sat Jun 06 06:39:51 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -2091,7 +2093,7 @@
     selectorsByFirstCharacter := Dictionary new.
     object class withAllSuperclassesDo:[:eachClass |
         eachClass methodDictionary keysAndValuesDo:[:sel :m |
-            sel numArgs == 0 ifTrue:[
+            sel argumentCount == 0 ifTrue:[
                 (protocols at:(m category ?'') ifAbsentPut:[Set new]) add:sel.
                 (selectorsByFirstCharacter at:(sel first asString) ifAbsentPut:[Set new]) add:sel.
             ]
@@ -2147,7 +2149,7 @@
                     receiver:self.
             ]
     ].
-    ^  protocolMenu
+    ^ protocolMenu
 
     "Modified: / 15-10-2013 / 12:38:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -2551,17 +2553,17 @@
     |sel argString|
 
     sel := self selectedField.
-    aSelector numArgs == 0 ifTrue:[
+    aSelector argumentCount == 0 ifTrue:[
         (sel perform:aSelector) inspect.
         ^ self.
     ].
-    aSelector numArgs == 1 ifTrue:[
+    aSelector argumentCount == 1 ifTrue:[
         argString := Dialog request:'Argument (Smalltalk Object)'.
         argString isEmptyOrNil ifTrue:[^ self].
         (sel perform:aSelector with:(Object readFrom:argString)) inspect.
         ^ self.
     ].
-self halt:'unimplemented numargs'.
+self halt:'unimplemented argumentCount'.
 
     "Modified: / 27-07-2012 / 22:43:37 / cg"
 !
@@ -4098,10 +4100,10 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.347 2015-05-27 13:18:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.348 2015-06-05 16:10:05 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.347 2015-05-27 13:18:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.348 2015-06-05 16:10:05 stefan Exp $'
 ! !