Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Language renamed to ProgrammingLanguages because Language global variable holds current language according to locale settings jv
authorJan Vrany <jan.vrany@fit.cvut.cz>
Thu, 13 Aug 2009 10:43:43 +0100
branchjv
changeset 17726 8f5a84d96a65
parent 17725 2a28bb8e80ab
child 17727 3945dfe4659c
Language renamed to ProgrammingLanguages because Language global variable holds current language according to locale settings
Language.st file | annotate | diff | comparison | revisions
Make.proto file | annotate | diff | comparison | revisions
Make.spec file | annotate | diff | comparison | revisions
ProgrammingLanguage.st file | annotate | diff | comparison | revisions
SmalltalkLanguage.st file | annotate | diff | comparison | revisions
abbrev.stc file | annotate | diff | comparison | revisions
libInit.cc file | annotate | diff | comparison | revisions
stx_libbasic.st file | annotate | diff | comparison | revisions 
--- a/Language.st	Thu Aug 13 09:47:27 2009 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,62 +0,0 @@
-"{ Package: 'stx:libbasic' }"
-
-Object subclass:#Language
-	instanceVariableNames:''
-	classVariableNames:'LanguageQuerySignal'
-	poolDictionaries:''
-	category:'Kernel-Languages'
-!
-
-
-!Language class methodsFor:'initialization'!
-
-initialize
-
-     LanguageQuerySignal := 
-            QuerySignal new
-                nameClass:self message:#languageQuerySignal;
-                notifierString:'asking for current language';
-                handlerBlock:[:ex | ex proceedWith:Language defaultLanguage].
-
-    "Created: / 12-08-2009 / 14:56:11 / Jan Vrany <vranyj1@fel.cvut.cz>"
-! !
-
-!Language class methodsFor:'Signal constants'!
-
-languageQuerySignal
-
-    ^LanguageQuerySignal
-
-    "Created: / 12-08-2009 / 14:57:07 / Jan Vrany <vranyj1@fel.cvut.cz>"
-! !
-
-!Language class methodsFor:'accessing'!
-
-current
-
-    "
-        Language current
-    "
-
-
-    ^LanguageQuerySignal query
-
-    "Created: / 12-08-2009 / 15:02:59 / Jan Vrany <vranyj1@fel.cvut.cz>"
-! !
-
-!Language class methodsFor:'accessing - defaults'!
-
-defaultLanguage
-
-    ^SmalltalkLanguage
-
-    "Created: / 12-08-2009 / 14:57:39 / Jan Vrany <vranyj1@fel.cvut.cz>"
-! !
-
-!Language class methodsFor:'documentation'!
-
-version
-    ^'$Id: Language.st 10461 2009-08-12 13:49:00Z vranyj1 $'
-! !
-
-Language initialize!
--- a/Make.proto	Thu Aug 13 09:47:27 2009 +0100
+++ b/Make.proto	Thu Aug 13 10:43:43 2009 +0100
@@ -123,7 +123,7 @@
 $(OUTDIR)Geometric.$(O) Geometric.$(H): Geometric.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
 $(OUTDIR)InlineObject.$(O) InlineObject.$(H): InlineObject.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
 $(OUTDIR)InterestConverter.$(O) InterestConverter.$(H): InterestConverter.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
-$(OUTDIR)Language.$(O) Language.$(H): Language.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)ProgrammingLanguage.$(O) ProgrammingLanguage.$(H): ProgrammingLanguage.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
 $(OUTDIR)Link.$(O) Link.$(H): Link.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
 $(OUTDIR)Magnitude.$(O) Magnitude.$(H): Magnitude.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
 $(OUTDIR)Message.$(O) Message.$(H): Message.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
@@ -184,7 +184,7 @@
 $(OUTDIR)SequenceableCollection.$(O) SequenceableCollection.$(H): SequenceableCollection.st $(INCLUDE_TOP)/stx/libbasic/Collection.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
 $(OUTDIR)Set.$(O) Set.$(H): Set.st $(INCLUDE_TOP)/stx/libbasic/Collection.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
 $(OUTDIR)SmalltalkDesktop.$(O) SmalltalkDesktop.$(H): SmalltalkDesktop.st $(INCLUDE_TOP)/stx/libbasic/AbstractDesktop.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
-$(OUTDIR)SmalltalkLanguage.$(O) SmalltalkLanguage.$(H): SmalltalkLanguage.st $(INCLUDE_TOP)/stx/libbasic/Language.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)SmalltalkLanguage.$(O) SmalltalkLanguage.$(H): SmalltalkLanguage.st $(INCLUDE_TOP)/stx/libbasic/ProgrammingLanguage.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
 $(OUTDIR)True.$(O) True.$(H): True.st $(INCLUDE_TOP)/stx/libbasic/Boolean.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
 $(OUTDIR)UnixDesktop.$(O) UnixDesktop.$(H): UnixDesktop.st $(INCLUDE_TOP)/stx/libbasic/AbstractDesktop.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
 $(OUTDIR)UnixFilename.$(O) UnixFilename.$(H): UnixFilename.st $(INCLUDE_TOP)/stx/libbasic/Filename.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
--- a/Make.spec	Thu Aug 13 09:47:27 2009 +0100
+++ b/Make.spec	Thu Aug 13 10:43:43 2009 +0100
@@ -84,7 +84,7 @@
     $(OUTDIR)Geometric.$(O) \
     $(OUTDIR)InlineObject.$(O) \
     $(OUTDIR)InterestConverter.$(O) \
-    $(OUTDIR)Language.$(O) \
+    $(OUTDIR)ProgrammingLanguage.$(O) \
     $(OUTDIR)Link.$(O) \
     $(OUTDIR)Magnitude.$(O) \
     $(OUTDIR)Message.$(O) \
--- /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!
--- a/SmalltalkLanguage.st	Thu Aug 13 09:47:27 2009 +0100
+++ b/SmalltalkLanguage.st	Thu Aug 13 10:43:43 2009 +0100
@@ -1,6 +1,6 @@
 "{ Package: 'stx:libbasic' }"
 
-Language subclass:#SmalltalkLanguage
+ProgrammingLanguage subclass:#SmalltalkLanguage
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
@@ -11,5 +11,5 @@
 !SmalltalkLanguage class methodsFor:'documentation'!
 
 version
-    ^'$Id: SmalltalkLanguage.st 10461 2009-08-12 13:49:00Z vranyj1 $'
+    ^'$Id: SmalltalkLanguage.st 10464 2009-08-13 09:43:43Z vranyj1 $'
 ! !
--- a/abbrev.stc	Thu Aug 13 09:47:27 2009 +0100
+++ b/abbrev.stc	Thu Aug 13 10:43:43 2009 +0100
@@ -77,7 +77,7 @@
 ImaginaryResultError ImaginaryResultError stx:libbasic 'Kernel-Exceptions-Errors' 1
 InlineObject InlineObject stx:libbasic 'Programming-Support' 0
 InterestConverter InterestConverter stx:libbasic 'Interface-Support-Models' 0
-Language Language stx:libbasic 'Kernel-Languages' 0
+ProgrammingLanguage ProgrammingLanguage stx:libbasic 'Kernel-ProgrammingLanguages' 0
 LargeFloat LargeFloat stx:libbasic 'Magnitude-Numbers' 0
 Link Link stx:libbasic 'Collections-Support' 0
 MacFilename MacFilename stx:libbasic 'OS-Mac' 0
@@ -158,7 +158,7 @@
 SequenceableCollection SequenceableCollection stx:libbasic 'Collections-Abstract' 0
 Set Set stx:libbasic 'Collections-Unordered' 0
 SmalltalkDesktop SmalltalkDesktop stx:libbasic 'System-Desktop' 0
-SmalltalkLanguage SmalltalkLanguage stx:libbasic 'Kernel-Languages' 0
+SmalltalkLanguage SmalltalkLanguage stx:libbasic 'Kernel-ProgrammingLanguages' 0
 True True stx:libbasic 'Kernel-Objects' 0
 UnixDesktop UnixDesktop stx:libbasic 'System-Desktop' 0
 UnixFilename UnixFilename stx:libbasic 'OS-Unix' 0
--- a/libInit.cc	Thu Aug 13 09:47:27 2009 +0100
+++ b/libInit.cc	Thu Aug 13 10:43:43 2009 +0100
@@ -41,7 +41,7 @@
 _Geometric_Init(pass,__pRT__,snd);
 _InlineObject_Init(pass,__pRT__,snd);
 _InterestConverter_Init(pass,__pRT__,snd);
-_Language_Init(pass,__pRT__,snd);
+_ProgrammingLanguage_Init(pass,__pRT__,snd);
 _Link_Init(pass,__pRT__,snd);
 _Magnitude_Init(pass,__pRT__,snd);
 _Message_Init(pass,__pRT__,snd);
--- a/stx_libbasic.st	Thu Aug 13 09:47:27 2009 +0100
+++ b/stx_libbasic.st	Thu Aug 13 10:43:43 2009 +0100
@@ -494,11 +494,11 @@
     "Return a SVN revision number of myself.
      This number is updated after a commit"
 
-    ^ "$SVN-Revision:"10461"$"
+    ^ "$SVN-Revision:"'10463M'"$"
 ! !
 
 !stx_libbasic class methodsFor:'documentation'!
 
 version
-    ^ '$Id: stx_libbasic.st 10462 2009-08-13 08:45:32Z vranyj1 $'
+    ^ '$Id: stx_libbasic.st 10464 2009-08-13 09:43:43Z vranyj1 $'
 ! !
hg/stx-libbasic