--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ProgrammingLanguage.st	Thu Aug 13 10:43:43 2009 +0100
@@ -0,0 +1,62 @@
+"{ Package: 'stx:libbasic' }"
+
+Object subclass:#ProgrammingLanguage
+	instanceVariableNames:''
+	classVariableNames:'LanguageQuerySignal'
+	poolDictionaries:''
+	category:'Kernel-ProgrammingLanguages'
+!
+
+
+!ProgrammingLanguage class methodsFor:'initialization'!
+
+initialize
+
+     LanguageQuerySignal := 
+            QuerySignal new
+                nameClass:self message:#languageQuerySignal;
+                notifierString:'asking for current language';
+                handlerBlock:[:ex | ex proceedWith:ProgrammingLanguage defaultProgrammingLanguage].
+
+    "Created: / 12-08-2009 / 14:56:11 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+
+!ProgrammingLanguage class methodsFor:'Signal constants'!
+
+languageQuerySignal
+
+    ^LanguageQuerySignal
+
+    "Created: / 12-08-2009 / 14:57:07 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+
+!ProgrammingLanguage class methodsFor:'accessing'!
+
+current
+
+    "
+        ProgrammingLanguage current
+    "
+
+
+    ^LanguageQuerySignal query
+
+    "Created: / 12-08-2009 / 15:02:59 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+
+!ProgrammingLanguage class methodsFor:'accessing - defaults'!
+
+defaultProgrammingLanguage
+
+    ^SmalltalkLanguage
+
+    "Created: / 12-08-2009 / 14:57:39 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+
+!ProgrammingLanguage class methodsFor:'documentation'!
+
+version
+    ^'$Id: ProgrammingLanguage.st 10464 2009-08-13 09:43:43Z vranyj1 $'
+! !
+
+ProgrammingLanguage initialize!