swing3.l (229B)
1 (load "swing.l") 2 3 (setq F (jnew JFrame "HelloWorldSwing")) 4 (setq L (jnew JLabel "Hello World")) 5 (setq C (F 'getContentPane)) 6 7 (C 'add L) 8 (F 'setDefaultCloseOperation (jfield JFrame 'EXIT_ON_CLOSE)) 9 (F 'pack) 10 (F 'setVisible true)