12 lines
299 B
Text
12 lines
299 B
Text
package HelloWorldGraphical where
|
|
|
|
import Java.Swing
|
|
|
|
main _ = do
|
|
frame <- JFrame.new "Goodbye, world!"
|
|
frame.setDefaultCloseOperation(JFrame.dispose_on_close)
|
|
label <- JLabel.new "Goodbye, world!"
|
|
cp <- frame.getContentPane
|
|
cp.add label
|
|
frame.pack
|
|
frame.setVisible true
|