BrowserView.st
changeset 1539 971e20d7b6bf
parent 1536 27f314b5792f
child 1540 227095c5d657
--- a/BrowserView.st	Tue Apr 07 17:26:33 1998 +0200
+++ b/BrowserView.st	Wed Apr 08 12:04:50 1998 +0200
@@ -8802,9 +8802,11 @@
     ].
 
     self methodSelectionChanged.
-
-    self addToClassHistory: actualClass name asString, ' ', currentSelector
-
+    currentSelector notNil ifTrue:[
+        self addToClassHistory: actualClass name asString, ' ', currentSelector
+    ]
+
+    "Modified: / 7.4.1998 / 10:53:01 / cg"
 !
 
 switchToMethodNamed:matchString
@@ -11560,6 +11562,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.385 1998-04-07 08:03:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.386 1998-04-08 10:04:50 cg Exp $'
 ! !
 BrowserView initialize!