[gsharp-devel] initial problems

[Andras Simon]

gsharp promises to be very very cool! And I think it was a good idea to
transfer it to a visible place like common-lisp.net.

I have some problems (probably McCLIM-related), such as not being able to
answer prompts for, say, file names (I can type in a name but Enter doesn't
seem to send it to gsharp). Also, menus that pop up for a right click don't
quite work.

Anyway, here's a small patch that I found absolutely necessary to get started.

Andras

Index: midi.lisp
===================================================================
RCS file: /project/gsharp/cvsroot/gsharp/midi.lisp,v
retrieving revision 1.1.1.1
diff -c -r1.1.1.1 midi.lisp
*** midi.lisp	16 Feb 2004 15:46:18 -0000	1.1.1.1
--- midi.lisp	18 Feb 2004 08:58:44 -0000
***************
*** 114,120 ****
  (defmacro with-midi-output (filename &body body)
    "execute body with *midi-output* assigned to a stream from filename"
    `(with-open-file (*midi-output* ,filename
! 		    :direction :output :element-type '(unsigned-byte 8))
      , at body))

  (defun read-variable-length-quantity ()
--- 114,120 ----
  (defmacro with-midi-output (filename &body body)
    "execute body with *midi-output* assigned to a stream from filename"
    `(with-open-file (*midi-output* ,filename
! 		    :direction :output :if-exists :supersede  :element-type '(unsigned-byte 8))
      , at body))

  (defun read-variable-length-quantity ()
Index: sdl.lisp
===================================================================
RCS file: /project/gsharp/cvsroot/gsharp/sdl.lisp,v
retrieving revision 1.2
diff -c -r1.2 sdl.lisp
*** sdl.lisp	16 Feb 2004 18:50:20 -0000	1.2
--- sdl.lisp	18 Feb 2004 08:58:45 -0000
***************
*** 1,7 ****
  (in-package :sdl)

  (defvar *fonts-directory*
!   (merge-pathnames (make-pathname :directory '(relative "Fonts"))
  		   (make-pathname :directory (pathname-directory *load-truename*))))

  (defgeneric glyph (font glyph-no))
--- 1,7 ----
  (in-package :sdl)

  (defvar *fonts-directory*
!   (merge-pathnames (make-pathname :directory '(:relative "Fonts"))
  		   (make-pathname :directory (pathname-directory *load-truename*))))

  (defgeneric glyph (font glyph-no))