Home Explore Help
Register Sign In
raisch
/
amber
forked from amber/amber
1
0
Fork 0
Files
Browse Source

Added Package fetching and Additional-Examples

Added a Package class loading-storing protocol
Added Additional-Examples package
Reformatted index.html; added width and height to image tag
JohnnyT 13 years ago
parent
973e51b934
commit
76de1b487a
8 changed files with 323 additions and 121 deletions
Unified View Show Diff Stats
  1. 106 113
      index.html
  2. 15 0
      js/Additional-Examples.deploy.js
  3. 21 0
      js/Additional-Examples.js
  4. 48 0
      js/Kernel-Objects.deploy.js
  5. 69 1
      js/Kernel-Objects.js
  6. 23 6
      js/amber.js
  7. 13 0
      st/Additional-Examples.st
  8. 28 1
      st/Kernel-Objects.st

+ 106 - 113
index.html
View File 

@@ -1,115 +1,108 @@
 
-<!DOCTYPE html> 
-<html> 
-  <head> 
-    <title>Amber Smalltalk</title> 
-    <meta http-equiv="content-type" content="text/html; charset=utf-8" /> 
-    <meta name="author" content="Nicolas Petton" /> 
-    <link rel="stylesheet" type="text/css" href='css/style.css' /> 
-    <link type="image/x-icon" rel="shortcut icon" href="/favicon.ico"/> 
-    <link href='http://fonts.googleapis.com/css?family=Istok+Web' rel='stylesheet' type='text/css'> 
-			<script type='text/javascript' src='js/amber.js'></script> 
-		</head> 
-		<body> 
-			
-			<a href="http://github.com/NicolasPetton/amber"><img style="position: absolute; top: 0; lef
 
-			t: 0; border: 0;" src="https://assets.github.com/img/bec6c51521dcc8148146135149fe06a9cc737577?repo=&url=http%3A%2F%2Fs3.amazonaws.com%2Fgithub%2Fribbons%2Fforkme_left_darkblue_121621.png&path=" alt="Fork me on GitHub"></a> 
-			
-			<div id="wrapper"> 
-				
-				<div id="header"> 
-					<div class="main"> 
-						<div class="logo"> 
-							<img src="images/amber.png"/> 
-						</div> 
-						
-						<ul id="tabs"> 
-							<li><a target="_blank" href="http://amber-lang.net/index.html">Overview</a></li> · 
-							<li><a target="_blank" href="http://amber-lang.net/index.html#download">Download</a></li> · 
-							<li><a target="_blank" href="http://amber-lang.net/learn.html">Learn</a></li> ·
 
-							<li><a target="_blank" href="http://amber-lang.net/documentation.html">Documentation</a></li> ·
 
-							<li><a target="_blank" target="_blank" href="https://github.com/NicolasPetton/amber">Source</a></li> 
-						</ul> 
-						
-						<div class="clear"></div> 
-						
-					</div> 
-				</div> 
-				
-				<div class="teaser"> 
-					<div class="main"> 
-						<h1>Welcome aboard!</h1> 
-						<div class="column">
 
-							<h2>What is Amber?</h2>
 
-							<p>Amber, formerly known as Jtalk, is an implementation of the Smalltalk-80 language. It is designed to make client-side development faster and easier. It allows developers to write client-side heavy web applications in Smalltalk. </p> 
-							<p>Amber includes an integrated development environment with a class browser, workspace, transcript, object inspector and debugger.</p> 
-							<p>Amber is written in itself, including the compiler, and compiles into efficient JavaScript, mapping one-to-one with the JS equivalent.</p> 
-							<h2>Give it a try!</h2>
 
-							<p><b>Try a <button onClick="smalltalk.Browser._open()"> Class browser</button> right now!</b></p> 
-						</div> 
-						<div class="column">
 
-							<h2>Getting started</h2>
 
-							<p>The <a href="https://github.com/NicolasPetton/amber/wiki">Wiki on GitHub</a> includes a <a href="https://github.com/NicolasPetton/amber/wiki/Getting-started">Getting started</a> tutorial for OSX, Linux and Windows.</p>
 
-							<p>If you're new to Smalltalk, You can learn it online with <a href="http://amber-lang.net/learn.html">ProfStef</a>.</p>
 
-							<h2>Join the community</h2>
 
-							<ul>
 
-								<li><a href="http://amber-lang.net">Amber's website</a></li>
 
-								<li><a href="https://github.com/NicolasPetton/amber/wiki">Wiki on GitHub</a></li>
 
-								<li><a href="http://groups.google.com/group/amber-lang">Mailing list</a></li>
 
-								<li>Join us on IRC at #amber-lang on Freenode</li>
 
-							</ul>
 
-						</div>
 
-						<div class="clear"></div> 
-					</div> 
-					
-					
-				</div> 
-				
-				<div id="content"> 
-					<div class="main"> 
-						<div class="box"> 
-							<h2>Client-side usage</h2> 
-							<div class="content"> 
-								<p>Load the full Amber Smalltalk environment with the IDE in your page:</p> 
-								
-								<code><pre>&lt;script src="js/amber.js" type="text/javascript"&gt;&lt;/script&gt;
 
+<!DOCTYPE html>
 
+<html>
 
+  <head>
 
+    <title>Amber Smalltalk</title>
 
+    <meta http-equiv="content-type" content="text/html; charset=utf-8" />
 
+    <meta name="author" content="Nicolas Petton" />
 
+    <link rel="stylesheet" type="text/css" href='css/style.css' />
 
+    <link type="image/x-icon" rel="shortcut icon" href="/favicon.ico"/>
 
+    <link href='http://fonts.googleapis.com/css?family=Istok+Web' rel='stylesheet' type='text/css'>
 
+    <script type='text/javascript' src='js/amber.js'></script>
 
+  </head>
 
+  <body>
 
+    <a href="http://github.com/NicolasPetton/amber"><img style="position: absolute; top: 0; left: 0; border: 0;" src="https://assets.github.com/img/bec6c51521dcc8148146135149fe06a9cc737577?repo=&url=http%3A%2F%2Fs3.amazonaws.com%2Fgithub%2Fribbons%2Fforkme_left_darkblue_121621.png&path=" alt="Fork me on GitHub"></a>
 
+    <div id="wrapper">
 
+      <div id="header">
 
+        <div class="main">
 
+          <div class="logo">
 
+            <img src="images/amber.png" width="438" height="164"/>
 
+          </div>
 
+
 
+          <ul id="tabs">
 
+            <li><a target="_blank" href="http://amber-lang.net/index.html">Overview</a></li> ·
 
+            <li><a target="_blank" href="http://amber-lang.net/index.html#download">Download</a></li> ·
 
+            <li><a target="_blank" href="http://amber-lang.net/learn.html">Learn</a></li> ·
 
+            <li><a target="_blank" href="http://amber-lang.net/documentation.html">Documentation</a></li> ·
 
+            <li><a target="_blank" target="_blank" href="https://github.com/NicolasPetton/amber">Source</a></li>
 
+          </ul>
 
+
 
+          <div class="clear"></div>
 
+        </div>
 
+      </div>
 
+
 
+      <div class="teaser">
 
+        <div class="main">
 
+          <h1>Welcome aboard!</h1>
 
+          <div class="column">
 
+            <h2>What is Amber?</h2>
 
+            <p>Amber, formerly known as Jtalk, is an implementation of the Smalltalk-80 language. It is designed to make client-side development faster and easier. It allows developers to write client-side heavy web applications in Smalltalk. </p>
 
+            <p>Amber includes an integrated development environment with a class browser, workspace, transcript, object inspector and debugger.</p>
 
+            <p>Amber is written in itself, including the compiler, and compiles into efficient JavaScript, mapping one-to-one with the JS equivalent.</p>
 
+            <h2>Give it a try!</h2>
 
+            <p><b>Try a <button onClick="smalltalk.Browser._open()"> Class browser</button> right now!</b></p>
 
+          </div>
 
+          <div class="column">
 
+            <h2>Getting started</h2>
 
+            <p>The <a href="https://github.com/NicolasPetton/amber/wiki">Wiki on GitHub</a> includes a <a href="https://github.com/NicolasPetton/amber/wiki/Getting-started">Getting started</a> tutorial for OSX, Linux and Windows.</p>
 
+            <p>If you're new to Smalltalk, You can learn it online with <a href="http://amber-lang.net/learn.html">ProfStef</a>.</p>
 
+            <h2>Join the community</h2>
 
+            <ul>
 
+              <li><a href="http://amber-lang.net">Amber's website</a></li>
 
+              <li><a href="https://github.com/NicolasPetton/amber/wiki">Wiki on GitHub</a></li>
 
+              <li><a href="http://groups.google.com/group/amber-lang">Mailing list</a></li>
 
+              <li>Join us on IRC at #amber-lang on Freenode</li>
 
+            </ul>
 
+          </div>
 
+          <div class="clear"></div>
 
+        </div>
 
+      </div>
 
+
 
+      <div id="content">
 
+        <div class="main">
 
+          <div class="box">
 
+            <h2>Client-side usage</h2>
 
+            <div class="content">
 
+              <p>Load the full Amber Smalltalk environment with the IDE in your page:</p>
 
+
 
+              <code><pre>&lt;script src="js/amber.js" type="text/javascript"&gt;&lt;/script&gt;
 
 &lt;script type="text/javascript"&gt; loadAmber()&lt;/script&gt;</pre></code>
 
 &lt;script type="text/javascript"&gt; loadAmber()&lt;/script&gt;</pre></code>
 
-							</div> 
-							
-							
-							<p>Or the deployment JavaScript file only (without the Smalltalk sources, parser, compiler and IDE):</p>
 
-							<code><pre>&lt;script src="js/amber.js" type="text/javascript"&gt;&lt;/script&gt;
 
+            </div>
 
+
 
+
 
+            <p>Or the deployment JavaScript file only (without the Smalltalk sources, parser, compiler and IDE):</p>
 
+            <code><pre>&lt;script src="js/amber.js" type="text/javascript"&gt;&lt;/script&gt;
 
 &lt;script type="text/javascript"&gt; loadAmber({deploy: true})&lt;/script&gt;</pre></code>
 
 &lt;script type="text/javascript"&gt; loadAmber({deploy: true})&lt;/script&gt;</pre></code>
 
-						</div> 
-						
-						<div class="box last examples"> 
-							<h2>Examples</h2> 
-							<div class="content"> 
-								<ul>
 
-									<li>
 
-										<a href="examples/trysmalltalk/index.html">
 
-											<img src="images/profstef.png" alt="Learn Smalltalk with ProfStef"/>
 
-										</a>
 
-									</li>
 
-									<li>
 
-										<a href="examples/presentation/index.html">
 
-											<img src="images/presentation.png" alt="ESUG 2011 presentation"/>
 
-										</a>
 
-									</li>
 
-									<li>
 
-										<a href="examples/twitterwall/index.html">
 
-											<img src="images/twitterwall.png" alt="Twitter Wall"/>
 
-										</a>
 
-									</li>
 
-									<div class="clear"></div>
 
-								</ul>
 
-							</div> 
-						</div> 
-						
-					</div> 
-				</div> 
-			</div> 
-			
-			<script type='text/javascript'> loadAmber() </script> 
-			
-		</body> 
-	</html> 
+          </div>
 
+
 
+          <div class="box last examples">
 
+            <h2>Examples</h2>
 
+            <div class="content">
 
+              <ul>
 
+                <li>
 
+                  <a href="examples/trysmalltalk/index.html">
 
+                    <img src="images/profstef.png" alt="Learn Smalltalk with ProfStef"/>
 
+                  </a>
 
+                </li>
 
+                <li>
 
+                  <a href="examples/presentation/index.html">
 
+                    <img src="images/presentation.png" alt="ESUG 2011 presentation"/>
 
+                  </a>
 
+                </li>
 
+                <li>
 
+                  <a href="examples/twitterwall/index.html">
 
+                    <img src="images/twitterwall.png" alt="Twitter Wall"/>
 
+                  </a>
 
+                </li>
 
+                <div class="clear"></div>
 
+              </ul>
 
+            </div>
 
+          </div>
 
+
 
+        </div>
 
+      </div>
 
+    </div>
 
+
 
+    <script type='text/javascript'> loadAmber() </script>
 
+
 
+  </body>
 
+</html>

+ 15 - 0
js/Additional-Examples.deploy.js
View File 

@@ -0,0 +1,15 @@
 
+smalltalk.addPackage('Additional-Examples', {});
 
+smalltalk.addClass('ClassInitializationExample', smalltalk.Object, [], 'Additional-Examples');
 
+
 
+smalltalk.addMethod(
 
+'_initialize',
 
+smalltalk.method({
 
+selector: 'initialize',
 
+fn: function (){
 
+var self=this;
 
+smalltalk.send((typeof window == 'undefined' ? nil : window), "_alert_", [smalltalk.send(smalltalk.send("Hello from inside the ", "__comma", [smalltalk.send(self, "_printString", [])]), "__comma", [" initialize method."])]);
 
+return self;}
 
+}),
 
+smalltalk.ClassInitializationExample.klass);
 
+
 
+

+ 21 - 0
js/Additional-Examples.js
View File 

@@ -0,0 +1,21 @@
 
+smalltalk.addPackage('Additional-Examples', {});
 
+smalltalk.addClass('ClassInitializationExample', smalltalk.Object, [], 'Additional-Examples');
 
+smalltalk.ClassInitializationExample.comment=unescape('This%20class%20will%20pop%20up%20an%20alert%20when%20it%20is%20loaded%20into%20Amber.')
 
+
 
+smalltalk.addMethod(
 
+unescape('_initialize'),
 
+smalltalk.method({
 
+selector: unescape('initialize'),
 
+category: 'initialization',
 
+fn: function (){
 
+var self=this;
 
+smalltalk.send((typeof window == 'undefined' ? nil : window), "_alert_", [smalltalk.send(smalltalk.send("Hello from inside the ", "__comma", [smalltalk.send(self, "_printString", [])]), "__comma", [" initialize method."])]);
 
+return self;},
 
+args: [],
 
+source: unescape('initialize%0A%09window%20alert%3A%20%27Hello%20from%20inside%20the%20%27%2C%20self%20printString%20%2C%20%27%20initialize%20method.%27'),
 
+messageSends: ["alert:", unescape("%2C"), "printString"],
 
+referencedClasses: []
 
+}),
 
+smalltalk.ClassInitializationExample.klass);
 
+
 
+

+ 48 - 0
js/Kernel-Objects.deploy.js
View File 

@@ -1122,6 +1122,54 @@ return self;}
 
 }),
 
 }),
 
 smalltalk.Package.klass);
 
 smalltalk.Package.klass);
 
 
 
+smalltalk.addMethod(
 
+'_fetch_prefix_',
 
+smalltalk.method({
 
+selector: 'fetch:prefix:',
 
+fn: function (aPackageName, aPrefix){
 
+var self=this;
 
+smalltalk.send((typeof jQuery == 'undefined' ? nil : jQuery), "_getScript_onSuccess_", [smalltalk.send(smalltalk.send(aPrefix, "__comma", [aPackageName]), "__comma", [".js"]), (function(){return smalltalk.send((smalltalk.Package || Package), "_init_", [aPackageName]);})]);
 
+return self;}
 
+}),
 
+smalltalk.Package.klass);
 
+
 
+smalltalk.addMethod(
 
+'_fetch_',
 
+smalltalk.method({
 
+selector: 'fetch:',
 
+fn: function (aPackageName){
 
+var self=this;
 
+smalltalk.send(self, "_fetch_prefix_", [aPackageName, smalltalk.send(smalltalk.send(self, "_defaultCommitPathJs", []), "__comma", [unescape("/")])]);
 
+return self;}
 
+}),
 
+smalltalk.Package.klass);
 
+
 
+smalltalk.addMethod(
 
+'_commitToLocalStorage_',
 
+smalltalk.method({
 
+selector: 'commitToLocalStorage:',
 
+fn: function (aPackageName){
 
+var self=this;
 
+var key=nil;
 
+var sourceCode=nil;
 
+key=smalltalk.send("smalltalk.packages.", "__comma", [aPackageName]);
 
+sourceCode=smalltalk.send(smalltalk.send((smalltalk.Exporter || Exporter), "_new", []), "_exportPackage_", [aPackageName]);
 
+localStorage[key] = escape(sourceCode);
 
+return self;}
 
+}),
 
+smalltalk.Package.klass);
 
+
 
+smalltalk.addMethod(
 
+'_init_',
 
+smalltalk.method({
 
+selector: 'init:',
 
+fn: function (aPackageName){
 
+var self=this;
 
+(function($rec){smalltalk.send($rec, "_do_", [(function(each){return smalltalk.init(each);})]);return smalltalk.send($rec, "_do_", [(function(each){return smalltalk.send(each, "_initialize", []);})]);})(smalltalk.send(smalltalk.send((typeof smalltalk == 'undefined' ? nil : smalltalk), "_classes", []), "_select_", [(function(each){return each.pkg.pkgName == aPackageName;})]));
 
+return self;}
 
+}),
 
+smalltalk.Package.klass);
 
+
 
 
 
 smalltalk.addClass('Number', smalltalk.Object, [], 'Kernel-Objects');
 
 smalltalk.addClass('Number', smalltalk.Object, [], 'Kernel-Objects');
 
 smalltalk.addMethod(
 
 smalltalk.addMethod(

+ 69 - 1
js/Kernel-Objects.js
View File 

@@ -1196,7 +1196,7 @@ smalltalk.Smalltalk.klass);
 
 
 
 
 
 smalltalk.addClass('Package', smalltalk.Object, ['commitPathJs', 'commitPathSt'], 'Kernel-Objects');
 
 smalltalk.addClass('Package', smalltalk.Object, ['commitPathJs', 'commitPathSt'], 'Kernel-Objects');
 
-smalltalk.Package.comment=unescape('A%20Package%20is%20similar%20to%20a%20%22class%20category%22%20typically%20found%20in%20other%20Smalltalks%20like%20Pharo%20or%20Squeak.%20Amber%20does%20not%20have%20class%20categories%20anymore%2C%20it%20had%20in%20the%20beginning%20but%20now%20each%20class%20in%20the%20system%20knows%20which%20package%20it%20belongs%20to.%0A%0AA%20Package%20has%20a%20name%2C%20an%20Array%20of%20%22requires%22%2C%20a%20comment%20and%20a%20Dictionary%20with%20other%20optional%20key%20value%20attributes.%20A%20Package%20can%20also%20be%20queried%20for%20its%20classes%2C%20but%20it%20will%20then%20resort%20to%20a%20reverse%20scan%20of%20all%20classes%20to%20find%20them.%0APackages%20are%20manipulated%20through%20%22Smalltalk%20current%22%2C%20like%20for%20example%20finding%20one%20based%20on%20a%20name%3A%0A%0A%09Smalltalk%20current%20packageAt%3A%20%27Kernel%27%0A%0A...but%20you%20can%20also%20use%3A%0A%0A%09Package%20named%3A%20%27Kernel%27%0A%0AA%20Package%20differs%20slightly%20from%20a%20Monticello%20package%20which%20can%20span%20multiple%20class%20categories%20using%20a%20naming%20convention%20based%20on%20hyphenation.%20But%20just%20as%20in%20Monticello%20a%20Package%20supports%20%22class%20extensions%22%20so%20a%20Package%0Acan%20define%20behaviors%20in%20foreign%20classes%20using%20a%20naming%20convention%20for%20method%20categories%20where%20the%20category%20starts%20with%20an%20asterisk%20and%20then%20the%20name%20of%20the%20owning%20package%20follows.%20This%20can%20easily%20be%20seen%20in%20for%20example%20class%0AString%20where%20the%20method%20category%20%22*IDE%22%20defines%20%23inspectOn%3A%20which%20thus%20is%20a%20method%20belonging%20to%20the%20IDE%20package.')
 
+smalltalk.Package.comment=unescape('A%20Package%20is%20similar%20to%20a%20%22class%20category%22%20typically%20found%20in%20other%20Smalltalks%20like%20Pharo%20or%20Squeak.%20Amber%20does%20not%20have%20class%20categories%20anymore%2C%20it%20had%20in%20the%20beginning%20but%20now%20each%20class%20in%20the%20system%20knows%20which%20package%20it%20belongs%20to.%0A%0AA%20Package%20has%20a%20name%2C%20an%20Array%20of%20%22requires%22%2C%20a%20comment%20and%20a%20Dictionary%20with%20other%20optional%20key%20value%20attributes.%20A%20Package%20can%20also%20be%20queried%20for%20its%20classes%2C%20but%20it%20will%20then%20resort%20to%20a%20reverse%20scan%20of%20all%20classes%20to%20find%20them.%0APackages%20are%20manipulated%20through%20%22Smalltalk%20current%22%2C%20like%20for%20example%20finding%20one%20based%20on%20a%20name%3A%0A%0A%09Smalltalk%20current%20packageAt%3A%20%27Kernel%27%0A%0A...but%20you%20can%20also%20use%3A%0A%0A%09Package%20named%3A%20%27Kernel%27%0A%0AA%20Package%20differs%20slightly%20from%20a%20Monticello%20package%20which%20can%20span%20multiple%20class%20categories%20using%20a%20naming%20convention%20based%20on%20hyphenation.%20But%20just%20as%20in%20Monticello%20a%20Package%20supports%20%22class%20extensions%22%20so%20a%20Package%0Acan%20define%20behaviors%20in%20foreign%20classes%20using%20a%20naming%20convention%20for%20method%20categories%20where%20the%20category%20starts%20with%20an%20asterisk%20and%20then%20the%20name%20of%20the%20owning%20package%20follows.%20This%20can%20easily%20be%20seen%20in%20for%20example%20class%0AString%20where%20the%20method%20category%20%22*IDE%22%20defines%20%23inspectOn%3A%20which%20thus%20is%20a%20method%20belonging%20to%20the%20IDE%20package.%0A%0AYou%20can%20fetch%20a%20package%20from%20the%20server%3A%0A%0A%09Package%20fetch%3A%20%27Additional-Examples%27')
 
 smalltalk.addMethod(
 
 smalltalk.addMethod(
 
 unescape('_name'),
 
 unescape('_name'),
 
 smalltalk.method({
 
 smalltalk.method({
 
@@ -1603,6 +1603,74 @@ referencedClasses: []
 
 }),
 
 }),
 
 smalltalk.Package.klass);
 
 smalltalk.Package.klass);
 
 
 
+smalltalk.addMethod(
 
+unescape('_fetch_prefix_'),
 
+smalltalk.method({
 
+selector: unescape('fetch%3Aprefix%3A'),
 
+category: 'loading-storing',
 
+fn: function (aPackageName, aPrefix){
 
+var self=this;
 
+smalltalk.send((typeof jQuery == 'undefined' ? nil : jQuery), "_getScript_onSuccess_", [smalltalk.send(smalltalk.send(aPrefix, "__comma", [aPackageName]), "__comma", [".js"]), (function(){return smalltalk.send((smalltalk.Package || Package), "_init_", [aPackageName]);})]);
 
+return self;},
 
+args: ["aPackageName", "aPrefix"],
 
+source: unescape('fetch%3A%20aPackageName%20prefix%3A%20aPrefix%0A%09jQuery%20getScript%3A%20%28aPrefix%20%2C%20aPackageName%20%2C%20%27.js%27%29%20onSuccess%3A%20%5B%20Package%20init%3A%20aPackageName%20%5D'),
 
+messageSends: ["getScript:onSuccess:", unescape("%2C"), "init:"],
 
+referencedClasses: ["Package"]
 
+}),
 
+smalltalk.Package.klass);
 
+
 
+smalltalk.addMethod(
 
+unescape('_fetch_'),
 
+smalltalk.method({
 
+selector: unescape('fetch%3A'),
 
+category: 'loading-storing',
 
+fn: function (aPackageName){
 
+var self=this;
 
+smalltalk.send(self, "_fetch_prefix_", [aPackageName, smalltalk.send(smalltalk.send(self, "_defaultCommitPathJs", []), "__comma", [unescape("/")])]);
 
+return self;},
 
+args: ["aPackageName"],
 
+source: unescape('fetch%3A%20aPackageName%0A%09self%20fetch%3A%20aPackageName%20prefix%3A%20self%20defaultCommitPathJs%2C%20%27/%27'),
 
+messageSends: ["fetch:prefix:", unescape("%2C"), "defaultCommitPathJs"],
 
+referencedClasses: []
 
+}),
 
+smalltalk.Package.klass);
 
+
 
+smalltalk.addMethod(
 
+unescape('_commitToLocalStorage_'),
 
+smalltalk.method({
 
+selector: unescape('commitToLocalStorage%3A'),
 
+category: 'loading-storing',
 
+fn: function (aPackageName){
 
+var self=this;
 
+var key=nil;
 
+var sourceCode=nil;
 
+key=smalltalk.send("smalltalk.packages.", "__comma", [aPackageName]);
 
+sourceCode=smalltalk.send(smalltalk.send((smalltalk.Exporter || Exporter), "_new", []), "_exportPackage_", [aPackageName]);
 
+localStorage[key] = escape(sourceCode);
 
+return self;},
 
+args: ["aPackageName"],
 
+source: unescape('commitToLocalStorage%3A%20aPackageName%0A%09%7C%20key%20sourceCode%20%7C%0A%09key%20%3A%3D%20%27smalltalk.packages.%27%20%2C%20aPackageName.%0A%09sourceCode%20%3A%3D%20Exporter%20new%20exportPackage%3A%20aPackageName.%0A%09%3ClocalStorage%5Bkey%5D%20%3D%20escape%28sourceCode%29%3E'),
 
+messageSends: [unescape("%2C"), "exportPackage:", "new"],
 
+referencedClasses: ["Exporter"]
 
+}),
 
+smalltalk.Package.klass);
 
+
 
+smalltalk.addMethod(
 
+unescape('_init_'),
 
+smalltalk.method({
 
+selector: unescape('init%3A'),
 
+category: 'loading-storing',
 
+fn: function (aPackageName){
 
+var self=this;
 
+(function($rec){smalltalk.send($rec, "_do_", [(function(each){return smalltalk.init(each);})]);return smalltalk.send($rec, "_do_", [(function(each){return smalltalk.send(each, "_initialize", []);})]);})(smalltalk.send(smalltalk.send((typeof smalltalk == 'undefined' ? nil : smalltalk), "_classes", []), "_select_", [(function(each){return each.pkg.pkgName == aPackageName;})]));
 
+return self;},
 
+args: ["aPackageName"],
 
+source: unescape('init%3A%20aPackageName%0A%09%28smalltalk%20classes%20select%3A%20%5B%20%3Aeach%20%7C%20%3Ceach.pkg.pkgName%20%3D%3D%20aPackageName%3E%20%5D%29%0A%09%09do%3A%20%5B%20%3Aeach%20%7C%20%3Csmalltalk.init%28each%29%3E%20%5D%3B%0A%09%09do%3A%20%5B%20%3Aeach%20%7C%20each%20initialize%20%5D'),
 
+messageSends: ["do:", "initialize", "select:", "classes"],
 
+referencedClasses: []
 
+}),
 
+smalltalk.Package.klass);
 
+
 
 
 
 smalltalk.addClass('Number', smalltalk.Object, [], 'Kernel-Objects');
 
 smalltalk.addClass('Number', smalltalk.Object, [], 'Kernel-Objects');
 
 smalltalk.addMethod(
 
 smalltalk.addMethod(

+ 23 - 6
js/amber.js
View File 

@@ -6,7 +6,6 @@
 
   })
 
   })
 
 */
 
 */
 
 
 
-
 
 amber = (function() {
 
 amber = (function() {
 
   var that = {};
 
   var that = {};
 
 
 
@@ -22,6 +21,17 @@ amber = (function() {
 
   var localPackages;
 
   var localPackages;
 
   var spec;
 
   var spec;
 
 
 
+  that.toggleIDE = function() {
 
+    if ($('#jtalk').length == 0) {
 
+      smalltalk.Browser._open();
 
+    } else if ($('#jtalk').is(':visible')) {
 
+      smalltalk.TabManager._current()._close();
 
+    } else {
 
+      smalltalk.TabManager._current()._open();
 
+    }
 
+    return false;
 
+  }
 
+
 
   that.load = function(obj) {
 
   that.load = function(obj) {
 
     spec = obj || {};
 
     spec = obj || {};
 
 
 
@@ -30,6 +40,12 @@ amber = (function() {
 
     deploy = spec.deploy || false;
 
     deploy = spec.deploy || false;
 
     debug = spec.debug || false;
 
     debug = spec.debug || false;
 
 
 
+    // When debug is turned on, logs are written to the console,
 
+    // and the user will be prompted before they leave the page.
 
+    if (debug) {
 
+      window.onbeforeunload = function(){ return 'You will loose all code that you have not committed'; }
 
+    }
 
+
 
     // Allow loading default Amber files from a different location
 
     // Allow loading default Amber files from a different location
 
     // e.g. http://amber-lang.net/amber/
 
     // e.g. http://amber-lang.net/amber/
 
     if (spec.home) home = spec.home;
 
     if (spec.home) home = spec.home;
 
@@ -85,7 +101,9 @@ amber = (function() {
 
     // Always load all local packages
 
     // Always load all local packages
 
     for (name in localPackages) {
 
     for (name in localPackages) {
 
       log('Local package:  ' + name);
 
       log('Local package:  ' + name);
 
-      localStorageSource.push(localPackages[name]);
 
+      var sourceCode = unescape(localPackages[name]);
 
+      sourceCode += "\nsmalltalk.Package._init_('"+name+"')";
 
+      localStorageSource.push(sourceCode);
 
     }
 
     }
 
 
 
     // Be sure to setup & initialize smalltalk classes
 
     // Be sure to setup & initialize smalltalk classes
 
@@ -151,8 +169,8 @@ amber = (function() {
 
   function loadIDEDependencies() {
 
   function loadIDEDependencies() {
 
     loadJS('lib/jQuery/jquery.textarea.js');
 
     loadJS('lib/jQuery/jquery.textarea.js');
 
     loadJS('lib/CodeMirror/codemirror.js');
 
     loadJS('lib/CodeMirror/codemirror.js');
 
-    loadCSS('lib/CodeMirror/codemirror.css', 'js');
 
     loadJS('lib/CodeMirror/smalltalk.js');
 
     loadJS('lib/CodeMirror/smalltalk.js');
 
+    loadCSS('lib/CodeMirror/codemirror.css', 'js');
 
     loadCSS('lib/CodeMirror/amber.css', 'js');
 
     loadCSS('lib/CodeMirror/amber.css', 'js');
 
   };
 
   };
 
 
 
@@ -208,6 +226,5 @@ amber = (function() {
 
   return that;
 
   return that;
 
 })();
 
 })();
 
 
 
-window.loadAmber = function(spec) {
 
-  amber.load(spec);
 
-}
 
+window.loadAmber = amber.load;
 
+window.toggleAmberIDE = amber.toggleIDE;

+ 13 - 0
st/Additional-Examples.st
View File 

@@ -0,0 +1,13 @@
 
+Smalltalk current createPackage: 'Additional-Examples' properties: #{}!
 
+Object subclass: #ClassInitializationExample
 
+	instanceVariableNames: ''
 
+	category: 'Additional-Examples'!
 
+!ClassInitializationExample commentStamp!
 
+This class will pop up an alert when it is loaded into Amber.!
 
+
 
+!ClassInitializationExample class methodsFor: 'initialization'!
 
+
 
+initialize
 
+	window alert: 'Hello from inside the ', self printString , ' initialize method.'
 
+! !
 
+

+ 28 - 1
st/Kernel-Objects.st
View File 

@@ -423,7 +423,11 @@ Packages are manipulated through "Smalltalk current", like for example finding o
 
 
 
 A Package differs slightly from a Monticello package which can span multiple class categories using a naming convention based on hyphenation. But just as in Monticello a Package supports "class extensions" so a Package
 
 A Package differs slightly from a Monticello package which can span multiple class categories using a naming convention based on hyphenation. But just as in Monticello a Package supports "class extensions" so a Package
 
 can define behaviors in foreign classes using a naming convention for method categories where the category starts with an asterisk and then the name of the owning package follows. This can easily be seen in for example class
 
 can define behaviors in foreign classes using a naming convention for method categories where the category starts with an asterisk and then the name of the owning package follows. This can easily be seen in for example class
 
-String where the method category "*IDE" defines #inspectOn: which thus is a method belonging to the IDE package.!
 
+String where the method category "*IDE" defines #inspectOn: which thus is a method belonging to the IDE package.
 
+
 
+You can fetch a package from the server:
 
+
 
+	Package fetch: 'Additional-Examples'!
 
 
 
 !Package methodsFor: 'accessing'!
 
 !Package methodsFor: 'accessing'!
 
 
 
@@ -543,6 +547,29 @@ resetCommitPaths
 
         defaultCommitPathSt := nil.
 
         defaultCommitPathSt := nil.
 
 ! !
 
 ! !
 
 
 
+!Package class methodsFor: 'loading-storing'!
 
+
 
+fetch: aPackageName prefix: aPrefix
 
+	jQuery getScript: (aPrefix , aPackageName , '.js') onSuccess: [ Package init: aPackageName ]
 
+!
 
+
 
+fetch: aPackageName
 
+	self fetch: aPackageName prefix: self defaultCommitPathJs, '/'
 
+!
 
+
 
+commitToLocalStorage: aPackageName
 
+	| key sourceCode |
 
+	key := 'smalltalk.packages.' , aPackageName.
 
+	sourceCode := Exporter new exportPackage: aPackageName.
 
+	<localStorage[key] = escape(sourceCode)>
 
+!
 
+
 
+init: aPackageName
 
+	(smalltalk classes select: [ :each | <each.pkg.pkgName == aPackageName> ])
 
+		do: [ :each | <smalltalk.init(each)> ];
 
+		do: [ :each | each initialize ]
 
+! !
 
+
 
 !Package class methodsFor: 'not yet classified'!
 
 !Package class methodsFor: 'not yet classified'!
 
 
 
 named: aPackageName
 
 named: aPackageName