124 , anObject |
124 , anObject |
125 "Emulates symbol behavior. This is sometimes required |
125 "Emulates symbol behavior. This is sometimes required |
126 as 'Smalltalk language' is used by legacy code to access |
126 as 'Smalltalk language' is used by legacy code to access |
127 the current language setting. |
127 the current language setting. |
128 Future versions should contain class Locale. |
128 Future versions should contain class Locale. |
|
129 cg: this is crab, who needs this? |
129 " |
130 " |
130 <resource: #obsolete> |
131 <resource: #obsolete> |
131 |
132 |
132 self obsoleteMethodWarning. |
133 self obsoleteMethodWarning. |
133 ^ Language , anObject |
134 ^ Smalltalk language , anObject |
134 |
135 |
135 "Created: / 22-08-2009 / 09:33:44 / Jan Vrany <vranyj1@fel.cvut.cz>" |
136 "Created: / 22-08-2009 / 09:33:44 / Jan Vrany <vranyj1@fel.cvut.cz>" |
136 "Modified (comment): / 01-04-2012 / 13:19:28 / cg" |
137 "Modified (comment): / 01-04-2012 / 13:19:28 / cg" |
137 ! |
138 ! |
138 |
139 |
139 asSymbol |
140 asSymbol |
140 "Returns a language symbol. This is sometimes required |
141 "Returns a language symbol. This is sometimes required |
141 as Smalltalk language is used by legacy code to access |
142 as Smalltalk language is used by legacy code to access |
142 current language. Future versions should contain class |
143 current language. Future versions should contain class |
143 Locale. |
144 Locale. |
|
145 cg: this is crab, who needs this? |
144 " |
146 " |
145 <resource: #obsolete> |
147 <resource: #obsolete> |
146 |
148 |
147 self obsoleteMethodWarning. |
149 self obsoleteMethodWarning. |
148 ^ Language |
150 ^ Smalltalk language |
149 |
151 |
150 "Created: / 22-08-2009 / 09:33:16 / Jan Vrany <vranyj1@fel.cvut.cz>" |
152 "Created: / 22-08-2009 / 09:33:16 / Jan Vrany <vranyj1@fel.cvut.cz>" |
151 ! ! |
153 ! ! |
152 |
154 |
153 !SmalltalkLanguage methodsFor:'source queries'! |
155 !SmalltalkLanguage methodsFor:'source queries'! |