1 "{ Package: 'jv:libgdbs' }"

     2 

     3 Object subclass:#GDBThreadGroupType

     4 	instanceVariableNames:''

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'GDB-Core'

     8 !

     9 

    10 GDBThreadGroupType class instanceVariableNames:'theOneAndOnlyInstance'

    11 

    12 "

    13  No other class instance variables are inherited by this class.

    14 "

    15 !

    16 

    17 !GDBThreadGroupType class methodsFor:'instance creation'!

    18 

    19 flushSingleton

    20     "flushes the cached singleton"

    21 

    22     theOneAndOnlyInstance := nil

    23 

    24     "

    25      self flushSingleton

    26     "

    27 !

    28 

    29 new

    30     "returns a singleton"

    31 

    32     ^ self theOneAndOnlyInstance.

    33 !

    34 

    35 theOneAndOnlyInstance

    36     "returns a singleton"

    37 

    38     self == GDBThreadGroupType ifTrue:[ 

    39         self error: 'GDBThreadGroupType is an abstract superclass'

    40     ].

    41     theOneAndOnlyInstance isNil ifTrue:[

    42         theOneAndOnlyInstance := self basicNew initialize.

    43     ].

    44     ^ theOneAndOnlyInstance.

    45 

    46     "Modified: / 01-10-2014 / 01:27:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    47 ! !

    48 

    49 !GDBThreadGroupType class methodsFor:'testing'!

    50 

    51 isAbstract

    52     ^ self == GDBThreadGroupType

    53 ! !

    54