--- a/BrowserView.st Tue Sep 18 12:15:40 2001 +0200
+++ b/BrowserView.st Tue Sep 18 13:44:02 2001 +0200
@@ -1,57 +1,14 @@
- "show the enter box to add a new method category.
- Offer existing superclass categories in box to help avoiding
- useless typing."
-
- |someCategories existingCategories box superclass|
-
- actualClass notNil ifTrue:[
- someCategories := actualClass allCategories asSet.
- (superclass := actualClass superclass) notNil ifTrue:[
- superclass allSubclasses do:[:cls |
- someCategories addAll:cls categories
- ]
- ].
- someCategories := someCategories asOrderedCollection
- ] ifFalse:[
- "
- mhmh - offer some typical categories ...
- "
- showInstance ifTrue:[
- someCategories := #('accessing'
- 'initialization'
- 'private'
- 'printing & storing'
- 'queries'
- 'testing'
- )
- ] ifFalse:[
- someCategories := #(
- 'documentation'
- 'initialization'
- 'instance creation'
- ).
- ].
- ].
- someCategories sort.
-
- "
- remove existing categories
- "
- existingCategories := methodCategoryListView list.
- existingCategories notNil ifTrue:[
- someCategories := someCategories select:[:cat | (existingCategories includes:cat) not].
- ].
- someCategories := someCategories asSet asOrderedCollection sort.
-
- box := self listBoxTitle:'name of new method category:'
- okText:'create'
- list:someCategories.
- box label:(resources string:'create category').
- box initialText:lastCategory.
- box action:[:aString | self newMethodCategory:aString. lastCategory := aString].
- box showAtPointer
-
- "Modified: 15.1.1997 / 23:57:26 / cg"
+"
+ COPYRIGHT (c) 1989 by Claus Gittinger
+ All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
"{ Package: 'stx:libtool' }"
@@ -76,61 +33,18 @@
!BrowserView class methodsFor:'documentation'!
-methodCategoryNewCategory
- "show the enter box to add a new method category.
- Offer existing superclass categories in box to help avoiding
- useless typing."
-
- |someCategories existingCategories box superclass|
-
- actualClass notNil ifTrue:[
- someCategories := actualClass allCategories asSet.
- (superclass := actualClass superclass) notNil ifTrue:[
- superclass allSubclasses do:[:cls |
- someCategories addAll:cls categories
- ]
- ].
- someCategories := someCategories asOrderedCollection
- ] ifFalse:[
- "
- mhmh - offer some typical categories ...
- "
- showInstance ifTrue:[
- someCategories := #('accessing'
- 'initialization'
- 'private'
- 'printing & storing'
- 'queries'
- 'testing'
- )
- ] ifFalse:[
- someCategories := #(
- 'documentation'
- 'initialization'
- 'instance creation'
- ).
- ].
- ].
- someCategories sort.
-
- "
- remove existing categories
- "
- existingCategories := methodCategoryListView list.
- existingCategories notNil ifTrue:[
- someCategories := someCategories select:[:cat | (existingCategories includes:cat) not].
- ].
- someCategories := someCategories asSet asOrderedCollection sort.
-
- box := self listBoxTitle:'name of new method category:'
- okText:'create'
- list:someCategories.
- box label:(resources string:'create category').
- box initialText:lastCategory.
- box action:[:aString | self newMethodCategory:aString. lastCategory := aString].
- box showAtPointer
-
- "Modified: 15.1.1997 / 23:57:26 / cg"
+copyright
+"
+ COPYRIGHT (c) 1989 by Claus Gittinger
+ All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
!
documentation
@@ -14994,6 +14908,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.676 2001-09-18 08:51:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.677 2001-09-18 11:44:02 cg Exp $'
! !
BrowserView initialize!