インテル® Fortran コンパイラー 19.0 デベロッパー・ガイドおよびリファレンス
QuickWin Function: Sets a top-level menu as the menu to which a list of current child window names is appended.
USE IFQWIN
result = SETWINDOWMENUQQ (menuID)
menuID |
(Input) INTEGER(4). Identifies the menu to hold the child window names, starting with 1 as the leftmost menu. |
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.
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