Parcourir la source

SmalltalkImage >> settings

Herbert Vojčík il y a 11 ans
Parent
commit
c5d1a842d6
2 fichiers modifiés avec 20 ajouts et 0 suppressions
  1. 16 0
      js/Kernel-Infrastructure.js
  2. 4 0
      st/Kernel-Infrastructure.st

+ 16 - 0
js/Kernel-Infrastructure.js

@@ -2985,6 +2985,22 @@ referencedClasses: []
 }),
 globals.SmalltalkImage);
 
+smalltalk.addMethod(
+smalltalk.method({
+selector: "settings",
+protocol: 'accessing',
+fn: function (){
+var self=this;
+function $SmalltalkSettings(){return globals.SmalltalkSettings||(typeof SmalltalkSettings=="undefined"?nil:SmalltalkSettings)}
+return $SmalltalkSettings();
+},
+args: [],
+source: "settings\x0a\x09^ SmalltalkSettings",
+messageSends: [],
+referencedClasses: ["SmalltalkSettings"]
+}),
+globals.SmalltalkImage);
+
 smalltalk.addMethod(
 smalltalk.method({
 selector: "version",

+ 4 - 0
st/Kernel-Infrastructure.st

@@ -999,6 +999,10 @@ reservedWords
 	<return smalltalk.reservedWords>
 !
 
+settings
+	^ SmalltalkSettings
+!
+
 version
 	"Answer the version string of Amber"