[SCM] Lisaac compiler branch, master, updated. lisaac-0.12-522-g7a36cd0

[Benoit Sonntag]

The following commit has been merged in the master branch:
commit 7a36cd0007e7ca765dc3bb7d83a30d74ac0f7e60
Author: Benoit Sonntag <sonntag at icps.u-strasbg.fr>
Date:   Sat Oct 24 19:52:42 2009 +0200

    little example graphics

diff --git a/example/test_compiler/test1.li b/example/gui/hello.li
similarity index 84%
copy from example/test_compiler/test1.li
copy to example/gui/hello.li
index 5ad04a5..66560e2 100644
--- a/example/test_compiler/test1.li
+++ b/example/gui/hello.li
@@ -20,31 +20,26 @@
 ///////////////////////////////////////////////////////////////////////////////
 Section Header
   
-  + name      := TEST1;
+  + name      := HELLO;
 
-  - copyright := "2003-2008 Sonntag Benoit";
+  - copyright := "2003-2009 Sonntag Benoit";
 
   - author    := "Sonntag Benoit (sonntag at icps.u-strasbg.fr)";
   - comment   := "The main prototype";
-
+  
 Section Inherit
-
+  
   - parent_object:OBJECT := OBJECT;
-
+  
 Section Public
   
-  - method (a,b,c:INTEGER) :(INTEGER,INTEGER,BOOLEAN) <-
+  - main <-
   (
-    a,a-b,a=c
+    VIDEO.make (130,100);    
+    DESK.make VIDEO with (
+      G_RAW.create (G_OUT.create "Hello World!") /
+      G_BUTTON.create (G_OUT.create "Exit" justify (G_OUT.center)) action 
+      { b:G_BUTTON; die_with_code exit_success_code; }
+    );
   );
   
-  - main <-
-  ( + r1,r2:INTEGER;
-    + r3:BOOLEAN;
-    
-    (r1,r2,r3) := method (1,2,3);
-    `/* @r1, @r2, at r3*/`;    
-    (r1,r2,r3) := method (2,3,4);
-    `/* @r1, @r2, at r3*/`;        
-  );
-

-- 
Lisaac compiler