/*
** Built-in: SHOW_EDITOR
** Example: Accept input from the operator in a user-defined
** editor. Use the system editor if the user has
** checked the "System_Editor" menu item under the
** "Preferences" menu in our custom menu module.
*/
DECLARE
  ed_id Editor;
  mi_id MenuItem;
  ed_name VARCHAR2(40);
  val VARCHAR2(32000);
  ed_ok BOOLEAN;
BEGIN
  mi_id := Find_Menu_Item('PREFERENCES.SYSTEM_EDITOR');
  IF Get_Menu_Item_Property(mi_id,CHECKED) = 'TRUE' THEN
    ed_name := 'system_editor';
  ELSE
    ed_name := 'my_editor1';
  END IF;
  ed_id := Find_Editor( ed_name );
/*
** Show the appropriate editor at position (10,14) on the
** screen. Pass the contents of the :emp.comments item
** into the editor and reassign the edited contents if
** 'ed_ok' returns boolean TRUE.
*/
  val := :emp.comments;
  Show_Editor( ed_id, val, 10,14, val, ed_ok);
  IF ed_ok THEN
    :emp.comments := val;
  END IF;
END;