commentary
authorClaus Gittinger <cg@exept.de>
Wed, 22 May 1996 13:38:01 +0200
changeset 559 432abfae606f
parent 558 e5afcf45eda7
child 560 b067421f5274
commentary
BrowserView.st
BrwsrView.st
--- a/BrowserView.st	Tue May 21 16:45:57 1996 +0200
+++ b/BrowserView.st	Wed May 22 13:38:01 1996 +0200
@@ -3991,7 +3991,9 @@
 !
 
 methodCategoryCreateAccessMethods
-    "create access methods for all instvars"
+    "create access methods for instvars.
+     If no variable is selected, for all instvars;
+     otherwise for that selected instvar."
 
     self checkClassSelected ifFalse:[^ self].
 
@@ -4028,7 +4030,7 @@
         self updateMethodListWithScroll:false
     ]
 
-    "Modified: 18.5.1996 / 15:38:15 / cg"
+    "Modified: 22.5.1996 / 13:36:59 / cg"
 !
 
 methodCategoryCreateDocumentationMethods
@@ -7067,6 +7069,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.135 1996-05-21 12:37:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.136 1996-05-22 11:38:01 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Tue May 21 16:45:57 1996 +0200
+++ b/BrwsrView.st	Wed May 22 13:38:01 1996 +0200
@@ -3991,7 +3991,9 @@
 !
 
 methodCategoryCreateAccessMethods
-    "create access methods for all instvars"
+    "create access methods for instvars.
+     If no variable is selected, for all instvars;
+     otherwise for that selected instvar."
 
     self checkClassSelected ifFalse:[^ self].
 
@@ -4028,7 +4030,7 @@
         self updateMethodListWithScroll:false
     ]
 
-    "Modified: 18.5.1996 / 15:38:15 / cg"
+    "Modified: 22.5.1996 / 13:36:59 / cg"
 !
 
 methodCategoryCreateDocumentationMethods
@@ -7067,6 +7069,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.135 1996-05-21 12:37:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.136 1996-05-22 11:38:01 cg Exp $'
 ! !
 BrowserView initialize!