Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!swrinde!sdd.hp.com!zaphod.mps.ohio-state.edu!cis.ohio-state.edu!pacific.mps.ohio-state.edu!linac!mp.cs.niu.edu!ux1.cso.uiuc.edu!m.cs.uiuc.edu!gadi
From: gadi@cs.uiuc.edu (Gadi Friedman)
Newsgroups: comp.lang.lisp
Subject: problem with Franz CL and CW
Keywords: common windows
Message-ID: <1991Jun18.210419.14453@m.cs.uiuc.edu>
Date: 18 Jun 91 21:04:19 GMT
Sender: news@m.cs.uiuc.edu (News Database (admin-Mike Schwager))
Reply-To: gadi@andersen.com
Organization: University of Illinois, Dept. of Comp. Sci., Urbana, IL
Lines: 63
Nntp-Posting-Host: dubius.cs.uiuc.edu

I'm using the following software under X.

      TM
REFINE   Version REFINE 3.1 on Sun 4 / Sparcstation
  Copyright (c) Reasoning Systems, Inc. 1985
  Revised 1991.  All Rights Reserved.

The underlying Lisp environment is:

Allegro CL 3.1.13 [Sun4] (4/24/90)
Copyright (C) 1985-1990, Franz Inc., Berkeley, CA, USA
Patch #1 for "RERUN" version "3-1" loaded.

Patch #1 for "INTERVISTA" version "1-0" loaded.
Patch #2 for "INTERVISTA" version "1-0" loaded.
Patch #3 for "INTERVISTA" version "1-0" loaded.

I tried the following code, which does not work correcty.
What I was attempting to do is add icons to windows which
are children of a CommonWindows window.  I found 3 bugs.

1. MAKE-ICON returns a nil, not the icon object.
2. WINDOW-STREAM-ICON returns a nil, not the icon object.
3. (make-icon *win*) causes a bus error when *win* is not
   a child of the root window,

This last problem causes the real difficuly I'm having.  If there
is a fix, or a workaround, can someone out there get it to me.

Please respond via Email.

Gadi
gadi@andersen.com

---------------------------------------------------------
(use-package 'cw)
; Not needed in refine
;(initialize-common-windows)
;
(defvar *win*)
(setq *win*  (make-window-stream
               :left 100
               :bottom 100
               :width 300
               :height 300
               :activate-p t))

(defvar *subwin*)
(setq *subwin* (make-window-stream
                  :left 10
                  :bottom 10
                  :height 200
                  :width 200
                  :parent *win*
                  :activate-p t))


;; returns a nil, should return the icon object
(prin1 (make-icon *win* "A Window"))
;; returns a nil, should return the icon object
(prin1 (window-stream-icon *win*))
;; bus error 10
(make-icon *subwin* "Does Not Work")