Re: goops - guile-clutter unexpected bug while using #:virtual slot allocation for a <clutter-actor> subclass

[David Pirotte <david@altosw.be>]

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


To be complete, raise the confusion, and allow who would want to follow and
test, the setter bug test case I pasted on irc was this one (*):

Using guile versions previous to the goops refactoring work Andy did recently, you'd
have this answer:

	scheme@(guile-user)> ,use (oop goops)
	scheme@(guile-user)> ,use (b)
	...
	scheme@(guile-user)> (set! (!width (make <b>)) 10)
	$2 = 10
	scheme@(guile-user)>

The expected and correct answer after the refactoring... is

	...
	scheme@(guile-user)> (set! (!width (make <b>)) 10)

	;;; ("this is <a> !width setter method, hello!")
	scheme@(guile-user)> 

Cheers,
David

(*)

;; module a.scm starts here
(define-module (a)
  #:use-module (oop goops)
  #:export (<a>
	    !width))

(define-class <a> ()
  (width #:accessor !width #:init-keyword #:width #:init-value 0))

(define-method ((setter !width) (self <a>) width)
  ;; here comes complex code, computing earth orbit and calling lower
  ;; level clutter internals, such as the <clutter-actor> layout...
  (pk "this is <a> !width setter method, hello!")
  (slot-set! self 'width width))
;; module ends here

;; module b.scm starts here
(define-module (b)
  #:use-module (oop goops)
  #:use-module (a)
  #:export (<b>)

  #:re-export (!width))

(define-class <b> (<a>))

#;(define-method ((setter !width) (self <b>) width)
  (next-method))
;; module ends here

[-- Attachment #2: OpenPGP digital signature --]
[-- Type: application/pgp-signature, Size: 473 bytes --]