GRAVIY in GTK:WINDOW-SET-GEOMETRY-HINTS

Hi Espen,

Something wrong with GRAVITY in WINDOW-SET-GEOMETRY-HINTS in gtk/gtk.lisp.
The default value, NIL, of GRAVITY will result in a type error in
GDK::GRAVITY-TO-INT.  If :NORTH-WEST is used as the value of GRAVITY, a
segmentation violation will happen.  

Code to reproduce the errors and backtrace are attached at the end of
this email.  I'm using CMUCL 19c and the clg from cvs head.

Best wishes,

-cph

;;------------------------------------------------------------

1) NIL gravity:

(setf w (make-instance 'gtk:window))
(gtk:window-set-geometry-hints w
                               :min-width 20 :min-height 20
                               :max-width 500 :max-height 500)

Type-error in GDK::GRAVITY-TO-INT:  NIL is not of type GDK:GRAVITY
   [Condition of type TYPE-ERROR]

Restarts:
 0: [ABORT] Return to SLIME's top level.
 1: [ABORT] Return to Top-Level.

Backtrace:
  0: (GDK::GRAVITY-TO-INT NIL)
  1: ("DEFINE-TYPES-BY-INTROSPECTION Gdk" NIL
      #.(SYSTEM:INT-SAP #x080FB0D0) 48)
  2: ("DEFMETHOD COMPUTE-SLOT-WRITER-FUNCTION (EFFECTIVE-ALIEN-SLOT-DEFINITION)"
      NIL #<GDK:GEOMETRY at 0x80FB0D0>)
  3: ("DEFMETHOD SHARED-INITIALIZE (SLOT-OBJECT T)" #<#1=unused-arg>
      #<#1#> #<GDK:GEOMETRY at 0x80FB0D0> T ...)
  4: ((METHOD INITIALIZE-INSTANCE (:AROUND) (GFFI:PROXY))
      (#()
       . #(#S(PCL::FAST-METHOD-CALL
                :FUNCTION #<Function # {5C9C9071}>
                :PV-CELL NIL
                :NEXT-METHOD-CALL #S(PCL::FAST-METHOD-CALL
                                       :FUNCTION #
                                       :PV-CELL NIL
                                       :NEXT-METHOD-CALL NIL
                                       :ARG-INFO #) ..))))
  5: ("DEFMETHOD MAKE-INSTANCE (CLASS)" #<#1=unused-arg> #<#1#>
      #<STRUCT-CLASS GDK:GEOMETRY {58C3D915}>
      (:MIN-WIDTH 20 :MIN-HEIGHT 20 :MAX-WIDTH ...))
  6: (GTK:WINDOW-SET-GEOMETRY-HINTS #<GTK:WINDOW at 0x80F28A8>
                                    :MIN-WIDTH 20
                                    :MIN-HEIGHT ...)
  7: (SWANK::EVAL-REGION "(gtk:window-set-geometry-hints *w*
                                       :min-width 20 :min-height 20
                                       :max-width 500 :max-height 500 )
     "
                         T)

2) :NORTH-WEST gravity:

(setf w (make-instance 'gtk:window))
(gtk:window-set-geometry-hints w
                               :min-width 20 :min-height 20
                               :max-width 500 :max-height 500)

Error in function UNIX::SIGSEGV-HANDLER:
   Segmentation Violation at #xB765297F.
   [Condition of type SIMPLE-ERROR]

Restarts:
 0: [ABORT] Return to SLIME's top level.
 1: [ABORT] Return to Top-Level.

Backtrace:
  0: (UNIX::SIGSEGV-HANDLER #<#1=unused-arg>
                            #<#1#>
                            #.(SYSTEM:INT-SAP #x3FFFC714))
  1: (UNIX::SIGSEGV-HANDLER 3
                            #<#1=unused-arg>
                            #<#1#>
                            #.(SYSTEM:INT-SAP #x3FFFC714))[:EXTERNAL]
  2: ("call_into_lisp+#x8C [#x8054A5C] /usr/local/cmucl/bin/lisp")
  3: ("funcall3+#x29 [#x805486B] /usr/local/cmucl/bin/lisp")
  4: ("interrupt_handle_now+#xF0 [#x80504CF] /usr/local/cmucl/bin/lisp")
  5: ("NIL+#x805509C [#x805509C] /usr/local/cmucl/bin/lisp")
  6: ("NIL+#x80550D4 [#x80550D4] /usr/local/cmucl/bin/lisp")
  7: ("NIL+#xB7739FC4 [#xB7739FC4] /usr/lib/libgtk-x11-2.0.so")
  8: (GTK::%WINDOW-SET-GEOMETRY-HINTS #<GTK:WINDOW at 0x80F28A8>
                                      #<GDK:GEOMETRY at 0x8111D18>
                                      (:WIN-GRAVITY :MAX-SIZE :MIN-SIZE))
      Locals:
        GTK::GEOMETRY = #<GDK:GEOMETRY at 0x8111D18>
        GTK::GEOMETRY-MASK = (:WIN-GRAVITY :MAX-SIZE :MIN-SIZE)
        GTK:WINDOW = #<GTK:WINDOW at 0x80F28A8>
  9: (SWANK::EVAL-REGION "(gtk:window-set-geometry-hints *w*
                                       :min-width 20 :min-height 20
                                       :max-width 500 :max-height 500
                                       :gravity :north-west)
     "
                         T)


-------------------------------------------------------------------------
This SF.net email is sponsored by DB2 Express
Download DB2 Express C - the FREE version of DB2 express and take
control of your XML. No limits. Just data. Click to get it now.
http://sourceforge.net/powerbar/db2/