extensions.st
author Claus Gittinger <cg@exept.de>
Fri, 14 Dec 2001 00:30:32 +0100
changeset 57 6135e11e1c07
parent 34 0d7d0d1cf0da
child 77 c41da8255d91
permissions -rw-r--r--
rel3.0
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
31
5ac2aafeac47 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
     1
"{ Package: 'stx:goodies/sunit' }"
5ac2aafeac47 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
     2
!
0
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
!Behavior methodsFor:'Camp Smalltalk'!
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
57
Claus Gittinger <cg@exept.de>
parents: 34
diff changeset
     6
sunitAllSelectors
Claus Gittinger <cg@exept.de>
parents: 34
diff changeset
     7
        ^self allSelectors asSortedCollection asOrderedCollection
Claus Gittinger <cg@exept.de>
parents: 34
diff changeset
     8
! !
Claus Gittinger <cg@exept.de>
parents: 34
diff changeset
     9
Claus Gittinger <cg@exept.de>
parents: 34
diff changeset
    10
!Behavior methodsFor:'Camp Smalltalk'!
Claus Gittinger <cg@exept.de>
parents: 34
diff changeset
    11
0
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
sunitSelectors
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
	^self selectors asSortedCollection asOrderedCollection
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
    "Created: / 20.6.2000 / 11:54:54 / Sames"
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
! !
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
!Symbol methodsFor:'Camp Smalltalk'!
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
sunitAsClass
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
	^SUnitNameResolver classNamed: self
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
    "Created: / 20.6.2000 / 18:22:33 / Sames"
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
! !
9365d5753f11 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25