G-Golf - Callback segmentation fault

[Matija Obid <matija.obid@posteo.net>]

[-- Attachment #1: Type: text/plain, Size: 377 bytes --]

Hello,

I'm facing the problem mentioned in [1]. Problematic are all examples
with virtual methods.

I have tried simpler example (attached) with same result. There is no
problem, when try same thing with guile-gi library. Somehow, callbacks
are not callable back from C code. Any clue?

I'm using Nix.


[1] https://lists.gnu.org/archive/html/guile-user/2024-05/msg00013.html

[-- Attachment #2: golf-drawing.scm --]
[-- Type: application/octet-stream, Size: 1162 bytes --]

#! /bin/sh
# -*- mode: scheme; coding: utf-8 -*-
exec guile -e main -s "$0" "$@"
!#

(gc-disable)

(eval-when (expand load eval)
  (use-modules (oop goops))

  (default-duplicate-binding-handler
    '(merge-generics replace warn-override-core warn last))

  (use-modules (g-golf))

  (g-irepository-require "Gtk" #:version "4.0")
  (for-each (lambda (name)
              (gi-import-by-name "Gtk" name))
			'("ApplicationWindow"
			  "Application"
			  "DrawingArea")))

(define (activate app)
  (let* ((window (make <gtk-application-window>
                   #:application app
                   #:default-width 960
                   #:default-height 540
                   #:title "Title"))
		 (drawing-area (make <gtk-drawing-area>)))
	(set-child window drawing-area)
	(set-draw-func drawing-area
				   (lambda (area cr w h d)
					 (display "I'm in!")
					 (force-output))
				   #f
				   (lambda _ #f))
    (show window)))

(define (main args)
  (let ((app (make <gtk-application>
               #:application-id "local.example.DrawingArea")))
    (connect app 'activate activate)
    (let ((status (g-application-run app args)))
      (exit status))))

[-- Attachment #3: Type: text/plain, Size: 21 bytes --]


-- 
Regards,
Matija