Java Applets with Frege

AppletSupport.java

package fregeappletsupport;

import javax.swing.JApplet;
import javax.swing.SwingUtilities;

import fregeapplet.HelloApplet;

/**
 * A starter class since Frege cannot extend a Java class
 *
 */
public class AppletSupport extends JApplet {
  @Override
  public void init() {
    try {
      SwingUtilities.invokeAndWait(new Runnable() {
        @Override
        public void run() {
          // This calls frege function
          HelloApplet.appletInit(AppletSupport.this).apply(1).result().forced();
        }
      });
    } catch (final Exception e) {
      System.err.println("createGUI didn't complete successfully");
    }
  }

}

HelloApplet.fr

module fregeapplet.HelloApplet where

import Java.Swing

data JApplet = native javax.swing.JApplet

appletInit :: JApplet -> IO ()
appletInit applet = do
  hw <- JLabel.new "Hello World from frege!"
  applet.add hw
  return ()