From: Jacobite1607
Subject: Dialog background
Date: Fri, 15 Jun 2007 02:51:33 +0000
Message-ID: <1181875893.227793.232570@g37g2000prf.googlegroups.com>

I'm new to this group but I was wondering if someone could tell me
what I need to do to change the color of the background for the
following dialog to gray or any other color for that matter.

I'm using Corman Lisp 3.0.

(in-package :win)
(require "GUI")

(defclass <menu-window> (<main-menu-mixin> <frame>))

(gui-initialize)
(setq Mywindow (make-instance '<menu-window>))
(create-window Mywindow
    :caption "My Window"
    :style (logior WS_SYSMENU)
    :width 200
    :height 150)

(show-window Mywindow SW_SHOW)
(update-window Mywindow)
(standard-message-loop)