[ltk-user] Small Bug

[Wesley Kerr]

I'm beginning to fall in love with this library.  Thanks so much.  I
am using Allegro modern lisp and there are two small issues that I've
encountered.

(defun error-popup (message title icon &key (allow-yesno-p t))
  (ecase (message-box message title
                     (if (and allow-yesno-p (find-restart 'continue))
                         "yesno"
                         "ok")
                     icon)
    (:YES (continue))
    ((:ok :NO) (abort))))

(defun debug-popup (condition title)
  (ecase (message-box (format nil "~A~%~%Do you wish to invoke the debugger?"
                              condition)
                      title "yesno" "question")
    (:YES (cond (*debugger-hook*
                 (let ((hook *debugger-hook*)
                       (*debugger-hook* nil))
                   (funcall hook condition hook)))
                (t
                 (invoke-debugger condition))))
    (:NO (abort))))


The keywords :YES and :NO used to be lower case and the message box is
returning them as capitols.  Only an issue because modern cares about
case sensitive.  I made the simple change locally and it works, but I
thought I would pass it on.

-- 
Wesley Kerr
Graduate Research Assistant
Department of Computer Science
University of Arizona

website: http://www.cs.arizona.edu/~wkerr