(module installer mzscheme
  (require profj/compile)
  (provide installer)
  
  (define (installer plthome)
    (let ((draw-path (build-path (collection-path "htdch" "graphics"))))
      (let ((javac
             (lambda (file)
               (parameterize ([current-load-relative-directory draw-path]
                              [current-directory draw-path])
                 (compile-java 'file 'file 'full
                               (build-path draw-path file)
                               #f #f)))))
        (javac "Posn.java")
        (javac "Color.java")
        (javac "Image.djava")
        (javac "PictureFactory.djava")
        (javac "Black.java")
        (javac "Blue.java")
        (javac "Brown.java")
        (javac "Green.java")
        (javac "Orange.java")
        (javac "Purple.java")
        (javac "Red.java")
        (javac "White.java")
        (javac "Yellow.java")
        (javac "Command.djava")
        (javac "DrawLine.djava")
        (javac "DrawRectangle.djava")
        (javac "DrawImage.djava")
	(javac "View.djava")
        (javac "CommandSequence.java")
        (javac "LargerSeq.java")
        (javac "EmptySeq.java")
        (javac "World.java")
        (javac "GameWorld.djava")
        )))
  )