(defpackage #:qt-test
  (:use #:cl+qt))

(in-package #:qt-test)
(in-readtable :qt)

(defun main ()
  (make-qapplication)
  (with-objects ((window (#_new QWidget)))
    (#_show window)
    (let ((dialog (#_new QFileDialog window "" "" "")))
      (#_setOption dialog #x01 t)
      (#_setOption dialog #x10 nil)
      (#_setFileMode dialog 2)
      (unwind-protect
           (when (= 1 (#_exec dialog))
             (print (first (#_selectedFiles dialog))))
        (finalize dialog)))
    (#_exec *qapplication*)))

* (qt-test::main)

#|
debugger invoked on a SB-WIN32:EXCEPTION in thread
#<THREAD "main thread" RUNNING {1001470613}>:
  An exception occurred in context #.(SB-SYS:INT-SAP #X0022C2C0): #.(SB-SYS:INT-
SAP #X0022D4D0). (Exception code: 1722)

Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [CONTINUE] Return from the exception handler
  1: [ABORT   ] Exit debugger, returning to top level.

(SB-KERNEL:HANDLE-WIN32-EXCEPTION #.(SB-SYS:INT-SAP #X0022C2C0) #.(SB-SYS:INT-SA
P #X0022D4D0))
0] BACKTRACE

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1001470613}>
0: (SB-KERNEL:HANDLE-WIN32-EXCEPTION #.(SB-SYS:INT-SAP #X0022C2C0) #.(SB-SYS:INT
-SAP #X0022D4D0))
1: ("foreign function: call_into_lisp")
2: ("foreign function: funcall2")
3: ((LABELS QT::|const QString&-MARSHALLER| :IN "C:/Users/emiherd/quicklisp/dist
s/quicklisp/software/commonqt-20181018-git/marshal.lisp") "" #<CLOSURE (LABELS Q
T::MARSHAL-AROUND-INNER :IN QT::MARSHALLER) {101B55DB8B}>)
4: ((LABELS QT::|const QString&-MARSHALLER| :IN "C:/Users/emiherd/quicklisp/dist
s/quicklisp/software/commonqt-20181018-git/marshal.lisp") "" #<CLOSURE (LABELS Q
T::MARSHAL-AROUND-INNER :IN QT::MARSHALLER) {101B55DB0B}>)
5: ((LABELS QT::|const QString&-MARSHALLER| :IN "C:/Users/emiherd/quicklisp/dist
s/quicklisp/software/commonqt-20181018-git/marshal.lisp") "" #<CLOSURE (LABELS Q
T::MARSHAL-AROUND-INNER :IN QT::MARSHALLER) {101B55DA8B}>)
6: ((LABELS QT::ARGLIST-MARSHALLER :IN QT::ARGLIST-MARSHALLER) (#<Qt::QWidget  {
101B55C1F3}> #1="" #1# #1#) #<CLOSURE (LAMBDA (QT::STACK) :IN QT::%%CALL) {101B5
5D9CB}>)
7: (QT::%%NEW #<Qt::QFileDialog  {101B55CD33}> (#<Qt::QWidget  {101B55C1F3}> #1=
"" #1# #1#) #<CLOSURE (LABELS QT::ARGLIST-MARSHALLER :IN QT::ARGLIST-MARSHALLER)
 {101B55D92B}> #.(SB-SYS:INT-SAP #X7FED6BB5550) 9 #.(SB-SYS:INT-SAP #X003253B0))

8: (QT-TEST::MAIN)
9: (SB-INT:SIMPLE-EVAL-IN-LEXENV (QT-TEST::MAIN) #<NULL-LEXENV>)
10: (EVAL (QT-TEST::MAIN))
11: (INTERACTIVE-EVAL (QT-TEST::MAIN) :EVAL NIL)
12: (SB-IMPL::REPL-FUN NIL)
13: ((FLET "LAMBDA0" :IN "SYS:SRC;CODE;TOPLEVEL.LISP"))
14: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (FLET "LAMBDA0" :IN "SYS:SRC;COD
E;TOPLEVEL.LISP") {22F7FB}>)
15: (SB-IMPL::TOPLEVEL-REPL NIL)
16: (SB-IMPL::TOPLEVEL-INIT)
17: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE))
18: ((FLET "WITHOUT-INTERRUPTS-BODY-14" :IN SAVE-LISP-AND-DIE))
19: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))
20: ("foreign function: call_into_lisp")
21: ("foreign function: funcall0")
|#