The following sets of routines are available:
Create and Handle a Pop-up Notice View-Object
The following routines are available:
Display a pop-up notice - xdl_popup_notice
Fortran call: CALL XDLF_POPUP_NOTICE (IXROOT, IYROOT, MSG1, LENMSG1, + MSG2, LENMSG2, + BUTSTR1, LENBUTSTR1, + BUTSTR2, LENBUTSTR2, + IFONT, IARROW, IBUTTON)
Parameters: IXROOT (R) X (rootwindow) position for notice (top left) (see xroot) IYROOT (R) Y (rootwindow) position for notice (top left) (see yroot) MSG1 (R) Address of character string containing first message. ** Pass address using the XDLSTR function ** (see msg1) LENMSG1 (R) Length of the MSG1 character string (>0) (cf lenmsg1) MSG2 (R) Address of character string containing second message. ** Pass address using the XDLSTR function ** (see msg2) LENMSG2 (R) Length of the MSG2 character string (>0). If there is no second message to output then give a value of -1. (cf lenmsg2) BUTSTR1 (R) Address of character string for the first button ** Pass address using the XDLSTR function ** (see butstr1) LENBUTSTR1 (R) Length of the BUTSTR1 character string (>0) (cf lenbutstr1) BUTSTR2 (R) Address of character string for the second button ** Pass address using the XDLSTR function ** (see butstr2) LENBUTSTR2 (R) Length of the BUTSTR2 character string (>0). If no second button is required then give a value of -1. (cf lenbutstr2) IFONT (R) Font type (1 to 5, very small to extra large) (see font_type) IARROW (R) =1 display an arrow pointing to the top left corner of the notice provided that it can be placed in the requested position, =0 do not. (see arrow) IBUTTON (W) Returns the button number selected (1 or 2)
'C' call: int xdl_popup_notice (xroot, yroot, msg1, lenmsg1, msg2, lenmsg2, butstr1, lenbutstr1, butstr2, lenbutstr2, font_type, arrow)
Parameters: int xroot; /* x position of the notice popup area (wrt root) (R)*/ int yroot; /* y position of the notice popup area (wrt root) (R)*/ char * msg1; /* First message (null terminated) string (R)*/ int lenmsg1; /* Length of message 1. If 0 then the routine will find the length assuming a null terminated string (R)*/ char * msg2; /* Second message (null terminated) string - may be null if no second message required (R)*/ int lenmsg2; /* Length of message 2. -1 if no second message. If 0 then the routine will find the length assuming a null terminated string. (R)*/ char * butstr1; /* Label string for first button (null terminated) (R)*/ int lenbutstr1; /* Length of button 1 string. If 0 then the routine will find the length assuming a null terminated string (R)*/ char * butstr2; /* Label string for second button (null terminated) - may be null if only one button required (R)*/ int lenbutstr2; /* Length of button 2 string. -1 if no second button. If 0 then the routine will find the length assuming a null terminated string. (R)*/ int font_type; /* Font type 1 to 5, very-small to extra-large (R)*/ int arrow; /* =1 draw arrow pointing to origin (provided that notice may be positioned where requested), =0 do not (R)*/
Return: =1 button one from notice presssed, =2 button two from notice pressed