gadi@cs.uiuc.edu (Gadi Friedman) (06/19/91)
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")