add boolean tests and IF/ELSE/END



git-svn-id: http://skia.googlecode.com/svn/trunk@344 2bbb7eff-a529-9590-31e7-b0007b416f81
diff --git a/forth/SampleForth.cpp b/forth/SampleForth.cpp
index d207cb8..3de2fad 100644
--- a/forth/SampleForth.cpp
+++ b/forth/SampleForth.cpp
@@ -165,7 +165,8 @@
         fBM.eraseColor(0);
         fContext.init(fBM);
 
-        fEnv.parse(": view.onClick ( x y -- ) 10. drawCircle ;");
+        fEnv.parse(": mycolor ( x. y. -- x. y. ) rot rot f< IF #FFFF0000 ELSE #FF0000FF THEN setColor ;");
+        fEnv.parse(": view.onClick ( x. y. -- ) mycolor 10. drawCircle ;");
         fOnClickWord = fEnv.findWord("view.onClick");
 #if 0
         env.parse(
@@ -181,6 +182,9 @@
                   "draw1 "
                   );
 #endif
+        ForthEnv env;
+        env.parse("3 5 = IF 42 . ELSE -42 . THEN 99 .");
+        env.run();
     }
     
 protected: