;; -*-theme-d-*-

;; Copyright (C) 2016 Tommi Höynälänmaa
;; Distributed under GNU General Public License version 3,
;; see file doc/GPL-3.

;; Expected results: translation and running OK


(define-proper-program (tests test383)

  (import (standard-library core)
	  (standard-library console-io))

  (define-class <gtk-text-buffer> <object> #t #f #f public () ())
  (define-class <gtk-text-tag> <object> #t #f #f public () ())

  (define-simple-proc gtk-text-buffer-create-tag
      (((buffer <gtk-text-buffer>) (str <string>) (l (rest <object>)))
       <gtk-text-tag>
       nonpure)
    (console-display-line str)
    (make <gtk-text-tag>))

  (add-method create-tag gtk-text-buffer-create-tag)

  (define-simple-proc main (() <none> nonpure)
    (let ((buffer (make <gtk-text-buffer>)))
      (create-tag buffer 
		  "right-justify" 'justification 'right))))
