SETWINDOWMENUQQ (W*32)

Module

USE IFQWIN

Syntax

result = SETWINDOWMENUQQ (menuID)

menuID

(Input) INTEGER(4). Identifies the menu to hold the child window names, starting with 1 as the leftmost menu.

Results

The result type is LOGICAL(4). The result is .TRUE. if successful; otherwise, .FALSE..

The list of current child window names can appear in only one menu at a time. If the list of windows is currently in a menu, it is removed from that menu. By default, the list of child windows appears at the end of the Window menu.

Compatibility

QUICKWIN GRAPHICS LIB

Example

 USE IFQWIN

 TYPE (windowconfig) wc

 LOGICAL(4) result, status /.FALSE./

 ! Set title for child window

 wc%numxpixels  = -1

 wc%numypixels  = -1

 wc%numtextcols = -1

 wc%numtextrows = -1

 wc%numcolors   = -1

 wc%fontsize    = -1

 wc%title= "I am child window name"C

 if (.NOT.status) status = SETWINDOWCONFIG(wc)

 ! put child window list under menu 3 (View)

 result = SETWINDOWMENUQQ(3)

 END