1 "{ Package: 'stx:libbasic' }"

     2 

     3 Object subclass:#Language

     4 	instanceVariableNames:''

     5 	classVariableNames:'LanguageQuerySignal'

     6 	poolDictionaries:''

     7 	category:'Kernel-Languages'

     8 !

     9 

    10 

    11 !Language class methodsFor:'initialization'!

    12 

    13 initialize

    14 

    15      LanguageQuerySignal := 

    16             QuerySignal new

    17                 nameClass:self message:#languageQuerySignal;

    18                 notifierString:'asking for current language';

    19                 handlerBlock:[:ex | ex proceedWith:Language defaultLanguage].

    20 

    21     "Created: / 12-08-2009 / 14:56:11 / Jan Vrany <vranyj1@fel.cvut.cz>"

    22 ! !

    23 

    24 !Language class methodsFor:'Signal constants'!

    25 

    26 languageQuerySignal

    27 

    28     ^LanguageQuerySignal

    29 

    30     "Created: / 12-08-2009 / 14:57:07 / Jan Vrany <vranyj1@fel.cvut.cz>"

    31 ! !

    32 

    33 !Language class methodsFor:'accessing'!

    34 

    35 current

    36 

    37     "

    38         Language current

    39     "

    40 

    41 

    42     ^LanguageQuerySignal query

    43 

    44     "Created: / 12-08-2009 / 15:02:59 / Jan Vrany <vranyj1@fel.cvut.cz>"

    45 ! !

    46 

    47 !Language class methodsFor:'accessing - defaults'!

    48 

    49 defaultLanguage

    50 

    51     ^SmalltalkLanguage

    52 

    53     "Created: / 12-08-2009 / 14:57:39 / Jan Vrany <vranyj1@fel.cvut.cz>"

    54 ! !

    55 

    56 !Language class methodsFor:'documentation'!

    57 

    58 version

    59     ^'$Id: Language.st 10461 2009-08-12 13:49:00Z vranyj1 $'

    60 ! !

    61 

    62 Language initialize!