From c7d2a5513ea2f5c54ea08d21931003a5697cd111 Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Wed, 23 Mar 2022 18:26:56 +0100
Subject: [PATCH] - added package qualificator to croatoan's classes symbols.

---
 src/windows.lisp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/windows.lisp b/src/windows.lisp
index 1e138c3..c7aa0ff 100644
--- a/src/windows.lisp
+++ b/src/windows.lisp
@@ -526,7 +526,7 @@ list of strings (the text lines)."
          (max-message-height (- (win-height-no-border parent)
                                 4))
          (message            (join-with-strings lines (format nil "~%")))
-         (dialog-window      (make-instance 'dialog-window
+         (dialog-window      (make-instance 'c:dialog-window
                                             :stacked              nil
                                             :center               t
                                             :message-text         message
@@ -602,22 +602,22 @@ insetred by the user"
                                                 (/ window-height 2)))
                                    (truncate (- (/ (win-width  parent) 2)
                                                 (/ window-width 2)))))
-           (button-cancel    (make-instance 'button
+           (button-cancel    (make-instance 'c:button
                                             :name     :b-cancel
                                             :title    (_ "Cancel")
                                             :position (list (truncate (1+ (* window-height
                                                                              3/4)))
                                                             2)))
-           (button-accept    (make-instance 'button
+           (button-accept    (make-instance 'c:button
                                             :name     :b-accept
                                             :title    (_ "OK")
                                             :position (list (truncate (* window-height 3/4))
                                                             2)))
-           (field            (make-instance 'field
+           (field            (make-instance 'c:field
                                             :position (list (truncate (* window-height 1/2))
                                                             2)
                                             :width    field-width))
-           (low-level-window (make-instance 'form-window
+           (low-level-window (make-instance 'c:form-window
                                             :stacked        nil
                                             :input-blocking t
                                             :width          window-width