Number: 1029

Date:  8-May-84 18':26':37

Submitter: le.pasa

Source:  Eric Schoen (dering.pasa)

Subject: (ADDMENU <very small menu>) breaks --- used to work.

Assigned To: 

Attn: Burton.pa

Status: Fixed

In/By: 

Problem Type: Bug

Impact: Moderate

Difficulty: Easy

Frequency: Everytime

Priority: Perhaps

System: Windows and Graphics

Subsystem: Window System

Machine: 

Disk: 

Lisp Version: '
 Fugue6

Source Files: 

Microcode Version: 

Memory Size: 

File Server: 

Server Software Version: 

Disposition: '
["burton.pa" "28-Aug-84 15':44':23" Status':(Open->Fixed) Description':]

Description: '
Under Fugue4 it was possible to add a menu with '
no entries (or title or outline, etc) to an existing window via ADDMENU. Under Fugue.6, I get a nasty break complaining about inability to create so small a window.'
'
------------'
'
I tried creating an empty menu and adding it to existing windows and old windows and didn''t get a break.  This was in 14-may <lispcore>next> so something may have changed since fugue6.  Maybe you could get more specific details from Eric and reproduce it(?).'
'
richard'
-------'
'
Eric has provided more information on the problem with ADDMENU breaks.  The problem is not that it is impossible to bring up a menu with no entries.  The real problem was trying to evaluate (fetch (MENU IMAGEHEIGHT) of MENU) on such a menu not yet popped up on the screen.  The definition of the MENU record causes such a fetch to call \CHECK\MENU\IMAGE, which eventually ends up calling CREATEW with DONTOPENFLG set to T, and you get an error.  Thisdidn''t used to happen in Fugue.4. '
'
---------------'
Date': 28 Aug 84 15':43 PDT'
From': burton.pa'
Subject': AR 1029': (ADDMENU nullmenu)'
To': le.pasa'
'
I tried the following which worked fine.'
'
(SETQ EM (CREATE MENU))'
(FETCH(MENU IMAGEHEIGHT) OF EM)'
'
The value I got was 2.'
'
Did I already send you a msg about this and forget to change the status?  I found another (ar 1114) which had the same msgs but had a status of fixed so I may have answered that one instead.  In any case I will assume it got fixed unless I hear from you to the contrary.'
'
richard'
'


Workaround: 

Test Case: 

Edit-By: burton.pa

Edit-Date: 28-Aug-84 15':44':25