[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: goops - guile-clutter unexpected bug while using #:virtual slot allo

From: David Pirotte
Subject: Re: goops - guile-clutter unexpected bug while using #:virtual slot allocation for a <clutter-actor> subclass
Date: Wed, 28 Jan 2015 17:24:16 -0200

Hello Andy,

> > address@hidden:~/alto/projects/guile-tests/goops 15 $ guile
> > GNU Guile
> This version had bugs, as I tried to explain.  Please update your
> stable-2.0 and try again.  Thanks :)

        as an aside note, yesterday I did not pull, i thought all the comments 
        made on irc and here were about the refactoring you have been
        working on, and which i pulled 2 days ago: next time, even if you think
        it is not necessary, just to avoid [my] confusion, please tell me 
        'david please pull, check, I made changes since the refactoring...' 

So, I just pulled/compiled your latest changes, but it is not working:

address@hidden:~/alto/projects/guile-tests/goops/setter-inheritance-bug 25 $ 
GNU Guile
Copyright (C) 1995-2014 Free Software Foundation, Inc.

Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
This program is free software, and you are welcome to redistribute it
under certain conditions; type `,show c' for details.

Enter `,help' for help.
scheme@(guile-user)> ,use (oop goops)
scheme@(guile-user)> ,use (b)
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;;       or pass the --no-auto-compile argument to disable.
;;; compiling ./b.scm
;;; compiling ./a.scm
;;; compiled 
;;; compiled 
scheme@(guile-user)> (set! (!width (make <b>)) 20)
$1 = 20


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

(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>))
;; module ends here

Attachment: pgp27nhd0b1I1.pgp
Description: OpenPGP digital signature

reply via email to

[Prev in Thread] Current Thread [Next in Thread]