Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Fri, 14 Jun 1996 21:35:33 +0200
changeset 625 072915402b9d
parent 624 c718eb43968e
child 626 d81ad641d1d9
checkin from browser
BrowserView.st file | annotate | diff | comparison | revisions
BrwsrView.st file | annotate | diff | comparison | revisions 
--- a/BrowserView.st	Fri Jun 14 21:18:26 1996 +0200
+++ b/BrowserView.st	Fri Jun 14 21:35:33 1996 +0200
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:2.10.9 on 11-jun-1996 at 16:31:49'                   !
-
 StandardSystemView subclass:#BrowserView
 	instanceVariableNames:'classCategoryListView classListView methodCategoryListView
 		methodListView classMethodListView codeView classToggle
@@ -5338,19 +5336,22 @@
 methodRemove
     "remove the current method"
 
-    |who|
+    |who sel|
 
     self checkMethodSelected ifFalse:[^ self].
     who := currentMethod who.
     who notNil ifTrue:[
-        who first removeSelector:(actualClass selectorAtMethod:currentMethod).
+        sel := actualClass selectorAtMethod:currentMethod.
+        sel notNil ifTrue:[
+            who first removeSelector:sel
+        ].
         currentMethod := currentSelector := nil.
         self updateMethodListWithScroll:false
     ] ifFalse:[
         self warn:'oops - no class'
     ]
 
-    "Modified: 4.6.1996 / 23:11:54 / cg"
+    "Modified: 14.6.1996 / 20:17:46 / cg"
 !
 
 methodRemoveBreakOrTrace
@@ -7231,6 +7232,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.151 1996-06-12 22:14:01 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.152 1996-06-14 19:35:33 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Fri Jun 14 21:18:26 1996 +0200
+++ b/BrwsrView.st	Fri Jun 14 21:35:33 1996 +0200
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:2.10.9 on 11-jun-1996 at 16:31:49'                   !
-
 StandardSystemView subclass:#BrowserView
 	instanceVariableNames:'classCategoryListView classListView methodCategoryListView
 		methodListView classMethodListView codeView classToggle
@@ -5338,19 +5336,22 @@
 methodRemove
     "remove the current method"
 
-    |who|
+    |who sel|
 
     self checkMethodSelected ifFalse:[^ self].
     who := currentMethod who.
     who notNil ifTrue:[
-        who first removeSelector:(actualClass selectorAtMethod:currentMethod).
+        sel := actualClass selectorAtMethod:currentMethod.
+        sel notNil ifTrue:[
+            who first removeSelector:sel
+        ].
         currentMethod := currentSelector := nil.
         self updateMethodListWithScroll:false
     ] ifFalse:[
         self warn:'oops - no class'
     ]
 
-    "Modified: 4.6.1996 / 23:11:54 / cg"
+    "Modified: 14.6.1996 / 20:17:46 / cg"
 !
 
 methodRemoveBreakOrTrace
@@ -7231,6 +7232,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.151 1996-06-12 22:14:01 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.152 1996-06-14 19:35:33 cg Exp $'
 ! !
 BrowserView initialize!
hg/stx-libtool