equal
deleted
inserted
replaced
3989 box action:[:aString | self copyMethodsFromClass:aString]. |
3989 box action:[:aString | self copyMethodsFromClass:aString]. |
3990 box showAtPointer |
3990 box showAtPointer |
3991 ! |
3991 ! |
3992 |
3992 |
3993 methodCategoryCreateAccessMethods |
3993 methodCategoryCreateAccessMethods |
3994 "create access methods for all instvars" |
3994 "create access methods for instvars. |
|
3995 If no variable is selected, for all instvars; |
|
3996 otherwise for that selected instvar." |
3995 |
3997 |
3996 self checkClassSelected ifFalse:[^ self]. |
3998 self checkClassSelected ifFalse:[^ self]. |
3997 |
3999 |
3998 showInstance ifFalse:[ |
4000 showInstance ifFalse:[ |
3999 self warn:'select instance - and try again'. |
4001 self warn:'select instance - and try again'. |
4026 ]. |
4028 ]. |
4027 self updateMethodCategoryListWithScroll:false. |
4029 self updateMethodCategoryListWithScroll:false. |
4028 self updateMethodListWithScroll:false |
4030 self updateMethodListWithScroll:false |
4029 ] |
4031 ] |
4030 |
4032 |
4031 "Modified: 18.5.1996 / 15:38:15 / cg" |
4033 "Modified: 22.5.1996 / 13:36:59 / cg" |
4032 ! |
4034 ! |
4033 |
4035 |
4034 methodCategoryCreateDocumentationMethods |
4036 methodCategoryCreateDocumentationMethods |
4035 "create empty documentation methods" |
4037 "create empty documentation methods" |
4036 |
4038 |
7065 ! ! |
7067 ! ! |
7066 |
7068 |
7067 !BrowserView class methodsFor:'documentation'! |
7069 !BrowserView class methodsFor:'documentation'! |
7068 |
7070 |
7069 version |
7071 version |
7070 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.135 1996-05-21 12:37:46 cg Exp $' |
7072 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.136 1996-05-22 11:38:01 cg Exp $' |
7071 ! ! |
7073 ! ! |
7072 BrowserView initialize! |
7074 BrowserView initialize! |