props

svn: r2728

collects/htdch/draw/Canvas-native-methods.ss

@@ -21,8 +21,10 @@
     (syntax-case stx ()
       [(_ body)
        #'(with-handlers 
-             ((exn:fail? 
-               (lambda (e) (raise-error "The method start(int,int) must be called on the canvas before using any drawing methods"))))
+	   ((exn:fail? 
+               (lambda (e)
+		 (raise-error
+		   "The method start(int,int) must be called on the canvas before using any drawing methods"))))
            body)]))
   
   (define-syntax (define/provide stx)

collects/htdch/draw/World.java

@@ -1,22 +1,13 @@
 package draw;
         
 public abstract class World {
-
-    protected Canvas theCanvas = new Canvas(); 
-
+    public Canvas theCanvas = new Canvas(); 
     public native boolean bigBang(int width, int height, double s); 
-
     public native boolean endOfTime();
-    
     public native World endOfWorld();
-
     public native World lastWorld();
-
     public abstract World onTick();
-
     public abstract World onKeyEvent(String ke); 
-
     public abstract boolean draw();
-
     public abstract boolean erase();
 }    

collects/profjWizard/class.scm

@@ -172,12 +172,12 @@
      ;; identifiers ending in f are format strings, and require ~n for newline
      
      ;; Abstract Class 
-     (define abstractF "abstract class ~a {\n")
+     (define abstractF "interface ~a {\n")
      ;; Abstract Template 
      (define purpos "  // purpose statement \n")
      (define absteg "  abstract ??? mmm();\n")       
      ;; Class 
-     (define classf "class ~a ~a{~n") (define extendsf "extends ~a ")
+     (define classf "class ~a ~a{~n") (define extendsf "implements ~a ")
      ;; Fields
      (define declaf "  ~a ~a;~n")
      ;; Constructor