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
ยทยทยทยท@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")