Displaying Window In Center In Oracle Forms 6i

Center window automatically  in Oracle Forms 6i, use the following procedure by passing window name as parameter:

Example

PROCEDURE auto_centre (pwn in varchar2) IS
vw number := get_window_property(forms_mdi_window, width);
vh number := get_window_property(forms_mdi_window, height);
BEGIN
set_window_property(pwn, x_pos, (vw - get_window_property(pwn, width)) / 2);
set_window_property(pwn, y_pos, (vh - get_window_property(pwn, height)) / 2);
END;