swing.fan – Fantom

#! /usr/bin/env fan
//
// Copyright (c) 2008, Brian Frank and Andy Frank
// Licensed under the Academic Free License version 3.0
//
// History:
//   13 Dec 08  Brian Frank  Creation
//

using [java] javax.swing
using [java] java.awt.event
using concurrent

**
** Simple Swing app using Java FFI
**
class SwingDemo
{

  Void main()
  {
    button := JButton("Click Me")
    {
      addActionListener |ActionEvent e|
      {
        JOptionPane.showMessageDialog(null,
           "<html>Hello from <b>Java</b><br/>
            Button $e.getActionCommand pressed")
      }
    }

    frame := JFrame("Hello Swing")
    {
      setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE)
      getContentPane.add(button)
      setBounds(100, 100, 200, 200)
      setVisible(true)
    }

    Actor.sleep(Duration.maxVal) // Fantom launcher exits if this thread exits
  }

}