This is the mail archive of the
kawa@sourceware.org
mailing list for the Kawa project.
Problem with javax.swing.JFileChooser on WindowsXP?
- From: alex mitchell <alexm at nus dot edu dot sg>
- To: "kawa at sources dot redhat dot com" <kawa at sources dot redhat dot com>
- Date: Tue, 11 Aug 2009 01:26:25 +0800
- Subject: Problem with javax.swing.JFileChooser on WindowsXP?
I'm having problems using JFileChooser under Windows XP. After doing some
searching, it seems that this could be a Java bug which seems to have been
around for years (!?!), but I thought I'd ask here first and see if anyone
else has encountered this.
The following code works fine under MacOS and Ubuntu, but freezes under
Windows XP:
(define frame (<javax.swing.JFrame> "Test"))
(define menu-bar (<javax.swing.JMenuBar>))
(define m-menu (<javax.swing.JMenu> "Menu"))
(define m-menu-item (<javax.swing.JMenuItem> "Open"))
(invoke (as <javax.swing.JFrame> frame) 'setJMenuBar menu-bar)
(invoke (as <java.awt.Container> menu-bar) 'add m-menu)
(invoke (as <java.awt.Container> m-menu) 'add m-menu-item)
(invoke m-menu-item 'add-action-listener
(object (<java.awt.event.ActionListener>)
((action-performed e :: <java.awt.event.ActionEvent>) :: <void>
(let ((the-file (get-file-to-open)))
(format #t "file: ~a~%~!" the-file)))))
(invoke frame 'pack)
(invoke (as <java.awt.Component> frame) 'setVisible #t)
(define (get-file-to-open)
(let* ((fchooser (<javax.swing.JFileChooser>))(local-frame
(<javax.swing.JFrame>))
(returnVal (invoke fchooser 'showOpenDialog local-frame)))
(if (= returnVal <javax.swing.JFileChooser>:APPROVE_OPTION)
(invoke fchooser 'getSelectedFile)
#f)))
Any pointers?
thanks!
Alex