Number: 2172

Date: 13-Sep-84 09':26':31

Submitter: Sannella.PA


Subject: Attaching window w/ attached windows to another window causes badly-formatted window group

Assigned To: Burton


Status: Fixed


Problem Type: Bug

Impact: Annoying



Priority: Perhaps

System: Windows and Graphics

Subsystem: Window System

Machine: 1132


Lisp Version: 12-Sep-84 12':41':26

Source Files: 

Microcode Version: 5124

Memory Size: 4096

File Server: 

Server Software Version: 

Disposition: '
["Sannella.PA" "14-Sep-84 09':07':51" Assigned% To': Attn': Status':(Open->Fixed) Description':]

Description: '
Date': 12 Sep 84 14':44 PDT'
Subject': Lisp': bug in ATTACHEDWINDOW package'
cc':, burton'
Lisp System Date': 11-Sep-84 17':49':31'
Machine': Dorado (Galileo)'
Microcode version': 24,4'
Memory size': 10000'
Frequency': always'
Impact': serious'
Following code shows up a problem. The desired config is': Given windows Top, Mid, Bot and a menu. Menu attached to top of Mid. Bot attached to bottom of Mid. So far the code does alright. Now, attaching Mid to bottom of Top causes Bot to be disconnected and moved further down with a gap between Mid and Bot.'
(LAMBDA NIL (* sm': "12-Sep-84 14':35") (PROG (menu mid bot top) (SETQ mid (CREATEW (QUOTE (100 100 200 200)) "Main Window" NIL)) (ATTACHMENU (create MENU ITEMS ← (QUOTE (A B C D E F G H)) MENUROWS ← 2 MENUFONT ← (FONTCREATE (QUOTE (HELVETICA 10 BOLD)))) mid (QUOTE TOP) (QUOTE JUSTIFY)) (SETQ bot (CREATEW (QUOTE (100 50 200 50)) "Bottom window" NIL T)) (ATTACHWINDOW bot mid (QUOTE BOTTOM) (QUOTE JUSTIFY) NIL) (ATTACHWINDOW mid (SETQ Top(CREATEW (QUOTE (100 300 200 100)) "Top Window") )(QUOTE BOTTOM) (QUOTE JUSTIFY))))'
Date': 13 Sep 84 10':14 PDT'
Subject': Re': Lisp': bug in ATTACHEDWINDOW package'
In-reply-to':''s message of 12 Sep 84 14':44 PDT'
Found it.  It will be fixed in the next loadup. '
Thanks for the text case.'


Test Case: 

Edit-By: Sannella.PA

Edit-Date: 14-Sep-84 09':07':52