--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/GDBThreadGroupType.st	Wed Oct 01 02:04:11 2014 +0100
@@ -0,0 +1,54 @@
+"{ Package: 'jv:libgdbs' }"
+
+Object subclass:#GDBThreadGroupType
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'GDB-Core'
+!
+
+GDBThreadGroupType class instanceVariableNames:'theOneAndOnlyInstance'
+
+"
+ No other class instance variables are inherited by this class.
+"
+!
+
+!GDBThreadGroupType class methodsFor:'instance creation'!
+
+flushSingleton
+    "flushes the cached singleton"
+
+    theOneAndOnlyInstance := nil
+
+    "
+     self flushSingleton
+    "
+!
+
+new
+    "returns a singleton"
+
+    ^ self theOneAndOnlyInstance.
+!
+
+theOneAndOnlyInstance
+    "returns a singleton"
+
+    self == GDBThreadGroupType ifTrue:[ 
+        self error: 'GDBThreadGroupType is an abstract superclass'
+    ].
+    theOneAndOnlyInstance isNil ifTrue:[
+        theOneAndOnlyInstance := self basicNew initialize.
+    ].
+    ^ theOneAndOnlyInstance.
+
+    "Modified: / 01-10-2014 / 01:27:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!GDBThreadGroupType class methodsFor:'testing'!
+
+isAbstract
+    ^ self == GDBThreadGroupType
+! !
+