module lse$widgets version = '4.7-3' !************************************************************************* ! * ! © 2000 BY * ! COMPAQ COMPUTER CORPORATION * ! © 1996, 2000 BY * ! ELECTRONIC DATA SYSTEMS LIMITED * ! * ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ! OTHER PERSON. NO TITLE TO OR OWNERSHIP OF THE SOFTWARE IS HEREBY * ! TRANSFERRED. * ! * ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY COMPAQ COMPUTER * ! CORPORATION OR EDS. * ! * ! NEITHER COMPAQ NOR EDS ASSUME ANY RESPONSIBILITY FOR THE USE OR * ! RELIABILITY OF THIS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY * ! COMPAQ. * ! * !************************************************************************* !++ ! Facility: ! VAXTPU - VAX Text Processing Utility ! EVE - { Extensible | Easy | Efficient } Vax Editor ! ! Abstract: ! EVE widget definitions. ! ! Environment: ! VAX/VMS ! ! Author: ! Mark Bramhall, 4-Feb-1988 ! ! Modified by: Sharon LaClair ! Bill Robinson ! Glenn J Joyce ! Wendy C. Cheng ! ! X2.3 GJJ 11-Aug-88 Added LSE widget definitions. ! X2.3-1 GJJ 23-Aug-88 Added EXIT in FILE pull down. ! X2.3-2 GJJ 13-Sep-88 Change the names of the closure values in the CMS ! preferences dialog box. ! X2.3-3 CCC 16-Sep-88 add find,replace and search pref,etc. ! X2.3-4 GHL 21-Sep-88 Remove a number of menu items and remove "..." ! from some menu labels. Change CLOSE to invoke ! a CLOSE BUFFER command. Add /INDICATED to Find ! Symbol and Find Declaration. ! X2.3-5 GJJ 21-Sep-88 Hook LSE's GOTO FILE command in to the OPEN file ! selection box. ! X2.3-6 GHL 21-Sep-88 Add "Change Indentation" dialog box. ! X2.3-7 CCC 23-Sep-88 Fix bug for find and replace dialog box ! X2.3-8 CCC 27-Sep-88 Add SET INTERFACE dialog box ! X2.3-9 GJJ 27-Sep-88 Modify the closure values for the INCLUDE dialog ! box to be closure constants which will cause LSE's ! INCLUDE command to be invoked. ! X2.3-10 CCC 27-Sep-88 Add toggle button pending_delete in SET INTERFACE ! X2.3-11 GJJ 29-Sep-88 Change the closure value on the NEW... pushbutton ! in the file pulldown to be an LSE closure value. ! X2.3-12 WCC 15-Sep-88 Added DEFINE KEY pull down. ! X2.3-13 CCC 28-Sep-88 Add radio_box forward/reverse for FIND_DIALOG ! X2.3-14 WC3 05-Oct-88 Added support for "Open Selected" ! X2.3-15 CCC 04-Oct-88 Add more stuff for SET INTERFACE dialog box ! X2.3-16 CCC 11-Oct-88 Modify layout of SET INTERFACE dialog box ! X2.3-17 CCC 13-Oct-88 Change to use LSE's cut/copy/paste instead of EVE's ! X2.3-18 GJJ 19-Oct-88 Merge with Eve X2.3 definitions. ! X2.3-19 GJJ 19-Oct-88 Incorporate changes from 19OCT Eve. ! X2.3-20 CCC 20-Oct-88 Modify set interface and seach pref labels ! X2.3-21 DAS 27-Oct-88 Rearranged popups and removed Error submenu from Search ! X2.3-22 GJJ 1-Nov-88 Picked up changes from the 30OCT Eve. ! X2.3-23 CCC 2-Nov-88 Change eve$$K_find_selected to lse$$k_find_selected ! X2.3-24 CCC 2-Nov-88 change find_db_title to find_title,(same as REPLACE) ! X2.3-25 DAS 3-Nov-88 Merging in EVE's gadget changes from Sharon. ! Commented out unused widgets with "!D" ! X2.3-26 DAS 3-Nov-88 User buffer popup ! X2.3-27 DAS 4-Nov-88 Move user buffer popup entries to EVE_SELECT_POPUP ! X2.3-28 DAS 8-Nov-88 Toggles cannot be gadgets because we are doing ! SET_VALUES on them! ! X2.3-29 CCC 9-Nov-88 Remove pending_delete,word_wrap in set interface ! X2.3-30 DAS 14-Nov-88 Add helps ! X2.3-31 CCC 7-Dec-88 Add to grey out UNDO push button and change some ! gadgets to widget.Also remove update button. ! X2.3-32 CCC 7-Dec-88 Add XmNmaxLength=3 in screen_width_text ! X2.3-33 CCC 19-Dec-88 Rename search to navigate, search... to ! search preferences and swap order of search/foramt ! X2.3-34 CCC 19-Jan-89 Add font support in global preferences ! X2.3-35 CCC 19-Jan-89 Add set mode bell ! X2.3-36 CCC 19-Jan-89 Change global pref dialog layout ! X2.3-37 CCC 23-Jan-89 Modify layout of global preference dialog box ! X2.3-38 CCC 27-Jan-89 Add window_attributes dialog box ! X2.3-39 CCC 06-Feb-89 Add find_selected in pulldown menu ! X2.3-40 CCC 06-Feb-89 Add separatorline on UNDO menu ! X2.3-41 DAS 16-Feb-89 Changed Save File and Save File As to remove "File" ! Changed Exit/Quit order ! Add various seperators (before Save & Select All) ! Changed Preferences to Attributes ! Changed "Change Indentation" to "Indentation" ! Added accelerator_text arguments ! Rearranged help menu ! X2.3-42 DAS 16-Feb-89 Removed our code that set strings in the dialog ! box for file selection. ! X2.3-43 DAS 21-Feb-89 Found where label of File Selection widgets were ! being overridden. ! X2.3-44 DAS 24-Feb-89 Changed Split Window ... to Split Window ! X2.3-45 DAS 02-Mar-89 Changed new to have ... by adding new_title ! string and putting it on the push button. It was ! using new_db_title which doesn't need ... ! X2.3-46 DAS 06-Mar-89 Commented out SHRINK/ENLARGE support ! X2.3-47 CCC 17-Mar-89 Change number of column in rows and minimum rows ! from 3 to 2 in windows attributes dialog box. ! X2.3-48 CCC 24-Mar-89 Add maximum_number_of_windows and number_of_windows ! in window attribute dialog box ! X2.3-49 CCC 21-Apr-89 Remove default push buttons for find_each_yes, ! replace_each_ok and replace_go_each_ok dialog ! boxes because those default buttons grab input ! input focus and remove highlight of search range. ! X2.3-50 GHL 28-Apr-89 Make the text fields in CMS preference box scroll ! instead of resize. Also, make the remark field ! wider and increase space between widgets. ! X3.0-01 CCC 17-May-89 Redid REPLACE dialog box with more push buttons ! such replace,replace_and_find_next,find_next,etc. ! X3.0-02 CCC 08-Jun-89 Add PDS view pulldown menu ! X3.0-03 CCC 16-Jun-89 Add SEARCH's auto_reverse toggle button. ! X3.0-04 CCC 10-Jul-89 Change UNDO widget to UNDO gadget. ! (Because sensitivity is supported by gadgets.) ! X3.0-05 CCC 11-Jul-89 Correct previous version x3.0-04, change ! UNDO sensitive to false. (not true). ! X3.0-06 CCC 15-Aug-89 Pick up EVE V2.4 with user extended menu ! X3.0-07 CCC 16-Aug-89 Clean up default extend menu entries ! X3.0-08 CCC 17-Aug-89 Remove select popup item in extend menu list box ! X3.0-09 CCC 21-Aug-89 Add menu extension for review and query popup ! X3.0-10 CCC 21-Aug-89 Change label name 'Previous Item' to 'Previous ! Symbol' and "Next Item" to "Next Symbol" ! X3.0-11 CCC 21-Aug-89 Change label name "Noselect Popup" to "User_buffer ! Popup". ! X3.0-12 CCC 22-Aug-89 Remove spawn,attach,spell from extend menu service ! X3.0-13 CCC 30-Aug-89 Merge 74e7/eve24 into main line ! X3.0-14 CCC 8-Sep-89 Add Save Attributes menu items ! X3.0-15 CCC 27-Sep-89 Change title of Save Attributes dialog box ! X3.0-16 CCC 29-Sep-89 Modify Save Attributes dialog box ! X3.0-17 WC3 29-SEP-89 Remove all occurances of NEXT NAME and PREVIOUS NAME ! Add EXPAND and COLLAPSE to query popup ! X3.0-18 CCC 03-Oct-89 Remove DON'T SAVE button and add cols=30 in ! SAVE ATTRIBUTES Dialog box and add "resize_width = ! false" to needfilename dialog, SAVE ATTR. dialog ! and SAVE_AS dialog box. ! X3.0-19 CCC 11-Oct-89 Add more commands in the Avaliable Command Entries ! and add cols=3 and resize_width=false into ! XmLabel/comand text widget in Menu Extension Service. ! X3.0-20 CCC 16-Oct-89 Modify contents of Available Entry list box ! in Menu Extend. ! X3.0-21 CCC 16-Oct-89 Rename all NEXT_ITEM to NEXT_SYMBOL, PREVIOUS_ITEM ! to PREVIOUS_SYMBOL and rename EVE$$K_EXTMENU_DIALOG ! to LSE$$K_EXTMENU_DIALOG for help widget ! X3.0-22 LRH 16-May-90 Renamed EVE$$K_EXTEND_POPUP to LSE$$K_EXTMENU_DIALOG ! in extend_menu_popup help. ! X3.0-23 SAA 12-Nov-90 Added Haley Headers to document pull-down menus, ! pop-up menus and push-button widgets. ! X3.2 DBH 14-Nov-90 Made SRC$ includes use PSE$LIBRARY. ! X3.2-00 DAS 10-Nov-90 Removed OPEN_FILE_SELECTION, INCLUDE_FILE_SELECTION ! Added PROMPT_EXISTING_FILE ! Changed integer callbacks to string callbacks. ! X3.2-01 AVH 29-Nov-90 Changed lse$$widget_replace to lse$$substitute_dialog ! X3.2-02 SAA 28-Nov-90 Added help callbacks. Cleaned up dead code. ! X3.2-03 DAS 11-Dec-90 Added PROMPT_STRING and PROMPT_BOOLEAN boxes. ! Include DECW$DWTDEF to not hardcode 1/2 literals ! X3.2-04 SAA 25-Jan-91 Add help callbacks for prompt_string ! and prompt_boolean ! X3.2-05 GJJ 28-Jan-91 Changes toolkit names from VMS binding to C binding. ! Removed device names from UIL include file ! specification. ! X3.2-06 SHE 18-Mar-91 Added missing doc_end to Overview ! X4.0 DAS 9-Apr-91 Another pass at LSE$DO_COMMANDs ! X4.0-1 WC3 09-Apr-91 Changed a menu from Show Buffer to Show Buffer * ! Changed a action from LSE$DO_COMMAND('SHOW BUFFER') ! to lse_show_buffer( '*' ) ! X4.0-2 SHE 12-Apr-91 Changed DECW_About help frame name to About_DEC_LSE ! X4.0-3 DAS 23-Apr-91 Change Activate callbacks on Help pulldown to pass ! the facility (LSEMENU) and not the file name. ! X4.0-4 DAS 8-May-91 Comment out menu extension widgets ! X4.0-5 WC3 15-May-91 Portable language consistency ! X4.0-6 SHE 04-Jun-91 Integration of Motif work. ! X4.0-7 SHE 06-Jun-91 Renamed show_buffers_label to show_buffer_label. ! X4.0-8 SHE 18-Jun-91 Fixed mnemonics for New Window and New Key ! X4.0-9 DAS 26-Jun-91 Case sensitive names for ULTRIX ! X4.0-10 DAS 27-Jun-91 Made insensitive to get stable VMS build ! X4.0-11 AVH 27-Jun-91 Fix direction problem in SEARCH & SUBSTITUTE, ! Change LSE$$WIDGET_SUBSTITUTE_FIND_NEXT to ! LSE$$WIDGET_SUBSTITUTE_SEARCH_NEXT ! X4.0-12 SHE 1-Jul-91 Change doc_begin to no_doc_begin and doc_end to ! no_doc_end for commented out !EXTMENU stuff ! Added default title string to prompt_string and ! prompt_existing_file. ! X4.0-13 LRH 1-Jul-91 Fixed the reallyquit dialog box ! X4.0-14 LRH 1-Jul-91 Fixed the reallyquit dialog box ! X4.0-15 DAS 8-Jul-91 Uppercasing for MIPS ! X4.0-16 LRH 8-Jul-91 Move leftOffset from default_stext_args to ! appropriate needfilename_text to get rid of ! informationals during compile ! X4.0-17 SHE 16-Jul-91 Added primary selection model to Global ! Attributes dialog box. ! X4.0-18 WC3 17-Jul-91 Fix EXPAND, EXPAND ALL, COLLAPSE menu items to call ! the right thing ! X4.0-19 SHE 18-Jul-91 Brought HELP button help topics into synch ! with the topics used for the help callbacks. ! X4.0-20 LRH 31-Jul-91 Centered ACKNOWLEDGED in message box ! X4.0-21 LRH 01-Aug-91 Created default_acknowledge_button_args and added ! left attachment to it. ! X4.0-22 SHE 01-Aug-91 Modified "Close File" to call lse_close_file ! instead of lse_close. ! X4.0-23 DAS 14-Aug-91 Stream line feed the file ! X4.0-24 SHE 14-Aug-91 Changed mnemonic for Lowercase to L. ! Added space before "..." for Help topics. ! X4.0-25 SHE 15-Aug-91 Added lse$do_command for GOTO DECLARATION ! X4.0-26 SHE 20-Aug-91 Goto Declaration and Find Occurrences should ! use portable grammar ! X4.0-27 LRH 22-Aug-91 Added left attachment to SEARCH and SUBSTITUTE ! X4.0-28 SHE 23-Aug-91 Added subform to ATTR_DIALOG to prevent buttons ! from getting mashed after multiple invocations. ! Modified default_dialog_X_args_3 for better ! spacing. ! X4.0-29 LRH 30-Aug-91 Removed all dialog boxes, menu items, etc ! dealing with CMS (nonportable) commands. ! X4.0-30 SHE 18-Sep-91 Added MENUS_DIALOG. Removed all pushbuttons for ! for the menus, since they're created at ! startup through the menu customization routines ! now. Removed help callback for the menu bar, ! and each of the menus. Remove mnemonics. ! X4.0-31 LRH 23-Sep-91 Put replace and find next button back in ! substitute dialog box ! X4.0-32 SHE 26-Sep-91 Added back help callbacks for pulldowns. ! X4.0-33 SHE 06-Oct-91 DECSet UI Consistency work ! X4.0-34 LRH 07-Oct-91 Changed Pattern to Wildcard in search, substitute ! X4.0-35 LRH 11-Oct-91 Adjusted ok cancel buttons for prompt string ! x4.0-36 LRH 11-Oct-91 Fix file selection box to use default ! X4.0-37 SHE 16-Oct-91 Use LSE$$CS_HELP_CALLBACK for all helpcallbacks. ! X4.0-38 SHE 23-Oct-91 Made names of subforms consistent for the sake ! of parent_dialog queries in the doc. generation. ! X4.0-39 SHE 31-Oct-91 Changed Achknowledge to OK in MESSAGE_DIALOG. ! Made PROMPT_STRING an XmPromptDialog. ! Added INFO_BOX. ! X4.0-40 SHE 05-Nov-91 Fixed doc headers. ! X4.0-41 WC3 21-Nov-91 Change wildcard to pattern ! Fix a bunch of help button help topics. ! X4.0-42 SHE 03-Dec-91 Removed eve$$k_* responder constants. ! X4.0-43 WC3 13-Jan-92 Re-write Extended attribute support. ! X4.0-44 WC3 14-Feb-92 Fix problems found by the doc build ! X4.0-45 WC3 24-Feb-92 Remove use of nested lists in doc headers. ! X4.0-46 SHE 06-Mar-92 Added missing doc_ends to some pulldown headers ! X4.0-47 WC3 16-Mar-92 Context sensitive nits ! X4.0-48 SHE 10-Apr-92 Make dialogs density-independent ! X4.0-49 SHE 25-Apr-92 Fixed reference to prompt_boolean_help ! X4.0-50 SHE 08-May-92 Adjusted attachments for edit_label_arrow and ! label_to_edit_label. ! X4.0-51 SHE 14-May-92 Modified help for Menu Label definitions ! X4.0-52 SHE 10-Jun-92 Added CMS... dialog box ! X4.0-53 SHE 28-Sep-92 Added frames for subsitute_dialog, CMS dialog and ! controls, and fixed text for search_attributes. ! Swapped location of attr_command_text and ! attr_section_text. ! X4.0-54 SHE 30-Sep-92 Added One Line Definitions for some of the CMS ! dialog box controls. ! 4.5-1 CJH 14-Aug-96 DECset V12.2 GUI Enhancements. ! 4.6-1 JBL 20-Nov-97 Add buttons for TABS HARD and UNDO ON/OFF. !-- names = case_insensitive objects = { XmPushButton = gadget; XmLabel = gadget; XmSeparator = gadget; } ! Include files needed by this module. File names must not specify a device ! or directory and must be in lower case. Control directories where include ! files are pulled from via UIL$INCLUDE logical name on VMS and -I command ! line option on Ultrix. ! include file 'eve$constants.uil'; include file 'lse$constants.uil'; include file 'lse$edit_icons.uil'; procedure TPU$WIDGET_INTEGER_CALLBACK (integer); procedure TPU$WIDGET_STRING_CALLBACK (string); procedure LSE$$CS_HELP_CALLBACK (string); value left_attachment : argument ('adbLeftAttachment', integer); left_widget : argument ('adbLeftWidget', any); ! adb left_offset : argument ('adbLeftOffset', integer); horiz : argument ('horizontal', boolean); ! hor scroll bar ! dialog box title strings save_file_as_db_title : compound_string ("Save As"); exit_db_title : compound_string ("Exit"); reallydelbuf_db_title : compound_string ("Delete buffer"); write_buffer_db_title : compound_string ("Write buffer"); replace_each_db_title : compound_string ("Substitute occurrence"); search_db_title : compound_string ("Search"); message_db_title : compound_string ("Message"); extend_db_title : compound_string ("Extend EVE"); save_extended_eve_db_title : compound_string ("Save Extended EVE"); at_eve_file_db_title : compound_string ("@EVE File"); menus_db_title : compound_string ("Menus"); directory_db_title : compound_string ("Directory List"); extend_menu_db_title : compound_string ("Extend Menu"); prompt_boolean_db_title : compound_string ("Question"); prompt_string_db_title : compound_string ("String"); prompt_existing_file_db_title : compound_string ("File Name"); select_directory_title : compound_string ("Select Directory"); info_box_db_title : compound_string ("Info"); error_box_db_title : compound_string ("Error"); use_last_attributes_title : compound_string ("Use Last Saved Attributes"); use_sys_attributes_title : compound_string ("Use System Attributes"); save_attributes_title : compound_string ("Save Current Attributes ..."); reallyquit_title : compound_string ("Save changes"); ! Pulldown menu item strings search_dialog_title : compound_string ("Search"); substitute_dialog_title : compound_string ("Substitute"); search_pref_dialog_title: compound_string ("Search Attributes"); set_interface_dialog_title: compound_string ("Global Attributes"); buffer_attributes_dialog_title: compound_string ("Buffer Attributes"); window_attributes_dialog_title: compound_string ("Window Attributes"); indentation_title : compound_string ("Indentation"); undo_redo_title : compound_string ("Undo/Redo"); define_key_title : compound_string ("New Key"); cms_pref_title : compound_string ("CMS"); ! Help widget strings help_dialog_appl_name : compound_string ("LSE"); ! Pulldown menu bar strings file_pulldown_label : compound_string ("File"); edit_pulldown_label : compound_string ("Edit"); search_pulldown_label : compound_string ("Search"); view_pulldown_label : compound_string ("View"); source_pulldown_label : compound_string ("Source"); show_pulldown_label : compound_string ("Show"); options_pulldown_label : compound_string ("Options"); navigate_pulldown_label : compound_string ("Navigate"); box_pulldown_label : compound_string ("Box"); help_pulldown_label : compound_string ("Help"); extend_pulldown_label : compound_string ("Extend"); ! Pulldown menu item strings reset_label : compound_string ("Reset"); list_box_popup_label : compound_string ("Available Menus"); list_box_command_label : compound_string ("Available Entries"); list_box_contents_label : compound_string ("Entries in Selected Menu"); menus_label : compound_string ("Menus"); entries_label : compound_string ("Menu Entries"); labels_label : compound_string ("Labels"); label_to_edit_label : compound_string ("Label"); remove_entry_label : compound_string ("Remove Entry"); add_separator_label : compound_string ("Add Separator"); remove_label_label : compound_string ("Remove Label"); label_label : compound_string ("Label"); mnemonic_label : compound_string ("Mnemonic"); tpu_code_label : compound_string ("TPU Code"); save_attr_label : compound_string ("Save Current Attributes: "); save_section_label : compound_string ("Save in Section File:"); save_command_label : compound_string ("Save in Command File:"); dont_save_label : compound_string ("Don't Save"); cursor_label_label : compound_string ("Cursor"); free_label : compound_string ("Free"); bound_label : compound_string ("Bound"); tab_mode_label_label : compound_string ("Set Tabs: "); insert_label : compound_string ("Insert"); spaces_label : compound_string ("Spaces"); movement_label : compound_string ("Movement"); find_exact_label : compound_string ("Set Find Case Exact"); tabs_label_label : compound_string ("Tabs Visible"); visible_label : compound_string ("Visible"); select_model_label : compound_string ("Primary Selection Model"); focus_based_select_model_label : compound_string ("Focus-based"); selection_based_select_model_label : compound_string ("Selection-based"); clipboard_label : compound_string ("Set Clipboard"); pending_delete_label : compound_string ("Pending Delete"); word_wrap_label : compound_string ("Set Wrap"); modifiable_label : compound_string ("Set Buffer Modifiable"); read_only_label : compound_string ("Set Buffer Close Read Only"); set_tabs_every_label : compound_string ("Set Tabs Every"); set_tabs_at_label : compound_string ("Set Tabs At"); new_user_label : compound_string ("New Users"); list_of_topics_label : compound_string ("List of Topics"); keypad_label : compound_string ("Keypad"); keypad_edt_label : compound_string ("EDT"); keypad_eve_label : compound_string ("EVE"); bell_label : compound_string ("Bell"); bell_none_label : compound_string ("None"); bell_all_label : compound_string ("All"); font_label : compound_string ("Font"); font_width_label : compound_string ("Font width"); big_font_label : compound_string ("Big font"); little_font_label : compound_string ("Little font"); normal_font_label : compound_string ("Normal font"); condensed_font_label : compound_string ("Condensed font"); tabs_label : compound_string ("Tabs"); visible_tabs_label : compound_string ("Visible"); hard_tabs_label : compound_string ("Hard"); screen_label_label : compound_string ("Window:"); rows_label : compound_string ("Rows"); columns_label : compound_string ("Columns"); num_of_wind_label : compound_string ("Number of Windows"); max_num_of_wind_label : compound_string ("Maximum Number of Windows"); window_creation_label : compound_string ("Automatic Window Creation:"); balance_label : compound_string ("Balance"); minimum_rows_label : compound_string ("Minimum Rows"); keys_label : compound_string ("Keys"); symbol_label2 : compound_string ("Symbol ->"); increase_label : compound_string ("Increase"); decrease_label : compound_string ("Decrease"); undo_label : compound_string ("Undo"); redo_label : compound_string ("Redo"); replace_each_title : compound_string ("Substitute occurrence"); ba_buffer_label : compound_string ("Buffer"); ba_outputfile_label : compound_string ("Output File"); ba_language_label : compound_string ("Language"); ba_left_margin_label : compound_string ("Left Margin"); ba_right_margin_label : compound_string ("Right Margin"); ba_tab_increment_label : compound_string ("Tab Increment"); ba_max_undo_label : compound_string ("Max Undo"); ba_read_only_label : compound_string ("Read Only"); ba_write_label : compound_string ("Write"); ba_unmodifiable_label : compound_string ("Unmodifiable"); ba_insert_label : compound_string ("Insert"); ba_overstrike_label : compound_string ("Overstrike"); ba_auto_erase_label : compound_string ("Auto Erase"); ba_journaling_label : compound_string ("Journaling"); ba_wrap_label : compound_string ("Wrap"); ba_overview_label : compound_string ("Overview"); ba_forward_label : compound_string ("Forward"); ba_reverse_label : compound_string ("Reverse"); ! ! PDS view ! expand_label : compound_string ("Expand"); expand_all_label : compound_string ("Expand All"); collapse_label : compound_string ("Collapse"); collapse_all_label : compound_string ("Collapse All"); overview_label : compound_string ("Overview Source"); source_label : compound_string ("View Source"); focus_label : compound_string ("Focus"); ! ! End of PDS ! refresh_label : compound_string ("Refresh"); define_key_label : compound_string ("New Key ..."); set_interface_label : compound_string ("Global Attributes ..."); window_attributes_label : compound_string ("Window Attributes ..."); search_customize_label : compound_string ("Search Attributes ..."); help_commands_label : compound_string ("Commands"); help_keyboard_label : compound_string ("Keyboard"); delete_query_label : compound_string ("Delete Query"); goto_source_label : compound_string ("Goto Source"); close_buffer_label : compound_string ("Close Buffer"); cms_preferences_label : compound_string ("CMS Attributes ..."); ! Pushbutton strings ok_string : compound_string (" OK "); close_string : compound_string (" Close"); apply_string : compound_string (" Apply"); cancel_push_string : compound_string ("Cancel"); dismiss_push_string : compound_string ("Dismiss"); help_string : compound_string (" Help "); acknowledged_string : compound_string ("Acknowledged"); dismiss_string : compound_string (" Dismiss "); yes_push_label : compound_string (" Yes "); no_push_label : compound_string (" No "); cancel_push_label : compound_string ("Cancel"); modified_buffer_label : compound_string ("The buffer has been modified. Choose one of the following:"); replace_all_label : compound_string ("All "); replace_last_label : compound_string ("Last"); filter_string : 'Filter'; !** If toolkit changes, change filter_label_string : 'File Filter'; !** add_string : compound_string (" Add "); remove_string : compound_string ("Remove"); enter_string : compound_string (" Enter"); delete_string : compound_string ("Delete"); ! Prompt (label) strings replace_prompt : compound_string ("Replace this occurrence?"); new_prompt : compound_string ("New buffer name: "); open_file_prompt : compound_string ("Open File: "); save_file_as_prompt : compound_string ("Save as: "); reallyquit_prompt : compound_string ("Save changes before Quitting?"); nodef_prompt : compound_string ("Buffer not modified"); file_name_prompt : compound_string ("File Name:"); define_key_remark_prompt : compound_string ("Remark: "); define_key_legend_prompt : compound_string ("Legend: "); define_key_topic_prompt : compound_string ("Topic: "); define_key_command_prompt : compound_string ("Command: "); define_key_key_prompt : compound_string ("Key: "); cms_pref_remark_prompt : compound_string ("Remark: "); cms_pref_occlude_prompt : compound_string ("Occlude: "); cms_pref_merge_prompt : compound_string ("Merge: "); cms_pref_gen_prompt : compound_string ("Generation: "); cms_pref_confirm_label : compound_string ("Confirm"); cms_pref_concurrent_label : compound_string ("Concurrent"); cms_pref_notes_label : compound_string ("Notes"); cms_pref_history_labeL : compound_string ("History"); ! replace_wildcard_label : compound_string ("Pattern"); replace_case_sensitive_label : compound_string ("Case Sensitive"); replace_diacritical_label : compound_string ("Diacritical Sensitive"); replace_reverse_label : compound_string ("Reverse"); replace_forward_label : compound_string ("Forward"); substitute_case_matching_label : compound_string ("Case Matching"); replace_find_next_string : compound_string ("Find Next"); replace_replace_string : compound_string ("Replace"); replace_replace_all_string : compound_string ("All"); substitute_replace_fndnxt_string : compound_string ("Replace and Find Next"); search_pref_span_space_label : compound_string ("Span Space"); search_pref_case_sense_label : compound_string ("Case Sensitive"); search_pref_diacritical_label : compound_string ("Diacritical Sensitive"); search_pref_auto_reverse_label: compound_string ("Auto Reverse"); search_pref_pattern_label : compound_string ("Pattern"); search_pref_vms_label : compound_string ("VMS"); search_pref_ultrix_label : compound_string ("ULTRIX"); search_pref_tpu_label : compound_string ("TPU"); search_wildcard_label : compound_string ("Pattern"); find_case_sensitive_label : compound_string ("Case Sensitive"); find_diacritical_label : compound_string ("Diacritical Sensitive"); find_reverse_label : compound_string ("Reverse"); find_forward_label : compound_string ("Forward"); search_for_label : compound_string ("Search for "); replace_with_label : compound_string ("Replace with "); define_key_learn_label : compound_string ("Learn"); write_and_delete_label : compound_string ("Write and Delete Buffer"); delete_only_label : compound_string ("Delete Buffer"); command_language_label : compound_string ("Command Language"); vmslse_label : compound_string ("VMSLSE"); portable_label : compound_string ("Portable"); scroll_margin_top_label : compound_string ("Scroll Margin Top"); scroll_margin_bottom_label : compound_string ("Scroll Margin Bottom"); clipboard_label_label : compound_string ("Clipboard"); undo_redo_label : compound_string ("Undo/Redo"); save_related_buffers_label : compound_string ("Save Related Buffers"); directory_label : compound_string ("Directory"); select_label : compound_string ("Select ..."); directory_list_label : compound_string ("Directory List"); append_label : compound_string ("Append"); add_before_selected_label : compound_string ("Add Before Selected"); delete_selected_label : compound_string ("Delete Selected"); ! string tables popup_menus : string_table ( compound_string ("File Pulldown"), compound_string ("Edit Pulldown"), compound_string ("Search Pulldown"), compound_string ("View Pulldown"), compound_string ("Source Pulldown"), compound_string ("Show Pulldown"), compound_string ("Options Pulldown"), compound_string ("User_buffer Popup"), compound_string ("Query Popup"), compound_string ("Review Popup") ); ! EVE's application name application_name_string : compound_string ("LSE"); list default_dialog_args: arguments { XmNunitType = Xm1000TH_INCHES; XmNmarginHeight = 200; XmNmarginWidth = 200; XmNallowOverlap = false; XmNautoUnmanage = false; }; default_prompt_dialog_args: arguments { arguments default_dialog_args; XmNwidth = 300; XmNheight = 120; }; default_unattached_stext_args: arguments { XmNresizeHeight = false; XmNheight = 35; }; default_stext_args: arguments { XmNresizeHeight = false; }; ! ! defaults when you have 4 buttons in a dialog box ! default_dialog_ok_args_4: arguments { XmNlabelString = ok_string; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 4; }; default_dialog_apply_args_4: arguments { XmNlabelString = apply_string; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 27; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; }; default_dialog_cancel_args_4: arguments { XmNlabelString = cancel_push_string; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 53; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; }; default_dialog_help_args_4: arguments { XmNlabelString = help_string; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 78; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; }; default_dialog_ok_CEN_args_4: arguments { XmNlabelString = ok_string; XmNwidth = 1100; XmNrightAttachment = XmATTACH_POSITION; XmNrightPosition = 50; XmNrightOffset = 150 + 1100 + 75; }; default_dialog_apply_CEN_args_4: arguments { XmNlabelString = apply_string; XmNwidth = 1100; XmNrightAttachment = XmATTACH_POSITION; XmNrightPosition = 50; XmNrightOffset = 75; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; }; default_dialog_cancel_CEN_args_4: arguments { XmNlabelString = cancel_push_string; XmNwidth = 1100; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 50; XmNleftOffset = 75; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; }; default_dialog_help_CEN_args_4: arguments { XmNlabelString = help_string; XmNwidth = 1100; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 50; XmNleftOffset = 75 + 1100 + 150; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; }; ! ! defaults when you have 3 buttons in a dialog box ! default_dialog_ok_args_3: arguments { XmNlabelString = ok_string; XmNleftAttachment = XmATTACH_POSITION; XmnleftPosition = 8; }; default_dialog_cancel_args_3: arguments { XmNlabelString = cancel_push_string; XmNleftAttachment = XmATTACH_POSITION; XmnleftPosition = 40; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; }; default_dialog_help_args_3: arguments { XmNlabelString = help_string; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftAttachment = XmATTACH_POSITION; XmnleftPosition = 72; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; }; default_dialog_ok_cen_args_3: arguments { XmNlabelString = ok_string; XmNwidth = 1100; XmNrightAttachment = XmATTACH_POSITION; XmNrightPosition = 50; XmNrightOffset = 150 + 550; }; default_dialog_cancel_cen_args_3: arguments { XmNlabelString = cancel_push_string; XmNwidth = 1100; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 50; XmNleftOffset = -550; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; }; default_dialog_help_cen_args_3: arguments { XmNlabelString = help_string; XmNwidth = 1100; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 50; XmNleftOffset = 550 + 150; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; }; ! ! Boolean dialog args 3 ! default_boolean_yes_args_3: arguments { XmNlabelString = yes_push_label; XmNleftAttachment = XmATTACH_POSITION; XmnleftPosition = 8; }; default_boolean_no_args_3: arguments { XmNlabelString = no_push_label; XmNleftAttachment = XmATTACH_POSITION; XmnleftPosition = 43; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; }; default_boolean_cancel_args_3: arguments { XmNlabelString = cancel_push_label; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftAttachment = XmATTACH_POSITION; XmnleftPosition = 80; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; }; ! More defaults default_file_select_args: arguments { XmNdialogStyle = XmDIALOG_MODELESS; XmNmarginHeight = 10; XmNmarginWidth = 10; XmNdirMask = compound_string(""); XmNlistVisibleItemCount = 6; XmNdefaultPosition = true; XmNokLabelString = ok_string; XmNcancelLabelString = cancel_push_string; XmNapplyLabelString = filter_string; XmNfilterLabelString = filter_label_string; }; default_caution_yes_args_3: arguments { XmNLabelString = yes_push_label; XmNleftAttachment = XmATTACH_POSITION; XmnleftPosition = 8; }; default_caution_no_args_3: arguments { XmNLabelString = no_push_label; XmNleftAttachment = XmATTACH_POSITION; XmnleftPosition = 40; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; }; default_caution_cancel_args_3: arguments { XmNLabelString = cancel_push_string; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftAttachment = XmATTACH_POSITION; XmnleftPosition = 72; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; }; default_list_box_args: arguments { XmNborderWidth = 0; }; default_dialog_close_args_2: arguments { XmNlabelString = close_string; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 30; }; default_dialog_help_args_2: arguments { XmNlabelString = help_string; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 65; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; }; default_ok_button_args: arguments { XmNlabelString = ok_string; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 41; XmNtopAttachment = XmATTACH_WIDGET; XmNtopOffset = 100; }; bottom_margin_hack: arguments { XmNlabelString = ''; XmNtopAttachment = XmATTACH_WIDGET; XmNtopOffset = 100; }; right_margin_hack: arguments { XmNlabelString = ''; XmNleftAttachment = XmATTACH_WIDGET; XmNleftOffset = 100; }; object ! Moved Pull-down Menus to DOC$DECW_FIXED_TEXT.HLP ! !------------------------------------------------ ! Note: There was this comment here: ! "no callbacks allowed for menu_bars" ! but the UIL manual identifies several legal callbacks. ! therefore, I'm putting a HELP callback in here. ! If there is some reason why this should NOT be done, ! please remove and explain. !------------------------------------------------ EVE_MENU_BAR : XmMenuBar widget{ arguments { XmNborderWidth = 0; XmNorientation = XmHORIZONTAL; XmNmenuHelpWidget = XmCascadeButton help_pulldown; }; controls { XmCascadeButton file_pulldown; XmCascadeButton edit_pulldown; XmCascadeButton view_pulldown; XmCascadeButton search_pulldown; XmCascadeButton source_pulldown; XmCascadeButton show_pulldown; XmCascadeButton options_pulldown; XmCascadeButton navigate_pulldown; XmCascadeButton box_pulldown; XmCascadeButton help_pulldown; }; }; ! FILE object ! !doc_begin ! ! TITLE: ! File Menu ! ! ONE LINE DEFINITION: ! Access files and repository elements ! ! DESCRIPTION: ! Use the File menu to access and replace both files and repository ! elements. You can also compile and review source code and exit ! from or quit the current editing session. You can also show ! and modify source, read-only and SCA directory lists. ! !doc_end ! FILE_PULLDOWN : XmCascadeButton { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_file_pulldown"); }; arguments { XmNlabelString = file_pulldown_label; }; controls { XmPulldownMenu file_menu; }; }; ! !nodoc_begin ! ! TITLE: ! File Menu Items ! ! DESCRIPTION: ! ! Choose one of the menu items to open and save both files and ! repository elements, compile and review source code, exit from or ! quit the current editing session. ! !nodoc_end ! FILE_MENU : XmPulldownMenu { }; ! !doc_begin ! ! TITLE: ! File name dialog box ! ! ONE LINE DEFINITION: ! The dialog box provides LSE with the file you wish to use. ! ! DESCRIPTION: ! The "File Filter" field allows you to specify which filed are to ! be displayed in the list boxes. Press on the "FILTER" button ! to use your filter. !

! Particular files may be entered in one of 2 ways: ! (UNNUMBERED) ! Enter the file name in the "Selection" field ! Select a file in the list box ! !

! Press the "OK" button to provide the file name to LSE. ! ! RELATED COMMANDS: ! OPEN FILE ! NEW FILE ! VIEW FILE ! INCLUDE FILE ! !doc_end ! object PROMPT_EXISTING_FILE : XmFileSelectionDialog { callbacks { XmNokCallback = procedure TPU$WIDGET_STRING_CALLBACK ('LSE$$PROMPT_EXISTING_FILE_HANDLER'); XmNcancelCallback = procedure TPU$WIDGET_STRING_CALLBACK ('LSE$$PROMPT_EXISTING_FILE_HANDLER'); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ('LSEMENU DECW_Open'); }; arguments { arguments default_file_select_args; XmNdialogtitle = prompt_existing_file_db_title; }; }; object SELECT_FILE : XmFileSelectionDialog { callbacks { XmNokCallback = procedure TPU$WIDGET_STRING_CALLBACK ('LSE$$WIDGET_SELECT_FILE_OK'); XmNcancelCallback = procedure TPU$WIDGET_STRING_CALLBACK ('LSE$$WIDGET_SELECT_FILE_CANCEL'); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ('LSEMENU DECW_Open'); }; arguments { arguments default_file_select_args; XmNdialogtitle = prompt_existing_file_db_title; }; }; object SELECT_DIRECTORY : XmFileSelectionDialog { callbacks { XmNokCallback = procedure TPU$WIDGET_STRING_CALLBACK ('LSE$$WIDGET_SELECT_DIRECTORY_OK'); XmNcancelCallback = procedure TPU$WIDGET_STRING_CALLBACK ('LSE$$WIDGET_SELECT_DIRECTORY_CANCEL'); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ('LSEMENU DECW_Open'); }; arguments { arguments default_file_select_args; XmNdialogtitle = select_directory_title; XmNfileTypeMask = XmFILE_DIRECTORY; }; !controls { ! Xm_DirList : XmScrolledList { ! callbacks { ! XmNsingleSelectionCallback = ! procedure TPU$WIDGET_STRING_CALLBACK ! ("LSE$$WIDGET_SELECT_DIRECTORY_MAKE_SELECTION"); ! }; ! }; !}; }; ! !doc_begin ! ! TITLE: ! Simple string dialog box ! ! ONE LINE DEFINITION: ! The dialog box provide LSE with simple string input. ! !doc_end ! object PROMPT_STRING : XmPromptDialog { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_prompt_string"); XmNokCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$CB_PROMPT_STRING_OK"); XmNcancelCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$CB_PROMPT_STRING_CANCEL"); }; arguments { arguments default_prompt_dialog_args; XmNdialogtitle = prompt_string_db_title; }; }; object ! !doc_begin ! ! TITLE: ! Simple string selection dialog box ! ! ONE LINE DEFINITION: ! The dialog box provide LSE with simple selected string input. ! !doc_end ! PROMPT_STRING_SELECTION : XmSelectionDialog { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_prompt_string_selection"); XmNokCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$CB_PROMPT_STRING_SELECTION_OK"); XmNcancelCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$CB_PROMPT_STRING_SELECTION_CANCEL"); }; arguments { arguments default_prompt_dialog_args; XmNdialogtitle = prompt_string_db_title; }; }; object SELECT_STRING : XmSelectionDialog { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_prompt_string_selection"); XmNokCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_SELECT_STRING_OK"); XmNcancelCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_SELECT_STRING_CANCEL"); }; arguments { arguments default_prompt_dialog_args; XmNdialogtitle = prompt_string_db_title; }; }; object ! !doc_begin ! ! TITLE: ! Prompt Boolean Dialog Box ! ! ONE LINE DEFINITION: ! General box to input yes/no or true/false responses. ! !doc_end ! PROMPT_BOOLEAN : XmFormDialog { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_prompt_boolean"); }; arguments { arguments default_dialog_args; XmNdialogStyle = XmDIALOG_APPLICATION_MODAL; XmNdialogtitle = prompt_boolean_db_title; XmNnoresize= true; }; controls { managed XmLabel prompt_boolean_label; managed XmLabel prompt_boolean_right_margin; managed XmPushButton prompt_boolean_yes; managed XmPushButton prompt_boolean_no; managed XmPushButton prompt_boolean_cancel; managed XmLabel prompt_boolean_bottom_margin; }; }; object PROMPT_BOOLEAN_YES_DEF : XmFormDialog { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_prompt_boolean_yes_def"); }; arguments { arguments default_dialog_args; XmNdialogStyle = XmDIALOG_APPLICATION_MODAL; XmNdialogTitle = prompt_boolean_db_title; XmNnoResize = true; XmNdefaultButton = XmPushButton PROMPT_BOOLEAN_YES; }; controls { managed XmLabel prompt_boolean_label; managed XmLabel prompt_boolean_right_margin; managed XmPushButton prompt_boolean_yes; managed XmPushButton prompt_boolean_no; managed XmPushButton prompt_boolean_cancel; managed XmLabel prompt_boolean_bottom_margin; }; }; object PROMPT_BOOLEAN_NO_DEF : XmFormDialog { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_prompt_boolean_no_def"); }; arguments { arguments default_dialog_args; XmNdialogStyle = XmDIALOG_FULL_APPLICATION_MODAL; XmNdialogtitle = prompt_boolean_db_title; XmNnoresize= true; XmNdefaultButton = XmPushButton PROMPT_BOOLEAN_NO; }; controls { managed XmLabel prompt_boolean_label; managed XmLabel prompt_boolean_right_margin; managed XmPushButton prompt_boolean_yes; managed XmPushButton prompt_boolean_no; managed XmPushButton prompt_boolean_cancel; managed XmLabel prompt_boolean_bottom_margin; }; }; PROMPT_BOOLEAN_LABEL : XmLabel { arguments { XmNlabelString = ''; XmNtopAttachment = XmATTACH_FORM; XmNtopOffset = 200; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 3; }; }; PROMPT_BOOLEAN_RIGHT_MARGIN : XmLabel { arguments { arguments right_margin_hack; XmNleftWidget = PROMPT_BOOLEAN_LABEL; }; }; ! !doc_begin ! ! TITLE: ! Yes button ! ! ONE LINE DEFINITION: ! Use Yes or True ! !doc_end ! PROMPT_BOOLEAN_YES : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$CB_PROMPT_BOOLEAN_YES"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_prompt_boolean_yes"); }; arguments { arguments default_boolean_yes_args_3; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = PROMPT_BOOLEAN_LABEL; XmNtopOffset = 300; }; }; ! !doc_begin ! ! TITLE: ! No button ! ! ONE LINE DEFINITION: ! Use No or False ! !doc_end ! PROMPT_BOOLEAN_NO : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$CB_PROMPT_BOOLEAN_NO"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_prompt_boolean_no"); }; arguments { arguments default_boolean_no_args_3; XmNtopWidget = PROMPT_BOOLEAN_YES; XmNbottomWidget = PROMPT_BOOLEAN_YES; }; }; ! !doc_begin ! ! TITLE: ! Cancel button ! ! ONE LINE DEFINITION: ! Remove the dialog box without executing ! !doc_end ! PROMPT_BOOLEAN_CANCEL : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$CB_PROMPT_BOOLEAN_CANCEL"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_prompt_boolean_cancel"); }; arguments { arguments default_boolean_cancel_args_3; XmNtopWidget = PROMPT_BOOLEAN_NO; XmNbottomWidget = PROMPT_BOOLEAN_NO; }; }; PROMPT_BOOLEAN_BOTTOM_MARGIN : XmLabel { arguments { arguments bottom_margin_hack; XmNtopWidget = PROMPT_BOOLEAN_YES; }; }; object ! !doc_begin ! ! TITLE: ! Delete Buffer dialog box ! ! ONE LINE DEFINITION: ! Click on OK to delete the buffer. ! !doc_end ! REALLYDELBUF_DIALOG : XmFormDialog { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_Reallydelbuf"); }; arguments { arguments default_dialog_args; XmNnoResize = true; XmNdialogStyle = XmDIALOG_APPLICATION_MODAL; XmNdefaultButton = XmPushButton reallydelbuf_ok; XmNdialogTitle = reallydelbuf_db_title; }; controls { XmLabel reallydelbuf_label; XmLabel reallydelbuf_right_margin; XmRadioBox reallydelbuf_choices; XmPushButton reallydelbuf_ok; XmPushButton reallydelbuf_cancel; XmPushButton reallydelbuf_help; XmLabel reallydelbuf_bottom_margin; }; }; REALLYDELBUF_LABEL : XmLabel { arguments { XmNlabelString = modified_buffer_label; XmNtopAttachment = XmATTACH_FORM; XmNtopOffset = 300; XmNleftAttachment = XmATTACH_FORM; }; }; REALLYDELBUF_RIGHT_MARGIN : XmLabel { arguments { arguments right_margin_hack; XmNleftWidget = REALLYDELBUF_LABEL; }; }; ! !doc_begin ! ! TITLE: ! Choices Radio Box ! ! ONE LINE DEFINITION: ! Contains Write and Delete and Delete Only Choices Toggle ! !doc_end ! REALLYDELBUF_CHOICES: XmRadioBox { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_reallydelbuf_choices"); }; arguments { XmNorientation = XmVERTICAL; XmNborderWidth = 0; XmNradioAlwaysOne = true; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = REALLYDELBUF_LABEL; XmNtopOffset = 200; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = REALLYDELBUF_LABEL; XmNleftOffset = 1300; }; controls { XmToggleButtonGadget reallydelbuf_write_and_delete; XmToggleButtonGadget reallydelbuf_delete_only; }; }; REALLYDELBUF_WRITE_AND_DELETE : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_reallydelbuf_write_and_delete"); }; arguments { XmNlabelString = write_and_delete_label; }; }; REALLYDELBUF_DELETE_ONLY: XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_reallydelbuf_delete_only"); }; arguments { XmNlabelString = delete_only_label; }; }; ! !doc_begin ! ! TITLE: ! OK button ! ! ONE LINE DEFINITION: ! Applies the current setting in the dialog box ! and closes the box. ! !doc_end ! REALLYDELBUF_OK: XmPushButton gadget { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$MENUS_REALLYDELBUF_OK"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_reallydelbuf_ok"); }; arguments { arguments default_dialog_ok_args_3; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = REALLYDELBUF_CHOICES; XmNtopOffset = 300; }; }; ! !doc_begin ! ! TITLE: ! Cancel button ! ! ONE LINE DEFINITION: ! %INCLUDE prompt_boolean_cancel ! !doc_end ! REALLYDELBUF_CANCEL : XmPushButton gadget { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$MENUS_REALLYDELBUF_CANCEL"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_reallydelbuf_dismiss"); }; arguments { arguments default_dialog_cancel_args_3; XmNtopWidget = REALLYDELBUF_OK; XmNbottomWidget = REALLYDELBUF_OK; }; }; ! !doc_begin ! ! TITLE: ! Help button ! ! ONE LINE DEFINITION: ! Supplies help for the dialog box ! !doc_end ! REALLYDELBUF_HELP : XmPushButton gadget { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$HELP_WIDGET ('LSEMENU', 'DECW_reallydelbuf')"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_reallydelbuf_help"); }; arguments { arguments default_dialog_help_args_3; XmNtopWidget = REALLYDELBUF_CANCEL; XmNbottomWidget = REALLYDELBUF_CANCEL; }; }; REALLYDELBUF_BOTTOM_MARGIN : XmLabel { arguments { arguments bottom_margin_hack; XmNtopWidget = REALLYDELBUF_OK; }; }; object ! EDIT ! !doc_begin ! ! TITLE: ! Edit Menu ! ! ONE LINE DEFINITION: ! Use the Edit menu to add and delete text in a buffer, use ! clipboard functions, restore text, select text and to ! perform undo and redo operations. ! !doc_end ! EDIT_PULLDOWN : XmCascadeButton widget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_edit_pulldown"); }; arguments { XmNlabelString = edit_pulldown_label; }; controls { XmPulldownMenu edit_menu; }; }; ! !nodoc_begin ! ! TITLE: ! Edit Menu Items ! ! ONE LINE DEFINITION: ! %INCLUDE file_menu ! !nodoc_end ! EDIT_MENU : XmPulldownMenu widget { }; ! !doc_begin ! ! TITLE: ! Indentation Dialog Box ! ! ONE LINE DEFINITION: ! Use the Indentation dialog box to increase or decrease ! the indentation by tab increments. ! !doc_end ! INDENTATION_DIALOG : XmFormDialog { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_indentation"); }; arguments { arguments default_dialog_args; XmNnoResize = true; XmNdialogStyle = XmDIALOG_MODELESS; XmNdialogTitle = indentation_title; XmNdefaultButton = XmPushButton indentation_ok; XmNcancelButton = XmPushButton indentation_cancel; }; controls { XmPushButton indentation_increase; XmPushButton indentation_decrease; XmLabel indentation_right_margin; XmPushButton indentation_ok; XmPushButton indentation_cancel; XmPushButton indentation_help; XmLabel indentation_bottom_margin; }; }; ! !doc_begin ! ! TITLE: ! Increase button ! ! ONE LINE DEFINITION: ! Increases the indentation of the line by one tab stop. ! !doc_end ! INDENTATION_INCREASE : XmPushButton gadget { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE_INDENT_RIGHT"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_indent_right"); }; arguments { XmNlabelString = increase_label; XmNtopAttachment = XmATTACH_FORM; XmNtopOffset = 200; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 400; }; }; ! !doc_begin ! ! TITLE: ! Decrease button ! ! ONE LINE DEFINITION: ! Decreases the indentation of the line by one tab stop. ! !doc_end ! INDENTATION_DECREASE : XmPushButton gadget { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE_INDENT_LEFT"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_indent_left"); }; arguments { XmNlabelString = decrease_label; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = INDENTATION_INCREASE; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = INDENTATION_INCREASE; XmNleftOffset = 600; }; }; INDENTATION_RIGHT_MARGIN : XmLabel { arguments { XmNlabelString = ''; XmNleftAttachment = XmATTACH_WIDGET; XmNleftOffset = 400; XmNleftWidget = INDENTATION_DECREASE; }; }; ! !doc_begin ! ! TITLE: ! OK button ! ! ONE LINE DEFINITION: ! %INCLUDE reallydelbuf_ok ! !doc_end ! INDENTATION_OK: XmPushButton gadget { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$CALLBACK_UNMANAGE_INDENTATION"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_indentation_ok"); }; arguments { arguments default_dialog_ok_args_3; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = INDENTATION_INCREASE; XmNtopOffset = 300; }; }; ! !doc_begin ! ! TITLE: ! Cancel button ! ! ONE LINE DEFINITION: ! %INCLUDE prompt_boolean_cancel ! !doc_end ! INDENTATION_CANCEL : XmPushButton gadget { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$CALLBACK_UNMANAGE_INDENTATION"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_indentation_dismiss"); }; arguments { arguments default_dialog_cancel_args_3; XmNtopWidget = INDENTATION_OK; XmNbottomWidget = INDENTATION_OK; }; }; ! !doc_begin ! ! TITLE: ! Help button ! ! ONE LINE DEFINITION: ! %INCLUDE reallydelbuf_help ! !doc_end ! INDENTATION_HELP : XmPushButton gadget { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$HELP_WIDGET ('LSEMENU', 'DECW_indentation')"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_indentation_help"); }; arguments { arguments default_dialog_help_args_3; XmNtopWidget = INDENTATION_CANCEL; XmNbottomWidget = INDENTATION_CANCEL; }; }; INDENTATION_BOTTOM_MARGIN : XmLabel { arguments { arguments bottom_margin_hack; XmNtopWidget = INDENTATION_OK; }; }; ! !doc_begin ! ! TITLE: ! Undo/redo Dialog Box ! ! ONE LINE DEFINITION: ! Use the Undo/redo dialog box to undo/redo changes. ! !doc_end ! UNDO_REDO_DIALOG : XmFormDialog { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_undo_redo"); }; arguments { arguments default_dialog_args; XmNnoResize = true; XmNdialogStyle = XmDIALOG_MODELESS; XmNdialogTitle = undo_redo_title; XmNdefaultButton = XmPushButton undo_redo_close; }; controls { XmPushButton undo_redo_undo; XmPushButton undo_redo_redo; XmLabel undo_redo_right_margin; XmPushButton undo_redo_close; XmPushButton undo_redo_help; XmLabel undo_redo_bottom_margin; }; }; ! !doc_begin ! ! TITLE: ! Undo button ! ! ONE LINE DEFINITION: ! Performs an undo. ! !doc_end ! UNDO_REDO_UNDO : XmPushButton gadget { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_UNDO"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_undo"); }; arguments { XmNlabelString = undo_label; XmNwidth = 1100; XmNtopAttachment = XmATTACH_FORM; XmNtopOffset = 200; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 400; }; }; ! !doc_begin ! ! TITLE: ! Redo button ! ! ONE LINE DEFINITION: ! Performs a redo. ! !doc_end ! UNDO_REDO_REDO : XmPushButton gadget { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_REDO"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_redo"); }; arguments { XmNlabelString = redo_label; XmNwidth = 1100; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = UNDO_REDO_UNDO; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = UNDO_REDO_UNDO; XmNleftOffset = 400; }; }; UNDO_REDO_RIGHT_MARGIN : XmLabel { arguments { XmNlabelString = ''; XmNleftAttachment = XmATTACH_WIDGET; XmNleftOffset = 400; XmNleftWidget = UNDO_REDO_REDO; }; }; ! !doc_begin ! ! TITLE: ! Close button ! ! ONE LINE DEFINITION: ! Remove the dialog box. ! !doc_end ! UNDO_REDO_CLOSE : XmPushButton gadget { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$CALLBACK_UNMANAGE_UNDO_REDO"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_undo_redo_cancel"); }; arguments { XmNlabelString = close_string; XmNwidth = 1100; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = UNDO_REDO_UNDO; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = UNDO_REDO_UNDO; XmNtopOffset = 300; }; }; ! !doc_begin ! ! TITLE: ! Help button ! ! ONE LINE DEFINITION: ! %INCLUDE reallydelbuf_help ! !doc_end ! undo_redo_help : XmPushButton gadget { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$HELP_WIDGET ('LSEMENU', 'DECW_undo_redo')"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_undo_redo_help"); }; arguments { XmNlabelString = help_string; XmNwidth = 1100; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = UNDO_REDO_REDO; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = UNDO_REDO_CLOSE; XmNbottomWidget = UNDO_REDO_CLOSE; }; }; UNDO_REDO_BOTTOM_MARGIN : XmLabel { arguments { arguments bottom_margin_hack; XmNtopWidget = UNDO_REDO_CLOSE; }; }; object ! !doc_begin ! ! TITLE: ! Substitute Dialog Box ! ! ONE LINE DEFINITION: ! Replace occurrences of one string with another. ! ! RELATED COMMANDS: ! SUBSTITUTE ! EXACT SUBSTITUTE ! PATTERN SUBSTITUTE ! !doc_end ! SUBSTITUTE_DIALOG : XmFormDialog { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_substitute_dialog"); }; arguments { arguments default_dialog_args; XmNnoResize = false; XmNdialogStyle = XmDIALOG_MODELESS; XmNdialogTitle = substitute_dialog_title; XmNdefaultButton = XmPushButton substitute_apply; }; controls { XmLabel substitute_old_label; XmText substitute_old_text; XmToggleButtonGadget substitute_wildcard; XmLabel substitute_new_label; XmText substitute_new_text; XmToggleButtonGadget substitute_case_match; XmRadioBox substitute_direction; XmPushButton substitute_replace_all; XmPushButton substitute_find_next; XmPushButton substitute_replace_fndnxt; XmPushButton substitute_ok; XmPushButton substitute_apply; XmPushButton substitute_cancel; XmPushButton substitute_help; XmLabel substitute_bottom_margin; }; }; SUBSTITUTE_OLD_LABEL : XmLabel { arguments { XmNlabelString = search_for_label; XmNtopAttachment = XmATTACH_FORM; XmNtopOffset = 200; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 3; }; }; ! !doc_begin ! ! TITLE: ! Search string ! ! ONE LINE DEFINITION: ! The string you want to replace. ! !doc_end ! SUBSTITUTE_OLD_TEXT : XmText { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_substitute_old_text"); }; arguments { arguments default_stext_args; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = SUBSTITUTE_OLD_LABEL; XmNleftOffset = 230; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = SUBSTITUTE_OLD_LABEL; XmNtopOffset = -60; XmNrightAttachment = XmATTACH_FORM; }; }; ! !doc_begin ! ! TITLE: ! Pattern Toggle ! ! ONE LINE DEFINITION: ! Specifies whether wildcard characters in the search string should ! be interpreted as wildcard characters or not. ! ! RELATED COMMANDS: ! PATTERN SEARCH ! SET SEARCH PATTERN ! Patterns ! !doc_end ! SUBSTITUTE_WILDCARD : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_substitute_pattern"); }; arguments { XmNlabelString = search_wildcard_label; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = SUBSTITUTE_OLD_TEXT; XmNtopOffset = 75; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SUBSTITUTE_OLD_TEXT; XmNleftOffset = 700; }; }; SUBSTITUTE_NEW_LABEL : XmLabel { arguments { XmNlabelString = replace_with_label; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = SUBSTITUTE_WILDCARD; XmNtopOffset = 150; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SUBSTITUTE_OLD_LABEL; }; }; ! !doc_begin ! ! TITLE: ! New text ! ! ONE LINE DEFINITION: ! Enter the string you want to substitute. ! ! RELATED COMMANDS: ! SUBSTITUTE ! !doc_end ! SUBSTITUTE_NEW_TEXT : XmText { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_substitute_new_text"); }; arguments { arguments default_stext_args; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SUBSTITUTE_OLD_TEXT; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = SUBSTITUTE_NEW_LABEL; XmNtopOffset = -60; XmNrightAttachment = XmATTACH_FORM; }; }; ! !doc_begin ! ! TITLE: ! Case Matching Toggle ! ! ONE LINE DEFINITION: ! Click on Case Matching to use the case of words in the ! search string for the case of words in the replacement ! string. ! !doc_end ! SUBSTITUTE_CASE_MATCH : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_substitute_case_match"); }; arguments { XmNlabelString = substitute_case_matching_label; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = SUBSTITUTE_NEW_TEXT; XmNtopOffset = 75; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SUBSTITUTE_WILDCARD; }; }; ! !doc_begin ! ! TITLE: ! Search Direction Radio Box ! ! ONE LINE DEFINITION: ! Includes forward and reverse toggles ! !doc_end ! SUBSTITUTE_DIRECTION: XmRadioBox { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_substitute_direction"); }; arguments { XmNorientation = XmVERTICAL; XmNborderWidth = 0; XmNradioAlwaysOne = true; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = SUBSTITUTE_CASE_MATCH; XmNtopOffset = 100; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SUBSTITUTE_NEW_LABEL; }; controls { XmToggleButtonGadget substitute_forward; XmToggleButtonGadget substitute_reverse; }; }; ! !doc_begin ! ! ! TITLE: ! Forward Toggle ! ! ONE LINE DEFINITION: ! Specifes a forward search ! ! RELATED COMMANDS: ! SET BUFFER DIRECTION ! !doc_end ! SUBSTITUTE_FORWARD: XmToggleButtonGadget { callbacks { XmNdisarmCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE_SET_BUFFER_DIRECTION('FORWARD')"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_substitute_forward"); }; arguments { XmNlabelString = find_forward_label; }; }; ! !doc_begin ! ! TITLE: ! Search Reverse Toggle ! ! ONE LINE DEFINITION: ! Specifies a reverse search ! ! RELATED COMMANDS: ! SET BUFFER DIRECTION ! !doc_end ! SUBSTITUTE_REVERSE: XmToggleButtonGadget { callbacks { XmNdisarmCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE_SET_BUFFER_DIRECTION('REVERSE')"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_substitute_reverse"); }; arguments { XmNlabelString = find_reverse_label; }; }; ! !doc_begin ! ! TITLE: ! All button ! ! ONE LINE DEFINITION: ! Substitute the replacement string for ! all occurrences of the search string. ! ! RELATED COMMANDS: ! SUBSTITUTE ! !doc_end ! SUBSTITUTE_REPLACE_ALL : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_substitute_replace_all"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_substitute_replace_all"); }; arguments { XmNlabelString = replace_replace_all_string; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SUBSTITUTE_DIRECTION; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = SUBSTITUTE_DIRECTION; XmNtopOffset = 200; }; }; ! !doc_begin ! ! TITLE: ! Find Next button ! ! ONE LINE DEFINITION: ! Find the next occurrence of the search string without substitution. ! ! RELATED COMMANDS: ! SEARCH ! !doc_end ! SUBSTITUTE_FIND_NEXT : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_SUBSTITUTE_SEARCH_NEXT"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_replace_find_next"); }; arguments { XmNlabelString = replace_find_next_string; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = SUBSTITUTE_REPLACE_ALL; XmNleftOffset = 100; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = SUBSTITUTE_REPLACE_ALL; }; }; ! !doc_begin ! ! TITLE: ! Replace and Find Next button ! ! ONE LINE DEFINITION: ! Substitute the replacement ! string and find the next search string. ! ! RELATED COMMANDS: ! SUBSTITUTE ! !doc_end ! SUBSTITUTE_REPLACE_FNDNXT : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_SUBSTITUTE_REPLACE_FIND_NEXT"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_substitute_replace_fndnxt"); }; arguments { XmNlabelString = substitute_replace_fndnxt_string; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = SUBSTITUTE_FIND_NEXT; XmNleftOffset = 100; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = SUBSTITUTE_FIND_NEXT; }; }; ! !doc_begin ! ! TITLE: ! OK button ! ! ONE LINE DEFINITION: ! %INCLUDE reallydelbuf_ok ! ! RELATED COMMANDS: ! SUBSTITUTE ! !doc_end ! SUBSTITUTE_OK : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_SUBSTITUTE_OK"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_substitute_ok"); }; arguments { arguments default_dialog_ok_args_4; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = SUBSTITUTE_REPLACE_ALL; XmNtopOffset = 300; }; }; ! !doc_begin ! ! TITLE: ! Apply button ! ! ONE LINE DEFINITION: ! Applies the current settings, but does not close the ! dialog box. ! !doc_end ! SUBSTITUTE_APPLY : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_SUBSTITUTE_APPLY"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_substitute_apply"); }; arguments { arguments default_dialog_apply_args_4; XmNtopWidget = SUBSTITUTE_OK; XmNbottomWidget = SUBSTITUTE_OK; }; }; ! !doc_begin ! ! TITLE: ! Cancel button ! ! ONE LINE DEFINITION: ! %INCLUDE prompt_boolean_cancel ! !doc_end ! SUBSTITUTE_CANCEL : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_SUBSTITUTE_CANCEL"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_substitute_cancel"); }; arguments { arguments default_dialog_cancel_args_4; XmNtopWidget = SUBSTITUTE_APPLY; XmNbottomWidget = SUBSTITUTE_APPLY; }; }; ! !doc_begin ! ! TITLE: ! Help button ! ! ONE LINE DEFINITION: ! %INCLUDE reallydelbuf_help ! !doc_end ! SUBSTITUTE_HELP : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$HELP_WIDGET('LSEMENU', 'DECW_substitute_dialog')"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_substitute_help"); }; arguments { arguments default_dialog_help_args_4; XmNtopWidget = SUBSTITUTE_CANCEL; XmNbottomWidget = SUBSTITUTE_CANCEL; }; }; SUBSTITUTE_BOTTOM_MARGIN : XmLabel { arguments { arguments bottom_margin_hack; XmNtopWidget = SUBSTITUTE_OK; }; }; object ! SEARCH ! !doc_begin ! ! TITLE: ! Search Pulldown ! ! ONE LINE DEFINITION: ! Used for text search operations ! !doc_end ! SEARCH_PULLDOWN : XmCascadeButton { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_search_pulldown"); }; arguments { XmNlabelString = search_pulldown_label; }; controls { XmPulldownMenu search_menu; }; }; SEARCH_MENU : XmPulldownMenu { }; object ! !doc_begin ! ! TITLE: ! Search Dialog Box ! ! ONE LINE DEFINITION: ! Search for a specified string in the current buffer and ! position there ! ! RELATED COMMANDS: ! SEARCH ! PATTERN SEARCH ! !doc_end ! SEARCH_DIALOG : XmFormDialog { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_search_dialog"); }; arguments { arguments default_dialog_args; XmNnoResize = false; XmNdialogStyle = XmDIALOG_MODELESS; XmNdialogTitle = search_dialog_title; XmNdefaultButton = XmPushButton search_ok; XmNcancelButton = XmPushButton search_cancel; }; controls { XmLabel search_label; XmText search_text; XmToggleButtonGadget search_wildcard; XmRadioBox search_direction; XmPushButton search_ok; XmPushButton search_apply; XmPushButton search_cancel; XmPushButton search_help; XmLabel search_bottom_margin; }; }; SEARCH_LABEL : XmLabel { arguments { XmNlabelString = search_for_label; XmNtopAttachment = XmATTACH_FORM; XmNtopOffset = 200; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 3; }; }; ! !doc_begin ! ! TITLE: ! Search String ! ! ONE LINE DEFINITION: ! The string searched for ! ! RELATED COMMANDS: ! SEARCH ! PATTERN SEARCH ! !doc_end ! SEARCH_TEXT : XmText { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_search_text"); }; arguments { arguments default_stext_args; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = SEARCH_LABEL; XmNleftOffset = 230; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = SEARCH_LABEL; XmNtopOffset = -60; XmNrightAttachment = XmATTACH_FORM; }; }; ! !doc_begin ! ! TITLE: ! Pattern Toggle ! ! ONE LINE DEFINITION: ! %INCLUDE substitute_wildcard ! ! RELATED COMMANDS: ! PATTERN SUBSTITUTE ! SET SEARCH PATTERN ! Patterns ! !doc_end ! SEARCH_WILDCARD : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_search_pattern"); }; arguments { XmNlabelString = search_wildcard_label; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = SEARCH_TEXT; XmNtopOffset = 75; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SEARCH_TEXT; XmNleftOffset = 700; }; }; ! !doc_begin ! ! TITLE: ! Search Direction Radio Box ! ! ONE LINE DEFINITION: ! Includes forward and reverse toggles ! !doc_end ! SEARCH_DIRECTION: XmRadioBox { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_search_direction"); }; arguments { XmNorientation = XmVERTICAL; XmNborderWidth = 0; XmNradioAlwaysOne = true; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = SEARCH_WILDCARD; XmNtopOffset = 100; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SEARCH_LABEL; }; controls { XmToggleButtonGadget search_forward; XmToggleButtonGadget search_reverse; }; }; ! !doc_begin ! ! TITLE: ! Forward Toggle ! ! ONE LINE DEFINITION: ! %INCLUDE substitute_forward ! ! RELATED COMMANDS: ! SET BUFFER DIRECTION ! !doc_end ! SEARCH_FORWARD: XmToggleButtonGadget { callbacks { XmNdisarmCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE_SET_BUFFER_DIRECTION('FORWARD')"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_search_forward"); }; arguments { XmNlabelString = find_forward_label; }; }; ! !doc_begin ! ! TITLE: ! Reverse Toggle ! ! ONE LINE DEFINITION: ! %INCLUDE substitute_reverse ! ! RELATED COMMANDS: ! SET BUFFER DIRECTION ! !doc_end ! SEARCH_REVERSE: XmToggleButtonGadget { callbacks { XmNdisarmCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE_SET_BUFFER_DIRECTION('REVERSE')"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_search_reverse"); }; arguments { XmNlabelString = find_reverse_label; }; }; ! !doc_begin ! ! TITLE: ! OK button ! ! ONE LINE DEFINITION: ! %INCLUDE reallydelbuf_ok ! !doc_end ! SEARCH_OK : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_SEARCH_OK"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_search_ok"); }; arguments { arguments default_dialog_ok_args_4; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = SEARCH_DIRECTION; XmNtopOffset = 300; }; }; ! !doc_begin ! ! TITLE: ! Apply button ! ! ONE LINE DEFINITION: ! %INCLUDE substitute_apply ! !doc_end ! SEARCH_APPLY : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_SEARCH_APPLY"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_search_apply"); }; arguments { arguments default_dialog_apply_args_4; XmNtopWidget = SEARCH_OK; XmNbottomWidget = SEARCH_OK; }; }; ! !doc_begin ! ! TITLE: ! Cancel button ! ! ONE LINE DEFINITION: ! %INCLUDE prompt_boolean_cancel ! !doc_end ! SEARCH_CANCEL : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_SEARCH_CANCEL"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_search_cancel"); }; arguments { arguments default_dialog_cancel_args_4; XmNtopWidget = SEARCH_APPLY; XmNbottomWidget = SEARCH_APPLY; }; }; ! !doc_begin ! ! TITLE: ! Help button ! ! ONE LINE DEFINITION: ! %INCLUDE reallydelbuf_help ! !doc_end ! SEARCH_HELP : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$HELP_WIDGET('LSEMENU', 'DECW_search_dialog')"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_search_help"); }; arguments { arguments default_dialog_help_args_4; XmNtopWidget = SEARCH_CANCEL; XmNbottomWidget = SEARCH_CANCEL; }; }; SEARCH_BOTTOM_MARGIN : XmLabel { arguments { arguments bottom_margin_hack; XmNtopWidget = SEARCH_OK; }; }; ! !doc_begin ! ! TITLE: ! View Pulldown ! ! ONE LINE DEFINITION: ! Used for Language sensitive, Overview, and Window operatons ! !doc_end ! VIEW_PULLDOWN : XmCascadeButton { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_view_pulldown"); }; arguments { XmNlabelString = view_pulldown_label; }; controls { XmPulldownMenu view_menu; }; }; ! !nodoc_begin ! ! TITLE: ! View Menu Items ! ! ONE LINE DEFINITION: ! %INCLUDE file_menu ! !nodoc_end ! VIEW_MENU : XmPulldownMenu { }; ! !doc_begin ! ! TITLE: ! Source Pulldown ! ! ONE LINE DEFINITION: ! Used for Compile, Review, and Cross reference integration ! ! !doc_end SOURCE_PULLDOWN : XmCascadeButton { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_source_pulldown"); }; arguments { XmNlabelString = source_pulldown_label; }; controls { XmPulldownMenu source_menu; }; }; SOURCE_MENU : XmPulldownMenu { }; ! !doc_begin ! ! TITLE: ! Show Pulldown ! ! ONE LINE DEFINITION: ! Used for Editor status displays ! !doc_end ! SHOW_PULLDOWN : XmCascadeButton { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_show_pulldown"); }; arguments { XmNlabelString = show_pulldown_label; }; controls { XmPulldownMenu show_menu; }; }; SHOW_MENU : XmPulldownMenu { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_show_menu"); }; }; ! ! PREFERENCES - OPTIONS ! !doc_begin ! ! TITLE: ! Options Menu ! ! ONE LINE DEFINITION: ! Use the Options menu to customize LSE. You can select a ! default keypad, supply new key definitions, change the window ! width, and change default settings for use with the repository. ! !doc_end ! OPTIONS_PULLDOWN : XmCascadeButton { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_options_pulldown"); }; arguments { XmNlabelString = options_pulldown_label; }; controls { XmPulldownMenu options_menu; }; }; ! !nodoc_begin ! ! TITLE: ! Customize Menu Items ! ! ONE LINE DEFINITION: ! %INCLUDE file_menu ! !nodoc_end ! OPTIONS_MENU : XmPulldownMenu { }; ! !doc_begin ! ! TITLE: ! Navigate Menu ! ! ONE LINE DEFINITION: ! Use the Navigate menu to navigate. You can goto the top or ! bottom of the current buffer, or to a mark. You can also ! set or delete a mark. ! !doc_end ! NAVIGATE_PULLDOWN : XmCascadeButton { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_navigate_pulldown"); }; arguments { XmNlabelString = navigate_pulldown_label; }; controls { XmPulldownMenu navigate_menu; }; }; ! !nodoc_begin ! ! TITLE: ! Navigate Menu Items ! ! ONE LINE DEFINITION: ! %INCLUDE navigate_menu ! !nodoc_end ! NAVIGATE_MENU : XmPulldownMenu { }; ! !doc_begin ! ! TITLE: ! Box Menu ! ! ONE LINE DEFINITION: ! Use the Box menu to perform box editing. You can copy, cut, ! and draw boxes. ! !doc_end ! BOX_PULLDOWN : XmCascadeButton { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_box_pulldown"); }; arguments { XmNlabelString = box_pulldown_label; }; controls { XmPulldownMenu box_menu; }; }; ! !nodoc_begin ! ! TITLE: ! Box Menu Items ! ! ONE LINE DEFINITION: ! %INCLUDE box_menu ! !nodoc_end ! BOX_MENU : XmPulldownMenu { }; ! !doc_begin ! ! TITLE: ! Directories List ! ! ONE LINE DEFINITION: ! Used to form a list of directories (Source Directory search ! list, Read-Only Directories or SCA Library search list). ! !doc_end ! DIRECTORY_DIALOG : XmFormDialog { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_directory_dialog"); }; arguments { arguments default_dialog_args; XmNnoResize = true; XmNdialogStyle = XmDIALOG_MODELESS; XmNdefaultButton = XmPushButton directory_ok; XmNdialogTitle = directory_db_title; }; controls { XmLabel directory_text_label; XmText directory_text; XmPushButton directory_select; XmLabel directory_right_margin; XmLabel directory_list_subform_label; XmForm directory_list_subform; XmArrowButton directory_up_arrow; XmArrowButton directory_down_arrow; XmLabel directory_right_margin2; XmPushButton directory_append; XmPushButton directory_add_before_selected; XmPushButton directory_delete_selected; XmPushButton directory_ok; XmPushButton directory_cancel; XmPushButton directory_help; XmLabel directory_bottom_margin; }; }; DIRECTORY_TEXT_LABEL : XmLabel { arguments { XmNlabelString = directory_label; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 5; XmNtopAttachment = XmATTACH_FORM; XmNtopOffset = 100; }; }; ! !doc_begin ! ! TITLE: ! Directory Text Box ! ! ONE LINE DEFINITION: ! Used to specify a directory to append or add before a ! selected entry in the directory list ! ! RELATED COMMANDS: ! SET DIRECTORY SOURCE ! SET DIRECTORY READONLY ! !doc_end ! ! N.B. Cannot specify SET LIBRARY as a related command as it ! is a VMSLSE syntax command and there is no portable ! equivalent. ! DIRECTORY_TEXT: XmText { callbacks { XmNvalueChangedCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_DIRECTORY_TEXT_CHANGED"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_directory_text"); }; arguments { XmNresizeHeight = false; XmNmaxLength = 256; XmNcolumns = 40; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = DIRECTORY_TEXT_LABEL; XmNtopOffset = 50; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = DIRECTORY_TEXT_LABEL; }; }; ! !doc_begin ! ! TITLE: ! Select button ! ! ONE LINE DEFINITION: ! Brings up the standard file selection widget to choose a directory ! !doc_end ! DIRECTORY_SELECT : XmPushButton gadget { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_DIRECTORY_SELECT"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_directory_select"); }; arguments { XmNlabelString = select_label; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = DIRECTORY_TEXT; XmNtopOffset = 50; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = DIRECTORY_TEXT; XmNleftOffset = 200; }; }; DIRECTORY_RIGHT_MARGIN : XmLabel { arguments { XmNlabelString = ''; XmNleftAttachment = XmATTACH_WIDGET; XmNleftOffset = 200; XmNleftWidget = DIRECTORY_SELECT; }; }; DIRECTORY_LIST_SUBFORM_LABEL : XmLabel { arguments { XmNlabelString = directory_list_label; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = DIRECTORY_TEXT; XmNtopOffset = 100; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = DIRECTORY_TEXT; }; }; DIRECTORY_LIST_SUBFORM : XmForm { arguments { XmNdefaultPosition = false; XmNtopAttachment = XmATTACH_WIDGET; XmNtopOffset = 50; XmNtopWidget = XmLabelGadget DIRECTORY_LIST_SUBFORM_LABEL; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 5; XmNrightAttachment = XmATTACH_POSITION; XmNrightPosition = 50; XmNresizePolicy = XmRESIZE_NONE; }; controls { XmScrolledList DIRECTORY_LIST; }; }; ! !doc_begin ! ! TITLE: ! Directory list box ! ! ONE LINE DEFINITION: ! Displays a list of directories ! !doc_end ! DIRECTORY_LIST : XmScrolledList { callbacks { XmNsingleSelectionCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_DIRECTORY_MAKE_SELECTION"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_directory_list"); }; arguments { arguments default_list_box_args; XmNvisibleItemCount = 6; XmNleftAttachment = XmATTACH_FORM; XmNrightAttachment = XmATTACH_FORM; XmNtopAttachment = XmATTACH_FORM; XmNlistSizePolicy = XmCONSTANT; XmNselectionPolicy = XmSINGLE_SELECT; XmNscrollBarDisplayPolicy = XmSTATIC; }; }; ! !doc_begin ! ! TITLE: ! Modify Directory List Arrow button ! ! ! ONE LINE DEFINITION: ! Moves the currently selected directory up the list ! !doc_end ! DIRECTORY_UP_ARROW : XmArrowButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_DIRECTORY_UP_ARROW_ACTION"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_directory_up_arrow"); }; arguments { XmNarrowDirection = XmARROW_UP; XmNwidth = 350; XmNheight = 350; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = DIRECTORY_LIST_SUBFORM; XmNtopOffset = 300; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = DIRECTORY_LIST_SUBFORM; XmNleftOffset = 200; }; }; ! !doc_begin ! ! TITLE: ! Modify Directory List Arrow button ! ! ! ONE LINE DEFINITION: ! Moves the currently selected directory down the list ! !doc_end ! DIRECTORY_DOWN_ARROW : XmArrowButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_DIRECTORY_DOWN_ARROW_ACTION"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_directory_down_arrow"); }; arguments { XmNarrowDirection = XmARROW_DOWN; XmNwidth = 350; XmNheight = 350; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = DIRECTORY_LIST_SUBFORM; XmNtopOffset = 800; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = DIRECTORY_LIST_SUBFORM; XmNleftOffset = 200; }; }; DIRECTORY_RIGHT_MARGIN2 : XmLabel { arguments { XmNlabelString = ''; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 750 + 1850 + 200 + 750 + 1850 + 200; }; }; ! !doc_begin ! ! TITLE: ! Append button ! ! ONE LINE DEFINITION: ! Appends the new directory to the directory list. ! !doc_end ! DIRECTORY_APPEND : XmPushButton gadget { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_DIRECTORY_APPEND"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_directory_append"); }; arguments { XmNlabelString = append_label; !XmNtopAttachment = XmATTACH_WIDGET; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = DIRECTORY_LIST_SUBFORM; XmNtopOffset = 100; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = DIRECTORY_LIST_SUBFORM; XmNleftOffset = 750; XmNalignment = XmALIGNMENT_CENTER; XmNwidth = 1850; }; }; ! !doc_begin ! ! TITLE: ! Add before selected button ! ! ONE LINE DEFINITION: ! Adds the new directory prior to the currently selected directory. ! !doc_end ! DIRECTORY_ADD_BEFORE_SELECTED : XmPushButton gadget { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_DIRECTORY_ADD_BEFORE_SELECTED"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_directory_add_before_selected"); }; arguments { XmNlabelString = add_before_selected_label; !XmNtopAttachment = XmATTACH_WIDGET; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = DIRECTORY_LIST_SUBFORM; XmNtopOffset = 500; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = DIRECTORY_LIST_SUBFORM; XmNleftOffset = 750; XmNalignment = XmALIGNMENT_CENTER; XmNwidth = 1850; }; }; ! !doc_begin ! ! TITLE: ! Delete selected button ! ! ONE LINE DEFINITION: ! Deletes the currently selected directory from the list. ! !doc_end ! DIRECTORY_DELETE_SELECTED : XmPushButton gadget { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_DIRECTORY_DELETE_SELECTED"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_directory_delete_selected"); }; arguments { XmNlabelString = delete_selected_label; !XmNtopAttachment = XmATTACH_WIDGET; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = DIRECTORY_LIST_SUBFORM; XmNtopOffset = 900; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = DIRECTORY_LIST_SUBFORM; XmNleftOffset = 750; XmNalignment = XmALIGNMENT_CENTER; XmNwidth = 1850; }; }; ! !doc_begin ! ! TITLE: ! OK button ! ! ONE LINE DEFINITION: ! %INCLUDE reallydelbuf_ok ! !doc_end ! DIRECTORY_OK : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_DIRECTORY_OK"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_directory_ok"); }; arguments { arguments default_dialog_ok_cen_args_3; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = DIRECTORY_LIST_SUBFORM; XmNtopOffset = 300; }; }; ! !doc_begin ! ! TITLE: ! Cancel button ! ! ONE LINE DEFINITION: ! %INCLUDE prompt_boolean_cancel ! !doc_end ! DIRECTORY_CANCEL : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_DIRECTORY_CANCEL"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_directory_cancel"); }; arguments { arguments default_dialog_cancel_cen_args_3; XmNtopWidget = DIRECTORY_OK; XmNbottomWidget = DIRECTORY_OK; }; }; ! !doc_begin ! ! TITLE: ! Help button ! ! ONE LINE DEFINITION: ! %INCLUDE reallydelbuf_help ! !doc_end ! DIRECTORY_HELP : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$HELP_WIDGET('LSEMENU', 'DECW_Directory_Dialog')"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_directory_help"); }; arguments { arguments default_dialog_help_cen_args_3; XmNtopWidget = DIRECTORY_CANCEL; XmNbottomWidget = DIRECTORY_CANCEL; }; }; DIRECTORY_BOTTOM_MARGIN : XmLabel { arguments { arguments bottom_margin_hack; XmNtopWidget = DIRECTORY_OK; }; }; ! !doc_begin ! ! TITLE: ! Menus Dialog Box ! ! ONE LINE DEFINITION: ! Allows the user to custmize LSE's pulldowns. ! ! DESCRIPTION: ! To Add an existing Menu Entry to another Menu: ! (NUMBERED) ! Select the Menu for addition in the Menus List Box ! Select the Menu Entry to be added above in the Menu Entries ! List Box ! Select the Menu Entry to be added in the Labels List Box ! Push the triangle in the upper middle of the dialog box to ! add the Label to the Menu. ! ! ! To Add a new Menu entry: ! (NUMBERED) ! Enter a unique Label in the Label text field. This string ! will appear in the menu pull down. ! Enter a character in the Mnemonic text field. This character ! should be unique for the menu you intend to add the label to. ! Pull down the Menu and look for the "_"s to determine which ones ! are consumed ! Enter Appropriate TPU code in the TPU Code text field. ! Portable LSE ! commands can be translated to TPU code as follows: ! Replace all spaces between command reserved word with a "_". ! Add a "LSE_" to the front. ! Enclose individual parameters in '"'s. ! Enclose all the parameters in "()". ! For example: ! "OPEN FILE foo.bar" becomes LSE_OPEN( "foo.bar" ), ! "SHOW SUMMARY" becomes LSE_SHOW_SUMMARY, ! "SET DIRECTORY READONLY foo off" becomes ! LSE_SET_DIRECTORY_READONLY( "foo", "off" ). !

! On OpenVMS systems, VMSLSE commands may also be used within menu label ! definitions by calling the LSE$DO_COMMAND procedure, with the ! VMSLSE command enclosed within quotes. ! Push the large triangle in the lower right to add the label ! to the Label List Box. ! Add the now existing Menu Entry to a Menu as described above. ! ! ! To Modify a Menu entry: ! (NUMBERED) ! Select the Menu for modification in the Labels List Box ! Change the appropriate test fields in the diallog box: ! Mnemonic, TPU Code ! Push the large triangle in the lower right to modify the label ! to the Label List Box. ! ! ! To Remove a Menu entry: ! (NUMBERED) ! Select the Menu for removal in the Menus List Box ! Select the Menu Entry to be removed in the Menu Entries ! List Box ! Push the "Remove Entry" button ! ! ! To Remove a Label: ! (NUMBERED) ! Select the Label for removal in the Labels List Box ! Push the "Remove Label" button ! ! !doc_end ! MENUS_DIALOG : XmFormDialog { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_menus_dialog"); }; arguments { arguments default_dialog_args; XmNwidth = 6500; XmNdialogTitle = menus_db_title; XmNnoResize = false; }; controls { XmLabel menus_list_label; XmForm menus_list_subform; XmLabel menus_entries_label; XmForm menus_entries_subform; XmArrowButton menus_labels_to_entries_arrow; XmPushButton menus_remove_entry; XmPushButton menus_add_separator; XmLabel menus_labels_label; XmForm menus_labels_subform; XmArrowButton menus_edit_labels_arrow; XmPushButton menus_remove_label; XmSeparator menus_separator; XmLabel menus_label_to_edit_label; XmText menus_label_to_edit; XmLabel menus_mnemonic_label; XmText menus_mnemonic; XmLabel menus_TPU_code_label; XmText menus_TPU_code; XmPushButton menus_close; XmPushButton menus_help; XmLabel menus_bottom_margin; }; }; MENUS_LIST_LABEL : XmLabel { arguments { XmNlabelString = menus_label; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 5; XmNtopAttachment = XmATTACH_FORM; XmNtopOffset = 100; }; }; MENUS_LIST_SUBFORM : XmForm { arguments { XmNdefaultPosition = false; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = XmLabelGadget MENUS_LIST_LABEL; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 5; XmNrightAttachment = XmATTACH_POSITION; XmNrightPosition = 30; XmNresizePolicy = XmRESIZE_NONE; }; controls { XmScrolledList MENUS_LIST; }; }; ! !doc_begin ! ! TITLE: ! Menus List Box ! ! ONE LINE DEFINITION: ! Displays the Menus available for customization ! ! DESCRIPTION: ! This list box displays the names of LSE's pulldown and popup menus. ! When you select one of the names, its entries will appear in the ! Menu Entries list box. ! !doc_end ! MENUS_LIST : XmScrolledList { callbacks { XmNsingleSelectionCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_MAKE_MENU_SELECTION"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_menus_list"); }; arguments { arguments default_list_box_args; XmNvisibleItemCount = 9; XmNleftAttachment = XmATTACH_FORM; XmNrightAttachment = XmATTACH_FORM; XmNtopAttachment = XmATTACH_FORM; XmNlistSizePolicy = XmCONSTANT; XmNselectionPolicy = XmSINGLE_SELECT; XmNscrollBarDisplayPolicy = XmSTATIC; }; }; MENUS_ENTRIES_LABEL : XmLabel { arguments { XmNlabelString = entries_label; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 35; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = MENUS_LIST_LABEL; }; }; MENUS_ENTRIES_SUBFORM : XmForm { arguments { XmNdefaultPosition = false; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = MENUS_LIST_SUBFORM; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 35; XmNrightAttachment = XmATTACH_POSITION; XmNrightPosition = 60; XmNresizePolicy = XmRESIZE_NONE; }; controls { XmScrolledList MENUS_ENTRIES; }; }; ! !doc_begin ! ! TITLE: ! Menu Entries List Box ! ! ONE LINE DEFINITION: ! Displays the menu entries for the selected menu name ! !doc_end ! MENUS_ENTRIES : XmScrolledList { callbacks { XmNsingleSelectionCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_MAKE_ENTRY_SELECTION"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_menus_entries_list"); }; arguments { arguments default_list_box_args; XmNvisibleItemCount = 9; XmNleftAttachment = XmATTACH_FORM; XmNrightAttachment = XmATTACH_FORM; XmNtopAttachment = XmATTACH_FORM; XmNlistSizePolicy = XmCONSTANT; XmNselectionPolicy = XmSINGLE_SELECT; XmNscrollBarDisplayPolicy = XmSTATIC; }; }; MENUS_LABELS_LABEL : XmLabel { arguments { XmNlabelString = labels_label; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 70; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = MENUS_ENTRIES_LABEL; }; }; MENUS_LABELS_SUBFORM : XmForm { arguments { XmNdefaultPosition = false; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = XmLabelGadget MENUS_LABELS_LABEL; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 70; XmNrightAttachment = XmATTACH_POSITION; XmNrightPosition = 95; XmNresizePolicy = XmRESIZE_NONE; }; controls { XmScrolledList MENUS_LABELS; }; }; ! !doc_begin ! ! TITLE: ! Labels List Box ! ! ONE LINE DEFINITION: ! Displays the labels that are available within the menu system. ! !doc_end ! MENUS_LABELS : XmScrolledList { callbacks { XmNsingleSelectionCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_MAKE_LABEL_SELECTION"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_menus_labels"); }; arguments { arguments default_list_box_args; XmNvisibleItemCount = 14; XmNleftAttachment = XmATTACH_FORM; XmNrightAttachment = XmATTACH_FORM; XmNtopAttachment = XmATTACH_FORM; XmNlistSizePolicy = XmCONSTANT; XmNselectionPolicy = XmSINGLE_SELECT; XmNscrollBarDisplayPolicy = XmSTATIC; }; }; ! !doc_begin ! ! TITLE: ! Add Entry Arrow button ! ! ONE LINE DEFINITION: ! Add a Label to a Menu ! ! DESCRIPTION: ! Pressing this arrow button will add the selected label to the ! selected menu. If a particular entry has been selected, the ! label will be added before that entry. ! !doc_end ! MENUS_LABELS_TO_ENTRIES_ARROW : XmArrowButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_MENUS_ADD_LABEL"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_menus_add_label"); }; arguments { XmNarrowDirection = XmARROW_LEFT; XmNheight = 500; XmNsensitive = false; XmNtopAttachment = XmATTACH_POSITION; XmNtopPosition = 28; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 63; XmNrightAttachment = XmATTACH_POSITION; XmNrightPosition = 68; }; }; ! !doc_begin ! ! TITLE: ! Remove Entry button ! ! ONE LINE DEFINITION: ! The selected Menu Entry will be removed from the selected menu. ! !doc_end ! MENUS_REMOVE_ENTRY : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_MENUS_REMOVE_ENTRY"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_menus_remove_entry"); }; arguments { XmNsensitive = false; XmNlabelString = remove_entry_label; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = MENUS_ENTRIES_SUBFORM; XmNtopOffset = 150; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = MENUS_ENTRIES_SUBFORM; XmNleftOffset = 100; XmNrightAttachment = XmATTACH_OPPOSITE_WIDGET; XmNrightWidget = MENUS_ENTRIES_SUBFORM; XmNrightOffset = 100; ! XmNleftPosition = 37; }; }; ! !doc_begin ! ! TITLE: ! Add Separator button ! ! ONE LINE DEFINITION: ! Add a Separator to a Menu ! ! DESCRIPTION: ! A separator will be added to the selected menu. If an entry has ! been selected, the separator will be added before that entry; ! otherwise, the separator will be added to the end of the menu. ! !doc_end ! MENUS_ADD_SEPARATOR : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_MENUS_ADD_SEPARATOR"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_menus_add_separator"); }; arguments { XmNlabelString = add_separator_label; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = MENUS_REMOVE_ENTRY; XmNtopOffset = 75; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = MENUS_REMOVE_ENTRY; XmNrightAttachment = XmATTACH_OPPOSITE_WIDGET; XmNrightWidget = MENUS_REMOVE_ENTRY; }; }; ! !doc_begin ! ! TITLE: ! Modify Labels Arrow button ! ! ! ONE LINE DEFINITION: ! Add a Label to the Label List Box ! ! DESCRIPTION: ! The label information in the text fields at the bottom of the ! dialog box will be added to the current labels. If the label is a ! new label, the new label will be added to the Label List Box. If ! the label already exists, the label will be modified according to ! the contents of the text fields. ! !doc_end ! MENUS_EDIT_LABELS_ARROW : XmArrowButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_MENUS_LABEL_ACTION"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_menus_edit_label"); }; arguments { XmNarrowDirection = XmARROW_UP; XmNwidth = 350; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XMNtopWidget = MENUS_MNEMONIC; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomWidget = MENUS_MNEMONIC; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = MENUS_LABELS_SUBFORM; XmNleftOffset = -100; }; }; ! !doc_begin ! ! TITLE: ! Remove Label button ! ! ONE LINE DEFINITION: ! Remove a Label from the Label List Box ! ! DESCRIPTION: ! The selected entry will be removed from the selected menu. The ! label must be removed from any menus that it belongs to before it ! is removed. ! !doc_end ! MENUS_REMOVE_LABEL : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_MENUS_REMOVE_LABEL"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_menus_remove_label"); }; arguments { XmNsensitive = false; XmNlabelString = remove_label_label; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = MENUS_EDIT_LABELS_ARROW; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomWidget = MENUS_EDIT_LABELS_ARROW; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = MENUS_EDIT_LABELS_ARROW; XmNleftOffset = 20; XmNrightAttachment = XmATTACH_OPPOSITE_WIDGET; XmNrightWidget = MENUS_LABELS_SUBFORM; XmNrightOffset = -100; }; }; MENUS_SEPARATOR : XmSeparator { arguments { XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = XmPushButton MENUS_ADD_SEPARATOR; XmNtopOffset = 75; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 3; XmNrightAttachment = XmATTACH_POSITION; XmNrightPosition = 63; }; }; MENUS_LABEL_TO_EDIT_LABEL : XmLabel { arguments { XmNlabelString = label_label; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = MENUS_LABELS_SUBFORM; XmNtopOffset = 150; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = MENUS_SEPARATOR; }; }; ! !doc_begin ! ! TITLE: ! Label Text ! ! ONE LINE DEFINITION: ! The name of the currently selected label. ! ! DESCRIPTION: ! You can type a new label name into this field to ! add a new label. ! !doc_end ! MENUS_LABEL_TO_EDIT : XmText { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_menus_label_to_edit"); }; arguments { XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = MENUS_LABEL_TO_EDIT_LABEL; XmNtopOffset = -50; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = MENUS_LABEL_TO_EDIT_LABEL; XmNleftOffset = 60; XmNrightAttachment = XmATTACH_POSITION; XmNrightPosition = 43; }; }; MENUS_MNEMONIC_LABEL : XmLabel { arguments { XmNlabelString = mnemonic_label; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = MENUS_LABEL_TO_EDIT_LABEL; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = MENUS_LABEL_TO_EDIT; XmNleftOffset = 100; }; }; ! !doc_begin ! ! TITLE: ! Mnemonic Text ! ! ONE LINE DEFINITION: ! This is the mnemonic associated with the selected label. ! ! DESCRIPTION: ! This character will be used by the windowing system to keyboard ! traversal of the menus. The charaacter must be unique within ! the Menu. To find which characters have been consumed, pull down ! the Menu in question and look for the "_"s. Those letters have ! been consumed. ! !doc_end ! MENUS_MNEMONIC : XmText { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_menus_mnemonic"); }; arguments { XmNmaxLength = 1; XmNcolumns = 2; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = MENUS_LABEL_TO_EDIT; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = MENUS_MNEMONIC_LABEL; XmNleftOffset = 40; }; }; MENUS_TPU_CODE_LABEL : XmLabel { arguments { XmNlabelString = tpu_code_label; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = MENUS_LABEL_TO_EDIT_LABEL; XmNtopOffset = 200; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = MENUS_LABEL_TO_EDIT_LABEL; }; }; ! !doc_begin ! ! TITLE: ! Label's TPU Code ! ! ONE LINE DEFINITION: ! This is the TPU Code associated with the selected label. ! ! DESCRIPTION: ! You can can edit this field, and then press the Triangle in ! the lower right to modify a label. !

! Portable LSE commands can be translated to TPU code as follows: ! (UNNUMBERED) ! Replace all spaces between command reserved word with a "_" ! Add a "LSE_" to the front ! Enclose individual parameters in '"'s ! Enclose all the parameters in "()" ! ! For example: ! (UNNUMBERED) ! OPEN FILE foo.bar becomes LSE_OPEN( "foo.bar" ) ! SHOW SUMMARY becomes LSE_SHOW_SUMMARY ! "SET DIRECTORY READONLY foo off" becomes LSE_SET_DIRECTORY_READONLY( "foo", "off" ) ! !

! On OpenVMS systems, VMSLSE commands may also be used within menu label ! definitions by calling the LSE$DO_COMMAND procedure, with the ! VMSLSE command enclosed within quotes. ! !doc_end ! MENUS_TPU_CODE : XmText { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_menus_tpu_code"); }; arguments { XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = MENUS_TPU_CODE_LABEL; XmNtopOffset = -50; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = MENUS_TPU_CODE_LABEL; XmNleftOffset = 60; XmNrightAttachment = XmATTACH_OPPOSITE_WIDGET; XmNrightWidget = MENUS_REMOVE_LABEL; }; }; ! !doc_begin ! ! TITLE: ! Close button ! ! ONE LINE DEFINITION: ! Remove the dialog box ! !doc_end ! MENUS_CLOSE : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_MENUS_CLOSE"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_menus_close"); }; arguments { arguments default_dialog_close_args_2; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = MENUS_TPU_CODE; XmNtopOffset = 300; }; }; ! !doc_begin ! ! TITLE: ! Help button ! ! ONE LINE DEFINITION: ! %INCLUDE reallydelbuf_help ! !doc_end ! MENUS_HELP : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$HELP_WIDGET ('LSEMENU', 'DECW_menus_dialog')"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_menus_help"); }; arguments { arguments default_dialog_help_args_2; XmNtopWidget = MENUS_CLOSE; XmNbottomWidget = MENUS_CLOSE; }; }; MENUS_BOTTOM_MARGIN : XmLabel { arguments { arguments bottom_margin_hack; XmNtopWidget = MENUS_CLOSE; }; }; object ! !doc_begin ! ! TITLE: ! Search Attributes Dialog Box ! ! ONE LINE DEFINITION: ! Control Search attributes ! ! DESCRIPTION ! Use the Search Attributes dialog box to control the ! following: ! ! (unnumbered) ! Span Space -- Specifies whether or not LSE allows each blank ! to match sequences of one or more characters containing blanks, ! tabs, and, at most, a single line break. ! Case Sensitivity -- Specifies whether or not the SEARCH command ! matches case exactly. ! Diacritical Sensitivity -- Specifies whether or not the SEARCH ! matches characters with diacritical markings exactly. ! Auto Reverse -- Specifies whether or not LSE searches in the ! opposite direction if the string is not found in the current ! ! direction. ! Pattern format -- Selects OpenVMS- or ULTRIX-style search patterns. ! ! !doc_end ! SEARCH_PREF_DIALOG : XmFormDialog { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_Search_Attributes"); }; arguments { arguments default_dialog_args; XmNnoResize = true; XmNdialogStyle = XmDIALOG_MODELESS; XmNdefaultButton = XmPushButton search_pref_ok; XmNdialogTitle = search_pref_dialog_title; }; controls { XmLabel pattern_label; XmRadioBox search_pref_pattern_box; XmToggleButtonGadget search_pref_span_space; XmToggleButtonGadget search_pref_case_sense; XmToggleButtonGadget search_pref_diacritical; XmToggleButtonGadget search_pref_auto_reverse; XmPushButton search_pref_ok; XmPushButton search_pref_apply; XmPushButton search_pref_cancel; XmPushButton search_pref_help; XmLabel search_pref_bottom_margin; }; }; PATTERN_LABEL : XmLabel { arguments { XmNlabelString = search_pref_pattern_label; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = SEARCH_PREF_SPAN_SPACE; XmNtopOffset = 50; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = SEARCH_PREF_SPAN_SPACE; XmNleftOffset = 500; }; }; ! !doc_begin ! ! TITLE: ! Search Pattern Radio Box ! ! ONE LINE DEFINITION: ! Contains VMS, ULTRIX and TPU Pattern Toggle ! !doc_end ! SEARCH_PREF_PATTERN_BOX : XmRadioBox { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_search_pref_pattern_box"); }; arguments { XmNorientation = XmVERTICAL; XmNborderWidth = 0; XmNradioAlwaysOne = true; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = PATTERN_LABEL; XmNtopOffset = -60; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = PATTERN_LABEL; }; controls { XmToggleButtonGadget search_pref_vms; XmToggleButtonGadget search_pref_ultrix; XmToggleButtonGadget search_pref_tpu; }; }; ! !doc_begin ! ! TITLE: ! VMS Toggle ! ! ONE LINE DEFINITION: ! Use OPenVMS style wildcard characters in search strings ! ! RELATED COMMANDS: ! SEARCH ! SUBSTITUTE ! SET SEARCH PATTERN ! !doc_end ! SEARCH_PREF_VMS : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_search_pref_vms"); }; arguments { XmNlabelString = search_pref_vms_label; XmNset = on; }; }; ! !doc_begin ! ! TITLE: ! ULTRIX Toggle ! ! ONE LINE DEFINITION: ! Use UTLRIX style wildcard characters in search strings ! ! RELATED COMMANDS: ! SEARCH ! SUBSTITUTE ! SET SEARCH PATTERN ! !doc_end ! SEARCH_PREF_ULTRIX : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_search_pref_ultrix"); }; arguments { XmNlabelString = search_pref_ultrix_label; }; }; ! !doc_begin ! ! TITLE: ! TPU Toggle ! ! ONE LINE DEFINITION: ! Use TPU style search strings ! ! RELATED COMMANDS: ! SEARCH ! SUBSTITUTE ! SET SEARCH PATTERN ! !doc_end ! SEARCH_PREF_TPU : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_search_pref_tpu"); }; arguments { XmNlabelString = search_pref_tpu_label; }; }; ! !doc_begin ! ! TITLE: ! Span Space Toggle ! ! ONE LINE DEFINITION: ! %INCLUDE SET_SEARCH_SPAN_SPACE ! ! DESCRIPTION: ! %INCLUDE SET SEARCH SPAN SPACE ! ! RELATED COMMANDS: ! SET SEARCH SPAN SPACE ! !doc_end ! SEARCH_PREF_SPAN_SPACE : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_search_pref_span_space"); }; arguments { XmNlabelString = search_pref_span_space_label; XmNtopAttachment = XmATTACH_FORM; XmNtopOffset = 200; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 3; }; }; ! !doc_begin ! ! TITLE: ! Case Sensitive Toggle ! ! ONE LINE DEFINITION: ! %INCLUDE SET SEARCH CASE SENSITIVE ! ! RELATED COMMANDS: ! SET SEARCH CASE SENSITIVE ! !doc_end ! SEARCH_PREF_CASE_SENSE : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_search_pref_case_sense"); }; arguments { XmNlabelString = search_pref_case_sense_label; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = SEARCH_PREF_SPAN_SPACE; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SEARCH_PREF_SPAN_SPACE; }; }; ! !doc_begin ! ! TITLE: ! Diacritical Sensitive Toggle ! ! ONE LINE DEFINITION: ! %INCLUDE SET SEARCH DIACRITICAL ! ! DESCRIPTION: ! %INCLUDE SET SEARCH DIACRITICAL ! ! RELATED COMMANDS: ! SET SEARCH DIACRITICAL ! !doc_end ! SEARCH_PREF_DIACRITICAL : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_search_pref_diacritical"); }; arguments { XmNlabelString = search_pref_diacritical_label; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = SEARCH_PREF_CASE_SENSE; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SEARCH_PREF_CASE_SENSE; }; }; ! !doc_begin ! ! TITLE: ! Auto Reverse Toggle ! ! ONE LINE DEFINITION: ! %INCLUDE SET SEARCH AUTO REVERSE ! ! RELATED COMMANDS: ! SET SEARCH AUTO REVERSE ! !doc_end ! SEARCH_PREF_AUTO_REVERSE : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_search_pref_auto_reverse"); }; arguments { XmNlabelString = search_pref_auto_reverse_label; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = SEARCH_PREF_DIACRITICAL; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SEARCH_PREF_DIACRITICAL; }; }; ! !doc_begin ! ! TITLE: ! OK button ! ! ONE LINE DEFINITION: ! %INCLUDE reallydelbuf_ok ! !doc_end ! SEARCH_PREF_OK : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_SEARCH_PREF_OK"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_search_pref_ok"); }; arguments { arguments default_dialog_ok_args_4; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = SEARCH_PREF_AUTO_REVERSE; XmNtopOffset = 300; }; }; ! !doc_begin ! ! TITLE: ! Apply button ! ! ONE LINE DEFINITION: ! %INCLUDE substitute_apply ! !doc_end ! SEARCH_PREF_APPLY : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_SEARCH_PREF_APPLY"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_search_pref_apply"); }; arguments { arguments default_dialog_apply_args_4; XmNtopWidget = SEARCH_PREF_OK; XmNbottomWidget = SEARCH_PREF_OK; }; }; ! !doc_begin ! ! TITLE: ! Cancel button ! ! ONE LINE DEFINITION: ! %INCLUDE prompt_boolean_cancel ! !doc_end ! SEARCH_PREF_CANCEL : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_SEARCH_PREF_CANCEL"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_search_pref_cancel"); }; arguments { arguments default_dialog_cancel_args_4; XmNtopWidget = SEARCH_PREF_APPLY; XmNbottomWidget = SEARCH_PREF_APPLY; }; }; ! !doc_begin ! ! TITLE: ! Help button ! ! ONE LINE DEFINITION: ! %INCLUDE reallydelbuf_help ! !doc_end ! SEARCH_PREF_HELP : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$HELP_WIDGET ('LSEMENU', 'DECW_search_attributes')"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_search_attributes_help"); }; arguments { arguments default_dialog_help_args_4; XmNtopWidget = SEARCH_PREF_CANCEL; XmNbottomWidget = SEARCH_PREF_CANCEL; }; }; SEARCH_PREF_BOTTOM_MARGIN : XmLabel { arguments { arguments bottom_margin_hack; XmNtopWidget = SEARCH_PREF_OK; }; }; object ! ! EVE Help frame is "attributes_box" ! !doc_begin ! ! TITLE: ! Save Attributes Dialog Box ! ! ONE LINE DEFINITION: ! Use the Save Attributes dialog box to save the options modifications ! you make during the current editing session. You can save these ! settings in a section file or a command file. ! !doc_end ! ATTR_DIALOG : XmFormDialog { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_attr_dialog"); }; arguments { arguments default_dialog_args; XmNnoResize = false; XmNdefaultButton = XmPushButton attr_ok; XmNdialogTitle = save_attr_label; }; controls { XmRadioBox save_attr_box; XmText attr_command_text; XmText attr_section_text; XmPushButton attr_ok; XmPushButton attr_cancel; XmPushButton attr_help; XmLabel attr_bottom_margin; }; }; ! !doc_begin ! ! TITLE: ! Methods for Saving Attributes ! ! ONE LINE DEFINITION: ! Save the current attributes in a command or section file. ! Click on the corresponding radio button. ! ! RELATED COMMANDS: ! SAVE SECTION ! !doc_end ! SAVE_ATTR_BOX : XmRadioBox { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_save_attr_box"); }; arguments { XmNtopAttachment = XmATTACH_FORM; XmNtopOffset = 100; XmNborderWidth = 0; XmNradioAlwaysOne = true; XmNspacing = 100; XmNleftAttachment = XmATTACH_FORM; }; controls { XmToggleButtonGadget attr_command; XmToggleButtonGadget attr_section; }; }; ! !doc_begin ! ! TITLE: ! Save in Command File Toggle ! ! ONE LINE DEFINITION: ! Save in a command file ! ! DESCRIPTION: ! The attributes will be saved in TPU command file for later input. ! !doc_end ! ATTR_COMMAND : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_attr_command"); }; arguments { XmNlabelString = save_command_label; XmNset = on; }; }; ! !doc_begin ! ! TITLE: ! Save in Section File Toggle ! ! ONE LINE DEFINITION: ! Save in a Section file ! ! DESCRIPTION: ! The attributes will be saved in a Section file for later input. ! ! RELATED COMMANDS: ! SAVE SECTION ! !doc_end ! ATTR_SECTION : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_attr_section"); }; arguments { XmNlabelString = save_section_label; }; }; ! !doc_begin ! ! TITLE: ! Save in Section File Text ! ! ONE LINE DEFINITION: ! File name of the Section file ! ! RELATED COMMANDS: ! SAVE SECTION ! !doc_end ! ATTR_SECTION_TEXT : XmText { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_attr_section_text"); }; arguments { XmNcolumns = 30; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = SAVE_ATTR_BOX; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomWidget = SAVE_ATTR_BOX; XmNrightAttachment = XmATTACH_FORM; }; }; ! !doc_begin ! ! TITLE: ! Save in Command File Text ! ! ONE LINE DEFINITION: ! File name of the Section file ! !doc_end ! ATTR_COMMAND_TEXT : XmText { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_attr_command_text"); }; arguments { XmNcolumns = 30; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = SAVE_ATTR_BOX; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = SAVE_ATTR_BOX; XmNrightAttachment = XmATTACH_FORM; }; }; ! !doc_begin ! ! TITLE: ! OK Button ! ! ONE LINE DEFINITION: ! %INCLUDE reallydelbuf_ok ! !doc_end ! ATTR_OK : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_ATTR_OK"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_attr_ok"); }; arguments { arguments default_dialog_ok_args_3; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = SAVE_ATTR_BOX; XmNtopOffset = 300; }; }; ! ! EVE Help frame is "attributes_box" ! !doc_begin ! ! TITLE: ! Cancel button ! ! ONE LINE DEFINITION: ! %INCLUDE prompt_boolean_cancel ! !doc_end ! ATTR_CANCEL : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_ATTR_CANCEL"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_attr_cancel"); }; arguments { arguments default_dialog_cancel_args_3; XmNtopWidget = ATTR_OK; XmNbottomWidget = ATTR_OK; }; }; !doc_begin ! ! TITLE: ! Help Button ! ! ONE LINE DEFINITION: ! %INCLUDE reallydelbuf_help ! !doc_end ! ATTR_HELP : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$HELP_WIDGET ('LSEMENU', 'DECW_attr_dialog')"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_attr_help"); }; arguments { arguments default_dialog_help_args_3; XmNtopWidget = ATTR_OK; XmNbottomWidget = ATTR_OK; }; }; ATTR_BOTTOM_MARGIN : XmLabel { arguments { arguments bottom_margin_hack; XmNtopWidget = ATTR_OK; }; }; ! HELP ! !doc_begin ! ! TITLE: ! Help Menu ! ! ONE LINE DEFINITION: ! Use the Help menu for introductory information about LSE ! and about DECwindows. You can also get help on using menus ! and on individual LSE commands. ! ! RELATED COMMANDS: ! HELP ! HELP KEYPAD ! !doc_end ! HELP_PULLDOWN : XmCascadeButton { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_help_pulldown"); }; arguments { XmNlabelString = help_pulldown_label; }; controls { XmPulldownMenu help_menu; }; }; ! !nodoc_begin ! ! TITLE: ! Help Menu ! ! ONE LINE DEFINITION: ! Use the Help menu for introductory information about LSE ! and about DECwindows. You can also get help on using menus ! and on individual LSE commands. ! !nodoc_end ! HELP_MENU : XmPulldownMenu { }; object MESSAGE_DIALOG : XmFormDialog { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_message_dialog"); }; arguments { arguments default_dialog_args; XmNdialogStyle = XmDIALOG_APPLICATION_MODAL; XmNdefaultButton = XmPushButton message_ok; XmNdialogTitle = message_db_title; XmNnoResize = true; }; controls { XmLabel message_label1; XmLabel message_label1_right_margin; XmLabel message_label2; XmLabel message_label2_right_margin; XmPushButton message_ok; XmLabel message_bottom_margin; }; }; MESSAGE_LABEL1 : XmLabel { arguments { XmNlabelString = ''; XmNtopAttachment = XmATTACH_FORM; XmNtopOffset = 300; XmNleftAttachment = XmATTACH_FORM; XmNleftOffset = 300; }; }; MESSAGE_LABEL1_RIGHT_MARGIN : XmLabel { arguments { XmNlabelString = ''; XmNleftAttachment = XmATTACH_WIDGET; XmNleftOffset = 400; XmNleftWidget = MESSAGE_LABEL1; }; }; MESSAGE_LABEL2 : XmLabel { arguments { XmNlabelString = ''; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = MESSAGE_LABEL1; XmNtopOffset = 100; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = MESSAGE_LABEL1; }; }; MESSAGE_LABEL2_RIGHT_MARGIN : XmLabel { arguments { XmNlabelString = ''; XmNleftAttachment = XmATTACH_WIDGET; XmNleftOffset = 400; XmNleftWidget = MESSAGE_LABEL2; }; }; ! ! EVE Help frame is "message_box" ! !doc_begin ! ! TITLE: ! OK button ! ! ONE LINE DEFINITION: ! %INCLUDE reallydelbuf_ok ! !doc_end ! MESSAGE_OK : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$MENUS_MESSAGE_OK"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_message_ok"); }; arguments { arguments default_ok_button_args; XmNtopWidget = MESSAGE_LABEL2; }; }; MESSAGE_BOTTOM_MARGIN : XmLabel { arguments { arguments bottom_margin_hack; XmNtopWidget = MESSAGE_OK; }; }; INFO_BOX : XmInformationDialog { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_info_box"); XmNokCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$CB_INFO_BOX_OK"); }; arguments { XmNdialogtitle = info_box_db_title; XmNnoresize = true; }; }; ERROR_BOX : XmErrorDialog { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_error_box"); XmNokCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$CB_ERROR_BOX_OK"); }; arguments { XmNdialogtitle = error_box_db_title; XmNnoresize = true; }; }; ! POP UP DIALOG BOXES ! ! Moved User_Buffer_Popup_Menu to DOC$DECW_FIXED_TEXT.HLP ! NO_SELECT_POPUP : XmPopupMenu widget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_no_select_popup"); }; arguments { }; }; object ! !doc_begin ! ! TITLE: ! Query-Buffer Pop-Up Menu ! ! ONE LINE DEFINITION: ! Frequently used Query commands ! ! DESCRIPTION: ! You use the query buffer pop-up menu to access frequently used ! query commands. You can search for errors and go to the source ! lines corresponding to the errors, as well as terminate queries. ! ! To access the query buffer pop-up menu, position the pointer ! within a query buffer and press MB2. ! !doc_end ! QUERY_POPUP : XmPopupMenu { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_query_popup"); }; }; object ! ! Moved Review Buffer Pop-up Menu to DOC$DECW_FIXED_TEXT.HLP ! REVIEW_POPUP : XmPopupMenu { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_review_popup"); }; }; object ! !doc_begin ! ! TITLE: ! Buffer Attributes Dialog Box ! ! ONE LINE DEFINITION: ! Show/set buffer attributes ! ! DESCRIPTION: ! The Buffer Attributes dialog box contains the following:- ! ! (unnumbered) ! Buffer -- A text box holding the name of the buffer (by ! default the current buffer) for which the settings are shown ! and for which the settings can be modified. ! The associated Select... button will bring up a selection ! dialog box which will display all the buffers for the ! current LSE session. ! Output File -- A text box holding the output filename, if ! any for the buffer. ! The associated Select... button will bring up the standard ! file selection widget. ! Language -- A text box holding the current language for ! the buffer (NONE if there is no language). ! The associated Select... button will bring up a selection ! dialog box containing all the defined languages and NONE. ! Left Margin -- A text box holding the left margin. ! Right Margin -- A text box holding the right margin. ! Tab Increment -- A text box holding the logical tab stop ! length. ! Max Undo -- A text box holding the maximum number of ! commands that can be undone. ! Read Only / Write -- A group of radio buttons to allow ! the user to choose between WRITE or READ-ONLY. ! Unmodifiable / Insert / Overstrike -- A group of radio ! buttons to choose between UNMODIFIABLE, INSERT and ! OVERSTRIKE. If the buffer is READ-ONLY, then UNMODIFIABLE ! will be set on by default. When the buffer is set to ! WRITE, UNMODIFIABLE will be disabled. ! Auto Erase -- A toggle button which enables or disables ! automatic erasing of placeholders. ! Journaling -- A toggle button which enables or disables ! buffer-change journaling. ! Wrap -- A toggle button which enables or disables line ! wrapping. ! Overview -- A toggle button which enables or disables ! overview operations. ! Forward / Reverse -- A group of radio buttons to allow ! the user to set the direction of the buffer to FORWARD ! or REVERSE. ! ! !doc_end ! BUFFER_ATTRIBUTES_DIALOG : XmFormDialog { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_Buffer_Attributes_Dialog"); }; arguments { arguments default_dialog_args; XmNnoResize = true; XmNresizePolicy = XmRESIZE_NONE; XmNdialogStyle = XmDIALOG_MODELESS; XmNdefaultButton = XmPushButton buffer_ok; XmNdialogTitle = buffer_attributes_dialog_title; }; controls { XmLabel buffer_buffer_text_label; XmText buffer_buffer_text; XmPushButton buffer_buffer_select; XmLabel buffer_right_margin_label; XmLabel buffer_outputfile_text_label; XmText buffer_outputfile_text; XmPushButton buffer_outputfile_select; XmLabel buffer_language_text_label; XmText buffer_language_text; XmPushButton buffer_language_select; XmLabel buffer_left_margin_text_label; XmText buffer_left_margin_text; XmLabel buffer_right_margin_text_label; XmText buffer_right_margin_text; XmLabel buffer_tab_increment_text_label; XmText buffer_tab_increment_text; XmLabel buffer_max_undo_text_label; XmText buffer_max_undo_text; XmRadioBox buffer_write_status; XmRadioBox buffer_modification_status; XmRadioBox buffer_direction_status; XmToggleButtonGadget buffer_auto_erase; XmLabel buffer_right_margin_label2; XmToggleButtonGadget buffer_journaling; XmToggleButtonGadget buffer_wrap; XmToggleButtonGadget buffer_overview; XmPushButton buffer_ok; XmPushButton buffer_apply; XmPushButton buffer_cancel; XmPushButton buffer_help; XmLabel buffer_bottom_margin; }; }; BUFFER_BUFFER_TEXT_LABEL : XmLabel { arguments { XmNlabelString = ba_buffer_label; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 5; XmNtopAttachment = XmATTACH_FORM; XmNtopOffset = 200; }; }; ! !doc_begin ! ! TITLE: ! Buffer Text Box ! ! ONE LINE DEFINITION: ! Name of buffer whose attributes are to be shown/modified ! !doc_end ! BUFFER_BUFFER_TEXT: XmText { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_buffer_buffer_text"); XmNvalueChangedCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_BUFFER_BUFFER_TEXT_CHANGED"); }; arguments { XmNresizeHeight = false; XmNmaxLength = 256; XmNcolumns = 40; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = BUFFER_BUFFER_TEXT_LABEL; XmNtopOffset = -50; XmNleftAttachment = XmATTACH_WIDGET; XmNleftOffset = 750; XmNleftWidget = BUFFER_BUFFER_TEXT_LABEL; }; }; ! !doc_begin ! ! TITLE: ! Select button ! ! ONE LINE DEFINITION: ! Brings up a selection box displaying all buffers ! !doc_end ! BUFFER_BUFFER_SELECT : XmPushButton gadget { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_BUFFER_BUFFER_SELECT"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_buffer_buffer_select"); }; arguments { XmNlabelString = select_label; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = BUFFER_BUFFER_TEXT; XmNtopOffset = 50; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = BUFFER_BUFFER_TEXT; XmNleftOffset = 200; }; }; BUFFER_RIGHT_MARGIN_LABEL : XmLabel { arguments { XmNlabelString = ''; XmNleftAttachment = XmATTACH_WIDGET; XmNleftOffset = 200; XmNleftWidget = BUFFER_BUFFER_SELECT; }; }; BUFFER_OUTPUTFILE_TEXT_LABEL : XmLabel { arguments { XmNlabelString = ba_outputfile_label; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 5; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = BUFFER_BUFFER_TEXT_LABEL; XmNtopOffset = 200; }; }; ! !doc_begin ! ! TITLE: ! Output File Text Box ! ! ONE LINE DEFINITION: ! %INCLUDE SET BUFFER OUTPUT FILE ! ! DESCRIPTION: ! %INCLUDE SET BUFFER OUTPUT FILE ! ! RELATED COMMANDS: ! SET BUFFER OUTPUT FILE ! !doc_end ! BUFFER_OUTPUTFILE_TEXT: XmText { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_buffer_outputfile_text"); }; arguments { XmNresizeHeight = false; XmNmaxLength = 256; XmNcolumns = 40; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = BUFFER_OUTPUTFILE_TEXT_LABEL; XmNtopOffset = -50; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = BUFFER_BUFFER_TEXT_LABEL; XmNleftOffset = 750; }; }; ! !doc_begin ! ! TITLE: ! Select button ! ! ONE LINE DEFINITION: ! Brings up a standard file selection box ! !doc_end ! BUFFER_OUTPUTFILE_SELECT : XmPushButton gadget { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_BUFFER_OUTPUTFILE_SELECT"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_buffer_outputfile_select"); }; arguments { XmNlabelString = select_label; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = BUFFER_OUTPUTFILE_TEXT; XmNtopOffset = 50; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = BUFFER_OUTPUTFILE_TEXT; XmNleftOffset = 200; }; }; BUFFER_LANGUAGE_TEXT_LABEL : XmLabel { arguments { XmNlabelString = ba_language_label; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 5; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = BUFFER_OUTPUTFILE_TEXT_LABEL; XmNtopOffset = 200; }; }; ! !doc_begin ! ! TITLE: ! Language Text Box ! ! ONE LINE DEFINITION: ! %INCLUDE SET BUFFER LANGUAGE ! ! DESCRIPTION: ! %INCLUDE SET BUFFER LANGUAGE ! ! RELATED COMMANDS: ! SET BUFFER LANGUAGE ! !doc_end ! BUFFER_LANGUAGE_TEXT: XmText { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_buffer_language_text"); }; arguments { XmNresizeHeight = false; XmNmaxLength = 39; XmNcolumns = 40; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = BUFFER_LANGUAGE_TEXT_LABEL; XmNtopOffset = -50; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = BUFFER_BUFFER_TEXT_LABEL; XmNleftOffset = 750; }; }; ! !doc_begin ! ! TITLE: ! Select button ! ! ONE LINE DEFINITION: ! Brings up a selection box displaying all define languages ! and NONE. ! !doc_end ! BUFFER_LANGUAGE_SELECT : XmPushButton gadget { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_BUFFER_LANGUAGE_SELECT"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_buffer_language_select"); }; arguments { XmNlabelString = select_label; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = BUFFER_LANGUAGE_TEXT; XmNtopOffset = 50; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = BUFFER_LANGUAGE_TEXT; XmNleftOffset = 200; }; }; BUFFER_LEFT_MARGIN_TEXT_LABEL : XmLabel { arguments { XmNlabelString = ba_left_margin_label; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 5; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = BUFFER_LANGUAGE_TEXT_LABEL; XmNtopOffset = 300; }; }; ! !doc_begin ! ! TITLE: ! Left margin Text Box ! ! ONE LINE DEFINITION: ! %INCLUDE SET BUFFER LEFT MARGIN ! ! DESCRIPTION: ! %INCLUDE SET BUFFER LEFT MARGIN ! ! RELATED COMMANDS: ! SET BUFFER LEFT MARGIN ! !doc_end ! BUFFER_LEFT_MARGIN_TEXT: XmText { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_buffer_left_margin_text"); }; arguments { XmNresizeHeight = false; XmNmaxLength = 3; XmNcolumns = 5; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = BUFFER_LEFT_MARGIN_TEXT_LABEL; XmNtopOffset = -50; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = BUFFER_BUFFER_TEXT_LABEL; XmNleftOffset = 750; }; }; BUFFER_RIGHT_MARGIN_TEXT_LABEL : XmLabel { arguments { XmNlabelString = ba_right_margin_label; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 5; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = BUFFER_LEFT_MARGIN_TEXT_LABEL; XmNtopOffset = 200; }; }; ! !doc_begin ! ! TITLE: ! Right margin Text Box ! ! ONE LINE DEFINITION: ! %INCLUDE SET BUFFER RIGHT MARGIN ! ! DESCRIPTION: ! %INCLUDE SET BUFFER RIGHT MARGIN ! ! RELATED COMMANDS: ! SET BUFFER RIGHT MARGIN ! !doc_end ! BUFFER_RIGHT_MARGIN_TEXT: XmText { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_buffer_right_margin_text"); }; arguments { XmNresizeHeight = false; XmNmaxLength = 3; XmNcolumns = 5; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = BUFFER_RIGHT_MARGIN_TEXT_LABEL; XmNtopOffset = -50; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = BUFFER_BUFFER_TEXT_LABEL; XmNleftOffset = 750; }; }; BUFFER_TAB_INCREMENT_TEXT_LABEL : XmLabel { arguments { XmNlabelString = ba_tab_increment_label; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 5; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = BUFFER_RIGHT_MARGIN_TEXT_LABEL; XmNtopOffset = 300; }; }; ! !doc_begin ! ! TITLE: ! Tab increment Text Box ! ! ONE LINE DEFINITION: ! %INCLUDE SET BUFFER TAB INCREMENT ! ! DESCRIPTION: ! %INCLUDE SET BUFFER TAB INCREMENT ! ! RELATED COMMANDS: ! SET BUFFER TAB INCREMENT ! !doc_end ! BUFFER_TAB_INCREMENT_TEXT: XmText { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_buffer_tab_increment_text"); }; arguments { XmNresizeHeight = false; XmNmaxLength = 3; XmNcolumns = 5; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = BUFFER_TAB_INCREMENT_TEXT_LABEL; XmNtopOffset = -50; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = BUFFER_BUFFER_TEXT_LABEL; XmNleftOffset = 750; }; }; BUFFER_MAX_UNDO_TEXT_LABEL : XmLabel { arguments { XmNlabelString = ba_max_undo_label; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 5; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = BUFFER_TAB_INCREMENT_TEXT_LABEL; XmNtopOffset = 200; }; }; ! !doc_begin ! ! TITLE: ! Max undo Text Box ! ! ONE LINE DEFINITION: ! %INCLUDE SET MAX UNDO ! ! DESCRIPTION: ! %INCLUDE SET MAX UNDO ! ! RELATED COMMANDS: ! SET MAX UNDO ! !doc_end ! BUFFER_MAX_UNDO_TEXT: XmText { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_buffer_max_undo_text"); }; arguments { XmNresizeHeight = false; XmNmaxLength = 5; XmNcolumns = 5; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = BUFFER_MAX_UNDO_TEXT_LABEL; XmNtopOffset = -50; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = BUFFER_BUFFER_TEXT_LABEL; XmNleftOffset = 750; }; }; ! !doc_begin ! ! TITLE: ! Set Text Entry Mode Radio Box ! ! ONE LINE DEFINITION: ! Contains Write and Read-Only Toggles ! !doc_end ! BUFFER_WRITE_STATUS : XmRadioBox { callbacks { XmNhelpCallback = procedure lse$$cs_help_callback ("LSEMENU DECW_buffer_write_status"); }; arguments { XmNorientation = XmVERTICAL; XmNborderWidth = 0; XmNradioAlwaysOne = true; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = BUFFER_LEFT_MARGIN_TEXT; XmNtopOffset = -300; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = BUFFER_LEFT_MARGIN_TEXT; XmNleftOffset = 1250; }; controls { XmToggleButtonGadget buffer_read_only_toggle; XmToggleButtonGadget buffer_write_toggle; }; }; ! !doc_begin ! ! TITLE: ! Read Only Toggle ! ! ONE LINE DEFINITION: ! %INCLUDE SET BUFFER CLOSE ! ! DESCRIPTION: ! %INCLUDE SET BUFFER CLOSE ! ! RELATED COMMANDS: ! SET BUFFER CLOSE ! !doc_end ! buffer_read_only_toggle : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure lse$$cs_help_callback ("LSEMENU DECW_buffer_read_only_toggle"); XmNvalueChangedCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_BUFFER_READ_ONLY_TOGGLE_CHANGED"); }; arguments { XmNlabelString = ba_read_only_label; }; }; ! !doc_begin ! ! TITLE: ! Write Toggle ! ! ONE LINE DEFINITION: ! %INCLUDE SET BUFFER CLOSE ! ! DESCRIPTION: ! %INCLUDE SET BUFFER CLOSE ! ! RELATED COMMANDS: ! SET BUFFER CLOSE ! !doc_end ! buffer_write_toggle : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure lse$$cs_help_callback ("LSEMENU DECW_write_toggle"); }; arguments { XmNlabelString = ba_write_label; }; }; ! !doc_begin ! ! TITLE: ! Set Text Entry Mode Radio Box ! ! ONE LINE DEFINITION: ! Contains Unmodifiable, Insert and Overstrike Toggles ! !doc_end ! BUFFER_MODIFICATION_STATUS : XmRadioBox { callbacks { XmNhelpCallback = procedure lse$$cs_help_callback ("LSEMENU DECW_buffer_modification_status"); }; arguments { XmNorientation = XmVERTICAL; XmNborderWidth = 0; XmNradioAlwaysOne = true; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = BUFFER_WRITE_STATUS; XmNtopOffset = 200; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = BUFFER_WRITE_STATUS; }; controls { XmToggleButtonGadget buffer_unmodifiable_toggle; XmToggleButtonGadget buffer_insert_toggle; XmToggleButtonGadget buffer_overstrike_toggle; }; }; ! !doc_begin ! ! TITLE: ! Unmodifiable Toggle ! ! ONE LINE DEFINITION: ! %INCLUDE SET BUFFER MODIFIABLE ! ! DESCRIPTION: ! %INCLUDE SET BUFFER MODIFIABLE ! ! RELATED COMMANDS: ! SET BUFFER MODIFIABLE ! !doc_end ! buffer_unmodifiable_toggle : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure lse$$cs_help_callback ("LSEMENU DECW_unmodifiable_toggle"); }; arguments { XmNlabelString = ba_unmodifiable_label; }; }; ! !doc_begin ! ! TITLE: ! Insert Toggle ! ! ONE LINE DEFINITION: ! %INCLUDE SET BUFFER TEXT ! ! DESCRIPTION: ! %INCLUDE SET BUFFER TEXT ! ! RELATED COMMANDS: ! SET BUFFER TEXT ! TOGGLE INSERT OVERSTRIKE ! !doc_end ! buffer_insert_toggle : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure lse$$cs_help_callback ("LSEMENU DECW_buffer_insert_toggle"); }; arguments { XmNlabelString = ba_insert_label; }; }; ! !doc_begin ! ! TITLE: ! Overstrike Toggle ! ! ONE LINE DEFINITION: ! %INCLUDE SET BUFFER TEXT ! ! DESCRIPTION: ! %INCLUDE SET BUFFER TEXT ! ! RELATED COMMANDS: ! SET BUFFER TEXT ! TOGGLE INSERT OVERSTRIKE ! !doc_end ! buffer_overstrike_toggle : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure lse$$cs_help_callback ("LSEMENU DECW_buffer_overstrike_toggle"); }; arguments { XmNlabelString = ba_overstrike_label; }; }; ! !doc_begin ! ! TITLE: ! Auto Erase Toggle ! ! ONE LINE DEFINITION: ! %INCLUDE SET BUFFER AUTO ERASE ! ! DESCRIPTION: ! %INCLUDE SET BUFFER AUTO ERASE ! ! RELATED COMMANDS: ! SET BUFFER AUTO ERASE ! !doc_end ! BUFFER_AUTO_ERASE : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_buffer_auto_erase"); }; arguments { XmNlabelString = ba_auto_erase_label; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = BUFFER_LEFT_MARGIN_TEXT; XmNtopOffset = -300; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = BUFFER_LEFT_MARGIN_TEXT; XmNleftOffset = 3300; }; }; BUFFER_RIGHT_MARGIN_LABEL2 : XmLabel { arguments { XmNlabelString = ''; XmNleftAttachment = XmATTACH_WIDGET; XmNleftOffset = 200; XmNleftWidget = BUFFER_AUTO_ERASE; }; }; ! !doc_begin ! ! TITLE: ! Journaling Toggle ! ! ONE LINE DEFINITION: ! %INCLUDE SET BUFFER JOURNALING ! ! DESCRIPTION: ! %INCLUDE SET BUFFER JOURNALING ! ! RELATED COMMANDS: ! SET BUFFER JOURNALING ! !doc_end ! BUFFER_JOURNALING : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_buffer_journaling"); }; arguments { XmNlabelString = ba_journaling_label; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = BUFFER_AUTO_ERASE; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = BUFFER_AUTO_ERASE; }; }; ! !doc_begin ! ! TITLE: ! Wrap Toggle ! ! ONE LINE DEFINITION: ! %INCLUDE SET BUFFER WRAP ! ! DESCRIPTION: ! %INCLUDE SET BUFFER WRAP ! ! RELATED COMMANDS: ! SET BUFFER WRAP ! !doc_end ! BUFFER_WRAP : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_buffer_wrap"); }; arguments { XmNlabelString = ba_wrap_label; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = BUFFER_JOURNALING; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = BUFFER_JOURNALING; }; }; ! !doc_begin ! ! TITLE: ! Overview Toggle ! ! ONE LINE DEFINITION: ! %INCLUDE SET BUFFER OVERVIEW ! ! DESCRIPTION: ! %INCLUDE SET BUFFER OVERVIEW ! ! RELATED COMMANDS: ! SET BUFFER OVERVIEW ! !doc_end ! BUFFER_OVERVIEW : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_buffer_overview"); }; arguments { XmNlabelString = ba_overview_label; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = BUFFER_WRAP; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = BUFFER_WRAP; }; }; ! !doc_begin ! ! TITLE: ! Set Direction Mode Radio Box ! ! ONE LINE DEFINITION: ! Contains Forward and Reverse Toggles ! !doc_end ! BUFFER_DIRECTION_STATUS : XmRadioBox { callbacks { XmNhelpCallback = procedure lse$$cs_help_callback ("LSEMENU DECW_buffer_write_status"); }; arguments { XmNorientation = XmVERTICAL; XmNborderWidth = 0; XmNradioAlwaysOne = true; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = BUFFER_OVERVIEW; XmNtopOffset = 200; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = BUFFER_OVERVIEW; XmNleftOffset = -25; }; controls { XmToggleButtonGadget buffer_forward_toggle; XmToggleButtonGadget buffer_reverse_toggle; }; }; ! !doc_begin ! ! TITLE: ! Forward Toggle ! ! ONE LINE DEFINITION: ! %INCLUDE SET BUFFER DIRECTION ! ! DESCRIPTION: ! %INCLUDE SET BUFFER DIRECTION ! ! RELATED COMMANDS: ! SET BUFFER DIRECTION ! !doc_end ! buffer_forward_toggle : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure lse$$cs_help_callback ("LSEMENU DECW_forward_toggle"); }; arguments { XmNlabelString = ba_forward_label; }; }; ! !doc_begin ! ! TITLE: ! Reverse Toggle ! ! ONE LINE DEFINITION: ! %INCLUDE SET BUFFER DIRECTION ! ! DESCRIPTION: ! %INCLUDE SET BUFFER DIRECTION ! ! RELATED COMMANDS: ! SET BUFFER DIRECTION ! !doc_end ! buffer_reverse_toggle : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure lse$$cs_help_callback ("LSEMENU DECW_buffer_reverse_toggle"); }; arguments { XmNlabelString = ba_reverse_label; }; }; ! !doc_begin ! ! TITLE: ! OK button ! ! ONE LINE DEFINITION: ! %INCLUDE reallydelbuf_ok ! !doc_end ! BUFFER_OK : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_BUFFER_OK"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_buffer_ok"); }; arguments { arguments default_dialog_ok_CEN_args_4; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = BUFFER_MAX_UNDO_TEXT_LABEL; XmNtopOffset = 900; }; }; ! !doc_begin ! ! TITLE: ! Apply button ! ! ONE LINE DEFINITION: ! %INCLUDE substitute_apply ! !doc_end ! BUFFER_APPLY : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_BUFFER_APPLY"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_buffer_apply"); }; arguments { arguments default_dialog_apply_CEN_args_4; XmNtopWidget = BUFFER_OK; XmNbottomWidget = BUFFER_OK; }; }; ! !doc_begin ! ! TITLE: ! Cancel button ! ! ONE LINE DEFINITION: ! %INCLUDE prompt_boolean_cancel ! !doc_end ! BUFFER_CANCEL : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_BUFFER_CANCEL"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_buffer_cancel"); }; arguments { arguments default_dialog_cancel_CEN_args_4; XmNtopWidget = BUFFER_APPLY; XmNbottomWidget = BUFFER_APPLY; }; }; ! !doc_begin ! ! TITLE: ! Help button ! ! ONE LINE DEFINITION: ! %INCLUDE reallydelbuf_help ! !doc_end ! BUFFER_HELP : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$HELP_WIDGET('LSEMENU', 'DECW_Buffer_Attributes_Dialog')"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_buffer_help"); }; arguments { arguments default_dialog_help_CEN_args_4; XmNtopWidget = BUFFER_CANCEL; XmNbottomWidget = BUFFER_CANCEL; }; }; BUFFER_BOTTOM_MARGIN : XmLabel { arguments { arguments bottom_margin_hack; XmNtopWidget = BUFFER_OK; }; }; object ! !doc_begin ! ! TITLE: ! Global Attributes Dialog Box ! ! ONE LINE DEFINITION: ! Control global editing attributes ! ! DESCRIPTION: ! The Global Attributes dialog box controls the following: ! ! (unnumbered) ! Cursor -- Sets cursor to a bound or free state ! Keypad -- Selects EDT or EVE bindings ! Tabs -- Sets tabs to be visible/invisible/hard/soft ! Primary Selection Model -- Sets Selection or Focus based ! selection model ! Command Language -- Sets VMSLE or Portable command language ! Scroll Margins Top -- Sets top scroll margin ! Scroll Margins Bottom -- Sets bottom scroll margin ! Pending Delete -- Enables or disables deletion of a select ! range when you use Delete or type new text ! Bell -- Enables or disables the bell accompanying new ! messages in the message buffer ! Clipboard -- Sets the default behaviour for the DECwindows ! clipboard ! Save Related Buffers -- Sets whether or not related ! modified buffers are written out on COMPILE commands ! UNDO/REDO -- enables/disables the operation of the UNDO and ! REDO commands ! ! !doc_end ! GLOBAL_ATTRIBUTES_DIALOG : XmFormDialog { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_Global_Attributes_Dialog"); }; arguments { arguments default_dialog_args; XmNnoResize = true; XmNdialogStyle = XmDIALOG_MODELESS; XmNdefaultButton = XmPushButton setint_ok; XmNdialogTitle = set_interface_dialog_title; }; controls { XmLabel cursor_label; XmRadioBox setint_cursor; XmLabel setint_keypad_label; XmRadioBox setint_keypad_pref_box; XmLabel setint_tabs_label; XmToggleButtonGadget setint_tabs_visi_box; XmToggleButtonGadget setint_tabs_hard_box; XmLabel setint_select_model_label; XmRadioBox setint_select_model_pref_box; XmLabel setint_right_margin; XmLabel setint_command_language_label; XmRadioBox setint_command_language_pref_box; XmLabel setint_scroll_margin_top_label; XmText setint_scroll_margin_top_text; XmLabel setint_scroll_margin_bottom_label; XmText setint_scroll_margin_bottom_text; XmToggleButtonGadget setint_pending_delete; XmToggleButtonGadget setint_bell; XmToggleButtonGadget setint_clipboard; XmToggleButtonGadget setint_save_related_buffers; XmToggleButtonGadget setint_undo_redo; XmPushButton setint_ok; XmPushButton setint_apply; XmPushButton setint_cancel; XmPushButton setint_help; XmLabel setint_bottom_margin; }; }; CURSOR_LABEL : XmLabel { arguments { XmNlabelString = cursor_label_label; XmNtopAttachment = XmATTACH_FORM; XmNtopOffset = 200; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 3; }; }; ! !doc_begin ! ! TITLE: ! Cursor Radio Box ! ! ONE LINE DEFINITION: ! Contains Free and Bound Cursor Toggle ! !doc_end ! SETINT_CURSOR : XmRadioBox { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_setint_cursor"); }; arguments { XmNborderWidth = 0; XmNradioAlwaysOne = true; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = CURSOR_LABEL; XmNtopOffset = 100; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = CURSOR_LABEL; XmNleftOffset = -50; }; controls { XmToggleButtonGadget free_cursor; XmToggleButtonGadget bound_cursor; }; }; ! !doc_begin ! ! TITLE: ! Free Toggle ! ! ONE LINE DEFINITION: ! The cursor will move ! anywhere in the buffer whether or not characters are already ! there. ! ! RELATED COMMANDS: ! SET CURSOR ! !doc_end ! FREE_CURSOR : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_free_cursor"); }; arguments { XmNlabelString = free_label; }; }; ! !doc_begin ! ! TITLE: ! Bound Toggle ! ! ONE LINE DEFINITION: ! The cursor will only ! move into portions of the buffer occupied by text. ! ! RELATED COMMANDS: ! SET CURSOR ! !doc_end ! BOUND_CURSOR : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_bound_cursor"); }; arguments { XmNlabelString = bound_label; }; }; SETINT_KEYPAD_LABEL : XmLabel { arguments { XmNlabelString = keypad_label; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = CURSOR_LABEL; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = CURSOR_LABEL; XmNleftOffset = 500; }; }; ! !doc_begin ! ! TITLE: ! Keypad Radio Box ! ! ONE LINE DEFINITION: ! Contains EVE and EDT Keypad Toggle ! !doc_end ! SETINT_KEYPAD_PREF_BOX : XmRadioBox { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_setint_keypad_pref_box"); }; arguments { XmNorientation = XmVERTICAL; XmNborderWidth = 0; XmNradioAlwaysOne = true; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = SETINT_KEYPAD_LABEL; XmNtopOffset = 100; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SETINT_KEYPAD_LABEL; XmNleftOffset = -50; }; controls { XmToggleButtonGadget setint_keypad_edt; XmToggleButtonGadget setint_keypad_eve; }; }; ! !doc_begin ! ! TITLE: ! EDT Toggle ! ! ONE LINE DEFINITION: ! Set the keypad to EDT mode. ! ! RELATED COMMANDS: ! SET KEYPAD ! !doc_end ! SETINT_KEYPAD_EDT : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_setint_keypad_edt"); }; arguments { XmNlabelString = keypad_edt_label; }; }; ! !doc_begin ! ! TITLE: ! EVE Toggle ! ! ONE LINE DEFINITION: ! Set the keypad to EVE mode. ! ! RELATED COMMANDS: ! SET KEYPAD ! !doc_end ! SETINT_KEYPAD_EVE : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_setint_keypad_eve"); }; arguments { XmNlabelString = keypad_eve_label; }; }; SETINT_TABS_LABEL : XmLabel { arguments { XmNlabelString = tabs_label; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = SETINT_KEYPAD_LABEL; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = SETINT_KEYPAD_LABEL; XmNleftOffset = 300; }; }; ! !doc_begin ! ! TITLE: ! Tabs Visible/Invisible Toggle ! ! ONE LINE DEFINITION: ! Contains Visible/Invisible Tabs Toggle ! !doc_end ! SETINT_TABS_VISI_BOX : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_setint_tabs_visi_box"); }; arguments { XmNlabelString = visible_tabs_label; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = SETINT_CURSOR; XmNtopOffset = 30; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SETINT_TABS_LABEL; XmNleftOffset = -50; }; }; ! !doc_begin ! ! TITLE: ! Tabs Hard Toggle ! ! ONE LINE DEFINITION: ! Contains Hard Tabs Toggle ! !doc_end ! SETINT_TABS_HARD_BOX : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_setint_tabs_hard_box"); }; arguments { XmNlabelString = hard_tabs_label; XmNbottomAttachment = XmATTACH_OPPOSITE_WIDGET; XmNbottomWidget = SETINT_CURSOR; XmNbottomOffset = 30; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SETINT_TABS_LABEL; XmNleftOffset = -50; }; }; setint_select_model_label : XmLabel { arguments { XmNlabelString = select_model_label; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = SETINT_TABS_LABEL; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = SETINT_TABS_LABEL; XmNleftOffset = 800; }; }; ! !doc_begin ! ! TITLE: ! Primary Selection Model Radio Box ! ! ONE LINE DEFINITION: ! Contains Selection-based and Focus-Based Primary Selection Model Toggle ! !doc_end ! setint_select_model_pref_box : XmRadioBox { callbacks { XmNhelpCallback = procedure lse$$cs_help_callback ("LSEMENU DECW_setint_select_model_pref_box"); }; arguments { XmNorientation = XmVERTICAL; XmNborderWidth = 0; XmNradioAlwaysOne = true; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = SETINT_SELECT_MODEL_LABEL; XmNtopOffset = 100; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SETINT_SELECT_MODEL_LABEL; XmNleftOffset = -50; }; controls { XmToggleButtonGadget selection_based_select_model; XmToggleButtonGadget focus_based_select_model; }; }; ! !doc_begin ! ! TITLE: ! Focus-based Toggle ! ! ONE LINE DEFINITION: ! Input focus follows the mouse ! ! RELATED COMMANDS: ! SET PRIMARY SELECTION MODEL ! !doc_end ! focus_based_select_model : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure lse$$cs_help_callback ("LSEMENU DECW_focus_based_select_model"); }; arguments { XmNlabelString = focus_based_select_model_label; }; }; ! !doc_begin ! ! TITLE: ! Selection-based Toggle ! ! ONE LINE DEFINITION: ! M1 click to give input focus to LSE ! ! RELATED COMMANDS: ! SET PRIMARY SELECTION MODEL ! !doc_end ! selection_based_select_model : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure lse$$cs_help_callback ("LSEMENU DECW_selection_based_select_model"); }; arguments { XmNlabelString = selection_based_select_model_label; }; }; SETINT_COMMAND_LANGUAGE_LABEL : XmLabel { arguments { XmNlabelString = command_language_label; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = SETINT_SELECT_MODEL_LABEL; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = SETINT_SELECT_MODEL_LABEL; XmNleftOffset = 300; }; }; SETINT_RIGHT_MARGIN : XmLabel { arguments { XmNlabelString = ''; XmNleftAttachment = XmATTACH_WIDGET; XmNleftOffset = 150; XmNleftWidget = SETINT_COMMAND_LANGUAGE_LABEL; }; }; ! !doc_begin ! ! TITLE: ! Command Language Radio Box ! ! ONE LINE DEFINITION: ! Contains VMSLSE and Portable Command Language Toggle ! !doc_end ! SETINT_COMMAND_LANGUAGE_PREF_BOX : XmRadioBox { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_setint_command_language_pref_box"); }; arguments { XmNborderWidth = 0; XmNradioAlwaysOne = true; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = SETINT_COMMAND_LANGUAGE_LABEL; XmNtopOffset = 100; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SETINT_COMMAND_LANGUAGE_LABEL; XmNleftOffset = -50; }; controls { XmToggleButtonGadget vmslse_command_language; XmToggleButtonGadget portable_command_language; }; }; ! !doc_begin ! ! TITLE: ! VMSSLE Toggle ! ! ONE LINE DEFINITION: ! The command language will be set to VMSSLE. ! ! RELATED COMMANDS: ! SET COMMAND LANGUAGE ! !doc_end ! VMSLSE_COMMAND_LANGUAGE : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_vmslse_command_language"); }; arguments { XmNlabelString = vmslse_label; }; }; ! !doc_begin ! ! TITLE: ! Portable Toggle ! ! ONE LINE DEFINITION: ! The command language will be set to Portable. ! ! RELATED COMMANDS: ! SET COMMAND LANGUAGE ! !doc_end ! PORTABLE_COMMAND_LANGUAGE : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_portable_command_language"); }; arguments { XmNlabelString = portable_label; }; }; SETINT_SCROLL_MARGIN_TOP_LABEL : XmLabel { arguments { XmNlabelString = scroll_margin_top_label; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = SETINT_PENDING_DELETE; XmNtopOffset = 300; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SETINT_SELECT_MODEL_LABEL; XmNleftOffset = 600; }; }; ! !doc_begin ! ! TITLE: ! Scroll Margin Top Text ! ! ONE LINE DEFINITION: ! Top scroll margin in rows or as a percentage of window ! ! RELATED COMMANDS: ! SET SCROLL MARGINS ! !doc_end ! SETINT_SCROLL_MARGIN_TOP_TEXT: XmText { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_setint_scroll_margin_top_text"); }; arguments { XmNresizeHeight = false; XmNmaxLength = 3; XmNcolumns = 4; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = SETINT_SCROLL_MARGIN_TOP_LABEL; XmNleftOffset = 500; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = SETINT_SCROLL_MARGIN_TOP_LABEL; XmNtopOffset = -60; }; }; SETINT_SCROLL_MARGIN_BOTTOM_LABEL : XmLabel { arguments { XmNlabelString = scroll_margin_bottom_label; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = SETINT_SCROLL_MARGIN_TOP_LABEL; XmNtopOffset = 250; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SETINT_SCROLL_MARGIN_TOP_LABEL; }; }; ! !doc_begin ! ! TITLE: ! Scroll Margin Bottom Text ! ! ONE LINE DEFINITION: ! Bottom scroll margin in rows or as a percentage of window ! ! RELATED COMMANDS: ! SET SCROLL MARGINS ! !doc_end ! SETINT_SCROLL_MARGIN_BOTTOM_TEXT: XmText { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_setint_scroll_margin_bottom_text"); }; arguments { XmNresizeHeight = false; XmNmaxLength = 3; XmNcolumns = 4; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = SETINT_SCROLL_MARGIN_TOP_TEXT; XmNtopOffset = 100; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SETINT_SCROLL_MARGIN_TOP_TEXT; }; }; ! !doc_begin ! ! TITLE: ! Pending Delete Toggle ! ! ONE LINE DEFINITION: ! %INCLUDE SET PENDING DELETE ! ! DESCRIPTION: ! %INCLUDE SET PENDING DELETE ! ! RELATED COMMANDS: ! SET PENDING DELETE ! !doc_end ! SETINT_PENDING_DELETE : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_setint_pending_delete"); }; arguments { XmNlabelString = pending_delete_label; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = SETINT_CURSOR; XmNtopOffset = 250; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SETINT_CURSOR; }; }; ! !doc_begin ! ! TITLE: ! Bell Toggle ! ! ONE LINE DEFINITION: ! %INCLUDE SET BELL ALL ! ! DESCRIPTION: ! %INCLUDE SET BELL ALL ! ! RELATED COMMANDS: ! SET BELL ALL ! SET BELL BROADCAST ! !doc_end ! SETINT_BELL : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_setint_bell"); }; arguments { XmNlabelString = bell_label; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = SETINT_PENDING_DELETE; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SETINT_PENDING_DELETE; }; }; ! !doc_begin ! ! TITLE: ! Save Related Buffers Toggle ! ! ONE LINE DEFINITION: ! %INCLUDE SET SAVE RELATED BUFFERS ! ! DESCRIPTION: ! %INCLUDE SET SAVE RELATED BUFFERS ! ! RELATED COMMANDS: ! SET SAVE RELATED BUFFERS ! !doc_end ! SETINT_SAVE_RELATED_BUFFERS : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_setint_save_related_buffers"); }; arguments { XmNlabelString = save_related_buffers_label; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SETINT_BELL; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = SETINT_BELL; }; }; ! !doc_begin ! ! TITLE: ! Clipboard Toggle ! ! ONE LINE DEFINITION: ! %INCLUDE SET CLIPBOARD ! ! DESCRIPTION: ! %INCLUDE SET CLIPBOARD ! ! RELATED COMMANDS: ! SET CLIPBOARD ! !doc_end ! SETINT_CLIPBOARD : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_setint_clipboard"); }; arguments { XmNlabelString = clipboard_label_label; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = SETINT_SAVE_RELATED_BUFFERS; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SETINT_SAVE_RELATED_BUFFERS; }; }; ! !doc_begin ! ! TITLE: ! UNDO/REDO Toggle ! ! ONE LINE DEFINITION: ! %INCLUDE SET UNDO ! ! DESCRIPTION: ! %INCLUDE SET UNDO ! ! RELATED COMMANDS: ! SET UNDO ! !doc_end ! SETINT_UNDO_REDO : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_setint_undo_redo"); }; arguments { XmNlabelString = undo_redo_label; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = SETINT_PENDING_DELETE; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SETINT_TABS_VISI_BOX; }; }; ! !doc_begin ! ! TITLE: ! OK button ! ! ONE LINE DEFINITION: ! %INCLUDE reallydelbuf_ok ! !doc_end ! SETINT_OK : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_SETINT_OK"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_setint_ok"); }; arguments { arguments default_dialog_ok_cen_args_4; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = SETINT_CLIPBOARD; XmNtopOffset = 300; }; }; ! !doc_begin ! ! TITLE: ! Apply button ! ! ONE LINE DEFINITION: ! %INCLUDE substitute_apply ! !doc_end ! SETINT_APPLY : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_SETINT_APPLY"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_setint_apply"); }; arguments { arguments default_dialog_apply_cen_args_4; XmNtopWidget = SETINT_OK; XmNbottomWidget = SETINT_OK; }; }; ! !doc_begin ! ! TITLE: ! Cancel button ! ! ONE LINE DEFINITION: ! %INCLUDE prompt_boolean_cancel ! !doc_end ! SETINT_CANCEL : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_SETINT_CANCEL"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_setint_cancel"); }; arguments { arguments default_dialog_cancel_cen_args_4; XmNtopWidget = SETINT_APPLY; XmNbottomWidget = SETINT_APPLY; }; }; ! !doc_begin ! ! TITLE: ! Help button ! ! ONE LINE DEFINITION: ! %INCLUDE reallydelbuf_help ! !doc_end ! SETINT_HELP : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$HELP_WIDGET('LSEMENU', 'DECW_Global_Attributes_Dialog')"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_setint_help"); }; arguments { arguments default_dialog_help_cen_args_4; XmNtopWidget = SETINT_CANCEL; XmNbottomWidget = SETINT_CANCEL; }; }; SETINT_BOTTOM_MARGIN : XmLabel { arguments { arguments bottom_margin_hack; XmNtopWidget = SETINT_OK; }; }; object ! !doc_begin ! ! TITLE: ! Window Attributes Dialog Box ! ! ONE LINE DEFINITION: ! Control window attributes ! ! DESCRIPTION: ! Use the Window Attributes dialog box to control the ! following: ! ! (unnumbered) ! Window -- Set number of rows and columns. ! Panes -- Set minimum number of rows and set balance ! Fonts -- Set font to be big or little; normal or condensed. ! ! !doc_end ! WINDOW_ATTRIBUTES_DIALOG : XmFormDialog { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_window_attributes_dialog"); }; arguments { arguments default_dialog_args; XmNnoResize = true; XmNdialogStyle = XmDIALOG_MODELESS; XmNdefaultButton = XmPushButton window_attributes_ok; XmNdialogTitle = window_attributes_dialog_title; }; controls { XmLabel screen_label; XmLabel screen_rows_label; XmText screen_rows_text; XmLabel screen_width_label; XmText screen_width_text; XmLabel number_of_windows_label; XmText number_of_windows_text; XmToggleButtonGadget panes_balance; XmLabel auto_window_create_label; XmLabel panes_min_rows_label; XmLabel window_attributes_right_margin; XmText panes_min_rows_text; XmLabel max_number_of_windows_label; XmText max_number_of_windows_text; XmRadioBox font_pref_box; XmRadioBox font_width_pref_box; XmPushButton window_attributes_ok; XmPushButton window_attributes_apply; XmPushButton window_attributes_cancel; XmPushButton window_attributes_help; XmLabel window_attributes_bottom_margin; }; }; SCREEN_LABEL : XmLabel { arguments { XmNlabelString = screen_label_label; XmNtopAttachment = XmATTACH_FORM; XmNtopOffset = 200; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 3; }; }; SCREEN_ROWS_LABEL : XmLabel { arguments { XmNlabelString = rows_label; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = SCREEN_LABEL; XmNtopOffset = 150; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SCREEN_LABEL; XmNleftOffset = 200; }; }; ! !doc_begin ! ! TITLE: ! Rows Text ! ! ONE LINE DEFINITION: ! The total number of rows to be displayed. ! ! RELATED COMMANDS: ! SET HEIGHT ! !doc_end ! SCREEN_ROWS_TEXT: XmText { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_screen_rows_text"); }; arguments { XmNresizeHeight = false; XmNmaxLength = 2; XmNcolumns = 3; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = SCREEN_ROWS_LABEL; XmNleftOffset = 500; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = SCREEN_ROWS_LABEL; XmNtopOffset = -60; }; }; SCREEN_WIDTH_LABEL : XmLabel { arguments { XmNlabelString = columns_label; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = SCREEN_ROWS_TEXT; XmNtopOffset = 50; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SCREEN_ROWS_LABEL; }; }; ! !doc_begin ! ! TITLE: ! Columns Text ! ! ONE LINE DEFINITION: ! The number of columns to be displayed. ! ! RELATED COMMANDS: ! SET WIDTH ! !doc_end ! SCREEN_WIDTH_TEXT : XmText { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_screen_width_text"); }; arguments { XmNresizeHeight = false; XmNmaxLength = 3; XmNcolumns = 3; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = SCREEN_WIDTH_LABEL; XmNtopOffset = -60; XmNrightAttachment = XmATTACH_OPPOSITE_WIDGET; XmNrightWidget = SCREEN_ROWS_TEXT; }; }; NUMBER_OF_WINDOWS_LABEL : XmLabel { arguments { XmNlabelString = num_of_wind_label; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = SCREEN_WIDTH_TEXT; XmNtopOffset = 200; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SCREEN_LABEL; }; }; ! !doc_begin ! ! TITLE: ! Number of Windows Text ! ! ONE LINE DEFINITION: ! The number of windows to be displayed on the screen. ! ! RELATED COMMANDS: ! NEW WINDOW ! DELETE WINDOW ! !doc_end ! NUMBER_OF_WINDOWS_TEXT : XmText { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_number_of_windows_text"); }; arguments { XmNresizeHeight = false; XmNmaxLength = 2; XmNcolumns = 2; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = NUMBER_OF_WINDOWS_LABEL; XmNleftOffset = 100; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = NUMBER_OF_WINDOWS_LABEL; XmNtopOffset = -60; }; }; ! !doc_begin ! ! TITLE: ! Balance Toggle ! ! ONE LINE DEFINITION: ! Specifies whether LSE automatically adjust the windows ! to equal lengths or not. ! ! RELATED COMMANDS: ! SET BALANCE WINDOWS ! !doc_end ! PANES_BALANCE : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_panes_balance"); }; arguments { XmNlabelString = balance_label; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = NUMBER_OF_WINDOWS_TEXT; XmNtopOffset = 100; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = SCREEN_ROWS_LABEL; }; }; AUTO_WINDOW_CREATE_LABEL : XmLabel { arguments { XmNlabelString = window_creation_label; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = PANES_BALANCE; XmNtopOffset = 200; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = NUMBER_OF_WINDOWS_LABEL; }; }; PANES_MIN_ROWS_LABEL : XmLabel { arguments { XmNlabelString = minimum_rows_label; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = AUTO_WINDOW_CREATE_LABEL; XmNtopOffset = 150; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = PANES_BALANCE; }; }; WINDOW_ATTRIBUTES_RIGHT_MARGIN : XmLabel { arguments { XmNlabelString = ''; XmNleftAttachment = XmATTACH_WIDGET; XmNleftOffset = 400; XmNleftWidget = PANES_MIN_ROWS_TEXT; }; }; ! !doc_begin ! ! TITLE: ! Minimum Rows Text ! ! ONE LINE DEFINITION: ! The minimum number rows in an automatically created window. ! ! DESCRIPTION: ! LSE uses this setting and the Maximum Number of Windows ! setting to determine whether to add a window to the screen ! or reuse an existing window. LSE checks both settings ! and creates a new window only if both conditions are ! met. ! ! RELATED COMMANDS: ! SET MINIMUM WINDOW LENGTH ! !doc_end ! PANES_MIN_ROWS_TEXT : XmText { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_panes_min_rows_text"); }; arguments { XmNresizeHeight = false; XmNmaxLength = 2; XmNcolumns = 2; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = PANES_MIN_ROWS_LABEL; XmNleftOffset = 1500; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = PANES_MIN_ROWS_LABEL; XmNtopOffset = -60; }; }; MAX_NUMBER_OF_WINDOWS_LABEL : XmLabel { arguments { XmNlabelString = max_num_of_wind_label; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = PANES_MIN_ROWS_TEXT; XmNtopOffset = 50; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = PANES_MIN_ROWS_LABEL; }; }; ! !doc_begin ! ! TITLE: ! Maximum Number of Windows Text ! ! ONE LINE DEFINITION: ! The maximum number of windows LSE automatically creates. ! ! DESCRIPTION: ! %INCLUDE panes_min_rows_text ! ! RELATED COMMANDS: ! SET MAXIMUM WINDOWS ! !doc_end ! MAX_NUMBER_OF_WINDOWS_TEXT : XmText { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_max_number_of_windows_text"); }; arguments { XmNresizeHeight = false; XmNmaxLength = 2; XmNcolumns = 2; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = MAX_NUMBER_OF_WINDOWS_LABEL; XmNtopOffset = -60; XmNrightAttachment = XmATTACH_OPPOSITE_WIDGET; XmNrightWidget = PANES_MIN_ROWS_TEXT; }; }; ! !doc_begin ! ! TITLE: ! Font Radio Box ! ! ONE LINE DEFINITION: ! Contains Little and Big Font Toggle ! !doc_end ! FONT_PREF_BOX : XmRadioBox { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_font_pref_box"); }; arguments { XmNorientation = XmVERTICAL; XmNborderWidth = 0; XmNradioAlwaysOne = true; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = MAX_NUMBER_OF_WINDOWS_TEXT; XmNtopOffset = 200; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = AUTO_WINDOW_CREATE_LABEL; }; controls { XmToggleButtonGadget font_little; XmToggleButtonGadget font_big; }; }; ! !doc_begin ! ! TITLE: ! Big font Toggle ! ! ONE LINE DEFINITION: ! Use Big Font ! ! RELATED COMMANDS: ! SET FONT ! !doc_end ! FONT_BIG: XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_font_big"); }; arguments { XmNlabelString = big_font_label; }; }; ! !doc_begin ! ! TITLE: ! Little font Toggle ! ! ONE LINE DEFINITION: ! Use Little Font ! ! RELATED COMMANDS: ! SET FONT ! !doc_end ! FONT_LITTLE: XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_font_little"); }; arguments { XmNlabelString = little_font_label; }; }; ! !doc_begin ! ! TITLE: ! Font Radio Box ! ! ONE LINE DEFINITION: ! Contains Normal and Condensed Font Toggle ! !doc_end ! FONT_WIDTH_PREF_BOX : XmRadioBox { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_font_width_pref_box"); }; arguments { XmNorientation = XmVERTICAL; XmNborderWidth = 0; XmNradioAlwaysOne = true; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = FONT_PREF_BOX; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = FONT_PREF_BOX; XmNleftOffset = 500; }; controls { XmToggleButtonGadget font_normal; XmToggleButtonGadget font_condensed; }; }; ! !doc_begin ! ! TITLE: ! Normal Toggle ! ! ONE LINE DEFINITION: ! Use Normal spacing ! ! RELATED COMMANDS: ! SET FONT ! !doc_end ! FONT_NORMAL: XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_font_normal"); }; arguments { XmNlabelString = normal_font_label; }; }; ! !doc_begin ! ! TITLE: ! Condensed Toggle ! ! ONE LINE DEFINITION: ! Use Condensed spacing ! ! RELATED COMMANDS: ! SET FONT ! !doc_end ! FONT_CONDENSED: XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_font_condensed"); }; arguments { XmNlabelString = condensed_font_label; }; }; ! !doc_begin ! ! TITLE: ! OK button ! ! ONE LINE DEFINITION: ! %INCLUDE reallydelbuf_ok ! !doc_end ! WINDOW_ATTRIBUTES_OK : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_WINDOW_ATTRIBUTES_OK"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_window_attributes_ok"); }; arguments { arguments default_dialog_ok_args_4; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = FONT_PREF_BOX; XmNtopOffset = 300; }; }; ! !doc_begin ! ! TITLE: ! Apply button ! ! ONE LINE DEFINITION: ! %INCLUDE substitute_apply ! !doc_end ! WINDOW_ATTRIBUTES_APPLY : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_WINDOW_ATTRIBUTES_APPLY"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_window_attributes_apply"); }; arguments { arguments default_dialog_apply_args_4; XmNtopWidget = WINDOW_ATTRIBUTES_OK; XmNbottomWidget = WINDOW_ATTRIBUTES_OK; }; }; ! !doc_begin ! ! TITLE: ! Cancel button ! ! ONE LINE DEFINITION: ! %INCLUDE prompt_boolean_cancel ! !doc_end ! WINDOW_ATTRIBUTES_CANCEL : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_WINDOW_ATTRIBUTES_CANCEL"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_window_attributes_cancel"); }; arguments { arguments default_dialog_cancel_args_4; XmNtopWidget = WINDOW_ATTRIBUTES_APPLY; XmNbottomWidget = WINDOW_ATTRIBUTES_APPLY; }; }; ! !doc_begin ! ! TITLE: ! Help button ! ! ONE LINE DEFINITION: ! %INCLUDE reallydelbuf_help ! !doc_end ! WINDOW_ATTRIBUTES_HELP : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$HELP_WIDGET('LSEMENU', 'DECW_window_attributes_dialog')"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_window_attributes_help"); }; arguments { arguments default_dialog_help_args_4; XmNtopWidget = WINDOW_ATTRIBUTES_CANCEL; XmNbottomWidget = WINDOW_ATTRIBUTES_CANCEL; }; }; WINDOW_ATTRIBUTES_BOTTOM_MARGIN : XmLabel { arguments { arguments bottom_margin_hack; XmNtopWidget = WINDOW_ATTRIBUTES_OK; }; }; object ! !doc_begin ! ! TITLE: ! New Key Dialog Box ! ! ONE LINE DEFINITION: ! Bind an LSE command to a key. ! ! RELATED COMMANDS: ! NEW KEY ! NEW LEARN KEY ! !doc_end ! DEFINE_KEY_DIALOG : XmFormDialog { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_Define_Key_Dialog"); }; arguments { arguments default_dialog_args; XmNdialogStyle = XmDIALOG_MODELESS; XmNdefaultButton = XmPushButton define_key_ok; XmNcancelButton = XmPushButton define_key_cancel; XmNdialogTitle = define_key_title; }; controls { XmLabel define_key_key_label; XmText define_key_key_text; XmLabel define_key_command_label; XmText define_key_command_text; XmLabel define_key_legend_label; XmText define_key_legend_text; XmLabel define_key_remark_label; XmText define_key_remark_text; XmLabel define_key_topic_label; XmText define_key_topic_text; XmToggleButtonGadget define_key_learn; XmPushButton define_key_ok; XmPushButton define_key_cancel; XmPushButton define_key_help; XmLabel define_key_bottom_margin; }; }; DEFINE_KEY_KEY_LABEL : XmLabel { arguments { XmNlabelString = define_key_key_prompt; XmNtopAttachment = XmATTACH_FORM; XmNtopOffset = 200; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 3; }; }; ! !doc_begin ! ! TITLE: ! Key Name ! ! ONE LINE DEFINITION: ! The name of the key you want to define. ! ! RELATED COMMANDS: ! NEW KEY ! NEW LEARN KEY ! !doc_end ! DEFINE_KEY_KEY_TEXT : XmText { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_define_key_key_text"); }; arguments { arguments default_stext_args; XmNresizeWidth = false; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = DEFINE_KEY_KEY_LABEL; XmNleftOffset = 500; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = DEFINE_KEY_KEY_LABEL; XmNtopOffset = -60; XmNrightAttachment = XmATTACH_FORM; }; }; DEFINE_KEY_COMMAND_LABEL : XmLabel { arguments { XmNlabelString = define_key_command_prompt; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = DEFINE_KEY_KEY_TEXT; XmNtopOffset = 100; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = DEFINE_KEY_KEY_LABEL; }; }; ! !doc_begin ! ! TITLE: ! Command Text ! ! ONE LINE DEFINITION: ! The LSE command you want to bind to the key. ! !doc_end ! DEFINE_KEY_COMMAND_TEXT : XmText { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_define_key_command_text"); }; arguments { arguments default_stext_args; XmNresizeWidth = false; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = DEFINE_KEY_KEY_TEXT; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = DEFINE_KEY_COMMAND_LABEL; XmNtopOffset = -60; XmNrightAttachment = XmATTACH_FORM; }; }; DEFINE_KEY_LEGEND_LABEL : XmLabel { arguments { XmNlabelString = define_key_legend_prompt; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = DEFINE_KEY_COMMAND_TEXT; XmNtopOffset = 100; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = DEFINE_KEY_COMMAND_LABEL; }; }; ! !doc_begin ! ! TITLE: ! Legend Text ! ! ONE LINE DEFINITION: ! The text you want to appear in the keypad diagram ! for the key. ! !doc_end ! DEFINE_KEY_LEGEND_TEXT : XmText { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_define_key_legend_text"); }; arguments { arguments default_stext_args; XmNresizeWidth = false; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = DEFINE_KEY_COMMAND_TEXT; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = DEFINE_KEY_LEGEND_LABEL; XmNtopOffset = -60; XmNrightAttachment = XmATTACH_FORM; }; }; DEFINE_KEY_REMARK_LABEL : XmLabel { arguments { XmNlabelString = define_key_remark_prompt; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = DEFINE_KEY_LEGEND_TEXT; XmNtopOffset = 100; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = DEFINE_KEY_LEGEND_LABEL; }; }; ! !doc_begin ! ! TITLE: ! Remark Text ! ! ONE LINE DEFINITION: ! The explanatory text you want displayed when ! you issue a SHOW KEY command. ! !doc_end ! DEFINE_KEY_REMARK_TEXT : XmText { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_define_key_remark_text"); }; arguments { arguments default_stext_args; XmNresizeWidth = false; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = DEFINE_KEY_LEGEND_TEXT; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = DEFINE_KEY_REMARK_LABEL; XmNtopOffset = -60; XmNrightAttachment = XmATTACH_FORM; }; }; DEFINE_KEY_TOPIC_LABEL : XmLabel { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_define_key_topic_label"); }; arguments { XmNlabelString = define_key_topic_prompt; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = DEFINE_KEY_REMARK_TEXT; XmNtopOffset = 100; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = DEFINE_KEY_REMARK_LABEL; }; }; ! !doc_begin ! ! TITLE: ! Topic Text ! ! ONE LINE DEFINITION: ! The string you want to editor to use for retrieving ! help text for this key. The help text for this key is ! displayed when you request keypad help. ! !doc_end ! DEFINE_KEY_TOPIC_TEXT : XmText { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_define_key_topic_text"); }; arguments { arguments default_stext_args; XmNresizeWidth = false; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = DEFINE_KEY_REMARK_TEXT; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = DEFINE_KEY_TOPIC_LABEL; XmNtopOffset = -60; XmNrightAttachment = XmATTACH_FORM; }; }; ! !doc_begin ! ! TITLE: ! Learn Toggle ! ! ONE LINE DEFINITION: ! Turn this option on if you want to bind a key to a ! learn sequence. ! ! RELATED COMMANDS: ! NEW LEARN KEY ! !doc_end ! DEFINE_KEY_LEARN : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_define_key_learn"); }; arguments { XmNlabelString = define_key_learn_label; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = DEFINE_KEY_TOPIC_TEXT; XmNtopOffset = 100; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = DEFINE_KEY_TOPIC_LABEL; }; }; ! !doc_begin ! ! TITLE: ! OK button ! ! ONE LINE DEFINITION: ! %INCLUDE reallydelbuf_ok ! !doc_end ! DEFINE_KEY_OK : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_DEFINE_KEY_OK"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_define_key_ok"); }; arguments { arguments default_dialog_ok_args_3; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = DEFINE_KEY_LEARN; XmNtopOffset = 300; }; }; ! !doc_begin ! ! TITLE: ! Cancel button ! ! ONE LINE DEFINITION: ! %INCLUDE prompt_boolean_cancel ! !doc_end ! DEFINE_KEY_CANCEL : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_DEFINE_KEY_CANCEL"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_define_key_cancel"); }; arguments { arguments default_dialog_cancel_args_3; XmNtopWidget = DEFINE_KEY_OK; XmNbottomWidget = DEFINE_KEY_OK; }; }; ! !doc_begin ! ! TITLE: ! Help button ! ! ONE LINE DEFINITION: ! %INCLUDE reallydelbuf_help ! !doc_end ! DEFINE_KEY_HELP : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$HELP_WIDGET('LSEMENU', 'DECW_Define_Key_Dialog')"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_new_key_help"); }; arguments { arguments default_dialog_help_args_3; XmNtopWidget = DEFINE_KEY_CANCEL; XmNbottomWidget = DEFINE_KEY_CANCEL; }; }; DEFINE_KEY_BOTTOM_MARGIN : XmLabel { arguments { arguments bottom_margin_hack; XmNtopWidget = DEFINE_KEY_OK; }; }; !object ! !doc_begin ! ! TITLE: ! Overview of DEC LSE ! ! ONE LINE DEFINITION: ! Context-sensitive help is available for all of the items ! on the pull-down and pop-up menus. ! ! DESCRIPTION: ! To get help, position the pointer to a menu item and press ! the HELP key. Help information appears in a window and can ! remain in view while you continue to use LSE. ! !doc_end HELP_DIALOG : DXmHelp { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_help_dialog"); }; arguments { DXmNapplicationName = help_dialog_appl_name; DXmNoverviewTopic = "DECW_Overview"; }; controls { }; }; object ! !doc_begin ! ! TITLE: ! CMS Dialog Box ! ! ONE LINE DEFINITION: ! Set CMS attributes for subsequent CMS operations. ! !doc_end ! CMS_PREFERENCES_DIALOG : XmFormDialog { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_CMS_dialog"); }; arguments { arguments default_dialog_args; XmNnoResize = false; XmNdialogStyle = XmDIALOG_MODELESS; XmNdialogTitle = cms_pref_title; XmNdefaultButton = XmPushButton cms_pref_ok; XmNcancelButton = XmPushButton cms_pref_cancel; }; controls { XmToggleButtonGadget cms_pref_confirm; XmToggleButtonGadget cms_pref_notes; XmToggleButtonGadget cms_pref_concurrent; XmToggleButtonGadget cms_pref_history; XmLabel cms_pref_right_side; XmLabel cms_pref_right_margin; XmLabel cms_pref_remark_label; XmText cms_pref_remark_text; XmLabel cms_pref_merge_label; XmText cms_pref_merge_text; XmLabel cms_pref_generation_label; XmText cms_pref_generation_text; XmPushButton cms_pref_ok; XmPushButton cms_pref_apply; XmPushButton cms_pref_cancel; XmPushButton cms_pref_help; XmLabel cms_pref_bottom_margin; }; }; ! !doc_begin ! ! TITLE: ! CMS Confirm Toggle ! ! ONE LINE DEFINITION: ! Specifies whether or not you want to be prompted for confirmation ! before LSE preforms a FETCH or RESERVE operation. ! !doc_end ! cms_pref_confirm : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_cms_pref_confirm"); }; arguments { XmNlabelString = cms_pref_confirm_label; XmNtopAttachment = XmATTACH_FORM; XmNtopOffset = 200; XmNleftAttachment = XmATTACH_POSITION; XmNleftPosition = 3; }; }; ! !doc_begin ! ! TITLE: ! CMS Concurrent Toggle ! ! ONE LINE DEFINITION: ! Controls whether an element reserved by you can be reserved ! by another user while you have it reserved. ! !doc_end ! cms_pref_concurrent : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_cms_pref_concurrent"); }; arguments { XmNlabelString = cms_pref_concurrent_label; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = cms_pref_confirm; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = cms_pref_confirm; }; }; ! !doc_begin ! ! TITLE: ! CMS Notes Toggle ! ! ONE LINE DEFINITION: ! Controls whether notes are embedded in the file if the retrieved ! element has the notes attribute and if a FETCH or RESERVE ! operation is performed. ! !doc_end ! cms_pref_notes : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_cms_pref_notes"); }; arguments { XmNlabelString = cms_pref_notes_label; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = cms_pref_confirm; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = cms_pref_confirm; XmNleftOffset = 500; }; }; ! !doc_begin ! ! TITLE: ! CMS History Toggle ! ! ONE LINE DEFINITION: ! Controls whether CMS includes the element history in the file if ! the element has the history attribute and if a FETCH or ! RESERVE operation is performed. ! !doc_end ! cms_pref_history : XmToggleButtonGadget { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_cms_pref_history"); }; arguments { XmNlabelString = cms_pref_history_label; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = cms_pref_notes; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = cms_pref_notes; }; }; cms_pref_right_side : XmLabel { arguments { XmNlabelString = ''; XmNleftAttachment = XmATTACH_WIDGET; XmNleftOffset = 3500; XmNleftWidget = cms_pref_notes; }; }; cms_pref_right_margin : XmLabel { arguments { XmNlabelString = ''; XmNleftAttachment = XmATTACH_WIDGET; XmNleftOffset = 400; XmNleftWidget = cms_pref_right_side; }; }; cms_pref_remark_label : XmLabel { arguments { XmNlabelString = cms_pref_remark_prompt; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = cms_pref_concurrent; XmNtopOffset = 200; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = cms_pref_concurrent; }; }; ! !doc_begin ! ! TITLE: ! CMS Remark Text ! ! ONE LINE DEFINITION: ! Specifies the remark to be used with RESERVE operations. ! !doc_end ! cms_pref_remark_text : XmText { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_cms_pref_remark_text"); }; arguments { arguments default_stext_args; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = cms_pref_remark_label; XmNleftOffset = 230; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = cms_pref_remark_label; XmNtopOffset = -60; XmNrightAttachment = XmATTACH_FORM; }; }; cms_pref_merge_label : XmLabel { arguments { XmNlabelString = cms_pref_merge_prompt; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = cms_pref_remark_label; XmNtopOffset = 200; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = cms_pref_remark_label; }; }; ! !doc_begin ! ! TITLE: ! CMS Merge Text ! ! ONE LINE DEFINITION: ! Controls whether LSE merges a reserved or fetched element with ! another generation of the same element. ! !doc_end ! cms_pref_merge_text : XmText { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_cms_pref_merge_text"); }; arguments { arguments default_stext_args; XmNcolumns = 20; XmNleftAttachment = XmATTACH_OPPOSITE_WIDGET; XmNleftWidget = cms_pref_remark_text; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = cms_pref_merge_label; XmNtopOffset = -60; }; }; cms_pref_generation_label : XmLabel { arguments { XmNlabelString = cms_pref_gen_prompt; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = cms_pref_merge_label; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = cms_pref_merge_text; XmNleftOffset = 300; }; }; ! !doc_begin ! ! TITLE: ! CMS Generation Text ! ! ONE LINE DEFINITION: ! Specifies the generation to be used for CMS RESERVE and FETCH ! operations. ! !doc_end ! cms_pref_generation_text : XmText { callbacks { XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_cms_pref_generation_text"); }; arguments { arguments default_stext_args; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = cms_pref_generation_label; XmNleftOffset = 230; XmNtopAttachment = XmATTACH_OPPOSITE_WIDGET; XmNtopWidget = cms_pref_generation_label; XmNtopOffset = -60; XmNrightAttachment = XmATTACH_OPPOSITE_WIDGET; XmNrightWidget = cms_pref_remark_text; }; }; ! !doc_begin ! ! TITLE: ! OK button ! ! ONE LINE DEFINITION: ! %INCLUDE reallydelbuf_ok ! !doc_end ! cms_pref_ok : XmPushbutton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_CMS_PREF_OK"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_cms_pref_ok"); }; arguments { arguments default_dialog_ok_args_4; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = cms_pref_merge_label; XmNtopOffset = 300; }; }; ! !doc_begin ! ! TITLE: ! Apply button ! ! ONE LINE DEFINITION: ! %INCLUDE substitute_apply ! !doc_end ! cms_pref_apply : XmPushbutton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_CMS_PREF_APPLY"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_cms_pref_apply"); }; arguments { arguments default_dialog_apply_args_4; XmNtopWidget = cms_pref_ok; XmNbottomWidget = cms_pref_ok; }; }; ! !doc_begin ! ! TITLE: ! Cancel button ! ! ONE LINE DEFINITION: ! %INCLUDE prompt_boolean_cancel ! !doc_end ! cms_pref_cancel : XmPushbutton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$WIDGET_CMS_PREF_CANCEL"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_cms_pref_cancel"); }; arguments { arguments default_dialog_cancel_args_4; XmNtopWidget = cms_pref_apply; XmNbottomWidget = cms_pref_apply; }; }; ! !doc_begin ! ! TITLE: ! Help button ! ! ONE LINE DEFINITION: ! %INCLUDE reallydelbuf_help ! !doc_end ! cms_pref_help : XmPushButton { callbacks { XmNactivateCallback = procedure TPU$WIDGET_STRING_CALLBACK ("LSE$$HELP_WIDGET ('LSEMENU', 'DECW_cms_dialog')"); XmNhelpCallback = procedure LSE$$CS_HELP_CALLBACK ("LSEMENU DECW_cms_pref_help"); }; arguments { arguments default_dialog_help_args_4; XmNtopWidget = cms_pref_cancel; XmNbottomWidget = cms_pref_cancel; }; }; cms_pref_bottom_margin : XmLabel { arguments { arguments bottom_margin_hack; XmNtopWidget = cms_pref_ok; }; }; end module; !