module lse$edit_options version = 'V01-004' !************************************************************************* ! * ! © Copyright 2005 Hewlett-Packard Development Company, L.P. * ! * ! Confidential computer software. Valid license from HP required for * ! possession, use or copying. Consistent with FAR 12.211 and 12.212, * ! Commercial Computer Software, Computer Software Documentation, and * ! Technical Data for Commercial Items are licensed to the U.S. * ! Government under vendor's standard commercial license. * ! * !************************************************************************* !++ ! Facility: ! VAXLSE - VAX Language Sensitive Editor ! ! Abstract: ! VAXLSE VUE options widget definitions ! ! Environment: ! VAX/VMS ! ! Author: ! Duane A. Smith, 13-Sep-1988 ! Adapted from VAXTPU module written by August G. Reinig, 6-Apr-1988 ! ! Modified by: ! ! V01-001 Duane A. Smith 13-Sep-1988 ! Original conversion from TPU. ! V01-002 Sharon Eikenberry 04-Jun-1991 ! Motif conversion. ! V01-003 Sharon Eikenberry 04-Sep-1991 ! Added /WORK ! V01-004 Sharon Eikenberry 13-Apr-1992 ! Made dialog box density-independent ! !-- names = case_insensitive include file 'src$:lse$edit_icons.uil'; procedure lse$edit_cancel_callback; lse$edit_ok_callback; lse$edit_toggles_callback; value ! ! These need to stay in sync with the C module ! lse$k_edit_command_callback : 0; lse$k_edit_debug_callback : 1; lse$k_edit_defaults_callback: 2; lse$k_edit_envir_callback : 3; lse$k_edit_init_callback : 4; lse$k_edit_language_callback : 5; lse$k_edit_output_callback : 6; lse$k_edit_section_callback : 7; lse$k_edit_sys_envir_callback : 8; lse$k_edit_work_callback : 9; list bottom_margin_hack: arguments { XmNlabelString = ''; XmNtopAttachment = XmATTACH_WIDGET; XmNtopOffset = 100; }; object lse_vue_dialog : XmFormDialog { arguments { XmNunitType = Xm1000TH_INCHES; XmNresizePolicy = XmResize_any; XmNallowOverlap = false; XmNautoUnmanage = false; XmNdefaultPosition = true; XmNcancelButton = XmPushButton lse_vue_cancel; XmNdefaultButton = XmPushButton lse_vue_ok; XmNmarginHeight = 10; XmNmarginWidth = 10; XmNnoResize = false; XmNdialogStyle = XmDIALOG_MODELESS; XmNdialogTitle = 'LSE VUE ...'; }; controls { XmLabel gadget files_label; XmText files_text; XmToggleButton gadget create_toggle; XmRadioBox modify_radio_box; XmRadioBox write_radio_box; XmToggleButton gadget command_toggle; XmText command_text; XmToggleButton gadget debug_toggle; XmText debug_text; XmToggleButton gadget defaults_toggle; XmText defaults_text; XmToggleButton gadget envir_toggle; XmText envir_text; XmToggleButton gadget init_toggle; XmText init_text; XmToggleButton gadget language_toggle; XmText language_text; XmToggleButton gadget output_toggle; XmText output_text; XmToggleButton gadget section_toggle; XmText section_text; XmToggleButton gadget sys_envir_toggle; XmText sys_envir_text; XmToggleButton gadget work_toggle; XmText work_text; XmLabel gadget start_row_label; XmText start_row_text; XmLabel gadget start_col_label; XmText start_col_text; XmPushButton gadget lse_vue_ok; XmPushButton gadget lse_vue_cancel; XmLabel bottom_margin; }; }; files_label : XmLabel gadget { arguments { XmNlabelString = 'File: '; XmNtopAttachment = XmATTACH_FORM; XmNtopOffset = 200; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 3; }; }; files_text : XmText { arguments { XmNcolumns = 60; XmNrows = 1; XmNmaxLength = 255; XmNresizeHeight = false; XmNvalue = ''; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = FILES_LABEL; XmNleftOffset = 230; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = FILES_LABEL; XmNtopOffset = -60; XmNrightAttachment = XmATTACH_WIDGET; XmNrightWidget = right_margin; XmNrightOffset = 200; }; }; right_margin : XmLabel { arguments { XmNlabelString = ''; XmNleftAttachment = XmATTACH_FORM; }; }; create_toggle : XmToggleButton gadget { arguments { XmNlabelString = 'Create'; XmNset = on; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = FILES_TEXT; XmNtopOffset = 150; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = FILES_LABEL; XmNleftOffset = 70; }; }; object modify_radio_box : XmRadioBox { arguments { XmNorientation = XmVERTICAL; XmNborderWidth = 0; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = CREATE_TOGGLE; XmNtopOffset = 150; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = CREATE_TOGGLE; XmNleftOffset = -30; }; controls { XmToggleButton gadget modify_toggle; XmToggleButton gadget nomodify_toggle; XmToggleButton gadget unmodify_toggle; }; }; modify_toggle : XmToggleButton gadget { arguments { XmNlabelString = 'Modify'; }; }; nomodify_toggle : XmToggleButton gadget { arguments { XmNlabelString = 'No Modify'; }; }; unmodify_toggle : XmToggleButton gadget { arguments { XmNlabelString = 'Unspecified'; }; }; object write_radio_box : XmRadioBox { arguments { XmNorientation = XmVERTICAL; XmNborderWidth = 0; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = MODIFY_RADIO_BOX; XmNtopOffset = 150; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = MODIFY_RADIO_BOX; }; controls { XmToggleButton gadget write_toggle; XmToggleButton gadget nowrite_toggle; XmToggleButton gadget unwrite_toggle; }; }; write_toggle : XmToggleButton gadget { arguments { XmNlabelString = 'Write'; }; }; nowrite_toggle : XmToggleButton gadget { arguments { XmNlabelString = 'Read Only'; }; }; unwrite_toggle : XmToggleButton gadget { arguments { XmNlabelString= 'Unspecified'; }; }; command_toggle : XmToggleButton gadget { callbacks { XmnvalueChangedCallback = procedure lse$edit_toggles_callback (lse$k_edit_command_callback); }; arguments { XmNlabelString = 'Command'; XmNset = on; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = CREATE_TOGGLE; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = CREATE_TOGGLE; XmNleftOffset = 2000; }; }; command_text : XmText { arguments { XmNcolumns = 25; XmNrows = 1; XmNmaxLength = 132; XmNresizeHeight = false; XmNvalue = 'LSE$COMMAND'; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = COMMAND_TOGGLE; XmNtopOffset = -60; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = COMMAND_TOGGLE; XmNleftOffset = 2300; XmNrightAttachment = XmATTACH_OPPOSITE_WIDGET; XmNrightWidget = FILES_TEXT; }; }; debug_toggle : XmToggleButton gadget { callbacks { XmNvalueChangedCallback = procedure lse$edit_toggles_callback (lse$k_edit_debug_callback); }; arguments { XmNlabelString = 'Debug'; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = COMMAND_TEXT; XmNtopOffset = 100; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = COMMAND_TOGGLE; }; }; debug_text : XmText { arguments { XmNcolumns = 25; XmNrows = 1; XmNmaxLength = 132; XmNresizeHeight = false; XmNsensitive = false; XmNvalue = ''; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = DEBUG_TOGGLE; XmNtopOffset = -60; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = COMMAND_TEXT; XmNrightAttachment = XmATTACH_OPPOSITE_WIDGET; XmNrightWidget = COMMAND_TEXT; }; }; defaults_toggle : XmToggleButton gadget { callbacks { XmNvalueChangedCallback = procedure lse$edit_toggles_callback (lse$k_edit_defaults_callback); }; arguments { XmNlabelString = 'Defaults'; XmNset = on; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = DEBUG_TEXT; XmNtopOffset = 100; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = DEBUG_TOGGLE; }; }; defaults_text : XmText { arguments { XmNcolumns = 25; XmNrows = 1; XmNmaxLength = 132; XmNresizeHeight = false; XmNvalue = 'LSE$DEFAULTS'; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = DEFAULTS_TOGGLE; XmNtopOffset = -60; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = DEBUG_TEXT; XmNrightAttachment = XmATTACH_OPPOSITE_WIDGET; XmNrightWidget = DEBUG_TEXT; }; }; envir_toggle : XmToggleButton gadget { callbacks { XmNvalueChangedCallback = procedure lse$edit_toggles_callback (lse$k_edit_envir_callback); }; arguments { XmNlabelString = 'Environment'; XmNset = on; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = DEFAULTS_TEXT; XmNtopOffset = 100; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = DEFAULTS_TOGGLE; }; }; envir_text : XmText { arguments { XmNcolumns = 25; XmNrows = 1; XmNmaxLength = 132; XmNresizeHeight = false; XmNvalue = 'LSE$ENVIRONMENT'; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = ENVIR_TOGGLE; XmNtopOffset = -60; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = DEFAULTS_TEXT; XmNrightAttachment = XmATTACH_OPPOSITE_WIDGET; XmNrightWidget = DEFAULTS_TEXT; }; }; init_toggle : XmToggleButton gadget { callbacks { XmNvalueChangedCallback = procedure lse$edit_toggles_callback (lse$k_edit_init_callback); }; arguments { XmNlabelString = 'Initialization'; XmNset = on; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = ENVIR_TEXT; XmNtopOffset = 100; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = ENVIR_TOGGLE; }; }; init_text : XmText { arguments { XmNcolumns = 25; XmNrows = 1; XmNmaxLength = 132; XmNresizeHeight = false; XmNvalue = 'LSE$INITIALIZATION'; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = INIT_TOGGLE; XmNtopOffset = -60; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = ENVIR_TEXT; XmNrightAttachment = XmATTACH_OPPOSITE_WIDGET; XmNrightWidget = ENVIR_TEXT; }; }; language_toggle : XmToggleButton gadget { callbacks { XmNvalueChangedCallback = procedure lse$edit_toggles_callback (lse$k_edit_language_callback); }; arguments { XmNlabelString = 'Language'; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = INIT_TEXT; XmNtopOffset = 100; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = INIT_TOGGLE; }; }; language_text : XmText { arguments { XmNcolumns = 25; XmNrows = 1; XmNmaxLength = 132; XmNresizeHeight = false; XmNvalue = ''; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = LANGUAGE_TOGGLE; XmNtopOffset = -60; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = INIT_TEXT; XmNrightAttachment = XmATTACH_OPPOSITE_WIDGET; XmNrightWidget = INIT_TEXT; }; }; output_toggle : XmToggleButton gadget { callbacks { XmNvalueChangedCallback = procedure lse$edit_toggles_callback (lse$k_edit_output_callback); }; arguments { XmNlabelString = 'Output'; XmNset = on; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = LANGUAGE_TEXT; XmNtopOffset = 100; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = LANGUAGE_TOGGLE; }; }; output_text : XmText { arguments { XmNcolumns = 25; XmNrows = 1; XmNmaxLength = 132; XmNresizeHeight = false; XmNvalue = ''; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = OUTPUT_TOGGLE; XmNtopOffset = -60; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = LANGUAGE_TEXT; XmNrightAttachment = XmATTACH_OPPOSITE_WIDGET; XmNrightWidget = LANGUAGE_TEXT; }; }; section_toggle : XmToggleButton gadget { callbacks { XmNvalueChangedCallback = procedure lse$edit_toggles_callback (lse$k_edit_section_callback); }; arguments { XmNlabelString = 'Section'; XmNset = on; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = OUTPUT_TEXT; XmNtopOffset = 100; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = OUTPUT_TOGGLE; }; }; section_text : XmText { arguments { XmNcolumns = 25; XmNrows = 1; XmNmaxLength = 132; XmNresizeHeight = false; XmNvalue = 'LSE$SECTION'; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = SECTION_TOGGLE; XmNtopOffset = -60; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = OUTPUT_TEXT; XmNrightAttachment = XmATTACH_OPPOSITE_WIDGET; XmNrightWidget = OUTPUT_TEXT; }; }; sys_envir_toggle : XmToggleButton gadget { callbacks { XmNvalueChangedCallback = procedure lse$edit_toggles_callback (lse$k_edit_sys_envir_callback); }; arguments { XmNlabelString = 'System Environment'; XmNset = on; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = SECTION_TEXT; XmNtopOffset = 100; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SECTION_TOGGLE; }; }; sys_envir_text : XmText { arguments { XmNcolumns = 25; XmNrows = 1; XmNmaxLength = 132; XmNresizeHeight = false; XmNvalue = 'LSE$SYSTEM_ENVIRONMENT'; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = SYS_ENVIR_TOGGLE; XmNtopOffset = -60; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SECTION_TEXT; XmNrightAttachment = XmATTACH_OPPOSITE_WIDGET; XmNrightWidget = SECTION_TEXT; }; }; work_toggle : XmToggleButton gadget { callbacks { XmNvalueChangedCallback = procedure lse$edit_toggles_callback (lse$k_edit_work_callback); }; arguments { XmNlabelString = 'Work File'; XmNset = on; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = SYS_ENVIR_TEXT; XmNtopOffset = 100; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SYS_ENVIR_TOGGLE; }; }; work_text : XmText { arguments { XmNcolumns = 25; XmNrows = 1; XmNmaxLength = 132; XmNresizeHeight = false; XmNvalue = 'LSE$WORK'; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = WORK_TOGGLE; XmNtopOffset = -60; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SYS_ENVIR_TEXT; XmNrightAttachment = XmATTACH_OPPOSITE_WIDGET; XmNrightWidget = SYS_ENVIR_TEXT; }; }; start_row_label : XmLabel gadget { arguments { XmNlabelString = 'Start Row'; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = WRITE_RADIO_BOX; XmNtopOffset = 300; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = FILES_LABEL; }; }; start_row_text : XmText { arguments { XmNcolumns = 4; XmNrows = 1; XmNmaxLength = 4; XmNresizeHeight = false; XmNresizeWidth = false; XmNvalue = '1'; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = START_ROW_LABEL; XmNtopOffset = -60; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = START_ROW_LABEL; XmNleftOffset = 150; }; }; start_col_label : XmLabel gadget { arguments { XmNlabelString = 'Start Col'; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = START_ROW_TEXT; XmNtopOffset = 150; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = START_ROW_LABEL; }; }; start_col_text : XmText { arguments { XmNcolumns = 4; XmNrows = 1; XmNmaxLength = 4; XmNresizeHeight = false; XmNresizeWidth = false; XmNvalue = '1'; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = START_COL_LABEL; XmNtopOffset = -60; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = START_ROW_TEXT; }; }; lse_vue_ok : XmPushButton gadget { callbacks { XmNactivateCallback = procedure lse$edit_ok_callback; }; arguments { XmNlabelString = ' OK '; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = WORK_TEXT; XmNtopOffset = 300; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 30; }; }; lse_vue_cancel : XmPushButton gadget { callbacks { XmNactivateCallback = procedure lse$edit_cancel_callback; }; arguments { XmNlabelString = 'Cancel'; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 65; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = LSE_VUE_OK; XmNbottomWidget = LSE_VUE_OK; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; }; }; bottom_margin : XmLabel { arguments { XmNlabelString = ''; XmNtopAttachment = XmATTACH_WIDGET; XmNtopOffset = 100; XmNtopWidget = LSE_VUE_OK; }; }; end module;