;; -*-theme-d-*-

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

(define-body (examples module2)

  (import (standard-library console-io)
	  (examples module1))
  
  (define-simple-method myproc (() <none> nonpure)
    (let ((window (create <window> "main" 10 10 300 100)))
      (console-display-line (field-ref window 'str-id))
      (field-set! window 'str-id "main2")
      (console-display-line (field-ref window 'str-id))
      (console-display-line (field-ref window 'i-width))
      (console-display-line (field-ref window 'i-height)))))
