The Developer Connection - Device Driver Kit for OS/2 3

home *** CD-ROM | disk | FTP | other *** search

/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / devtools / dataflex / dfconfig.src < prev next >

Wrap

C/C++ Source or Header | 1993-05-19 | 296.3 KB | 9,245 lines

//************************************************************************* //* //* Copyright 1987-1992 Data Access Corporation, Miami FL, USA //* All Rights reserved //* DataFlex is a registered trademark of Data Access Corporation. //* //************************************************************************* //* //* Module Name: //* dfconfig.src //* //* Creator: //* THEO //* Fri 14 Feb 1992 //* //************************************************************************* #IFDEF _UNIX_ #REPLACE HAS_EXIT_COLOR |CI1 #REPLACE HAS_SPOOLER |CI1 #ELSE #IFDEF _OS2_ #REPLACE HAS_EXIT_COLOR |CI1 #REPLACE HAS_MOUSE |CI1 #REPLACE HAS_TRANSLATION |CI1 #ELSE #REPLACE HAS_CRITICAL_ERROR |CI2 #REPLACE HAS_GRAPHICS |CI1 #REPLACE HAS_MOUSE |CI1 #REPLACE HAS_POWER_FAIL |CI1 #REPLACE HAS_TRANSLATION |CI1 #ENDIF #ENDIF #REPLACE ACTION_BAR_MINIMUM 7 // Define the minimum number of windows in our // action bar #REPLACE COLORS_MINIMUM 3 // minimum number of windows--colors pull down #REPLACE OPTIONS_MINIMUM 3 // minimum number of windows--options pull down #REPLACE MISC_MINIMUM 5 // minimum number of windows--misc pull down use ui use menu use help_chn use error // Name the items on the main_status object to simplify the use of conditional // compilation name_object main_object global name_object main_status child main_object item 1 foreground check_select; check_deselect background #IFDEF HAS_EXIT_COLOR name_item main_status exit #ENDIF name_item main_status radio_select radio_deselect pallette scroll_up name_item main_status increments scroll_bar offset #IFDEF HAS_MOUSE name_item main_status double_click #ENDIF // HAS_MOUSE name_item main_status scroll_down name_item main_status date_form currency number_form empty_window #IFDEF HAS_POWER_FAIL name_item main_status power_fail #ENDIF // HAS_POWER_FAIL #IFDEF HAS_GRAPHICS name_item main_status graph_driver graph_mode #ENDIF name_item main_status auto_return #IFDEF HAS_GRAPHICS name_item main_status print_driver #ENDIF #IFDEF HAS_SPOOLER name_item main_status dfprinter_string nodfprinter_string #ENDIF name_item main_status pageend_opt pagefeed_opt eject_prompt integer cimage_number /working ╔══════════════════════╗ ║ ║ ║ ____________________ ║ ║ please wait... ║ ║ ║ ╚══════════════════════╝ /* object working is a message set location to 10 28 absolute set center_state item 0 to true set shadow_state item 0 to true end_object procedure working string working_on set value of working item 0 to working_on send page_object to working true end_procedure send working "Initializing," procedure done send page_object to working false end_procedure set application_name to "System" /about ╔═════════════════════════════════════════════════════╗ ║_____________________________________________________║ ║ ║ ║ ║ ║ Dfconfig ║ ║ ║ ║ Version 1.10b ║ ║ ║ ║ ____________________________________ ║ ║ SN: _____. ________________________________________ ║ ║ ║ ║ Copyright 1987-1992 Data Access Corporation ║ ║ Miami FL, USA - All rights reserved ║ ║ ║ ║ Memory: __________ Bytes ║ ║ ║ ║ <__> <____> ║ ╚═════════════════════════════════════════════════════╝ /* sub_page about_title from about 1 2 3 4 5 sub_page about_ok from about 6 7 /main_title ________________________________________________________________________________ /* // Set up to compile in the correct main_action_bar image. The compile // time variable G is set through the following code to the correct number of // windows that we will require for the action bar. !g is then tested to // control the actual image to be included into the application. #SET G$ ACTION_BAR_MINIMUM // Set up minimum number of action bar choices #IFDEF HAS_GRAPHICS // If this OS has graphics, increment G #SET G$ ( !g + HAS_GRAPHICS ) // by the replacement value of HAS_GRAPHICS #ENDIF #IF ( !g = 7 ) // If we require 7 windows /main_action_bar ____ ________ ______ __________ _______ _____________ ____ /* #ENDIF // !g = 7 #IF ( !g = 8 ) // If we require 8 windows /main_action_bar ____ ________ ______ ________ __________ _______ _____________ ____ /* #ENDIF // !g = 8 #IFDEF HAS_SPOOLER /main_object ________________________________________________________________________________ Default (desktop) colors: Selected Not selected Foreground: ___ Checkboxes: ____ ____ Background: ___ Exit Color: ___ Radio Buttons: ____ ____ Palette: __________________________ _ Horizontal Scrolling: ___ Scroll Bars: _ Offset: ___ _ Date Format: ________ Currency String: ____________________ Number Format: _________ Empty Windows: _ Automatic Return: ___ Spooler Control Strings: With DFPRINTER: __________________________________________________ Without DFPRINTER: __________________________________________________ Printable Lines/Page: ___ Page Ejection Method: ________________________ Page Ejection Prompt: ________________________________________ <_______> <________> <______________> <___________> <_______> /* sub_page main_status from main_object horizontal 1 24 sub_page main_button from main_object horizontal 25 5 #ELSE // Without HAS_SPOOLER #IFDEF HAS_EXIT_COLOR /main_object ________________________________________________________________________________ Default (desktop) colors: Selected Not selected Foreground: ___ Checkboxes: ____ ____ Background: ___ Exit Color: ___ Radio Buttons: ____ ____ Palette: __________________________ _ Horizontal Scrolling: ___ Scroll Bars: _ Offset: ___ Double-click Speed: _ _ Date Format: ________ Currency String: ____________________ Number Format: _________ Empty Windows: _ Automatic Return: ___ Printable Lines/Page: ___ Page Ejection Method: ________________________ Page Ejection Prompt: ________________________________________ <_______> <________> <______________> <___________> <_______> /* sub_page main_status from main_object horizontal 1 23 sub_page main_button from main_object horizontal 24 5 #ELSE // Without HAS_SPOOLER or HAS_EXIT_COLOR /main_object ________________________________________________________________________________ Default (desktop) colors: Selected Not selected Foreground: ___ Checkboxes: ____ ____ Background: ___ Radio Buttons: ____ ____ Palette: __________________________ _ Horizontal Scrolling: ___ Scroll Bars: _ Offset: ___ Double-click Speed: _ _ Date Format: ________ Currency String: ____________________ Number Format: _________ Empty Windows: _ Power Fail Protect: ___ Graphics Screen: ____________ Mode: __ Automatic Return: ___ Graphics Printer: ____________ Printable Lines/Page: ___ Page Ejection Method: ________________________ Page Ejection Prompt: ________________________________________ <_______> <________> <______________> <___________> <_______> /* sub_page main_status from main_object horizontal 1 26 sub_page main_button from main_object horizontal 27 5 #ENDIF // Without HAS_EXIT_COLOR #ENDIF // Without HAS_SPOOLER /main_footer ______________________│File ____________________________________│Memory _______. /file_pull_down ┌───────────────────┐ │ _________________ │ │ _________________ │ │ _________________ │ │ _________________ │ │ _________________ │ ├───────────────────┤ │ _________________ │ └───────────────────┘ /keyboard_pull_down ┌─────────────────────┐ │ ___________________ │ └─────────────────────┘ /* #SET G$ COLORS_MINIMUM // Set up the minimum number of windows #IFDEF HAS_EXIT_COLOR #SET G$ ( !g + HAS_EXIT_COLOR ) #ENDIF #IF ( !g = 3 ) /screen_pull_down ┌───────────────────┐ │ _________________ │ │ _________________ │ │ _________________ │ └───────────────────┘ /* #ENDIF #IF ( !g = 4 ) /screen_pull_down ┌───────────────────┐ │ _________________ │ │ _________________ │ │ _________________ │ │ _________________ │ └───────────────────┘ /* #ENDIF #IFDEF HAS_GRAPHICS /graphics_pull_down ┌───────────────────┐ │ _________________ │ │ _________________ │ └───────────────────┘ /* #ENDIF /appearance_pull_down ┌─────────────────────────┐ │ _______________________ │ │ _______________________ │ │ _______________________ │ │ _______________________ │ │ _______________________ │ │ _______________________ │ └─────────────────────────┘ /* // Set up to compile in the correct options_pull_down image. The compile // time variable G is set through the following code to the correct number of // windows that we will require for the pull down. !g is then tested to // control the actual image to be included into the application. #SET G$ OPTIONS_MINIMUM // Set-up minimum number of options windows #IFDEF HAS_POWER_FAIL // If HAS_POWER_FAIL is defined, #SET G$ ( !g + HAS_POWER_FAIL ) // Increment G by the correct number of #ENDIF // windows #IF ( !g = 3 ) // If we require 3 windows, include this image /options_pull_down ┌─────────────────────┐ │ ___________________ │ │ ___________________ │ │ ___________________ │ └─────────────────────┘ /* #ENDIF // !g = 3 #IF ( !g = 4 ) // If we require 4 windows, include this image /options_pull_down ┌──────────────────────────┐ │ ________________________ │ │ ________________________ │ │ ________________________ │ │ ________________________ │ └──────────────────────────┘ /* #ENDIF // !g = 4 // Set up to compile in the correct miscellaneous_pull_down image. The compile // time variable G is set through the following code to the correct number of // windows that we will require for the pull down. !g is then tested to // control the actual image to be included into the application. #SET G$ MISC_MINIMUM #IFDEF HAS_CRITICAL_ERROR #SET G$ ( !g + HAS_CRITICAL_ERROR ) #ENDIF #IFDEF HAS_MOUSE #SET G$ ( !g + HAS_MOUSE ) #ENDIF #IFDEF HAS_SPOOLER #SET G$ ( !g + HAS_SPOOLER ) #ENDIF #IF ( !g = 6 ) // If we need 6 windows, use this image /miscellaneous_pull_down ┌───────────────────────────────────┐ │ _________________________________ │ │ _________________________________ │ │ _________________________________ │ │ _________________________________ │ │ _________________________________ │ │ _________________________________ │ └───────────────────────────────────┘ /* #ENDIF // !g = 6 #IF ( !g = 7 ) // If we need 7 windows, use this image /miscellaneous_pull_down ┌───────────────────────────────────┐ │ _________________________________ │ │ _________________________________ │ │ _________________________________ │ │ _________________________________ │ │ _________________________________ │ │ _________________________________ │ │ _________________________________ │ └───────────────────────────────────┘ /* #ENDIF // !g = 7 #IF ( !g = 8 ) // If we need 8 windows, use this image /miscellaneous_pull_down ┌────────────────────────────────────┐ │ __________________________________ │ │ __________________________________ │ │ __________________________________ │ │ __________________________________ │ │ __________________________________ │ │ __________________________________ │ │ __________________________________ │ │ __________________________________ │ └────────────────────────────────────┘ /* #ENDIF // !g = 8 /load_as ╔══════════════════════════════════════════════════════════════════╗ ║__________________________________________________________________║ ║ ║ ║ Load configuration: ║ ║ ________________________________________________________________ ║ ║ ║ ║ Reset after load: ___ ║ ║ ║ ║ <_____> <__________> <_______> ║ ╚══════════════════════════════════════════════════════════════════╝ /* sub_page load_as_title from load_as 1 sub_page load_as_form from load_as 2 sub_page load_as_reset from load_as 3 sub_page load_as_button from load_as horizontal 4 3 /save_as ╔══════════════════════════════════════════════════════════════════╗ ║__________________________________________________________________║ ║ ║ ║ Save configuration as: ║ ║ ________________________________________________________________ ║ ║ ║ ║ <_____> <__________> <_______> ║ ╚══════════════════════════════════════════════════════════════════╝ /* sub_page save_as_title from save_as 1 sub_page save_as_form from save_as 2 sub_page save_as_button from save_as horizontal 3 3 /print_as ╔══════════════════════════════════════════════════════════════════╗ ║__________________________________________________________________║ ║ ║ ║ Output to ___________ ║ ║ ___________ ║ ║ Filename: ║ ║ ________________________________________________________________ ║ ║ ║ ║ <_____> <__________> <_______> ║ ╚══════════════════════════════════════════════════════════════════╝ /* sub_page print_as_title from print_as 1 sub_page print_as_radio from print_as vertical 2 2 sub_page print_as_form from print_as 4 sub_page print_as_button from print_as horizontal 5 3 /not_done ╔══════════════════════════════════════════╗ ║ ║ ║ ________________________________________ ║ ║ ________________________________________ ║ ║ ║ ║ <__> ║ ║ ║ ╚══════════════════════════════════════════╝ /* sub_page not_done_button from not_done 3 /keyboard_stuff ╔════════════════════════════════════════════════════════════════════════════╗ ║____________________________________________________________________________║ ║ ║ ║ ║ ║ ┌─────────────────────────────┐ ║ ║ │ ___________________________ │ ║ ║ │ ___________________________ │ ║ ║ │ ___________________________ │ ║ ║ │ ___________________________ │ ║ ║ │ ___________________________ │ ║ ║ │ ___________________________ │ ║ ║ │ ___________________________ │ ║ ║ │ ___________________________ │ ║ ║ │ ___________________________ │ ║ ║ │ ___________________________ │ ║ ║ │ ___________________________ │ ║ ║ └─────────────────────────────┘ ║ ║ ║ ║ ║ ║ <_________> <_______> ║ ╚════════════════════════════════════════════════════════════════════════════╝ /* sub_page keyboard_stuff_title from keyboard_stuff 1 sub_page keyboard_list from keyboard_stuff vertical 2 11 sub_page keyboard_button from keyboard_stuff horizontal 13 2 /accelerator_key ╔════════════════════════════════════════════════════════════════╗ ║________________________________________________________________║ ║ ║ ║ Key Combination: ____________________________________ ║ ║ ║ ║ Press new key combination, or press [Enter] to leave unchanged.║ ║ ║ ║ <__> <_____> <______> <____> ║ ╚════════════════════════════════════════════════════════════════╝ /* sub_page accelerator_key_title from accelerator_key 1 sub_page accelerator_key_form from accelerator_key 2 sub_page accelerator_key_button from accelerator_key horizontal 3 4 /reassign_key ╔═════════════════════════════════════════╗ ║ -- Warning -- ║ ║ ║ ║ This combination is already assigned to ║ ║ _______________________________________ ║ ║ ║ ║ If you reassign it, then you must enter ║ ║ a new key combination for the above ║ ║ function, or it will become ║ ║ unavailable from the keyboard. ║ ║ ║ ║ Reassign? <___> <__> ║ ║ ║ ╚═════════════════════════════════════════╝ /* sub_page reassign from reassign_key horizontal 2 2 /invalid_key ╔══════════════════════════════════════╗ ║ -- Warning -- ║ ║ ║ ║ This key combination cannot be used. ║ ║ ║ ║ <__> ║ ╚══════════════════════════════════════╝ /* sub_page invalid_key_button from invalid_key 1 /invalid_char ╔══════════════════════════════════════╗ ║ -- Warning -- ║ ║ ║ ║ This character cannot be used. ║ ║ ║ ║ <__> ║ ╚══════════════════════════════════════╝ /* sub_page invalid_char_button from invalid_char 1 /default_color ╔═══════════════════════════════════════════════════════════╗ ║___________________________________________________________║ ║ ┌────────────┐ ║ ║ Window color: __. │____________│ ║ ║ Image color: __. │____________│ ║ ║ └────────────┘ ║ ║ Selection cursor palette: _____________________________ ║ ║ ║ ║ <_____> <_________> <________> <__________> <_______> ║ ╚═══════════════════════════════════════════════════════════╝ /* sub_page default_color_title from default_color 1 sub_page default_color_form from default_color vertical 2 3 sub_page default_color_sample from default_color vertical 3 2 sub_page default_color_button from default_color horizontal 7 5 /palette_color_stuff ╔════════════════════════════════════════════════════════════════════════════╗ ║____________________________________________________________________________║ ║ ║ ║ ║ ║ ┌───────────────────────────────┐ ║ ║ │ _____________________________ │ ║ ║ │ _____________________________ │ ║ ║ │ _____________________________ │ ║ ║ │ _____________________________ │ ║ ║ │ _____________________________ │ ║ ║ │ _____________________________ │ ║ ║ │ _____________________________ │ ║ ║ │ _____________________________ │ ║ ║ │ _____________________________ │ ║ ║ │ _____________________________ │ ║ ║ │ _____________________________ │ ║ ║ └───────────────────────────────┘ ║ ║ ║ ║ ║ ║ <_________> <_______> ║ ╚════════════════════════════════════════════════════════════════════════════╝ /* sub_page palette_color_stuff_title from palette_color_stuff 1 sub_page palette_color_stuff_list from palette_color_stuff vertical 2 11 sub_page palette_colors_button from palette_color_stuff horizontal 13 2 /palette_color_popup ╔═══════════════════════════════════════════════════════════╗ ║___________________________________________________________║ ║ ║ ║ Uncursored: __. ║ ║ Shadowed: __. ┌────────────┐ ║ ║ Pointed at: __. │____________│ ║ ║ Shadowed and pointed at: __. │____________│ ║ ║ Selected: __. └────────────┘ ║ ║ Selected and pointed at: __. ║ ║ ║ ║ <_____> <_________> <________> <__________> <_______> ║ ╚═══════════════════════════════════════════════════════════╝ /* sub_page palette_color_popup_title from palette_color_popup 1 sub_page palette_color_popup_form from palette_color_popup vertical 2 6 sub_page palette_color_popup_sample from palette_color_popup vertical 5 2 sub_page palette_color_popup_button from palette_color_popup horizontal 10 5 /class_color_stuff ╔════════════════════════════════════════════════════════════════════════════╗ ║____________________________________________________________________________║ ║ ║ ║ ║ ║ ┌──────────────────────┐ ║ ║ │ ____________________ │ ║ ║ │ ____________________ │ ║ ║ │ ____________________ │ ║ ║ │ ____________________ │ ║ ║ │ ____________________ │ ║ ║ │ ____________________ │ ║ ║ │ ____________________ │ ║ ║ │ ____________________ │ ║ ║ │ ____________________ │ ║ ║ │ ____________________ │ ║ ║ │ ____________________ │ ║ ║ └──────────────────────┘ ║ ║ ║ ║ ║ ║ <_________> <_______> ║ ╚════════════════════════════════════════════════════════════════════════════╝ /* sub_page class_color_stuff_title from class_color_stuff 1 sub_page class_list from class_color_stuff vertical 2 11 sub_page class_colors_button from class_color_stuff horizontal 13 2 /class_color_popup ╔═══════════════════════════════════════════════════════════╗ ║___________________________________________________________║ ║ ┌────────────┐ ║ ║ Window color: __. │____________│ ║ ║ Image color: __. │____________│ ║ ║ └────────────┘ ║ ║ Selection cursor palette: _____________________________ ║ ║ ║ ║ <_____> <_________> <________> <__________> <_______> ║ ╚═══════════════════════════════════════════════════════════╝ /* sub_page class_color_popup_title from class_color_popup 1 sub_page class_color_popup_form from class_color_popup vertical 2 3 sub_page class_color_popup_sample from class_color_popup vertical 3 2 sub_page class_color_popup_button from class_color_popup horizontal 7 5 /prompt_color_client ╔═════════════════════════════════════════╗ ║_________________________________________║ ║ ║ ║ ┌─ Background color: ┐ ┌────────────┐ ║ ║ │ │ │____________│ ║ ║ │ __________________ │ │____________│ ║ ║ └────────────────────┘ └────────────┘ ║ ║ ║ ║ ┌─ Foreground color: ┐ <_____> ║ ║ │ │ <________> ║ ║ │ __________________ │ <__________> ║ ║ └────────────────────┘ <_______> ║ ╚═════════════════════════════════════════╝ /* sub_page prompt_color_title from prompt_color_client 1 sub_page prompt_color_sample from prompt_color_client vertical 2 2 sub_page prompt_color_background from prompt_color_client 3 sub_page prompt_color_foreground from prompt_color_client 7 sub_page prompt_color_button from prompt_color_client vertical 5 4 /prompt_palette_list ┌─ Palettes: ───────────────┐ │__________________________ │ │__________________________ │ │__________________________ │ │__________________________ │ │__________________________ │ └───────────────────────────┘ /* #IFDEF HAS_EXIT_COLOR /exit_color ╔═══════════════════════════════════════════════════════════╗ ║___________________________________________________________║ ║ ║ ║ Please specify the color in which ┌────────────┐ ║ ║ to clear the screen on exit from │____________│ ║ ║ DataFlex │____________│ ║ ║ └────────────┘ ║ ║ Screen Color: __. ║ ║ ║ ║ <_____> <_________> <________> <__________> <_______> ║ ╚═══════════════════════════════════════════════════════════╝ /* sub_page exit_color_title from exit_color 1 sub_page exit_color_form from exit_color 4 sub_page exit_color_sample from exit_color vertical 2 2 sub_page exit_color_button from exit_color horizontal 5 5 #ENDIF // HAS_EXIT_COLOR /date_format ╔════════════════════════════════════════════╗ ║____________________________________________║ ║ ║ ║ DataFlex can display dates in one of three ║ ║ different formats. ║ ║ ║ ║ How would you like DataFlex to display eg. ║ ║ November 25, 1980? ║ ║ ║ ║ ______________ ║ ║ ______________ ║ ║ ______________ ║ ║ ║ ║ Which character should DataFlex use as a ║ ║ separator? _ ║ ║ ║ ║ <_____> <_________> <________> ║ ║ <__________> <_______> ║ ╚════════════════════════════════════════════╝ /* sub_page date_format_title from date_format 1 sub_page date_format_radio from date_format vertical 2 3 sub_page date_format_form from date_format 5 sub_page date_format_button from date_format horizontal 6 5 /numeric_format ╔════════════════════════════════════════════╗ ║____________________________________________║ ║ ║ ║ DataFlex offers two ways of punctuating ║ ║ output through numeric windows using the ║ ║ print command. ║ ║ ║ ║ How would you like DataFlex to output eg. ║ ║ the number ten thousand? ║ ║ ║ ║ _____________ ║ ║ _____________ ║ ║ ║ ║ <_____> <________> <__________> <_______> ║ ╚════════════════════════════════════════════╝ /* sub_page numeric_format_title from numeric_format 1 sub_page numeric_format_radio from numeric_format vertical 2 2 sub_page numeric_format_button from numeric_format horizontal 4 4 /check_strings ╔════════════════════════════════════════════╗ ║____________________________________________║ ║ ║ ║ Which characters do you want DataFlex to ║ ║ use to mark selected and unselected ║ ║ checkbox items? ║ ║ ║ ║ ___ selected items ___ unselected items ║ ║ ║ ║ <_____> <________> <__________> <_______> ║ ╚════════════════════════════════════════════╝ /* sub_page check_strings_title from check_strings 1 sub_page check_strings_form from check_strings horizontal 2 2 sub_page check_strings_button from check_strings horizontal 4 4 /radio_strings ╔════════════════════════════════════════════╗ ║____________________________________________║ ║ ║ ║ Which characters do you want DataFlex to ║ ║ use to mark selected and unselected ║ ║ radio button items? ║ ║ ║ ║ ___ selected items ___ unselected items ║ ║ ║ ║ <_____> <________> <__________> <_______> ║ ╚════════════════════════════════════════════╝ /* sub_page radio_strings_title from radio_strings 1 sub_page radio_strings_form from radio_strings horizontal 2 2 sub_page radio_strings_button from radio_strings horizontal 4 4 /currency ╔════════════════════════════════════════════╗ ║____________________________________________║ ║ ║ ║ As an option, DataFlex can put text next ║ ║ to a number to indicate currency. ║ ║ ║ ║ Which text would you like DataFlex to use ║ ║ to indicate currency? ____________________ ║ ║ ║ ║ <_____> <________> <__________> <_______> ║ ╚════════════════════════════════════════════╝ /* sub_page currency_title from currency 1 sub_page currency_form from currency 2 sub_page currency_button from currency horizontal 3 4 /window_fill ╔════════════════════════════════════════════╗ ║____________________________________________║ ║ ║ ║ By default, DataFlex uses ________ ║ ║ characters to display empty windows. ║ ║ ║ ║ Which character would you like DataFlex to ║ ║ use to display empty windows? _ ║ ║ ║ ║ <_____> <_________> <________> ║ ║ <__________> <_______> ║ ╚════════════════════════════════════════════╝ /* sub_page window_fill_title from window_fill 1 sub_page window_fill_sample from window_fill 2 sub_page window_fill_form from window_fill 3 sub_page window_fill_button from window_fill horizontal 4 5 /scrollbar_strings ╔════════════════════════════════════════════╗ ║____________________________________________║ ║ ║ ║ Which characters would you like DataFlex ║ ║ to use to display scroll bars? ║ ║ ║ ║ scroll up: _ ║ ║ scroll bar: _ ║ ║ scroll down: _ ║ ║ ║ ║ <_____> <_________> <________> ║ ║ <__________> <_______> ║ ╚════════════════════════════════════════════╝ /* sub_page scrollbar_strings_title from scrollbar_strings 1 sub_page scrollbar_strings_form from scrollbar_strings vertical 2 3 sub_page scrollbar_strings_button from scrollbar_strings horizontal 5 5 /press_any_key ╔════════════════════════════════════════════╗ ║____________________________________________║ ║ ║ ║ When outputting to the screen, DataFlex ║ ║ may prompt the user for a keystroke when ║ ║ the screen is full. ║ ║ ║ ║ Which message would you like DataFlex to ║ ║ use to prompt the user for a keystroke? ║ ║ ________________________________________ ║ ║ ║ ║ <_____> <________> <__________> <_______> ║ ╚════════════════════════════════════════════╝ /* sub_page press_any_key_title from press_any_key 1 sub_page press_any_key_form from press_any_key 2 sub_page press_any_key_button from press_any_key horizontal 3 4 /auto_return ╔════════════════════════════════════════════╗ ║____________________________________________║ ║ ║ ║ When a window is completely filled during ║ ║ data-entry, should DataFlex automatically ║ ║ advance to the next window without waiting ║ ║ for the Enter key? ║ ║ ║ ║ _______ _______ ║ ║ ║ ║ <_____> <________> <__________> <_______> ║ ╚════════════════════════════════════════════╝ /* sub_page auto_return_title from auto_return 1 sub_page auto_return_radio from auto_return horizontal 2 2 sub_page auto_return_button from auto_return horizontal 4 4 /scroll_increments ╔═══════════════════════════════════════════╗ ║___________________________________________║ ║ ║ ║ When scrolling horizontally in an edit ║ ║ object, DataFlex uses one character ║ ║ increments by default. ║ ║ ║ ║ In how many character increments do you ║ ║ want DataFlex to scroll horizontally in ║ ║ edit objects? _. ║ ║ ║ ║ <_____> <________> <__________> <_______> ║ ╚═══════════════════════════════════════════╝ /* sub_page scroll_increments_title from scroll_increments 1 sub_page scroll_increments_form from scroll_increments 2 sub_page scroll_increments_button from scroll_increments horizontal 3 4 /scrollbar_offset ╔════════════════════════════════════════════╗ ║____________________________________________║ ║ ║ ║ How many positions should be left between ║ ║ the rightmost window in a list and the ║ ║ scroll bar? ║ ║ _. position(s) ║ ║ ║ ║ <_____> <________> <__________> <_______> ║ ╚════════════════════════════════════════════╝ /* sub_page scrollbar_offset_title from scrollbar_offset 1 sub_page scrollbar_offset_form from scrollbar_offset 2 sub_page scrollbar_offset_button from scrollbar_offset horizontal 3 4 #IFDEF HAS_MOUSE // Only include this image for OSs with mouse support /double_click ╔════════════════════════════════════════════════════════════╗ ║____________________________________________________________║ ║ ║ ║ Certain mouse selections require you to double-click; to ║ ║ press the mouse button twice within a short time interval. ║ ║ ║ ║ Set your double-click speed on the scale below. ║ ║ 1-3-5-7-9 ║ ║ slower ___________ faster ║ ║ ║ ║ Test the current (saved) speed by double-clicking on this ║ ║ <___________> ║ ║ ║ ║ _____ ____________ ║ ║ ║ ║ Note: To test a new setting you must ║ ║ save and reset the configuration. ║ ║ ║ ║ <_____> <________> <__________> <_______> ║ ╚════════════════════════════════════════════════════════════╝ /* sub_page double_click_title from double_click 1 sub_page double_click_meter from double_click 2 sub_page double_click_test from double_click 3 sub_page double_click_result from double_click horizontal 4 2 sub_page double_click_button from double_click horizontal 6 4 #ENDIF // HAS_MOUSE /page_control ╔═══════════════════════════════════════════════════════════╗ ║___________________________________________________________║ ║ ║ ║ How would you like DataFlex to eject a page? ║ ║ ║ ║ _________________________________________________________ ║ ║ _________________________________________________________ ║ ║ _________________________________________________________ ║ ║ ║ ║ What is the height of your physical page in lines: __. ║ ║ Of this amount, how many may DataFlex use: __. ║ ║ ║ ║ <_____> <________> <__________> <_______> ║ ╚═══════════════════════════════════════════════════════════╝ /* sub_page page_control_title from page_control 1 sub_page page_control_radio from page_control vertical 2 3 sub_page page_control_form from page_control vertical 5 2 sub_page page_control_button from page_control horizontal 7 4 #IFDEF HAS_POWER_FAIL // Only include this image of OSs with Power fail // protection /power_fail ╔════════════════════════════════════════════════════════════════════════════╗ ║____________________________________________________________________________║ ║ ║ ║ Data may be lost in a power failure. If you use an uninterruptible power ║ ║ supply (UPS) you need not worry about this. If you do not use a UPS, then ║ ║ DataFlex can minimize the risk of data loss by automatically flushing its ║ ║ file buffers when appropriate, at the cost of slightly slowing down save, ║ ║ update and delete operations. If you do not use a UPS, nor DataFlex's ║ ║ power fail protection, then you must make backups very often and restore ║ ║ your database from backup after a power failure. ║ ║ ║ ║ Do you wish to use DataFlex's power fail protection? ║ ║ ║ ║ _______ _______ ║ ║ ║ ║ Note: Using DataFlex's power fail protection does not mean that you should ║ ║ not make periodic backups. ║ ║ ║ ║ <_____> <________> <__________> <_______> ║ ╚════════════════════════════════════════════════════════════════════════════╝ /* sub_page power_fail_title from power_fail 1 sub_page power_fail_radio from power_fail horizontal 2 2 sub_page power_fail_button from power_fail horizontal 4 4 #ENDIF // HAS_POWER_FAIL #IFDEF HAS_GRAPHICS // Only include for OSs that support graphics /adapters ╔════════════════════════════════════════════════════════════════════════════╗ ║____________________________________________________________________________║ ║ ║ ║ Enter the directory in which the graphics drivers are located and select ║ ║ the right driver and default mode for your adapter. ║ ║ ║ ║ Directory is: ____________________________________________________________ ║ ║ Driver name: ____________ ║ ║ Default mode: _. ║ ║ Files Directories ║ ║ ┌─────────────┐ ┌─────────────┐ ║ ║ │____________ │ │____________ │ ║ ║ │____________ │ │____________ │ ║ ║ │____________ │ │____________ │ ║ ║ │____________ │ │____________ │ ║ ║ │____________ │ │____________ │ ║ ║ └─────────────┘ └─────────────┘ ║ ║ ║ ║ <_____> <________> <__________> <_______> ║ ╚════════════════════════════════════════════════════════════════════════════╝ /* format adapters.4 {range=0,99,autoclear} sub_page adapters_title from adapters 1 sub_page adapters_form from adapters vertical 2 3 sub_page adapters_file_list from adapters vertical 5 5 sub_page adapters_dir_list from adapters vertical 6 5 sub_page adapters_button from adapters horizontal 15 4 /printers ╔════════════════════════════════════════════════════════════════════════════╗ ║____________________________________________________________________________║ ║ ║ ║ Enter the directory in which the graphics drivers are located and select ║ ║ the right driver for your printer. ║ ║ ║ ║ Directory is: ____________________________________________________________ ║ ║ Driver name: ____________ ║ ║ ║ ║ Files Directories ║ ║ ┌─────────────┐ ┌─────────────┐ ║ ║ │____________ │ │____________ │ ║ ║ │____________ │ │____________ │ ║ ║ │____________ │ │____________ │ ║ ║ │____________ │ │____________ │ ║ ║ │____________ │ │____________ │ ║ ║ └─────────────┘ └─────────────┘ ║ ║ ║ ║ <_____> <________> <__________> <_______> ║ ╚════════════════════════════════════════════════════════════════════════════╝ /* sub_page printers_title from printers 1 sub_page printers_form from printers vertical 2 2 sub_page printers_file_list from printers vertical 4 5 sub_page printers_dir_list from printers vertical 5 5 sub_page printers_button from printers horizontal 14 4 #ENDIF #IFDEF HAS_TRANSLATION // Only include for OSs that require translation /translate ╔════════════════════════════════════════════════════════════════════════════╗ ║____________________________________________________________________________║ ║───────────────────────────────────┬────────────────────────────────────────║ ║ 0 1 2 3 4 5 6 7 8 9 A B C D E F │ Current Char: __ Maps To: ____ ║ ║00 │ Key Sequence: _______________________ ║ ║10 │ Lowercases To: __ Uppercases To: __ ║ ║20 │ ║ ║30 │ ──────── Character Attributes ──────── ║ ║40 │ Alphabetic: ___ Printable: ___ ║ ║50 │ Lowercase: ___ Punctuation: ___ ║ ║60 │ Uppercase: ___ White Space: ___ ║ ║70 │ ║ ║80 │ Allowed in a variable name: ___ ║ ║90 │ Allowed in a file/field name: ___ ║ ║A0 │ Allowed as the first character: ___ ║ ║B0 │ ║ ║C0 │ <____________> <____________> ║ ║D0 │<_________________> <_________________>║ ║E0 │ ║ ║F0 │ <_____><________><__________><_______> ║ ╚════════════════════════════════════════════════════════════════════════════╝ /* sub_page translate_title from translate 1 sub_page translate_select from translate 2 sub_page translate_remap from translate horizontal 3 2 sub_page translate_chars from translate horizontal 5 2 sub_page translate_alpha_check from translate vertical 7 3 sub_page translate_print_check from translate vertical 8 3 sub_page translate_symbol_check from translate vertical 13 3 sub_page translate_button from translate horizontal 16 8 #ELSE // HAS_TRANSLATION /translate ╔════════════════════════════════════════════════════════════════════════════╗ ║____________________________________________________________________________║ ║───────────────────────────────────┬────────────────────────────────────────║ ║ 0 1 2 3 4 5 6 7 8 9 A B C D E F │ Current Char: __ ║ ║00 │ Key Sequence: _______________________ ║ ║10 │ Lowercases To: __ Uppercases To: __ ║ ║20 │ ║ ║30 │ ──────── Character Attributes ──────── ║ ║40 │ Alphabetic: ___ Printable: ___ ║ ║50 │ Lowercase: ___ Punctuation: ___ ║ ║60 │ Uppercase: ___ White Space: ___ ║ ║70 │ ║ ║80 │ Allowed in a variable name: ___ ║ ║90 │ Allowed in a file/field name: ___ ║ ║A0 │ Allowed as the first character: ___ ║ ║B0 │ ║ ║C0 │ <____________> <____________> ║ ║D0 │<_________________> <_________________>║ ║E0 │ ║ ║F0 │ <_____><________><__________><_______> ║ ╚════════════════════════════════════════════════════════════════════════════╝ /* sub_page translate_title from translate 1 sub_page translate_select from translate 2 sub_page translate_remap from translate horizontal 3 1 sub_page translate_chars from translate horizontal 4 2 sub_page translate_alpha_check from translate vertical 6 3 sub_page translate_print_check from translate vertical 7 3 sub_page translate_symbol_check from translate vertical 12 3 sub_page translate_button from translate horizontal 15 8 #ENDIF // HAS_TRANSLATION #IFDEF HAS_CRITICAL_ERROR // Only include of OSs that require a // critical error handler /crit_error ╔═══════════════════════════════════════════════════════════════════════════╗ ║___________________________________________________________________________║ ║ ║ ║ Allow user response: ___ Options allowed: ___ Abort ___ Retry ___ Fail ║ ║ ║ ║ Automatic response after _. seconds: ___ Abort ___ Retry ___ Fail ║ ║ ║ ║ Automatically retry _. times (0=forever), then: ___ Abort ___ Fail ║ ║ ║ ║ <_____> <________> <__________> <_______> ║ ╚═══════════════════════════════════════════════════════════════════════════╝ /* sub_page crit_error_title from crit_error 1 sub_page crit_error_user_allowed from crit_error 2 sub_page crit_error_options from crit_error horizontal 3 3 sub_page crit_error_timeout from crit_error 6 sub_page crit_error_default1 from crit_error horizontal 7 3 sub_page crit_error_retries from crit_error 10 sub_page crit_error_default2 from crit_error horizontal 11 2 sub_page crit_error_button from crit_error horizontal 13 4 /crit_text ╔════════════════════════════════════════════════════════════════════════════╗ ║____________________________________________________________________________║ ║ ║ ║ The default critical error message format is as follows: ║ ║ Error on drive @|device: Diagnostic A=Abort R=Retry F=Fail: ║ ║ ║ ║ With translations/replacements: ║ ║ __________________________________________________________________________ ║ ║ ║ ║ Provide translations/replacements for the following: ║ ║ ║ ║ Phrase Shows as: Option Shows as: Keys ║ ║ ──────── ────────── ────── ────────── ──── ║ ║ Error on __________ Abort __________ __ ║ ║ drive __________ Retry __________ __ ║ ║ device __________ Fail __________ __ ║ ║ ║ ║ <____________________________> ║ ║ <_____> <________> <__________> <_______> ║ ╚════════════════════════════════════════════════════════════════════════════╝ /* sub_page crit_text_title from crit_text 1 sub_page crit_text_format from crit_text 2 sub_page crit_text_phrases from crit_text vertical 3 3 sub_page crit_text_options from crit_text rectangular 4 2 3 sub_page crit_text_special from crit_text 12 sub_page crit_text_button from crit_text horizontal 13 4 #ENDIF // HAS_CRITICAL_ERROR /default_text ╔════════════════════════════════════════════════════════════════════════════╗ ║____________________________________________________________________________║ ║ ║ ║ When DataFlex attempts to display an error, but there is a problem trying ║ ║ to find the correct error text in the DataFlex error file, one of the ║ ║ following errors will appear. Provide translations/replacements for the ║ ║ following: ║ ║ ║ ║ Phrase Shows as: ║ ║ ───────────────────────── ──────────────────────────────────────── ║ ║ No error text: Can't open ____________________________ ║ ║ No error text available ________________________________________ ║ ║ Error number out of range ________________________________________ ║ ║ ║ ║ <_____> <________> <__________> <_______> ║ ╚════════════════════════════════════════════════════════════════════════════╝ /* sub_page default_text_title from default_text 1 sub_page default_text_phrases from default_text 2 3 4 sub_page default_text_button from default_text 5 6 7 8 #IFDEF HAS_CRITICAL_ERROR /crit_diags ╔════════════════════════════════════════════════════════════════════╗ ║____________________________________________________________________║ ║ ║ ║ Original Diagnostic Translation/replacement ║ ║ ────────────────────────────── ────────────────────────────── ║ ║ _. ______________________________ ______________________________ ║ ║ _. ______________________________ ______________________________ ║ ║ _. ______________________________ ______________________________ ║ ║ _. ______________________________ ______________________________ ║ ║ _. ______________________________ ______________________________ ║ ║ _. ______________________________ ______________________________ ║ ║ _. ______________________________ ______________________________ ║ ║ _. ______________________________ ______________________________ ║ ║ _. ______________________________ ______________________________ ║ ║ _. ______________________________ ______________________________ ║ ║ ║ ║ <_____> <________> <__________> <_______> ║ ╚════════════════════════════════════════════════════════════════════╝ /* sub_page crit_diags_title from crit_diags 1 sub_page crit_diags_list from crit_diags rectangular 2 3 10 sub_page crit_diags_button from crit_diags horizontal 32 4 #ENDIF // HAS_CRITICAL_ERROR #IFDEF HAS_SPOOLER /spooler_control ╔═════════════════════════════════════════════════════════════════╗ ║_________________________________________________________________║ ║ ║ ║ You may specify any valid system spooler command and options. ║ ║ Use "%s" to signify the name of the spooler device that will ║ ║ be provided by DFPRINTER. ║ ║ ║ ║ ║ ║ Please specify the spooler configuration string to use if the ║ ║ DFPRINTER environment variable is set: ║ ║ __________________________________________________ ║ ║ ║ ║ Please specify the spooler configuration string to use if the ║ ║ DFPRINTER environment variable is not set: ║ ║ __________________________________________________ ║ ║ ║ ║ <_____> <________> <__________> <_______> ║ ╚═════════════════════════════════════════════════════════════════╝ /* sub_page spooler_control_title from spooler_control 1 sub_page spooler_control_form from spooler_control 2 3 sub_page spooler_control_button from spooler_control horizontal 4 4 #ENDIF // HAS_SPOOLER /not_saved ╔══════════════════════════════════════════╗ ║ ║ ║ You have made changes. Do you want ║ ║ to save your changes before ____________ ║ ║ ║ ║ <___> <__> <______> ║ ║ ║ ╚══════════════════════════════════════════╝ /* sub_page not_saved_button from not_saved horizontal 2 3 /ascii_map ╔════════════════════════════════════════════╗ ║ ║ ║ ║ ║ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ║ ║ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ║ ║ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ║ ║ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ║ ║ ║ ║ ║ ╚════════════════════════════════════════════╝ /ascii_title ____________________________________________ /ascii_button <_____> <________> <__________> <_______> /profile_header Current settings: /profile_keys_header Accelerator keys setting /profile_colors_header Class colors window image palette /profile_colors ________________________ ___________ ___________ ___________________________ /profile_palette_colors_header Palette colors /profile_palette_colors_subheader __________________________________ color /profile_palette_colors Uncursored ___________ Shadowed ___________ Pointed at ___________ Shadowed + pointed at ___________ Selected ___________ Selected + pointed at ___________ /profile_ui_header User interface value /profile_critical Critical error settings "Error on" : ____________________ "Abort" translation : ____________________ "Retry" translation : ____________________ "Fail" translation : ____________________ "Drive" translation : ____________________ "Device" translation : ____________________ Response allowed? : _ Options allowed : ________________ Timeout time : __ seconds Timeout default : _____ Critical retries : __ Retry failure default : _____ Abort Character(s) : __ Retry Character(s) : __ Fail Character(s) : __ /* /profile_ui_body Selected checkbox item ________________________________________ Unselected checkbox item ________________________________________ Selected radio button ________________________________________ Unselected radio button ________________________________________ Scroll bar offset ________________________________________ Scroll bar up ________________________________________ Scroll bar track ________________________________________ Scroll bar down ________________________________________ Horizontal scroll increments ________________________________________ Mouse double-click speed ________________________________________ /profile_misc_header Miscellaneous value /profile_misc_body Exit color ________________________________________ Automatic return option ________________________________________ Date format options ________________________________________ Numeric format option ________________________________________ Power fail protection ________________________________________ Currency string ________________________________________ Window fill character ________________________________________ Graphics adapter driver ________________________________________ Graphics adapter mode ________________________________________ Graphics printer driver ________________________________________ "Press Any Key" prompt ________________________________________ Spooler w/DFPRINTER Configuration ________________________________________ Spooler w/o DFPRINTER Configuration ________________________________________ /profile_body ____________________________________ ________________________________________ /profile_mapping_header Keyboard Translation Upper Lower Maps File/ First Key case case To Upper Lower Alpha Print Punct Space Var Field Char /profile_mapping_body __ __ __ ____ _ _ _ _ _ _ _ _ _ /profile_footer /classnames Default Message Menu Edit Scroll Bar List Button Checkbox Checklist Form Form List Client Title Action Bar Warning Message Critical Message Error Message Help Trace Entry Entry List Radio Button Radio Button List Virtual Console Clipboard /palettenames Inherit Default Non-modal Client Action Bar Modal Client Alternate Default Alternate Non-modal Client Alternate Action Bar Alternate Modal Client /key_descriptions Enter Print Screen Escape Left Arrow Right Arrow Previous Item Find Superfind Save Record Delete Record Calculate User Defined 1 Clear Panel Find Previous Find Next Up Arrow Down Arrow Help User Defined 2 Insert Delete Character Backspace Clear and Return Clear and Backspace Exit Function Exit Application Prompt Refresh Screen Switch To Next Panel Switch To Previous Panel Superfind Previous Superfind Next Switch To Action Bar Scroll Page Up Scroll Page Down Scroll Page Left Scroll Page Right Begin Of Line End Of Line Next Item Erase To End Of Line Begin Of Panel End Of Panel Begin Of Data End Of Data Skip Word Left Skip Word Right Add Mode Paste Copy Cut Clear All Panels Mark Zoom Close Panel /keycaps Enter Tab Backspace Esc Up Arrow Down Arrow Left Arrow Right Arrow Home End PgUp PgDn Ins Del F1 F2 F3 F4 F5 F6 F7 F8 F9 F10 F11 F12 /misc_defaults ahd*.dsp ahd*.prt DataFlex Configuration Utility dfini.cfg = ... F1=Help F2=OK F4=Prompt F5=Reset Esc=Cancel Esc=Close Yes No OK Cancel Help /read_this ╔═════════════════════════════════════════════════════════════════════════╗ ║ ║ ║ --- WARNING --- ║ ║ ║ ║ Find below the default ini settings. DO NOT MODIFY! ║ ║ This image is used for initialization and for verification when saving. ║ ║ Changing this image IN ANY WAY may very well render this program ║ ║ useless, as well as any ini files created or modified with it. ║ ║ ║ ╚═════════════════════════════════════════════════════════════════════════╝ /default_ini 258=5139 259=4100 260=4103 261=4104 262=5122 263=4120 264=5144 265=4113 266=5137 267=4628 268=4624 269=4116 270=4118 271=4119 272=4101 273=4102 274=4112 275=4625 276=4109 277=4110 278=4099 279=6145 280=4611 281=4114 282=4627 283=4115 284=5140 285=4117 286=5141 287=5142 288=5143 289=4121 290=4107 291=4108 292=6155 293=6156 294=4105 295=4106 296=4098 297=6147 298=6149 299=6150 300=6153 301=6154 302=6151 303=6152 304=5145 305=555 306=2093 307=557 308=6164 310=2140 311=4632 312=6163 2049=1 2 1 2050=0 0 0 2051=0 0 0 2052=112 2 0 2053=0 0 0 2054=0 0 0 2055=0 0 0 2056=0 0 0 2057=0 0 0 2058=0 0 0 2059=0 0 0 2060=0 0 2 2061=0 0 0 2062=1 112 3 2063=0 0 0 2064=0 0 0 2065=0 0 0 2066=0 0 0 2068=112 2 0 2069=0 0 0 2070=0 0 0 2072=0 0 0 2073=0 0 0 2074=0 0 0 2075=112 2 0 2304=0 1 2305=0 2 2306=0 112 2307=0 240 2308=0 9 2309=0 1 2310=0 120 2311=0 1 2304=1 1 2305=1 2 2306=1 112 2307=1 240 2308=1 9 2309=1 1 2310=1 120 2311=1 1 2304=2 112 2305=2 127 2306=2 30 2307=2 31 2308=2 30 2309=2 1 2310=2 9 2311=2 1 2304=3 1 2305=3 2 2306=3 112 2307=3 240 2308=3 9 2309=3 1 2310=3 120 2311=3 1 2304=4 1 2305=4 2 2306=4 112 2307=4 240 2308=4 9 2309=4 1 2310=4 120 2311=4 1 2304=5 1 2305=5 2 2306=5 112 2307=5 240 2308=5 9 2309=5 1 2310=5 120 2311=5 1 2304=6 112 2305=6 127 2306=6 30 2307=6 31 2308=6 30 2309=6 1 2310=6 9 2311=6 1 2304=7 1 2305=7 2 2306=7 112 2307=7 240 2308=7 9 2309=7 1 2310=7 120 2311=7 1 2320=[ ] 2321=[X] 2322=(■) 2323=( ) 2336=0 2337=30 2338=31 2339=177 2340=1 2341=4 2560=1 2 2561=0 2562=0 2563=0 2564=0 2566=$ 2567=95 2568=.\dev\ahdherc.dsp 2569=0 2570=.\dev\ahdbw8.prt 2571=7 2816=0 2816=65537 2816=131074 2816=196611 2816=262148 2816=327685 2816=393222 2816=458759 2816=524296 2816=589833 2816=655370 2816=720907 2816=786444 2816=851981 2816=917518 2816=983055 2816=1048592 2816=1114129 2816=1179666 2816=1245203 2816=1310740 2816=1376277 2816=1441814 2816=1507351 2816=1572888 2816=1638425 2816=1703962 2816=1769499 2816=1835036 2816=1900573 2816=1966110 2816=2031647 2816=2097184 2816=2162721 2816=2228258 2816=2293795 2816=2359332 2816=2424869 2816=2490406 2816=2555943 2816=2621480 2816=2687017 2816=2752554 2816=2818091 2816=2883628 2816=2949165 2816=3014702 2816=3080239 2816=3145776 2816=3211313 2816=3276850 2816=3342387 2816=3407924 2816=3473461 2816=3538998 /default_ini_reset 258=5139 259=4100 260=4103 261=4104 262=5122 263=4120 264=5144 265=4113 266=5137 267=4628 268=4624 269=4116 270=4118 271=4119 272=4101 273=4102 274=4112 275=4625 276=4109 277=4110 278=4099 279=6145 280=4611 281=4114 282=4627 283=4115 284=5140 285=4117 286=5141 287=5142 288=5143 289=4121 290=4107 291=4108 292=6155 293=6156 294=4105 295=4106 296=4098 297=6147 298=6149 299=6150 300=6153 301=6154 302=6151 303=6152 304=5145 305=555 306=2093 307=557 308=6164 310=2140 311=4632 2320=[ ] 2321=[X] 2322=(■) 2323=( ) 2336=0 2337=30 2338=31 2339=177 2340=1 2341=4 2566=$ 2567=95 2568=.\dev\adhherc.dsp 2569=0 2570=.\dev\adhbw8.prt 2571=7 2816=0 2816=65537 2816=131074 2816=196611 2816=262148 2816=327685 2816=393222 2816=458759 2816=524296 2816=589833 2816=655370 2816=720907 2816=786444 2816=851981 2816=917518 2816=983055 2816=1048592 2816=1114129 2816=1179666 2816=1245203 2816=1310740 2816=1376277 2816=1441814 2816=1507351 2816=1572888 2816=1638425 2816=1703962 2816=1769499 2816=1835036 2816=1900573 2816=1966110 2816=2031647 2816=2097184 2816=2162721 2816=2228258 2816=2293795 2816=2359332 2816=2424869 2816=2490406 2816=2555943 2816=2621480 2816=2687017 2816=2752554 2816=2818091 2816=2883628 2816=2949165 2816=3014702 2816=3080239 2816=3145776 2816=3211313 2816=3276850 2816=3342387 2816=3407924 2816=3473461 2816=3538998 /default_ini2 2816=3604535 2816=3670072 2816=3735609 2816=3801146 2816=3866683 2816=3932220 2816=3997757 2816=4063294 2816=4128831 2816=4194368 2816=4259905 2816=4325442 2816=4390979 2816=4456516 2816=4522053 2816=4587590 2816=4653127 2816=4718664 2816=4784201 2816=4849738 2816=4915275 2816=4980812 2816=5046349 2816=5111886 2816=5177423 2816=5242960 2816=5308497 2816=5374034 2816=5439571 2816=5505108 2816=5570645 2816=5636182 2816=5701719 2816=5767256 2816=5832793 2816=5898330 2816=5963867 2816=6029404 2816=6094941 2816=6160478 2816=6226015 2816=6291552 2816=6357057 2816=6422594 2816=6488131 2816=6553668 2816=6619205 2816=6684742 2816=6750279 2816=6815816 2816=6881353 2816=6946890 2816=7012427 2816=7077964 2816=7143501 2816=7209038 2816=7274575 2816=7340112 2816=7405649 2816=7471186 2816=7536723 2816=7602260 2816=7667797 2816=7733334 2816=7798871 2816=7864408 2816=7929945 2816=7995482 2816=8061051 2816=8126588 2816=8192125 2816=8257662 2816=8323199 2816=8388736 2816=8454298 2816=8519824 2816=8585398 2816=8650894 2816=8716471 2816=8781967 2816=8847488 2816=8913106 2816=8978643 2816=9044180 2816=9109720 2816=9175255 2816=9240798 2816=9306254 2816=9371791 2816=9437328 2816=9502866 2816=9568402 2816=9634018 2816=9699481 2816=9765091 2816=9830634 2816=9896171 2816=9961624 2816=10027161 2816=10092698 2816=10158237 2816=10223772 2816=10289309 2816=10354846 2816=10420383 2816=10485941 2816=10551510 2816=10617056 2816=10682601 2816=10748069 2816=10813605 2816=10879142 2816=10944679 2816=11010216 2816=11075753 2816=11141290 2816=11206827 2816=11272364 2816=11337901 2816=11403438 2816=11468975 2816=11534512 2816=11600049 2816=11665586 2816=11731123 2816=11796660 2816=11862197 2816=11927734 2816=11993271 2816=12058808 2816=12124345 2816=12189882 2816=12255419 2816=12320956 2816=12386493 2816=12452030 2816=12517567 2816=12583104 2816=12648641 2816=12714178 2816=12779715 2816=12845252 2816=12910789 2816=12976327 2816=13041863 2816=13107400 2816=13172937 2816=13238474 2816=13304011 2816=13369548 2816=13435085 2816=13500622 2816=13566159 2816=13631697 2816=13697233 2816=13762770 2816=13828307 2816=13893844 2816=13959381 2816=14024918 2816=14090455 2816=14155992 2816=14221529 2816=14287066 2816=14352603 2816=14418140 2816=14483677 2816=14549214 2816=14614751 2816=14680288 2816=14745825 2816=14811362 2816=14876899 2816=14942437 2816=15007973 2816=15073510 2816=15139048 2816=15204584 2816=15270121 2816=15335658 2816=15401195 2816=15466733 2816=15532269 2816=15597806 2816=15663343 2816=15728880 2816=15794417 2816=15859954 2816=15925491 2816=15991028 2816=16056565 2816=16122102 2816=16187639 2816=16253176 2816=16318713 2816=16384250 2816=16449787 2816=16515324 2816=16580861 2816=16646398 /default_ini3 2816=16711935 2817=0 2817=65537 2817=131074 2817=196611 2817=262148 2817=327685 2817=393222 2817=458759 2817=524296 2817=589833 2817=655370 2817=720907 2817=786444 2817=851981 2817=917518 2817=983055 2817=1048592 2817=1114129 2817=1179666 2817=1245203 2817=1310740 2817=1376277 2817=1441814 2817=1507351 2817=1572888 2817=1638425 2817=1703962 2817=1769499 2817=1835036 2817=1900573 2817=1966110 2817=2031647 2817=2097184 2817=2162721 2817=2228258 2817=2293795 2817=2359332 2817=2424869 2817=2490406 2817=2555943 2817=2621480 2817=2687017 2817=2752554 2817=2818091 2817=2883628 2817=2949165 2817=3014702 2817=3080239 2817=3145776 2817=3211313 2817=3276850 2817=3342387 2817=3407924 2817=3473461 2817=3538998 2817=3604535 2817=3670072 2817=3735609 2817=3801146 2817=3866683 2817=3932220 2817=3997757 2817=4063294 2817=4128831 2817=4194368 2817=4259937 2817=4325474 2817=4391011 2817=4456548 2817=4522085 2817=4587622 2817=4653159 2817=4718696 2817=4784233 2817=4849770 2817=4915307 2817=4980844 2817=5046381 2817=5111918 2817=5177455 2817=5242992 2817=5308529 2817=5374066 2817=5439603 2817=5505140 2817=5570677 2817=5636214 2817=5701751 2817=5767288 2817=5832825 2817=5898362 2817=5963867 2817=6029404 2817=6094941 2817=6160478 2817=6226015 2817=6291552 2817=6357089 2817=6422626 2817=6488163 2817=6553700 2817=6619237 2817=6684774 2817=6750311 2817=6815848 2817=6881385 2817=6946922 2817=7012459 2817=7077996 2817=7143533 2817=7209070 2817=7274607 2817=7340144 2817=7405681 2817=7471218 2817=7536755 2817=7602292 2817=7667829 2817=7733366 2817=7798903 2817=7864440 2817=7929977 2817=7995514 2817=8061051 2817=8126588 2817=8192125 2817=8257662 2817=8323199 2817=8388743 2817=8454273 2817=8519810 2817=8585347 2817=8650884 2817=8716421 2817=8781958 2817=8847495 2817=8913032 2817=8978569 2817=9044106 2817=9109643 2817=9175180 2817=9240717 2817=9306244 2817=9371782 2817=9437314 2817=9502865 2817=9568401 2817=9633939 2817=9699476 2817=9765013 2817=9830550 2817=9896087 2817=9961624 2817=10027156 2817=10092673 2817=10158235 2817=10223772 2817=10289307 2817=10354846 2817=10420383 2817=10485920 2817=10551457 2817=10616994 2817=10682531 2817=10748068 2817=10813604 2817=10879142 2817=10944679 2817=11010216 2817=11075753 2817=11141290 2817=11206827 2817=11272364 2817=11337901 2817=11403438 2817=11468975 2817=11534512 2817=11600049 2817=11665586 2817=11731123 2817=11796660 2817=11862176 2817=11927683 2817=11993221 2817=12058808 2817=12124345 2817=12189882 2817=12255419 2817=12320956 2817=12386493 2817=12452030 2817=12517567 2817=12583104 2817=12648641 2817=12714178 2817=12779715 2817=12845252 2817=12910789 2817=12976326 /default_ini4 2817=13041862 2817=13107400 2817=13172937 2817=13238474 2817=13304011 2817=13369548 2817=13435085 2817=13500622 2817=13566159 2817=13631696 2817=13697232 2817=13762696 2817=13828233 2817=13893770 2817=13959381 2817=14024865 2817=14090380 2817=14155915 2817=14221529 2817=14287066 2817=14352603 2817=14418140 2817=14483677 2817=14549133 2817=14614751 2817=14680226 2817=14745825 2817=14811283 2817=14876821 2817=14942436 2817=15007972 2817=15073510 2817=15139047 2817=15204583 2817=15270051 2817=15335574 2817=15401111 2817=15466732 2817=15532268 2817=15597806 2817=15663343 2817=15728880 2817=15794417 2817=15859954 2817=15925491 2817=15991028 2817=16056565 2817=16122102 2817=16187639 2817=16253176 2817=16318713 2817=16384250 2817=16449787 2817=16515324 2817=16580861 2817=16646398 2817=16711935 2818=0 2818=65536 2818=131072 2818=196608 2818=262144 2818=327680 2818=393216 2818=458752 2818=524288 2818=589856 2818=655392 2818=720928 2818=786464 2818=852000 2818=917504 2818=983040 2818=1048576 2818=1114112 2818=1179648 2818=1245184 2818=1310720 2818=1376256 2818=1441792 2818=1507328 2818=1572864 2818=1638400 2818=1703936 2818=1769472 2818=1835008 2818=1900544 2818=1966080 2818=2031616 2818=2097185 2818=2163473 2818=2228241 2818=2294545 2818=2360081 2818=2424849 2818=2490385 2818=2555921 2818=2621457 2818=2686993 2818=2752529 2818=2818065 2818=2883601 2818=2949137 2818=3014929 2818=3080209 2818=3146629 2818=3212165 2818=3277701 2818=3343237 2818=3408773 2818=3474309 2818=3539845 2818=3605381 2818=3670917 2818=3736453 2818=3801105 2818=3866641 2818=3932177 2818=3997713 2818=4063249 2818=4129553 2818=4195089 2818=4261827 2818=4327363 2818=4392899 2818=4458435 2818=4523971 2818=4589507 2818=4654915 2818=4720451 2818=4785987 2818=4851523 2818=4917059 2818=4982595 2818=5048131 2818=5113667 2818=5179203 2818=5244739 2818=5310275 2818=5375811 2818=5441347 2818=5506883 2818=5572419 2818=5637955 2818=5703491 2818=5769027 2818=5834563 2818=5900099 2818=5963793 2818=6029329 2818=6094865 2818=6160401 2818=6226705 2818=6291473 2818=6358923 2818=6424459 2818=6489995 2818=6555531 2818=6621067 2818=6686603 2818=6752011 2818=6817547 2818=6883083 2818=6948619 2818=7014155 2818=7079691 2818=7145227 2818=7210763 2818=7276299 2818=7341835 2818=7407371 2818=7472907 2818=7538443 2818=7603979 2818=7669515 2818=7735051 2818=7800587 2818=7866123 2818=7931659 2818=7997195 2818=8060945 2818=8126481 2818=8192017 2818=8257553 2818=8323072 2818=8390467 2818=8455947 2818=8521483 2818=8587019 2818=8652555 2818=8718091 2818=8783627 2818=8849163 2818=8914699 2818=8980235 2818=9045771 2818=9111307 2818=9176843 2818=9242379 2818=9307971 /default_ini5 2818=9373507 2818=9439043 2818=9504523 2818=9570115 2818=9635595 2818=9701131 2818=9766667 2818=9832203 2818=9897739 2818=9963275 2818=10028867 2818=10094403 2818=10159883 2818=10223617 2818=10291011 2818=10354689 2818=10420225 2818=10487563 2818=10553099 2818=10618635 2818=10684171 2818=10749707 2818=10815299 2818=10878977 2818=10944513 2818=11010049 2818=11075585 2818=11141121 2818=11206657 2818=11272193 2818=11337729 2818=11403265 2818=11468801 2818=11534337 2818=11599873 2818=11665409 2818=11730945 2818=11796481 2818=11863875 2818=11929411 2818=11994947 2818=12058625 2818=12124161 2818=12189697 2818=12255233 2818=12320769 2818=12386305 2818=12451841 2818=12517377 2818=12582913 2818=12648449 2818=12713985 2818=12779521 2818=12845057 2818=12910593 2818=12977993 2818=13043523 2818=13107201 2818=13172737 2818=13238273 2818=13303809 2818=13369345 2818=13434881 2818=13500417 2818=13565953 2818=13633291 2818=13698883 2818=13764419 2818=13829955 2818=13895491 2818=13960971 2818=14026563 2818=14092099 2818=14157635 2818=14221313 2818=14286849 2818=14352385 2818=14417921 2818=14483457 2818=14550851 2818=14614529 2818=14681923 2818=14745601 2818=14812995 2818=14878531 2818=14944011 2818=15009603 2818=15073281 2818=15140619 2818=15206211 2818=15271747 2818=15337283 2818=15402819 2818=15468299 2818=15533891 2818=15597569 2818=15663105 2818=15728641 2818=15794177 2818=15859713 2818=15925249 2818=15990785 2818=16056321 2818=16121857 2818=16187393 2818=16252929 2818=16318465 2818=16384001 2818=16449537 2818=16515073 2818=16580609 2818=16646145 2818=16711680 2819=0 2819=67649 2819=133186 2819=198723 2819=264260 2819=329797 2819=395334 2819=460871 2819=528387 2819=593922 2819=661505 2819=723019 2819=788556 2819=856065 2819=919630 2819=985167 2819=1050704 2819=1116241 2819=1181778 2819=1247315 2819=1312852 2819=1378389 2819=1443926 2819=1509463 2819=1575000 2819=1640537 2819=1706074 2819=1773572 2819=1837148 2819=1902685 2819=1968222 2819=2033709 2819=2097184 2819=2162721 2819=2228258 2819=2293795 2819=2359332 2819=2424869 2819=2490406 2819=2555943 2819=2621480 2819=2687017 2819=2752554 2819=2818091 2819=2883628 2819=2949165 2819=3014702 2819=3080239 2819=3145776 2819=3211313 2819=3276850 2819=3342387 2819=3407924 2819=3473461 2819=3538998 2819=3604535 2819=3670072 2819=3735609 2819=3801146 2819=3866683 2819=3932220 2819=3997757 2819=4063294 2819=4128831 2819=4194368 2819=4259905 2819=4325442 2819=4390979 2819=4456516 2819=4522053 2819=4587590 2819=4653127 2819=4718664 2819=4784201 2819=4849738 2819=4915275 2819=4980812 2819=5046349 2819=5111886 2819=5177423 2819=5242960 2819=5308497 2819=5374034 2819=5439571 2819=5505108 2819=5570645 2819=5636182 /default_ini6 2819=5701719 2819=5767256 2819=5832793 2819=5898330 2819=5963867 2819=6029404 2819=6094941 2819=6160478 2819=6226015 2819=6291552 2819=6357089 2819=6422626 2819=6488163 2819=6553700 2819=6619237 2819=6684774 2819=6750311 2819=6815848 2819=6881385 2819=6946922 2819=7012459 2819=7077996 2819=7143533 2819=7209070 2819=7274607 2819=7340144 2819=7405681 2819=7471218 2819=7536755 2819=7602292 2819=7667829 2819=7733366 2819=7798903 2819=7864440 2819=7929977 2819=7995514 2819=8061051 2819=8126588 2819=8192125 2819=8257662 2819=8329219 2819=8388736 2819=8454273 2819=8519810 2819=8585347 2819=8650884 2819=8716421 2819=8781958 2819=8847495 2819=8913032 2819=8978569 2819=9044106 2819=9109643 2819=9175180 2819=9240717 2819=9306254 2819=9371791 2819=9437328 2819=9502865 2819=9568402 2819=9633939 2819=9699476 2819=9765013 2819=9830550 2819=9896087 2819=9961624 2819=10027161 2819=10092698 2819=10158235 2819=10223772 2819=10289309 2819=10354846 2819=10420383 2819=10485920 2819=10551457 2819=10616994 2819=10682531 2819=10748068 2819=10813605 2819=10879142 2819=10944679 2819=11010216 2819=11075753 2819=11141290 2819=11206827 2819=11272364 2819=11337901 2819=11403438 2819=11468975 2819=11534512 2819=11600049 2819=11665586 2819=11731123 2819=11796660 2819=11862197 2819=11927734 2819=11993271 2819=12058808 2819=12124345 2819=12189882 2819=12255419 2819=12320956 2819=12386493 2819=12452030 2819=12517567 2819=12583104 2819=12648641 2819=12714178 2819=12779715 2819=12845252 2819=12910789 2819=12976326 2819=13041863 2819=13107400 2819=13172937 2819=13238474 2819=13304011 2819=13369548 2819=13435085 2819=13500622 2819=13566159 2819=13631696 2819=13697233 2819=13762770 2819=13828307 2819=13893844 2819=13959381 2819=14024918 2819=14090455 2819=14155992 2819=14221529 2819=14287066 2819=14352603 2819=14418140 2819=14483677 2819=14549214 2819=14614751 2819=14680288 2819=14745825 2819=14811362 2819=14876899 2819=14942436 2819=15007973 2819=15073510 2819=15139047 2819=15204584 2819=15270121 2819=15335658 2819=15401195 2819=15466732 2819=15532269 2819=15597806 2819=15663343 2819=15728880 2819=15794417 2819=15859954 2819=15925491 2819=15991028 2819=16056565 2819=16122102 2819=16187639 2819=16253176 2819=16318713 2819=16384250 2819=16449787 2819=16515324 2819=16580861 2819=16646398 2819=16711935 /default_ini7 3328=47 3329=PLEASE PRESS ANY KEY TO CONTINUE 3330=55 3331=0 3332=No error text: Can't open 3333=No error text available 3334=Error number out of range 3335=lp -d %s -s 3336=lp -s 3584=Error on 3585=A=Abort 3586=R=Retry 3587=F=Fail 3588=drive 3589=device 3590=1 3591=0 3592=3 3593=10 3594=A 3595=R 3596=F 3597=7 3614=Write-protect error 3615=Unknown unit 3616=Not ready 3617=Unknown command 3618=Data error (bad CRC) 3619=Bad request 3620=Seek error 3621=Unknown media type 3622=Sector not found 3623=Printer out of paper 3624=Write fault 3625=Read fault 3626=General failure 3627=Sharing violation 3628=Lock violation 3629=Invalid disk change 3630=FCB unavailable 3631=Sharing buffer error 3632=Code page error 3633=Out of input 3634=Out of disk space /* // dfini.cfg constants name 1 accelerator_group name 8 ui_color_group name 9 ui_info_group name 7 sel_cursor_end name 16 not_checked name 17 checked name 18 radio_on name 19 radio_off name 32 scbar_ofs name 33 scbar_up name 34 scbar_down name 35 scbar_bar name 36 hor_scrl name 37 dbl_click name 10 termlist_group name 0 desktop_col name 1 auto_ret name 2 date_form name 3 num_form name 4 pwr_fail name 5 alloc name 6 crncy name 7 wfill name 8 gr_adapter name 9 gr_mode name 10 gr_printer name 11 exit_col name 11 keymap_group name 0 upcase_feature name 1 locase_feature name 2 attrib_feature name 3 remap_feature name 13 misc_group name 0 date_sep name 1 any_key_msg name 2 page_end name 3 page_feed name 4 default_error_cant_open name 5 default_error_no_text name 6 default_error_out_of_range name 7 default_spool_dfprinter_cfg_str name 8 default_spool_nodfprinter_cfg_str name 14 critical_error_group name 0 criterr_header_msg name 1 criterr_abort_msg name 2 criterr_retry_msg name 3 criterr_fail_msg name 4 criterr_drive name 5 criterr_device name 6 criterr_dflt1 name 7 criterr_retry name 8 criterr_dflt2 name 9 criterr_timeout_secs name 10 criterr_abort_chars name 11 criterr_retry_chars name 12 criterr_fail_chars name 13 criterr_user_mask name 30 criterr_first_diagnostic name 50 criterr_last_diagnostic // key constants name 512 alt_key name 1024 shift_key name 2048 ctrl_key name 4096 function_key name 1 enter_key name 2 tab_key name 3 back_space_key name 4 escape_key name 5 up_arrow_key name 6 down_arrow_key name 7 left_arrow_key name 8 right_arrow_key name 9 home_key name 10 end_key name 11 pgup_key name 12 pgdn_key name 13 insert_key name 14 delete_key name 16 f1_key name 17 f2_key name 18 f3_key name 19 f4_key name 20 f5_key name 21 f6_key name 22 f7_key name 23 f8_key name 24 f9_key name 25 f10_key name 26 f11_key name 27 f12_key name 53 mouse_key // miscellaneous stuff name 16 right_arrow name 17 left_arrow name 177 track name 178 inactive_thumb name 219 active_thumb string inifile aline token symbol print_device space 1 hexchars 16 integer hidecol pointcol apos feature_group feature tmp1 tmp2 tmp3 get class_colors of desktop u_vconsole to tmp1 if (hi(tmp1)) eq 0 get object_color of desktop to tmp1 move (hi(tmp1)) to hidecol get class_palette of desktop u_vconsole to tmp1 get palette_color of desktop (tmp1 max 1) 2 to pointcol move "0123456789ABCDEF" to hexchars integer old_size get_argument_size to old_size set_argument_size 1024 indicator changes_made string color_trackbar 17 click_trackbar 10 character track to color_trackbar character track to click_trackbar append color_trackbar color_trackbar color_trackbar append color_trackbar color_trackbar color_trackbar pad color_trackbar to color_trackbar 15 left color_trackbar to click_trackbar 8 insert (character(left_arrow)) in color_trackbar at 1 insert (character(left_arrow)) in click_trackbar at 1 append color_trackbar (character(right_arrow)) append click_trackbar (character(right_arrow)) integer old_char crnt_char string crnt_hex 2 crnt_map 4 crnt_seq upcase 2 locase 2 integer islower isupper integer isalpha integer isprint ispunct isspace integer issymbol isname isfirst integer crnt_diag #COMMAND DEFINE RT RUGL#VFW . NAME (!2) !1 #ENDCOMMAND #COMMAND IMAGE_INPUT RT . #CHECK !1.N _UVFW#GL #PUSH !g #SET G$ !1.N DIRECT_INPUT "IMAGE:!g" #POP G$ #ENDCOMMAND #COMMAND RESET_INI //SET_TERMLIST 0 #PUSH !g #SET G$ DEFAULT_INI_RESET.N READ_DFINI "IMAGE:!g" #SET G$ DEFAULT_INI2.N READ_DFINI "IMAGE:!g" #SET G$ DEFAULT_INI3.N READ_DFINI "IMAGE:!g" #SET G$ DEFAULT_INI4.N READ_DFINI "IMAGE:!g" #SET G$ DEFAULT_INI5.N READ_DFINI "IMAGE:!g" #SET G$ DEFAULT_INI6.N READ_DFINI "IMAGE:!g" #SET G$ DEFAULT_INI7.N READ_DFINI "IMAGE:!g" #POP G$ READ_DFINI !1 #ENDCOMMAND #COMMAND AUTOCLEAR_ITEM on_item !1 !2 !3 !4 !5 !6 !7 !8 !9 set autoclear_state to true #ENDCOMMAND #COMMAND CHECKBOX_ITEM entry_item !1 !2 !3 !4 !5 !6 !7 !8 !9 set checkbox_item_state to true #ENDCOMMAND class image_array is an array procedure construct_object integer img forward send construct_object img property integer our_image public 0 property integer open_image_state public 0 property integer total_width public 0 property integer total_lines public 0 end_procedure procedure set value integer item# end_procedure procedure open_image local string total_string move "IMAGE:" to total_string append total_string (our_image(current_object)) direct_input total_String [seqeof] set open_image_state to 0 [not seqeof] set open_image_state to 1 end_procedure function value integer item# returns string local string tempval move "" to tempval send open_image if (open_image_state(current_object)) ne 1 function_Return set_channel_position 0 to ( total_width(current_object) * item#) readln tempval function_Return tempval end_function end_class object unused_ini is an array procedure add_one string val set value of current_object item (item_count(current_object)) to val end_procedure end_object object screencolors is an array function fg_value integer item# returns integer local integer val get integer_value item (item# * 4) to val function_return val end_function function bg_value integer item# returns integer local integer val get integer_value item (item# * 4 + 1) to val function_return val end_function function pal_value integer item# returns integer local integer val get integer_value item (item# * 4 + 2) to val function_return val end_function function name_value integer item# returns string local string val get string_value item (item# * 4 + 3) to val function_return val end_function procedure set fg_value integer item# integer val set array_value item (item# * 4) to val end_procedure procedure set bg_value integer item# integer val set array_value item (item# * 4 + 1) to val end_procedure procedure set pal_value integer item# integer val set array_value item (item# * 4 + 2) to val end_procedure procedure set name_value integer item# string val set array_value item (item# * 4 + 3) to val end_procedure procedure init_element integer class# readln token set name_value item class# to token end_procedure end_object object palette_names is an image_array set our_image to palettenames.N set total_width to 27 set total_lines to palettenames.lines function find_index string this_one returns integer local integer index local string palette_name for index from 0 to 8 until this_one eq (value(current_object,index)) function_return index end_function end_object object palette_colors is an array procedure init_element integer palette# integer c1 integer c2 integer c3 ; integer c4 integer c5 integer c6 integer c7 integer c8 set array_value item (palette# * 8 + 0) to c1 set array_value item (palette# * 8 + 1) to c2 set array_value item (palette# * 8 + 2) to c3 set array_value item (palette# * 8 + 3) to c4 set array_value item (palette# * 8 + 4) to c5 set array_value item (palette# * 8 + 5) to c6 set array_value item (palette# * 8 + 6) to c7 set array_value item (palette# * 8 + 7) to c8 end_procedure end_object object cua_keys is an array function key_value integer item# returns integer local integer val get array_value item (item# * 2) to val function_return val end_function function name_value integer item# returns string local string val get array_value item (item# * 2 + 1) to val function_return val end_function procedure set key_value integer item# integer val set array_value item (item# * 2) to val end_function procedure set name_value integer item# string val set array_value item (item# * 2 + 1) to val end_function procedure init_element integer key# set key_value item (key# - 256) to (key_physical(key#)) readln token set name_value item (key# - 256) to token end_procedure end_object object physical_keys is an array procedure init_element integer key# readln token set array_value item key# to token end_procedure end_object object key_map is an array function upcase_value integer item# returns integer local integer val get integer_value item (item# * 4) to val function_return val end_function function locase_value integer item# returns integer local integer val get integer_value item (item# * 4 + 1) to val function_return val end_function function attrib_value integer item# returns integer local integer val get integer_value item (item# * 4 + 2) to val function_return val end_function function remap_value integer item# returns integer local integer val get integer_value item (item# * 4 + 3) to val function_return val end_function procedure set upcase_value integer item# integer val set array_value item (item# * 4) to (val iand $FF) end_procedure procedure set locase_value integer item# integer val set array_value item (item# * 4 + 1) to (val iand $FF) end_procedure procedure set attrib_value integer item# integer val set array_value item (item# * 4 + 2) (val iand $FFFF) end_procedure procedure set remap_value integer item# integer val set array_value item (item# * 4 + 3) to (val iand $FFFF) end_procedure end_object object crit_error_diagnostics is an array procedure init_element integer key# string msg set array_value item key# to msg end_procedure end_object object crit_error_originals is an array procedure init_element integer key# string msg set array_value item key# to msg end_procedure end_object integer auto_return_option integer date_format_option integer numeric_format_option integer scroll_increments_option integer scrollbar_offset_option integer double_click_speed integer power_fail_option integer graphics_mode integer scrollbar_up integer scrollbar_bar integer scrollbar_down integer window_fill_char fill_char integer date_separator integer formfeed_option integer pagefeed_option integer pageend_option integer exit_color_value integer canrespond canabort canretry canfail integer criterr_timeout criterr_default1 integer criterr_retries criterr_default2 define CRITERR_ABORT_FLAG 2 define CRITERR_RETRY_FLAG 1 define CRITERR_FAIL_FLAG 3 string press_any_key_string 40 string check_string_select 4 string check_string_deselect 4 string radio_string_select 4 string radio_string_deselect 4 string currency_string 20 string graphics_path 64 string graphics_driver 12 string graphics_template 12 string printer_path 64 string printer_driver 12 string printer_template 12 string phrase_1 10 phrase_2 10 phrase_3 10 string option_1 10 option_2 10 option_3 10 string reply_1 2 reply_2 2 reply_3 2 string error_cant_open 28 error_no_text 40 error_out_of_range 40 string progname dflt_ini 12 separator 1 equals 1 ellipsis 3 helpkey 7 okkey 5 string promptkey 9 resetkey 8 cancelkey 10 closekey 9 yes 3 no 2 okmsg 2 string cancelmsg 6 helpmsg 4 string spooler_dfprinter_string 50 spooler_nodfprinter_string 50 image_input classnames for windowindex from u_desktop to u_help send init_element to screencolors windowindex loop for windowindex from u_trace to u_entrylist send init_element to screencolors windowindex loop for windowindex from u_radio to u_clipboard send init_element to screencolors windowindex loop //image_input palettenames //for windowindex from 0 to 8 // send init_element to palette_names windowindex //loop image_input key_descriptions for windowindex from kenter to kclear_all send init_element to cua_keys windowindex loop for windowindex from kmark to kclose_panel send init_element to cua_keys windowindex loop image_input keycaps for windowindex from enter_key to delete_key send init_element to physical_keys windowindex loop for windowindex from f1_key to f12_key send init_element to physical_keys windowindex loop image_input misc_defaults readln graphics_template readln printer_template readln progname readln dflt_ini readln equals readln ellipsis readln helpkey readln okkey readln promptkey readln resetkey readln cancelkey readln closekey readln yes readln no readln okmsg readln cancelmsg readln helpmsg close_input // // Use the sysconf function to get the directory separator character for the // current OS // move ( sysconf( SYSCONF_DIR_SEPARATOR ) ) to separator indicate changes_made false function map_sequence integer akey integer upflag returns string local string sequence keycap local integer basekey if akey begin move "" to sequence move (akey iand $FF) to basekey if (akey iand ctrl_key) eq ctrl_key append sequence "Ctrl+" if (akey iand shift_key) eq shift_key append sequence "Shift+" if (akey iand alt_key) eq alt_key append sequence "Alt+" if (akey iand function_key) eq function_key ; get string_value of physical_keys basekey to keycap else begin if (basekey < $20) move (basekey ior $40) to basekey character basekey to keycap if keycap eq ' ' move "Space" to keycap else if keycap eq '+' move "Plus" to keycap else if keycap eq '-' move "Minus" to keycap else if upflag uppercase keycap end append sequence keycap end else move "Undefined" to sequence function_return sequence end_function function dec2hex integer dec returns string local string hex move "" to hex repeat insert (mid(hexchars,1,((dec iand $0F) + 1))) in hex at 1 move (dec / $10) to dec until dec eq 0 function_return hex end_function function hex2dec string hex returns integer function_return ('$' + trim(hex)) end_function function bit_twiddle integer bitmap integer bit# integer flag returns integer if flag move (bitmap ior bit#) to bitmap else move (bitmap iand ($FFFF - bit#)) to bitmap function_return bitmap end_function function fix_slashes string path returns string local string badness move "\/" to badness mid badness to badness 1 (3 - pos(separator,badness)) repeat replace badness in path with separator [found] loop function_return path end_function function make_ini_path string path returns string get fix_slashes path to path if (right(trim(path),1)) ne separator append path separator append path dflt_ini function_return path end_function procedure read_ini repeat readln aline [seqeof] begin increment cimage_number if cimage_number lt 8 begin close_input if cimage_number eq 2 image_input default_ini2 if cimage_number eq 3 image_input default_ini3 if cimage_number eq 4 image_input default_ini4 if cimage_number eq 5 image_input default_ini5 if cimage_number eq 6 image_input default_ini6 if cimage_number eq 7 image_input default_ini7 readln aline end end [not seqeof] begin trim aline to aline if ((aline > "") and (left(aline,1) <> '/')) begin pos equals in aline to apos left aline to token (apos-1) right aline to symbol (length(aline)-apos) move token to feature move (feature / 256) to feature_group move (feature iand $FF) to feature if feature_group eq accelerator_group set key_value ; of cua_keys item feature to (integer(symbol)) else if feature_group eq ui_color_group begin pos space in symbol to apos move (integer(left(symbol,(apos - 1)))) to tmp1 right symbol to symbol (length(symbol) - apos) pos space in symbol to apos move (integer(left(symbol,(apos - 1)))) to tmp2 move (integer(right(symbol,(length(symbol) - apos)))) ; to tmp3 set fg_value of screencolors item feature to tmp1 set bg_value of screencolors item feature to tmp2 set pal_value of screencolors item feature to tmp3 end else if feature_group eq ui_info_group begin if feature le sel_cursor_end begin pos space in symbol to apos move (integer(left(symbol,(apos - 1))) + 1) to tmp1 move (integer(right(symbol,(length(symbol) - apos)))) ; to tmp2 set array_value of palette_colors ; item (tmp1 * 8 + feature) to tmp2 end else if feature eq not_checked begin if (right(symbol,1)) ne space append symbol space move symbol to check_string_deselect end else if feature eq checked begin if (right(symbol,1)) ne space append symbol space move symbol to check_string_select end else if feature eq radio_on begin if (right(symbol,1)) ne space append symbol space move symbol to radio_string_select end else if feature eq radio_off begin if (right(symbol,1)) ne space append symbol space move symbol to radio_string_deselect end else if feature eq scbar_ofs move symbol ; to scrollbar_offset_option else if feature eq scbar_up move symbol to scrollbar_up else if feature eq scbar_down move symbol ; to scrollbar_down else if feature eq scbar_bar move symbol ; to scrollbar_bar else if feature eq hor_scrl move symbol ; to scroll_increments_option else if feature eq dbl_click move symbol ; to double_click_speed else send add_one to unused_ini aline end else if feature_group eq termlist_group begin if feature eq 0 begin pos space in symbol to apos set fg_value of screencolors item u_desktop to ; (integer(left(symbol,(apos - 1)))) set bg_value of screencolors item u_desktop to ; (integer(right(symbol,(length(symbol) - apos)))) end else if feature eq auto_ret move symbol ; to auto_return_option else if feature eq date_form move symbol ; to date_format_option else if feature eq num_form move symbol ; to numeric_format_option else if feature eq pwr_fail move symbol ; to power_fail_option else if feature eq crncy move symbol to currency_string else if feature eq wfill begin move symbol to window_fill_char move window_fill_char to fill_char end else if feature eq gr_adapter begin length symbol to apos get fix_slashes symbol to symbol repeat indicate found as (mid(symbol,1,apos)) eq separator [finderr] decrement apos [finderr] until apos eq 0 left symbol to graphics_path (apos - 1) right symbol to graphics_driver ; (length(symbol) - apos) end else if feature eq gr_mode move symbol to graphics_mode else if feature eq gr_printer begin length symbol to apos get fix_slashes symbol to symbol repeat indicate found as (mid(symbol,1,apos)) eq separator [finderr] decrement apos [finderr] until apos eq 0 left symbol to printer_path (apos - 1) right symbol to printer_driver (length(symbol) - apos) end else if feature eq exit_col move symbol to exit_color_value else send add_one to unused_ini aline end else if feature_group eq keymap_group begin move symbol to tmp1 move (tmp1 iand if((feature <= 1),$FF,$FFFF)) to tmp2 move (tmp1 / 65536) to tmp1 set array_value of key_map item (tmp1 * 4 + feature) ; to tmp2 end else if feature_group eq misc_group begin if feature eq date_sep move symbol to date_separator else if feature eq any_key_msg ; trim symbol to press_any_key_string else if feature eq page_end ; move symbol to pageend_option else if feature eq page_feed ; move symbol to pagefeed_option else if feature eq default_error_cant_open ; trim symbol to error_cant_open else if feature eq default_error_no_text ; trim symbol to error_no_text else if feature eq default_error_out_of_range ; trim symbol to error_out_of_range else if feature eq default_spool_dfprinter_cfg_str ; trim symbol to spooler_dfprinter_string else if feature eq default_spool_nodfprinter_cfg_str ; trim symbol to spooler_nodfprinter_string else send add_one to unused_ini aline end else if feature_group eq critical_error_group begin if feature eq criterr_header_msg ; trim symbol to phrase_1 else if feature eq criterr_abort_msg ; trim symbol to option_1 else if feature eq criterr_retry_msg ; trim symbol to option_2 else if feature eq criterr_fail_msg ; trim symbol to option_3 else if feature eq criterr_drive ; trim symbol to phrase_2 else if feature eq criterr_device ; trim symbol to phrase_3 else if feature eq criterr_abort_chars ; move symbol to reply_1 else if feature eq criterr_retry_chars ; move symbol to reply_2 else if feature eq criterr_fail_chars ; move symbol to reply_3 else if feature eq criterr_dflt1 ; move symbol to criterr_default1 else if feature eq criterr_retry ; move symbol to criterr_retries else if feature eq criterr_dflt2 ; move symbol to criterr_default2 else if feature eq criterr_timeout_secs begin move (abs(symbol)) to criterr_timeout move (symbol > 0) to canrespond end else if feature eq criterr_user_mask begin move symbol to tmp1 // to get an int move ((tmp1 iand $04) / $04) to canretry move ((tmp1 iand $02) / $02) to canabort move ((tmp1 iand $01) / $01) to canfail end else send init_element to crit_error_originals ; (feature - criterr_first_diagnostic) symbol end else send add_one to unused_ini aline end end [not seqeof] loop end_procedure procedure reset_defaults integer use_inifile local integer index send working "Reading defaults" move 1 to cimage_number image_input default_ini send read_ini close_input for index from criterr_first_diagnostic to criterr_last_diagnostic get string_value of crit_error_originals ; item (index - criterr_first_diagnostic) to token set array_value of crit_error_diagnostics ; item (index - criterr_first_diagnostic) to token loop send working "Reading ini file" get_environment "DFPRINTER" to print_device if print_device eq "" move "LST:" to print_device indicate err false if use_inifile begin get fix_slashes inifile to inifile if inifile eq "" procedure_return direct_input inifile end else begin get_environment "DFINI" to inifile if inifile gt "" begin get fix_slashes inifile to inifile direct_input inifile end else begin get_environment "HOME" to inifile indicate seqeof as inifile eq "" [not seqeof] begin get make_ini_path inifile to inifile direct_input inifile end [seqeof] begin direct_input dflt_ini // uses dfpath [not seqeof] move dflt_ini to inifile end [seqeof] begin get_current_directory to inifile get make_ini_path inifile to inifile direct_input inifile end end end indicate err as [seqeof] [not err] send read_ini close_input if pagefeed_option eq -1 begin move 0 to formfeed_option move 66 to pagefeed_option end else if pagefeed_option eq 0 begin move 1 to formfeed_option move 66 to pagefeed_option end else move 2 to formfeed_option move (pagefeed_option max pageend_option) to pagefeed_option end_procedure register_function ascii_map_on integer oldascii returns integer class object_title is a title procedure construct_object integer image string title_text forward send construct_object image set center_state item 0 to true set value item 0 to title_text end_procedure end_class class option_button is a button procedure construct_object integer image forward send construct_object image set focus_mode to pointer_only item_list on_item okkey send request_set_values on_item resetkey send request_reset_values on_item cancelkey send object_set_off on_item helpkey send extended_help end_item_list end_procedure end_class class prompt_option_button is a button procedure construct_object integer image forward send construct_object image set focus_mode to pointer_only item_list on_item okkey send request_set_values on_item promptkey send prompt_for_value on_item resetkey send request_reset_values on_item cancelkey send object_set_off on_item helpkey send extended_help end_item_list end_procedure procedure shadow_prompt integer state set shadow_state item 1 to state end_procedure end_class class popup_client is a client procedure construct_object integer image forward send construct_object image property integer already_created public 0 set popup_state to true set block_mouse_state to true set location to 1 17 relative on_key key_f2 send request_set_values on_key key_f5 send request_reset_values on_key key_escape send object_set_off end_procedure procedure object_set_on send request_reset_values send popup end_procedure procedure object_set_off send deactivate send show_status to main_object end_procedure procedure request_set_values broadcast send set_values send object_set_off end_procedure procedure request_reset_values broadcast send reset_values end_procedure end_class class character_popup_client is a popup_client procedure construct_object integer image forward send construct_object image on_key key_f4 send prompt_for_value end_procedure procedure prompt_for_value local integer oldascii newascii broadcast get ascii_val current to oldascii get ascii_map_on oldascii to newascii broadcast send ascii_set oldascii newascii end_procedure end_class class key_form is a form procedure construct_object integer image forward send construct_object image item_list on_item "" send none set entry_state to false end_item_list object reassign_key is a warning_msg set location to 3 12 relative set popup_state to true set ring_state to true set client_area_state to true set center_state item 0 to true object reassign is a button on_key key_escape send cancel item_list on_item yes send ok on_item no send cancel end_item_list end_object end_object object invalid_key is a warning_msg set location to 5 13 relative set popup_state to true set ring_state to true set client_area_state to true object invalid_key_button is a button item_list on_item okmsg send ok end_item_list end_object end_object end_procedure function check_assignment integer newkey returns integer local string prompt local integer item# index assignment delegate get offset to index for item# from kenter to kclear_all indicate good as ; (newkey <> (key_value(cua_keys.obj, (item# - 256))) or ; (((item# - 256) * 2) = index)) [good] loop [good] for item# from kmark to kclose_panel indicate good as ; (newkey <> (key_value(cua_keys.obj, (item# - 256))) or ; (((item# - 256) * 2) = index)) [good] loop [good] move msg_ok to assignment [not good] begin set value of (reassign_key(current_object)) item 0 ; to (name_value(cua_keys.obj,(item# - 256))) set current_item of (reassign(reassign_key(current_object))) to 1 ui_accept (reassign_key(current_object)) to assignment if assignment eq msg_ok ; delegate set dup_key to ((item# - 256) * 2) end function_return assignment end_function procedure supply_key integer cursor_pos returns integer local string trash local integer oldkey newkey index retval delegate get offset to index get array_value of cua_keys item index to oldkey send shadow true repeat repeat repeat move -1 to termchar set kbd_input_mode to true inkey trash set kbd_input_mode to false until flexkey ne mouse_key if termchar eq -1 ; ui_accept (invalid_key(current_object)) to retval until termchar ne -1 [key.return] move oldkey to termchar set highlight_state to false move (key_physical(termchar)) to newkey send display_value (map_sequence(desktop,newkey,1)) move msg_ok to retval if newkey ne oldkey begin get (check_assignment(current_object,newkey)) to retval if retval eq msg_cancel begin send display_value (map_sequence(desktop,oldkey,1)) set highlight_state to true end else begin delegate set phys_key to newkey set changed_state to true end end else delegate set phys_key to oldkey until retval eq msg_ok send shadow false procedure_return knext_item end_procedure procedure display_value string text set value item 0 to text set changed_state to false end_procedure end_class class key_client is a client procedure construct_object integer image integer title_image ; integer form_image integer button_image forward send construct_object image property integer offset public 0 property integer phys_key public 0 property integer dup_key public 0 set popup_state to true set block_mouse_state to true set local_rotate_state to true on_key key_escape send object_set_off object title is a title title_image set center_state item 0 to true end_object object form is a key_form form_image end_object object button is a button button_image set wrap_state to true on_key key_tab send next on_key key_shift+key_tab send previous item_list on_item okmsg send set_values on_item "Reset" send reset_and_return on_item cancelmsg send object_set_off on_item helpmsg send extended_help end_item_list end_object end_procedure procedure shadow integer state set shadow_state of (button(current_object)) item 0 to state set shadow_state of (button(current_object)) item 1 to state set shadow_state of (button(current_object)) item 2 to state set shadow_state of (button(current_object)) item 3 to state end_procedure procedure set_values local integer index akey state get changed_state of (form(current_object)) to state [not changes_made] indicate changes_made as state get offset to index get phys_key to akey set array_value of cua_keys item index to akey get dup_key to akey if akey set array_value of cua_keys item akey to 0 send object_set_off end_procedure procedure reset_values send display_value to (form(current_object)) ; (map_sequence(desktop,; integer_value(cua_keys.obj,offset(current_object)),1)) set dup_key to 0 end_procedure procedure reset_and_return send reset_values send activate to (form(current_object)) end_procedure procedure object_set_on integer akey set offset to ((akey - 256) * 2) set phys_key to (key_value(cua_keys.obj,(akey - 256))) set value of (title(current_object)) item 0 to ; (name_value(cua_keys.obj,(akey - 256)) + " Key Combination") send reset_values set kbd_input_mode to false send popup end_procedure procedure object_set_off set kbd_input_mode to true send deactivate send show_status to main_object end_procedure end_class register_function add_path string path string newdir returns string register_function template_spec returns string class sellist is a list procedure construct_object integer img forward send construct_object img set select_mode to auto_select set search_mode to incremental set wrap_state to false set entry_msg to initialize end_procedure procedure initialize local integer dynupdt count get item_count to count if count lt 1 begin get dynamic_update_state to dynupdt set dynamic_update_state to false send fill_list set dynamic_update_state to dynupdt end end_procedure procedure fill_list send delete_data end_procedure procedure process_selections local integer item# local integer mx state get item_count to mx move (mx - 1) to mx for item# from 0 to mx if (item_count(current_object)) gt item# begin get select_state item item# to state if state begin send process_selection item# if (item_count(current_object)) gt item# ; set select_state item item# to false end end loop end_procedure function check_selections returns integer local integer count get select_count to count function_return (integer(count > 0)) end_function procedure select_and_rotate set select_state to true send next end_procedure end_class class driver_form is a form procedure fix_path local string path badness get value item 0 to path get fix_slashes path to path set value item 0 to path end_procedure procedure construct_object integer image forward send construct_object image set exit_msg to fix_path end_procedure procedure item_change integer from# integer to# returns integer if from# eq 0 send fix_path forward get msg_item_change from# to# to to# procedure_return to# end_procedure procedure get_dirlist send fix_path send do_dirlist send next end_procedure function file_spec returns string function_return (value(current_object,1)) end_function function dir_spec returns string function_return (value(current_object,0)) end_function procedure do_filelist local string adir afile local integer file# get value item 0 to adir get value item 1 to afile delegate get file_obj to file# send load_list to file# (template_spec(current_object)) adir afile end_procedure procedure do_dirlist local string adir local integer dir# send working "Reading," get value item 0 to adir delegate get dir_obj to dir# send load_list to dir# adir send do_filelist send done end_procedure procedure file_selected string thefile set value item 1 to thefile end_procedure procedure dir_selected string thedir local string path get value item 0 to path set value item 0 to (add_path(current_object,path,thedir)) send do_dirlist end_procedure procedure set_values [not changes_made] indicate changes_made as ; (changed_state(current_object)) end_procedure procedure reset_values if (active_state(current_object)) send do_dirlist set changed_state to false end_procedure procedure activating forward send activating send do_dirlist end_procedure end_class class file_list is a sellist procedure construct_object integer file_image integer dir_image forward send construct_object file_image on_key key_enter send process_selections private end_procedure procedure load_list string filespec string dirspec string driverspec local string astr local integer item# set dynamic_update_state to false send fill_list if (right(trim(dirspec),1)) ne separator append dirspec separator direct_input ("DIR:" + dirspec + filespec) repeat readln astr [not seqeof] trim astr to astr [not seqeof] indicate got_one as (left(astr,1)) ne "[" [not seqeof got_one] send add_item msg_select_and_rotate astr [not seqeof] loop close_input if (item_count(current_object)) gt 0 begin send sort_items ascending get item_matching driverspec item# set current_item to item# set select_state item current to true end set dynamic_update_state to true end_procedure procedure process_selection integer item# local string afile local integer form# get value item item# to afile get form_obj to form# send file_selected to form# afile end_procedure end_class class dir_list is a sellist procedure construct_object integer list_image forward send construct_object list_image on_key key_enter send process_selections private end_procedure procedure load_list string dirspec local string astr set dynamic_update_state to false send fill_list send add_item msg_select_and_rotate ".." if (right(trim(dirspec),1)) ne separator append dirspec separator direct_input ("DIR:" + dirspec + "*.*") repeat readln astr [not seqeof] trim astr to astr [not seqeof] indicate got_one as (left(astr,1)) eq "[" [not seqeof got_one] mid astr to astr (length(astr) - 2) 2 [not seqeof got_one] indicate got_one as (left(astr,1)) ne "." [not seqeof got_one] send add_item msg_select_and_rotate astr [not seqeof] loop close_input if (item_count(current_object)) gt 0 send sort_items ascending set dynamic_update_state to true end_procedure procedure process_selection integer item# local string adir local integer form# get value item item# to adir get form_obj to form# send dir_selected to form# adir end_procedure end_class class driver_client is a popup_client procedure construct_object integer image integer title_image ; string text integer file_image integer dir_image integer button_image forward send construct_object image property integer form_obj public 0 property integer dir_obj public 0 property integer file_obj public 0 set location to 1 1 relative object title is an object_title title_image text end_object object file_stuff is a file_list file_image end_object object dir_stuff is a dir_list dir_image end_object object button is an option_button button_image end_object set file_obj to (object_id(file_stuff(current_object))) set dir_obj to (object_id(dir_stuff(current_object))) end_procedure procedure object_set_on send working "Reading," forward send object_set_on send activate to (form_obj(current_object)) send done end_procedure end_class register_function check_color integer color# returns integer register_function ok_color integer color# returns integer class slide_bar is a form procedure construct_object integer image forward send construct_object image property integer workpos public property integer maxpos public property string trackbar public on_key key_f2 send set_values private on_key key_f5 send reset_values private on_key key_escape send object_set_off private on_key key_right_arrow send right_one private on_key key_left_arrow send left_one private item_list on_item "" send none set entry_state to false end_item_list end_procedure procedure set highlight_state integer state local integer newpos local string newvalue get workpos to newpos get trackbar to newvalue insert (character(if(state,active_thumb,inactive_thumb))) ; in newvalue at (newpos + 2) set value item 0 to newvalue end_procedure procedure left_one local integer pos# get workpos to pos# set workpos to ((pos# - 1) max 0) end_procedure procedure right_one local integer pos# max# get workpos to pos# get maxpos to max# set workpos to ((pos# + 1) min max#) end_procedure procedure newthumb integer pos# local integer max# get maxpos to max# if pos# lt 0 send left_one else if pos# gt max# send right_one else set workpos to pos# end_procedure procedure mouse_down integer win# integer pos# forward send mouse_down win# pos# if win# eq 1 send newthumb (pos# - 2) end_procedure procedure mouse_drag integer win# integer pos# forward send mouse_drag win# pos# if win# eq 1 send newthumb (pos# - 2) end_procedure end_class class color_bar is a slide_bar procedure construct_object integer image forward send construct_object image set maxpos to 15 set trackbar to color_trackbar end_procedure procedure left_one forward send left_one send show_sample end_procedure procedure right_one forward send right_one send show_sample end_procedure procedure newthumb integer pos# local integer max# forward send newthumb pos# get maxpos to max# if ((pos# ge 0) and (pos# <= max#)) send show_sample end_procedure end_class class color_sample is a message procedure construct_object integer image forward send construct_object image set focus_mode to nonfocusable property integer start_row public 0 property integer start_col public 0 property integer rows public 4 property integer cols public 14 set center_state item 0 to true set center_state item 1 to true end_procedure procedure make_sample integer color# if (color# = -1) begin set value item 0 to "Invalid" set value item 1 to "color!" screenmode 1 end else if (color# = 0) begin set value item 0 to "Color of" set value item 1 to "parent" screenmode 1 end else begin set value item 0 to "Color#" set value item 1 to (string(color#)) screenmode color# end send color_block ((start_row(current_object) * 65536) + ; start_col(current_object)) ; ((rows(current_object) * 65536) + cols(current_object)) end_procedure end_class class color_palette is a vconsole procedure construct_object integer image forward send construct_object image set size to 1 16 set focus_mode to pointer_only end_procedure procedure draw send delete_data send virtual_console send draw_colors send virtual_console to desktop end_procedure end_class class background_sample is a color_palette procedure draw_colors local integer index for index from 0 to 7 screenmode (112 + index) on show (character(active_thumb)) loop for index from 0 to 7 screenmode (128 + index) on show (character(active_thumb)) loop screenmode off end_procedure procedure construct_object integer image forward send construct_object image set location to 4 5 relative send draw end_procedure procedure mouse_down integer win# integer pos# forward send mouse_down win# pos# send new_back_thumb pos# end_procedure procedure mouse_drag integer win# integer pos# forward send mouse_drag win# pos# send new_back_thumb pos# end_procedure end_class class foreground_sample is a color_palette procedure draw_colors local integer index for index from 0 to 15 screenmode (112 + index) on show (character(active_thumb)) loop screenmode off end_procedure procedure construct_object integer image forward send construct_object image set location to 9 5 relative send draw end_procedure procedure mouse_down integer win# integer pos# forward send mouse_down win# pos# send new_fore_thumb pos# end_procedure procedure mouse_drag integer win# integer pos# forward send mouse_drag win# pos# send new_fore_thumb pos# end_procedure end_class class color_prompt is a client procedure construct_object integer image forward send construct_object image property integer origcolor public property integer workcolor public property integer goodcolor public set popup_state to true set block_mouse_state to true set scope_state to true object title is an object_title prompt_color_title "" end_object object sample is a color_sample prompt_color_sample set start_row to 3 set start_col to 27 end_object object background_bar is a color_bar prompt_color_background end_object object background_sample is a background_sample end_object object foreground_bar is a color_bar prompt_color_foreground end_object object foreground_sample is a foreground_sample end_object object button is a button prompt_color_button set focus_mode to pointer_only item_list on_item okkey send set_values on_item resetkey send reset_values on_item cancelkey send object_set_off on_item helpkey send extended_help end_item_list end_object end_procedure procedure new_back_thumb integer pos# send activate to (background_bar(current_object)) send newthumb to (background_bar(current_object)) pos# end_procedure procedure new_fore_thumb integer pos# send activate to (foreground_bar(current_object)) send newthumb to (foreground_bar(current_object)) pos# end_procedure procedure set_values local integer fg bg if (goodcolor(current_object)) begin get workpos of (background_bar(current_object)) to bg get workpos of (foreground_bar(current_object)) to fg set origcolor to (bg * 16 + fg) end delegate send export_color (origcolor(current_object)) send object_set_off end_procedure procedure reset_values local integer color get workcolor to color set workpos of (background_bar(current_object)) to (color / 16) set workpos of (foreground_bar(current_object)) to (color iand $0F) set highlight_state of (background_bar(current_object)) to false set highlight_state of (foreground_bar(current_object)) to false send show_sample end_procedure procedure show_sample local integer fg bg newcolor retval get workpos of (background_bar(current_object)) to bg get workpos of (foreground_bar(current_object)) to fg move (bg * 16 + fg) to newcolor get check_color newcolor to retval send make_sample to (sample(current_object)) retval set goodcolor to (retval <> -1) end_procedure procedure object_set_on integer startvalue string text set origcolor to startvalue set workcolor to startvalue set value of (title(current_object)) item 0 to text send popup send reset_values end_procedure procedure object_set_off send reset_values send deactivate end_procedure end_class class palette_selection is a sellist procedure construct_object integer image local integer index forward send construct_object image set popup_state to true set exit_msg to exit on_key key_enter send process_selections private on_key key_escape send object_set_off private send initialize for index from 0 to 8 send add_item msg_select_and_rotate ; (value(palette_names.obj,index)) loop end_procedure procedure process_selection integer item# local string astring get value item item# to astring send export_palette astring send object_set_off end_procedure procedure object_set_on integer startvalue local integer state delegate get can_inherit to state set shadow_state item 0 to (if(state,(false),(true))) set current_item to startvalue send popup end_procedure procedure object_set_off send deactivate end_procedure end_class class color_form is a form procedure construct_object integer image forward send construct_object image set auto_top_item_state to false on_key key_f2 send request_set_values private on_key key_f4 send prompt_for_value private on_key key_f5 send request_reset_values private on_key key_escape send object_set_off private end_procedure procedure validate_color local integer color# get value item current to color# if (ok_color(current_object,color#)) send next end_procedure procedure set current_item integer item# forward set current_item to item# if (message(current_object,item#)) eq msg_validate_color ; send make_sample to (sample(current_object)) ; (integer(value(current_object,item#))) end_procedure end_class class color_client is a client procedure construct_object integer main_image integer title_image ; integer sample_image integer button_image forward send construct_object main_image property integer can_inherit public 0 set popup_state to true set block_mouse_state true object title is an object_title title_image "" end_object register_object form is a color_form form_image object sample is a color_sample sample_image end_object object prompt_color is a color_prompt prompt_color_client set location to 2 25 relative end_object object button is a prompt_option_button button_image end_object end_procedure function check_color integer color# returns integer local integer retval if ((color# < 0) or (color# = 3) or (color# = 254) or (color# = 255)); move -1 to retval else if color# eq 0 ; move (if(can_inherit(current_object),0,-1)) to retval else move color# to retval function_return retval end_function function ok_color integer color# returns integer local integer retval get check_color color# to retval if retval eq -1 error 17 function_return (retval ne -1) end_function procedure object_set_on send request_reset_values send popup set current_item of (form(current_object)) to 0 end_procedure procedure object_set_off send request_reset_values send deactivate send show_status end_procedure procedure export_color integer color# local integer item# get current_item of (form(current_object)) to item# set value of (form(current_object)) item item# to color# set current_item of (form(current_object)) to item# end_procedure end_class class class_color_object is a color_client procedure construct_object integer image integer title_image ; integer form_image integer sample_image integer button_image forward send construct_object image title_image sample_image ; button_image property integer work_class public property integer work_fg public property integer work_bg public property integer work_pal public object form is a color_form form_image item_list autoclear_item "" send validate_color autoclear_item "" send validate_color on_item "" send none set entry_state to false end_item_list end_object object prompt_palette is a palette_selection prompt_palette_list set location to 7 27 relative end_object end_procedure procedure request_set_values local integer oldvalue newvalue index for index from 0 to 1 get value of (form(current_object)) item index to newvalue if not (ok_color(current_object,newvalue)) begin set current_item of (form(current_object)) to index procedure_return end loop get work_class to index get value of (form(current_object)) item 0 to newvalue get work_fg to oldvalue if newvalue ne oldvalue begin set work_fg to newvalue set fg_value of screencolors item index to newvalue indicate changes_made true end get value of (form(current_object)) item 1 to newvalue get work_bg to oldvalue if newvalue ne oldvalue begin set work_bg to newvalue set bg_value of screencolors item index to newvalue indicate changes_made true end move (find_index(palette_names.obj,value(form(current_object),2))) ; to newvalue get work_pal to oldvalue if newvalue ne oldvalue begin set work_pal to newvalue set pal_value of screencolors item index to newvalue indicate changes_made true end send object_set_off end_procedure procedure request_reset_values set value of (form(current_object)) item 0 ; to (work_fg(current_object)) set value of (form(current_object)) item 1 ; to (work_bg(current_object)) set value of (form(current_object)) item 2 ; to (value(palette_names.obj,work_pal(current_object))) set current_item of (form(current_object)) to 0 end_procedure procedure prompt_for_value local integer item# index local string palette_name get current_item of (form(current_object)) to item# if item# le 1 begin get value of (form(current_object)) item item# to index move ((index max 0) min 253) to index send object_set_on to (prompt_color(current_object)) index ; (if((item# = 0),"Window","Image") + " Color") end else begin get value of (form(current_object)) item item# to palette_name move (find_index(palette_names.obj,palette_name)) to index send object_set_on to (prompt_palette(current_object)) index end end_procedure procedure export_palette string newvalue set value of (form(current_object)) item 2 to newvalue end_procedure procedure object_set_on integer type integer inherits local string classname set work_class to type get name_value of screencolors item type to classname set value of (title(current_object)) item 0 ; to (classname + " Class Colors") set work_fg to (fg_value(screencolors.obj,type)) set work_bg to (bg_value(screencolors.obj,type)) set work_pal to (pal_value(screencolors.obj,type)) set can_inherit to inherits set start_row of (sample(current_object)) to 2 set start_col of (sample(current_object)) to 37 forward send object_set_on end_procedure end_class class palette_color_object is a color_client procedure construct_object integer image integer title_image ; integer form_image integer sample_image integer button_image forward send construct_object image title_image sample_image ; button_image property integer work_palette public property integer work_normal public property integer work_shadow public property integer work_point public property integer work_shadow_point public property integer work_select public property integer work_select_point public object form is a color_form form_image item_list autoclear_item "" send validate_color autoclear_item "" send validate_color autoclear_item "" send validate_color autoclear_item "" send validate_color autoclear_item "" send validate_color autoclear_item "" send validate_color end_item_list end_object end_procedure procedure request_set_values local integer oldvalue newvalue index for index from 0 to 5 get value of (form(current_object)) item index to newvalue if not (ok_color(current_object,newvalue)) begin set current_item of (form(current_object)) to index procedure_return end end get work_palette to index get value of (form(current_object)) item 0 to newvalue get work_normal to oldvalue if newvalue ne oldvalue begin set work_normal to newvalue set array_value of palette_colors item (index * 8) to newvalue indicate changes_made true end get value of (form(current_object)) item 1 to newvalue get work_shadow to oldvalue if newvalue ne oldvalue begin set work_shadow to newvalue set array_value of palette_colors item (index * 8 + 1) ; to newvalue indicate changes_made true end get value of (form(current_object)) item 2 to newvalue get work_point to oldvalue if newvalue ne oldvalue begin set work_point to newvalue set array_value of palette_colors item (index * 8 + 2) ; to newvalue indicate changes_made true end get value of (form(current_object)) item 3 to newvalue get work_shadow_point to oldvalue if newvalue ne oldvalue begin set work_shadow_point to newvalue set array_value of palette_colors item (index * 8 + 3) ; to newvalue indicate changes_made true end get value of (form(current_object)) item 4 to newvalue get work_select to oldvalue if newvalue ne oldvalue begin set work_select to newvalue set array_value of palette_colors item (index * 8 + 4) ; to newvalue indicate changes_made true end get value of (form(current_object)) item 5 to newvalue get work_select_point to oldvalue if newvalue ne oldvalue begin set work_select_point to newvalue set array_value of palette_colors item (index * 8 + 6) ; to newvalue indicate changes_made true end send object_set_off end_procedure procedure request_reset_values set value of (form(current_object)) item 0 ; to (work_normal(current_object)) set value of (form(current_object)) item 1 ; to (work_shadow(current_object)) set value of (form(current_object)) item 2 ; to (work_point(current_object)) set value of (form(current_object)) item 3 ; to (work_shadow_point(current_object)) set value of (form(current_object)) item 4 ; to (work_select(current_object)) set value of (form(current_object)) item 5 ; to (work_select_point(current_object)) set current_item of (form(current_object)) to 0 end_procedure procedure prompt_for_value local integer item# index local string palette_name title_text get current_item of (form(current_object)) to item# get value of (form(current_object)) item item# to index move ((index max 0) min 253) to index if item# eq 0 move "Uncursored" to title_text else if item# eq 1 move "Shadowed" to title_text else if item# eq 2 move "Pointed at" to title_text else if item# eq 3 move "Shadowed and pointed at" to title_text else if item# eq 4 move "Selected" to title_text else move "Selected and pointed at" to title_text send object_set_on to (prompt_color(current_object)) ; index (title_text + " Color") end_procedure procedure object_set_on integer palette_num local string palette_name local integer it set work_palette to palette_num get value of palette_names item palette_num to palette_name set value of (title(current_object)) item 0 to ; (palette_name + " Palette Colors") set work_normal to ; (integer_value(palette_colors.obj,(palette_num * 8))) set work_shadow to ; (integer_value(palette_colors.obj,(palette_num * 8 + 1))) set work_point to ; (integer_value(palette_colors.obj,(palette_num * 8 + 2))) set work_shadow_point to ; (integer_value(palette_colors.obj,(palette_num * 8 + 3))) set work_select to ; (integer_value(palette_colors.obj,(palette_num * 8 + 4))) set work_select_point to ; (integer_value(palette_colors.obj,(palette_num * 8 + 6))) set can_inherit to 1 set start_row of (sample(current_object)) to 4 set start_col of (sample(current_object)) to 37 forward send object_set_on end_procedure end_class #IFDEF HAS_EXIT_COLOR class exit_color_object is a color_client procedure construct_object integer image integer title_image ; integer form_image integer sample_image integer button_image forward send construct_object image title_image sample_image ; button_image property integer work_exit public object form is a color_form form_image item_list autoclear_item "" send validate_color end_item_list end_object end_procedure procedure request_set_values local integer oldvalue newvalue index get value of (form(current_object)) item 0 to newvalue if not (ok_color(current_object,newvalue)) procedure_return get work_exit to oldvalue if newvalue ne oldvalue begin set work_exit to newvalue move newvalue to exit_color_value indicate changes_made true end send object_set_off end_procedure procedure request_reset_values set value of (form(current_object)) item 0 ; to (work_exit(current_object)) end_procedure procedure prompt_for_value local integer index get value of (form(current_object)) item 0 to index move ((index max 0) min 253) to index send object_set_on to (prompt_color(current_object)) index ; ("Image" + " Color") end_procedure procedure object_set_on set value of (title(current_object)) item 0 ; to (" Exit Color Sample Color") set work_exit to exit_color_value set start_row of (sample(current_object)) to 3 set start_col of (sample(current_object)) to 37 forward send object_set_on end_procedure end_class #ENDIF // HAS_EXIT_COLOR class pick_menu is a list procedure construct_object integer img forward send construct_object img property integer original_selection public 0 end_procedure procedure activate set client_area_state to true forward send activate set client_Area_state to false forward send activate end_procedure end_class object about is a client set location to 5 12 absolute set block_mouse_state to true object about_title is a title local integer serial_number local string reg_name set center_state item 0 to true set value item 0 to progname set center_state item 1 to true set value item 1 to ; (if(multiuser,'Multi-user DataFlex','Single-user DataFlex')) registration reg_name serial_number set value of (about_title(about.obj)) item 2 to serial_number set value of (about_title(about.obj)) item 3 to reg_name end_object object about_ok is a button item_list on_item okmsg send deactivate to (parent(current_object)) on_item helpmsg send extended_help end_item_list procedure init local integer mem memory mem set value of (about_title(about.obj)) item 4 to mem end_procedure set entry_msg to init end_object end_object procedure about send activate to about end_procedure function clip string fullpath integer maxlen returns string local string last local integer start stop len strpos length fullpath to len get fix_slashes fullpath to fullpath if len gt maxlen begin move len to stop while ((mid(fullpath,1,stop) <> separator) and (stop > 1)) decrement stop end decrement stop while ((mid(fullpath,1,stop) <> separator) and (stop > 1)) decrement stop end right fullpath to last (len - stop + 1) length last to stop move 0 to start for strpos from 1 to len if (mid(fullpath,1,strpos)) eq separator begin if (strpos + stop + 3) le maxlen move strpos to start end until (strpos + stop + 3) gt maxlen left fullpath to fullpath start append fullpath ellipsis last end function_return fullpath end_function object not_done is an error set location to 9 18 absolute set popup_state to true set block_mouse_state to true set center_state item 0 to true set shadow_state item 0 to true set center_state item 1 to true set shadow_state item 1 to true object not_done_button is a button set local_rotate_state to true set scope_state to true item_list on_item okmsg send cancel end_item_list end_object procedure show_em string prompt1 string prompt2 local integer retval set value item 0 to prompt1 set value item 1 to prompt2 ui_accept (not_done_button(current_object)) to retval end_procedure procedure tell_em string action set shadow_state item 1 to false send show_em ("Dfconfig failed to " + action + ":") ; (clip(desktop,inifile,40)) set shadow_state item 1 to true end_procedure end_object object not_saved is a warning_msg set location to 9 18 absolute set popup_state to true set block_mouse_state to true set shadow_state item 0 to true object not_saved_button is a button set local_rotate_state true set scope_state to true item_list on_item yes send ok on_item no send negative on_item cancelmsg send cancel end_item_list procedure negative returns integer procedure_return current_message end_procedure end_object function tell_em string prompt returns integer local integer retval set value item 0 to prompt ui_accept (not_saved_button(current_object)) to retval function_return retval end_function end_object function check_hex_ok string hex returns integer local string hexchar local integer hexlen index length hex to hexlen for index from 1 to hexlen if not (mid(hex,1,index)) in hexchars function_return index loop function_return 0 end_function class hex_entry is an entry function hex_ok returns integer local string hex local integer retval get value item current to hex get check_hex_ok of desktop hex to retval if retval send bell function_return retval end_function function hex_value integer item# returns integer local string hex if item# eq current get current_item to item# get value item item# to hex function_return (hex2dec(desktop,hex)) end_function procedure set hex_value integer item# integer val local string hex if item# eq current get current_item to item# get dec2hex of desktop val to hex set value item item# to hex end_procedure end_class #COMMAND HEX_ITEM entry_item !1 !2 !3 !4 !5 !6 !7 !8 !9 set item_validate_msg to get_hex_ok #ENDCOMMAND class check_entry is an entry procedure construct_object integer image forward send construct_object image set select_mode to multi_select end_procedure end_class object invalid_char is a warning_msg set location to 9 20 absolute set popup_state to true set ring_state to true set client_area_state to true object invalid_char_button is a button item_list on_item okmsg send ok end_item_list end_object end_object class char_form is a form function ascii_val integer item# returns integer if item# eq current get current_item to item# function_return (ascii(value(current_object,item#))) end_function procedure ascii_set integer oldascii integer newascii local integer item# if oldascii ne newascii begin get current_item to item# set value item item# to (character(newascii)) set item_changed_state item item# to true end end_procedure end_class // The following class is used for all 1-character entries where // entering a space or the current window fill char is invalid. // Whenever you enter <space> or the fill character (usu. underscore), // and you get the value of the window, you get an empty string back. // The ascii value of an empty string is 0, so that's what we check for. class restricted_character_form is a char_form function current_ascii integer item# returns integer function_return (ascii_val(current_object,item#)) end_function function bad_char integer item# returns integer local integer newchar get current_ascii item item# to newchar if ((newchar = 0) or (newchar = 32) ; or (newchar = window_fill_char)) begin ui_accept invalid_char to newchar function_return (true) end function_return (false) end_function function entry returns integer forward get entry to termchar if (bad_char(current_object,current)) send reset_values function_return termchar end_function end_class // The following class is used for all 1-character entries where // entering a space is distinct from entering the current window fill char // or pressing <enter> on an empty window. Both are valid. class character_form is a char_form function current_ascii integer item# returns integer local integer char state get ascii_val item item# to char if char eq 0 begin // Here, either fillchar or <space> was entered. // Determine which one by checking the item changed state, // which turns out to be only true when changed from a // non-space to a space. if (item_changed_state(current_object,item#)) move 32 to char else move fill_char to char end function_return char end_function function entry returns integer local string achar local integer item# oldchar newchar // We have to do this since <space> and the current fill // character are seen as one and the same. Only inkey and // supply_key let us look at the real key. Inkey is easier. get current_item to item# get value item current to achar ascii achar to oldchar move oldchar to newchar repeat set highlight_state to true inkey achar // process regular ascii ourselves if termchar le 255 begin set value item current to achar move termchar to newchar end until termchar gt 255 // ie. accelerator pressed set item_changed_state item item# to (newchar <> oldchar) set highlight_state to false function_return termchar end_function end_class object main_object is a client set ring_state to true set location to 2 0 absolute object main_title is an object_title main_title progname set location to -2 0 relative end_object object main_footer is a title set location to 23 0 absolute set value item 0 to "" set value item 1 to (clip(desktop,inifile,38)) get class_colors of desktop u_action_bar to windowindex set object_color to (low(windowindex)) (low(windowindex)) end_object object keyboard_stuff is a client set location to 0 1 relative set popup_state to true set block_mouse_state true object keyboard_stuff_title is an object_title keyboard_stuff_title ; "Accelerator Key Configuration" end_object object keyboard_list is a sellist on_key key_enter send process_selections private on_key key_escape send object_set_off private procedure activating forward send activating set current_item to 0 end_procedure procedure load_list local string prompt for windowindex from kprint_screen to kclear_all get name_value of cua_keys item (windowindex - 256) ; to prompt send add_item msg_select_and_rotate ; (trim(prompt) + ellipsis) loop for windowindex from kmark to kclose_panel get name_value of cua_keys item (windowindex - 256) ; to prompt send add_item msg_select_and_rotate ; (trim(prompt) + ellipsis) loop send sort_items ascending end_procedure procedure process_selection integer item# local string astring get value item item# to astring replace ellipsis in astring with "" send do_key astring end_procedure send load_list end_object object accelerator_key is a key_client accelerator_key ; accelerator_key_title.n accelerator_key_form.n ; accelerator_key_button.n set location to 2 6 relative set focus_mode to no_activate end_object object keyboard_button is a button set focus_mode to pointer_only item_list on_item closekey send object_set_off on_item helpkey send extended_help end_item_list end_object procedure object_set_on send popup end_procedure procedure object_set_off send deactivate send show_status end_procedure procedure do_key string this_one local string label for windowindex from kprint_screen to kclear_all get name_value of cua_keys item (windowindex - 256) to label indicate found as label eq this_one [finderr] loop [finderr] for windowindex from kmark to kclose_panel get name_value of cua_keys item (windowindex - 256) to label indicate found as label eq this_one [finderr] loop [finderr] send bell [found] send object_set_on ; to (accelerator_key(current_object)) windowindex end_procedure end_object object default_color is a class_color_object default_color ; default_color_title.n default_color_form.n default_color_sample.n ; default_color_button.n set location to 2 10 relative end_object procedure do_default_colors send object_set_on to (default_color(current_object)) u_desktop false end_procedure object palette_color_stuff is a client set popup_state to true set block_mouse_state true set location to 0 1 relative object palette_color_stuff_title is an object_title ; palette_color_stuff_title "Palette Color Configuration" end_object object palette_color_stuff_list is a sellist set scroll_bar_visible_state to false on_key key_enter send process_selections private on_key key_escape send object_set_off private procedure activating forward send activating set current_item to 0 end_procedure procedure load_list local integer palette_num local string palette_name for palette_num from 1 to 8 get value of palette_names item palette_num to palette_name send add_item msg_select_and_rotate ; (palette_name + ellipsis) loop end_procedure procedure process_selection integer item# send do_palette (item# + 1) end_procedure send load_list end_object object palette_colors_button is a button set focus_mode to pointer_only item_list on_item closekey send object_set_off on_item helpkey send extended_help end_item_list end_object object palette_color_popup is a palette_color_object ; palette_color_popup palette_color_popup_title.n ; palette_color_popup_form.n palette_color_popup_sample.n ; palette_color_popup_button.n set location to 2 9 relative end_object procedure object_set_on send popup end_procedure procedure object_set_off send deactivate send show_status to main_object end_procedure procedure do_palette integer palette_num send object_set_on to (palette_color_popup(current_object)) ; palette_num end_procedure end_object object class_color_stuff is a client set popup_state to true set block_mouse_state true set location to 0 1 relative object class_color_stuff_title is an object_title ; class_color_stuff_title "Class Color Configuration" end_object object class_list is a sellist on_key key_enter send process_selections private on_key key_escape send object_set_off private procedure activating forward send activating set current_item to 0 end_procedure procedure load_list local integer index local string stuff for index from u_message to u_help get name_value of screencolors item index to stuff send add_item msg_select_and_rotate (stuff + ellipsis) loop for index from u_trace to u_entrylist get name_value of screencolors item index to stuff send add_item msg_select_and_rotate (stuff + ellipsis) loop for index from u_radio to u_clipboard get name_value of screencolors item index to stuff send add_item msg_select_and_rotate (stuff + ellipsis) loop send sort_items ascending end_procedure procedure process_selection integer item# local string astring get value item item# to astring replace ellipsis in astring with "" send do_class astring end_procedure send load_list end_object object class_colors_button is a button set focus_mode to pointer_only item_list on_item closekey send object_set_off on_item helpkey send extended_help end_item_list end_object object class_color_popup is a class_color_object class_color_popup ; class_color_popup_title.n class_color_popup_form.n ; class_color_popup_sample.n class_color_popup_button.n set location to 2 9 relative end_object procedure object_set_on send popup end_procedure procedure object_set_off send deactivate send show_status to main_object end_procedure procedure do_class string this_one local integer index local string stuff for index from u_message to u_clipboard until this_one eq (name_value(screencolors.obj,index)) send object_set_on to (class_color_popup(current_object)) index 1 end_procedure end_object #IFDEF HAS_EXIT_COLOR object exit_color is an exit_color_object exit_color ; exit_color_title.n exit_color_form.n exit_color_sample.n ; exit_color_button.n set location to 2 10 relative end_object #ENDIF // HAS_EXIT_COLOR object date_format is a character_popup_client procedure object_set_on if (already_created(current_object)) eq 0 begin gosub date_format_begin send disallow_prompt end set already_created to 1 send request_reset_values send popup end_procedure goto date_format_end date_format_begin: object date_format_title is an object_title date_format_title ; "Date Format Options" end_object object date_format_radio is a checkbox set select_mode to auto_select set auto_top_item_state to false on_key key_f4 send default_key item_list on_item "" send next on_item "" send next on_item "" send next end_item_list procedure mouse_up end_procedure procedure reset_items string achar if achar eq "" move " " to achar set value item 0 to ("11" + achar + "25" + achar + "1980") set value item 1 to ("25" + achar + "11" + achar + "1980") set value item 2 to ("1980" + achar + "11" + achar + "25") end_procedure procedure reset_values send reset_items (character(date_separator)) set current_item to date_format_option set select_state item current to true set changed_state to false end_procedure procedure set_values local integer option state for option from 0 to 2 get select_state item option to state if (state and (option <> date_format_option)) begin move option to date_format_option set changed_state to true end loop get changed_state to state [not changes_made] indicate changes_made as state end_procedure send reset_values end_object object date_format_form is a restricted_character_form set entry_msg to allow_prompt set exit_msg to disallow_prompt item_list on_item "" send update_radio end_item_list procedure modify_radio send reset_items to (date_format_radio(current_object)) ; (value(current_object,0)) end_procedure procedure update_radio send modify_radio send next end_procedure procedure reset_values set value item 0 to (character(date_separator)) set changed_state to false send modify_radio end_procedure procedure set_values local string achar local integer state new_separator get changed_state to state get current_ascii item 0 to new_separator if (bad_char(current_object,0)) send reset_values else move new_separator to date_separator get changed_state to state [not changes_made] indicate changes_made as state end_procedure procedure ascii_set integer oldascii integer newascii if oldascii ne newascii send reset_items to ; (date_format_radio(current_object)) ; (character(newascii)) forward send ascii_set oldascii newascii end_procedure send reset_values end_object object date_format_button is a prompt_option_button end_object return date_format_end: procedure allow_prompt send shadow_prompt to (date_format_button(current_object)) false end_procedure procedure disallow_prompt send shadow_prompt to (date_format_button(current_object)) true end_procedure end_object object numeric_format is a popup_client procedure object_set_on if (already_created(current_object)) eq 0 gosub numeric_format_begin set already_created to 1 send request_reset_values send popup end_procedure goto numeric_format_end numeric_format_begin: object numeric_format_title is an object_title numeric_format_title ; "Number Format Option" end_object object numeric_format_radio is a checkbox set select_mode to auto_select set auto_top_item_state to false item_list on_item "10,000.00" send next on_item "10.000,00" send next end_item_list procedure mouse_up end_procedure procedure reset_values set current_item to numeric_format_option set select_state item current to true set changed_state to false end_procedure procedure set_values local integer option state for option from 0 to 1 get select_state item option to state if (state and (option <> numeric_format_option)) begin move option to numeric_format_option set changed_state to true end loop get changed_state to state [not changes_made] indicate changes_made as state end_procedure send reset_values end_object object numeric_format_button is an option_button end_object return numeric_format_end: end_object object check_strings is a popup_client procedure object_set_on if (already_created(current_object)) eq 0 gosub check_strings_begin set already_created to 1 send request_reset_values send popup end_procedure goto check_strings_end check_strings_begin: object check_strings_title is an object_title check_strings_title ; "Checkbox Appearance" end_object object check_strings_form is a form item_list on_item "" send next on_item "" send next end_item_list procedure reset_values set value item 0 to check_string_select set value item 1 to check_string_deselect set changed_state to false end_procedure procedure set_values local integer stringsize state get value item 0 to check_string_select if (right(check_string_select,1)) ne space ; append check_string_select space get value item 1 to check_string_deselect if (right(check_string_deselect,1)) ne space ; append check_string_deselect space move (length(check_string_select) ; max length(check_string_deselect)) to stringsize pad check_string_select to check_string_select stringsize pad check_string_deselect to check_string_deselect stringsize get changed_state to state [not changes_made] indicate changes_made as state end_procedure send reset_values end_object object check_strings_button is an option_button end_object return check_strings_end: end_object object radio_strings is a popup_client procedure object_set_on if (already_created(current_object)) eq 0 gosub radio_strings_begin set already_created to 1 send request_reset_values send popup end_procedure goto radio_strings_end radio_strings_begin: object radio_strings_title is an object_title radio_strings_title ; "Radio Button Appearance" end_object object radio_strings_form is a form item_list on_item "" send next on_item "" send next end_item_list procedure reset_values set value item 0 to radio_string_select set value item 1 to radio_string_deselect set changed_state to false end_procedure procedure set_values local integer stringsize state get value item 0 to radio_string_select if (right(radio_string_select,1)) ne space ; append radio_string_select space get value item 1 to radio_string_deselect if (right(radio_string_deselect,1)) ne space ; append radio_string_deselect space move (length(radio_string_select) ; max length(radio_string_deselect)) to stringsize pad radio_string_select to radio_string_select stringsize pad radio_string_deselect to radio_string_deselect stringsize get changed_state to state [not changes_made] indicate changes_made as state end_procedure send reset_values end_object object radio_strings_button is an option_button end_object return radio_strings_end: end_object object currency is a popup_client procedure object_set_on if (already_created(current_object)) eq 0 gosub currency_begin set already_created to 1 send request_reset_values send popup end_procedure goto currency_end currency_begin: object currency_title is an object_title currency_title ; "Currency String Appearance" end_object object currency_form is a form item_list autoclear_item "" send next end_item_list procedure reset_values set value item 0 to currency_string set changed_state to false end_procedure procedure set_values local integer state get value item 0 to currency_string get changed_state to state [not changes_made] indicate changes_made as state end_procedure send reset_values end_object object currency_button is an option_button end_object return currency_end: end_object object window_fill is a character_popup_client procedure object_set_on if (already_created(current_object)) eq 0 gosub window_fill_begin set already_created to 1 send request_reset_values send popup end_procedure goto window_fill_end window_fill_begin: object window_fill_title is an object_title window_fill_title ; "Empty Window Appearance" end_object object window_fill_sample is an object_title window_fill_sample ; "________" end_object object window_fill_form is a character_form item_list on_item "" send next end_item_list procedure reset_values set value item 0 to (character(window_fill_char)) set changed_state to false end_procedure procedure set_values local integer state get current_ascii item 0 to window_fill_char get changed_state to state [not changes_made] indicate changes_made as state end_procedure send reset_values end_object object window_fill_button is a prompt_option_button end_object return window_fill_end: end_object object scrollbar_strings is a character_popup_client procedure object_set_on if (already_created(current_object)) eq 0 gosub scrollbar_strings_begin set already_created to 1 send request_reset_values send popup end_procedure goto scrollbar_strings_end scrollbar_strings_begin: object scrollbar_strings_title is an object_title ; scrollbar_strings_title "Scroll Bar Appearance" end_object object scrollbar_strings_form is a restricted_character_form item_list on_item "" send next on_item "" send next on_item "" send next end_item_list procedure reset_values set value item 0 to (character(scrollbar_up)) set value item 1 to (character(scrollbar_bar)) set value item 2 to (character(scrollbar_down)) set changed_state to false end_procedure procedure set_values local string achar local integer state new_up new_bar new_down get changed_state to state get current_ascii item 0 to new_up get current_ascii item 1 to new_bar get current_ascii item 2 to new_down if (bad_char(current_object,0) ; or bad_char(current_object,1) ; or bad_char(current_object,2)) send reset_values else begin move new_up to scrollbar_up move new_bar to scrollbar_bar move new_down to scrollbar_down end get changed_state to state [not changes_made] indicate changes_made as state end_procedure send reset_values end_object object scrollbar_strings_button is a prompt_option_button end_object return scrollbar_strings_end: end_object object press_any_key is a popup_client procedure object_set_on if (already_created(current_object)) eq 0 gosub press_any_key_begin set already_created to 1 send request_reset_values send popup end_procedure goto press_any_key_end press_any_key_begin: object press_any_key_title is an object_title press_any_key_title ; "Page Ejection Prompt Appearance" end_object object press_any_key_form is a form item_list autoclear_item "" send next end_item_list procedure reset_values set value item 0 to press_any_key_string set changed_state to false end_procedure procedure set_values local integer state get value item 0 to press_any_key_string get changed_state to state [not changes_made] indicate changes_made as state end_procedure send reset_values end_object object press_any_key_button is an option_button end_object return press_any_key_end: end_object object auto_return is a popup_client procedure object_set_on if (already_created(current_object)) eq 0 gosub auto_Return_begin set already_created to 1 send request_reset_values send popup end_procedure goto auto_return_end auto_return_begin: object auto_return_title is an object_title auto_return_title ; "Automatic Return On Full Field" end_object object auto_return_radio is a checkbox set select_mode to auto_select set auto_top_item_state to false item_list on_item yes send next on_item no send next end_item_list procedure mouse_up end_procedure procedure reset_values set current_item to (1 - auto_return_option) set select_state item current to true set changed_state to false end_procedure procedure set_values local integer option state for option from 0 to 1 get select_state item option to state if (state and (option = auto_return_option)) begin move (1 - option) to auto_return_option set changed_state to true end loop get changed_state to state [not changes_made] indicate changes_made as state end_procedure send reset_values end_object object auto_return_button is an option_button end_object return auto_return_end: end_object object scroll_increments is a popup_client format scroll_increments.2 {range=0,255,autoclear} procedure object_set_on if (already_created(current_object)) eq 0 gosub scroll_increments_begin set already_created to 1 send request_reset_values send popup end_procedure goto scroll_increments_end scroll_increments_begin: object scroll_increments_title is an object_title ; scroll_increments_title "Horizontal Scrolling" end_object object scroll_increments_form is a form item_list autoclear_item "" send next end_item_list procedure reset_values set value item 0 to scroll_increments_option set changed_state to false end_procedure procedure set_values local integer state get value item 0 to scroll_increments_option get changed_state to state [not changes_made] indicate changes_made as state end_procedure send reset_values end_object object scroll_increments_button is an option_button end_object return scroll_increments_end: end_object object scrollbar_offset is a popup_client format scrollbar_offset.2 {range=0,255,autoclear} procedure object_set_on if (already_created(current_object)) eq 0 gosub scrollbar_offset_begin set already_created to 1 send request_reset_values send popup end_procedure goto scrollbar_offset_end scrollbar_offset_begin: object scrollbar_offset_title is an object_title ; scrollbar_offset_title "Scroll Bar Position" end_object object scrollbar_offset_form is a form item_list autoclear_item "" send next end_item_list procedure reset_values set value item 0 to scrollbar_offset_option set changed_state to false end_procedure procedure set_values local integer state get value item 0 to scrollbar_offset_option get changed_state to state [not changes_made] indicate changes_made as state end_procedure send reset_values end_object object scrollbar_offset_button is an option_button end_object return scrollbar_offset_end: end_object #IFDEF HAS_MOUSE object double_click is a popup_client set location to 1 9 relative procedure object_set_on if (already_created(current_object)) eq 0 gosub double_click_begin set already_created to 1 send request_reset_values send popup end_procedure goto double_click_end double_click_begin: object double_click_title is an object_title double_click_title ; "Mouse Double-Click Speed" end_object object double_click_meter is a slide_bar set maxpos to 8 set trackbar to click_trackbar procedure set_values local integer option state get workpos to option if ((10 - option) <> double_click_speed) begin move (10 - option) to double_click_speed set changed_state to true end get changed_state to state [not changes_made] indicate changes_made as state end_procedure procedure reset_values set workpos to (10 - double_click_speed) set highlight_state to false end_procedure send reset_values end_object object double_click_test is a button indicator clicked indicate clicked false set select_mode to multi_select item_list on_item "test button" send none end_item_list procedure mouse_down integer win integer char [not clicked] send show_result 1 [clicked] send show_result 2 indicate clicked as [not clicked] forward send mouse_down win char end_procedure procedure mouse_click integer win integer char send show_result 3 indicate clicked false forward send mouse_click win char end_procedure procedure cleanup set select_state item 0 to false send show_result 0 end_procedure set exit_msg to cleanup end_object object double_click_result is a message set focus_mode to nonfocusable procedure show_result integer result if result eq 0 send cleanup else if result eq 1 begin set value item 0 to "Click" set value item 1 to "" end else begin if result eq 2 set value item 1 to "Click" else set value item 1 to "Double-click" sleep 1 send cleanup end end_procedure procedure cleanup set value item 0 to "" set value item 1 to "" end_procedure send cleanup end_object procedure show_result integer result send show_result to (double_click_result(current_object)) result end_procedure object double_click_button is an option_button end_object return double_click_end: end_object #ENDIF // HAS_MOUSE object page_control is a popup_client set location to 1 10 relative procedure object_set_on if (already_created(current_object)) eq 0 gosub page_control_begin set already_created to 1 send request_reset_values send popup end_procedure goto page_control_end page_control_begin: object page_control_title is an object_title page_control_title ; "Page Control" end_object object page_control_radio is a checkbox set select_mode to auto_select set auto_top_item_state to false item_list on_item "Prompt the user for a keystroke" send next on_item "Output a formfeed character" send next on_item "Fill the space between pages with linefeed characters" ; send next end_item_list procedure mouse_up end_procedure procedure reset_values set current_item to formfeed_option set select_state item current to true set changed_state to false end_procedure procedure set_values local integer option state for option from 0 to 2 get select_state item option to state if (state and (option <> formfeed_option)) begin move option to formfeed_option set changed_state to true end loop get changed_state to state [not changes_made] indicate changes_made as state end_procedure send reset_values end_object object page_control_form is an entry item_list entry_item pagefeed_option {retain} entry_item pageend_option {retain} end_item_list procedure reset_values send entry_display 0 true set changed_state to false end_procedure procedure set_values [not changes_made] indicate changes_made as ; (changed_state(current_object)) send entry_update 0 true end_procedure function validate returns integer local integer pg_feed pg_end get value item 0 to pg_feed get value item 1 to pg_end if (pg_feed < pg_end) send show_em to not_done ; "DataFlex cannot use more lines than" ; "will fit on a page! Please re-enter." function_return (pg_feed < pg_end) end_function procedure exiting integer obj# returns integer local integer retval set_deferred 0 get validate to retval set_deferred 1 if retval eq 0 forward get msg_exiting obj# to retval procedure_return retval end_procedure send reset_values end_object object page_control_button is an option_button end_object return page_control_end: procedure request_set_values if (validate(page_control_form(current_object))) eq 0 ; forward send request_set_values end_procedure end_object #IFDEF HAS_SPOOLER object spooler_control is a popup_client set location to 1 7 relative procedure object_set_on if (already_created(current_object)) eq 0 gosub spooler_control_begin set already_created to 1 send request_reset_values send popup end_procedure goto spooler_control_end spooler_control_begin: object spooler_control_title is an object_title spooler_control_title ; "Spooler Configuration Strings" end_object object spooler_control_form is a form item_list on_item "" send next on_item "" send next end_item_list procedure reset_values set value item 0 to spooler_dfprinter_string set value item 1 to spooler_nodfprinter_string set changed_state to false end_procedure procedure set_values local integer state get value item 0 to spooler_dfprinter_string get value item 1 to spooler_nodfprinter_string get changed_state to state [not changes_made] indicate changes_made as state end_procedure send reset_values end_object object spooler_control_button is an option_button end_object return spooler_control_end: end_object #ENDIF // HAS_SPOOLER #IFDEF HAS_POWER_FAIL object power_fail is a popup_client set location to 1 1 relative procedure object_set_on if (already_created(current_object)) eq 0 gosub power_fail_begin set already_created to 1 send request_reset_values send popup end_procedure goto power_fail_end power_fail_begin: object power_fail_title is an object_title power_fail_title ; "Power Fail Protection" end_object object power_fail_radio is a checkbox set select_mode to auto_select set auto_top_item_state to false item_list on_item yes send next on_item no send next end_item_list procedure mouse_up end_procedure procedure reset_values set current_item to (1 - power_fail_option) set select_state item current to true set changed_state to false end_procedure procedure set_values local integer option state for option from 0 to 1 get select_state item option to state if (state and (option = power_fail_option)) begin move (1 - option) to power_fail_option set changed_state to true end loop get changed_state to state [not changes_made] indicate changes_made as state end_procedure send reset_values end_object object power_fail_button is an option_button end_object return power_fail_end: end_object #ENDIF // HAS_POWER_FAIL function strip_path string path returns string local integer slash colon pos ':' in path to colon length path to slash while ((slash > colon) and (mid(path,1,slash) <> separator)) decrement slash end mid path to path 12 (slash + 1) function_return path end_function function add_path string path string newdir returns string local integer slash colon if newdir eq ".." begin pos ':' in path to colon length path to slash while ((slash > colon) and (mid(path,1,slash) <> separator)) decrement slash end if (slash > colon) left path to path (slash - 1) end else begin if not (right(trim(path),1)) eq separator append path separator append path newdir end function_return path end_function #IFDEF HAS_GRAPHICS object adapters is a driver_client adapters adapters_title.n ; "Graphics Screen Driver" adapters_file_list.n adapters_dir_list.n ; adapters_button.n procedure object_set_on send working "Reading," if (already_created(current_object)) eq 0 gosub adapters_begin set already_created to 1 send request_reset_values send popup send activate to (form_obj(current_object)) send done end_procedure goto adapters_end adapters_begin: object form is a driver_form adapters_form item_list autoclear_item "" send get_dirlist autoclear_item "" send next autoclear_item "" send next end_item_list procedure reset_form set value item 0 to graphics_path set value item 1 to graphics_driver set value item 2 to graphics_mode end_procedure procedure reset_values send reset_form forward send reset_values end_procedure procedure set_values local string stuff if (value(current_object,0)) ne graphics_path begin get fix_slashes (value(current_object,0)) to graphics_path set changed_state to true end if (value(current_object,1)) ne graphics_driver begin get value item 1 to graphics_driver set changed_state to true end if (value(current_object,2)) ne graphics_mode begin get value item 2 to graphics_mode set changed_state to true end forward send set_values end_procedure function template_spec returns string function_return graphics_template end_function send reset_form end_object set form_obj to (object_id(form(current_object))) return adapters_end: end_object object printers is a driver_client printers printers_title.n ; "Graphics Printer Driver" printers_file_list.n printers_dir_list.n ; printers_button.n procedure object_set_on send working "Reading," if (already_created(current_object)) eq 0 gosub printers_begin set already_created to 1 send request_reset_values send popup send activate to (form_obj(current_object)) send done end_procedure goto printers_end printers_begin: object form is a driver_form printers_form item_list autoclear_item "" send get_dirlist autoclear_item "" send next end_item_list procedure reset_form set value item 0 to printer_path set value item 1 to printer_driver end_procedure procedure reset_values send reset_form forward send reset_values end_procedure procedure set_values local string stuff if (value(current_object,0)) ne printer_path begin get fix_slashes (value(current_object,0)) to printer_path set changed_state to true end if (value(current_object,1)) ne printer_driver begin get value item 1 to printer_driver set changed_state to true end forward send set_values end_procedure function template_spec returns string function_return printer_template end_function send reset_form end_object set form_obj to (object_id(form(current_object))) return printers_end: end_object #ENDIF // HAS_GRAPHICS object translate is a popup_client set location to 0 1 relative register_function changes returns integer procedure object_set_on move 1 to crnt_char move crnt_char to old_char if (already_created(current_object)) eq 0 gosub translate_begin set already_created to 1 send request_reset_values send popup end_procedure goto translate_end translate_begin: object translate_title is an object_title translate_title ; "Character Translation" end_object object translate_pick is a vconsole set focus_mode to pointer_only set location to 4 3 relative set size to 16 33 set display_mode to 16 false send move_absolute 0 0 for windowindex from 0 to 15 move " " to aline for fieldindex from 0 to 15 move ((windowindex * 16) + fieldindex) to termchar if termchar append aline (character(termchar)) else append aline ' ' append aline ' ' loop set value item windowindex to aline loop procedure hilite integer item# integer color# local integer row# col# move (item# / 16) to row# move ((item# iand $0F) * 2) to col# screenmode color# send color_block ((row# * 65536) + col#) 65539 screenmode 1 end_procedure procedure mouse_down integer row integer col forward send mouse_down row col if (col iand $1) ; send char_change ((row - 1) * 16 + (col / 2)) end_procedure end_object object translate_select is a hex_entry on_key key_f7 send prev_char private on_key key_f8 send next_char private on_key key_up_arrow send prev_row private on_key key_down_arrow send next_row private function hex_ok returns integer local integer retval forward get hex_ok to retval if retval eq 0 begin get hex_value item 0 to retval move (retval = 0) to retval end function_return retval end_function item_list hex_item crnt_hex {capslock, ; ientry=msg_allow_navigate, ; iexit=msg_disallow_navigate} end_item_list function check_exit integer new_char returns integer local integer retval if new_char ne crnt_char begin if (changes(current_object)) begin get tell_em of not_saved "continuing?" to retval if retval eq msg_ok send request_set_values else if retval eq msg_cancel begin set hex_value item 0 to crnt_char send request_reset_values function_return msg_cancel end end move new_char to crnt_char send request_reset_values end function_return msg_ok end_function procedure exiting integer obj# returns integer local integer retval set_deferred 0 get check_exit (hex_value(current_object,0)) to retval set_deferred 1 if retval eq msg_ok ; forward get msg_exiting obj# to retval procedure_return retval end_procedure procedure char_change integer new_char move (new_char iand $FF) to new_char if (new_char and check_exit(current_object,new_char)) ; eq msg_ok begin move new_char to crnt_char send request_reset_values end end_procedure procedure prev_char send char_change (crnt_char - 1) end_procedure procedure next_char send char_change (crnt_char + 1) end_procedure procedure prev_row send char_change (crnt_char - 16) end_procedure procedure next_row send char_change (crnt_char + 16) end_procedure procedure reset_values send hilite to (translate_pick(current_object)) ; old_char hidecol send hilite to (translate_pick(current_object)) ; crnt_char pointcol move crnt_char to old_char send entry_display 0 true set changed_state to false end_procedure procedure mouse_up end_procedure end_object object translate_remap is a hex_entry item_list #IFDEF HAS_TRANSLATION hex_item crnt_map {capslock, iexit=msg_map2key} #ENDIF // HAS_TRANSLATION entry_item crnt_seq {displayonly} end_item_list procedure map2key local integer val get hex_value item 0 to val set value item 1 ; to (map_sequence(desktop,key_physical(val),0)) end_procedure procedure set_values local integer newval send entry_update 0 true get hex2dec of desktop crnt_map to newval if newval ne (remap_value(key_map.obj,crnt_char)) begin set remap_value of key_map item crnt_char to newval indicate changes_made true end end_procedure procedure reset_values local integer val get remap_value of key_map crnt_char to val get dec2hex of desktop val to crnt_map get map_sequence of desktop (key_physical(val)) 0 to crnt_seq send entry_display 0 true set changed_state to false end_procedure procedure char_change integer new_char set hex_value item 0 to new_char set item_changed_state item 0 to true end_procedure procedure mouse_up end_procedure end_object object translate_chars is a hex_entry item_list hex_item locase {capslock} hex_item upcase {capslock} end_item_list procedure set_values local integer newval send entry_update 0 true get hex2dec of desktop locase to newval if newval ne (locase_value(key_map.obj,crnt_char)) begin set locase_value of key_map item crnt_char to newval indicate changes_made true end get hex2dec of desktop upcase to newval if newval ne (upcase_value(key_map.obj,crnt_char)) begin set upcase_value of key_map item crnt_char to newval indicate changes_made true end end_procedure procedure reset_values local integer val get locase_value of key_map crnt_char to val get dec2hex of desktop val to locase get upcase_value of key_map crnt_char to val get dec2hex of desktop val to upcase send entry_display 0 true set changed_state to false end_procedure procedure char_change integer new_char set hex_value item current to new_char set item_changed_state item current to true end_procedure procedure mouse_up end_procedure end_object object translate_alpha_check is a check_entry item_list checkbox_item isalpha checkbox_item islower checkbox_item isupper end_item_list procedure set_values local integer oldval newval send entry_update 0 true get attrib_value of key_map item crnt_char to oldval move oldval to newval get bit_twiddle of desktop newval ($02) isalpha to newval get bit_twiddle of desktop newval ($08) islower to newval get bit_twiddle of desktop newval ($40) isupper to newval if newval ne oldval begin set attrib_value of key_map item crnt_char to newval indicate changes_made true end end_procedure procedure reset_values local integer val get attrib_value of key_map item crnt_char to val move ((val iand $02) = $02) to isalpha move ((val iand $08) = $08) to islower move ((val iand $40) = $40) to isupper send entry_display 0 true set changed_state to false end_procedure procedure char_change end_procedure end_object object translate_print_check is a check_entry item_list checkbox_item isprint checkbox_item ispunct checkbox_item isspace end_item_list procedure set_values local integer oldval newval send entry_update 0 true get attrib_value of key_map item crnt_char to oldval move oldval to newval get bit_twiddle of desktop newval ($01) isprint to newval get bit_twiddle of desktop newval ($10) ispunct to newval get bit_twiddle of desktop newval ($20) isspace to newval if newval ne oldval begin set attrib_value of key_map item crnt_char to newval indicate changes_made true end end_procedure procedure reset_values local integer val get attrib_value of key_map item crnt_char to val move ((val iand $01) = $01) to isprint move ((val iand $10) = $10) to ispunct move ((val iand $20) = $20) to isspace send entry_display 0 true set changed_state to false end_procedure procedure char_change end_procedure end_object object translate_symbol_check is a check_entry item_list checkbox_item issymbol checkbox_item isname checkbox_item isfirst end_item_list procedure set_values local integer oldval newval send entry_update 0 true get attrib_value of key_map item crnt_char to oldval move oldval to newval get bit_twiddle of desktop newval ($100) issymbol to newval get bit_twiddle of desktop newval ($200) isname to newval get bit_twiddle of desktop newval ($400) isfirst to newval if newval ne oldval begin set attrib_value of key_map item crnt_char to newval indicate changes_made true end end_procedure procedure reset_values local integer val get attrib_value of key_map item crnt_char to val move ((val iand $100) = $100) to issymbol move ((val iand $200) = $200) to isname move ((val iand $400) = $400) to isfirst send entry_display 0 true set changed_state to false end_procedure procedure char_change end_procedure end_object object translate_button is a button set focus_mode to pointer_only item_list on_item "F7=Prev Char" send prev_char ; to (translate_select(current_object)) set shadow_state to true on_item "F8=Next Char" send next_char ; to (translate_select(current_object)) set shadow_state to true on_item "Up Arrow=Prev Row" send prev_row ; to (translate_select(current_object)) set shadow_state to true on_item "Dn Arrow=Next Row" send next_row ; to (translate_select(current_object)) set shadow_state to true on_item okkey send request_set_values on_item resetkey send request_reset_values on_item cancelkey send object_set_off on_item helpkey send extended_help end_item_list procedure shadow_navigate integer state set shadow_state item 0 to state set shadow_state item 1 to state set shadow_state item 2 to state set shadow_state item 3 to state end_procedure procedure char_change end_procedure end_object return translate_end: procedure char_change integer new_char send char_change to (focus(desktop)) new_char end_procedure procedure allow_navigate send shadow_navigate to (translate_button(current_object)) false end_procedure procedure disallow_navigate send shadow_navigate to (translate_button(current_object)) true end_procedure function changes returns integer local integer retval get changed_state of ; (translate_remap(current_object)) to retval if not retval get changed_state of ; (translate_chars(current_object)) to retval if not retval get changed_state of ; (translate_alpha_check(current_object)) to retval if not retval get changed_state of ; (translate_print_check(current_object)) to retval if not retval get changed_state of ; (translate_symbol_check(current_object)) to retval function_return retval end_function procedure object_set_off send hilite to (translate_pick(current_object)) old_char hidecol forward send object_set_off end_procedure procedure request_reset_values get dec2hex of desktop crnt_char to crnt_hex broadcast send reset_values end_procedure procedure request_set_values broadcast send set_values [changes_made] send show_status to main_object broadcast set changed_state to false send activate to (translate_select(current_object)) end_procedure end_object #IFDEF HAS_CRITICAL_ERROR object crit_error is a popup_client set location to 4 2 relative procedure object_set_on if (already_created(current_object)) eq 0 gosub crit_error_begin set already_created to 1 send request_reset_values send popup end_procedure goto crit_error_end crit_error_begin: object crit_error_title is an object_title crit_error_title ; "Critical Error Handling" end_object object crit_error_user_allowed is a check_entry item_list checkbox_item canrespond end_item_list procedure set select_state integer item# integer state forward set select_state item item# state send reset_shadows end_procedure procedure set_values send entry_update 0 true if (changed_state(current_object)) indicate changes_made true end_procedure procedure reset_values send entry_display 0 true set changed_state to false end_procedure procedure reset_shadows delegate send shadow_options (not(select_state(current_object,0))) end_procedure end_object object crit_error_options is a check_entry on_key key_enter send next private item_list checkbox_item canabort checkbox_item canretry checkbox_item canfail end_item_list procedure set_values send entry_update 0 true if (changed_state(current_object)) indicate changes_made true end_procedure procedure reset_values send entry_display 0 true set changed_state to false end_procedure procedure shadow_items integer state set shadow_state item 0 to state set shadow_state item 1 to state set shadow_state item 2 to state end_procedure end_object object crit_error_timeout is an entry item_list entry_item criterr_timeout { range=0,99 } // 0 = no prompt display end_item_list procedure set_values send entry_update 0 true if (changed_state(current_object)) indicate changes_made true end_procedure procedure reset_values send entry_display 0 true set changed_state to false end_procedure end_object object crit_error_default1 is a checkbox set select_mode to auto_select set auto_top_item_state to false item_list on_item "" send next on_item "" send next on_item "" send next end_item_list procedure mouse_up end_procedure procedure set select_state integer item# integer state forward set select_state item item# state send reset_shadows end_procedure procedure reset_values if criterr_default1 eq CRITERR_ABORT_FLAG set current_item to 0 else if criterr_default1 eq CRITERR_RETRY_FLAG set current_item to 1 else if criterr_default1 eq CRITERR_FAIL_FLAG set current_item to 2 set select_state item current to true set changed_state to false end_procedure procedure reset_shadows delegate send shadow_not_retry (not(select_state(current_object,1))) end_procedure procedure set_values local integer option state new_dflt1 for option from 0 to 2 get select_state item option to state if state begin if option eq 0 move CRITERR_ABORT_FLAG to new_dflt1 else if option eq 1 move CRITERR_RETRY_FLAG to new_dflt1 else if option eq 2 move CRITERR_FAIL_FLAG to new_dflt1 if new_dflt1 ne option begin move new_dflt1 to criterr_default1 set changed_state to true end end loop get changed_state to state [not changes_made] indicate changes_made as state end_procedure function default_is_retry returns integer function_return (select_state(current_object,1)) end_function end_object object crit_error_retries is an entry on_key key_enter send next private item_list entry_item criterr_retries { ivalidate=msg_reset_shadows, range=0,99 } end_item_list procedure check_for_0 integer item_num returns integer send shadow_retry_fail (not(value(current_object,0))) end_procedure procedure set_values send entry_update 0 true if (changed_state(current_object)) indicate changes_made true end_procedure procedure reset_values send entry_display 0 true set changed_state to false end_procedure procedure reset_shadows delegate send shadow_retry_fail (not(value(current_object,0))) end_procedure procedure shadow_items integer state set shadow_state item 0 to state end_procedure function zero_retries returns integer function_return (value(current_object,0) = 0) end_function end_object object crit_error_default2 is a checkbox set select_mode to auto_select set auto_top_item_state to false on_key key_enter send next private item_list on_item "" send next on_item "" send next end_item_list procedure mouse_up end_procedure procedure reset_values if criterr_default2 eq CRITERR_ABORT_FLAG set current_item to 0 else if criterr_default2 eq CRITERR_FAIL_FLAG set current_item to 1 set select_state item current to true set changed_state to false end_procedure procedure set_values local integer option state new_dflt2 for option from 0 to 1 get select_state item option to state if state begin if option eq 0 move CRITERR_ABORT_FLAG to new_dflt2 else if option eq 1 move CRITERR_FAIL_FLAG to new_dflt2 if new_dflt2 ne option begin move new_dflt2 to criterr_default2 set changed_state to true end end loop get changed_state to state [not changes_made] indicate changes_made as state end_procedure procedure shadow_items integer state set shadow_state item 0 to state set shadow_state item 1 to state end_procedure end_object object crit_error_button is an option_button end_object return crit_error_end: procedure shadow_options integer state send shadow_items to (crit_error_options(current_object)) state end_procedure procedure shadow_not_retry integer state send shadow_items to (crit_error_retries(current_object)) state send shadow_items to (crit_error_default2(current_object)) ; (zero_retries(crit_error_retries(current_object)) or state) end_procedure procedure shadow_retry_fail integer state send shadow_items to (crit_error_default2(current_object)) ; (not(default_is_retry(crit_error_default1(current_object))); or state) end_procedure procedure request_reset_values forward send request_reset_values broadcast send reset_shadows end_procedure end_object object crit_text is a popup_client set location to 1 1 relative on_key key_alt+key_f1 send do_diagnostics procedure object_set_on if (already_created(current_object)) eq 0 gosub crit_text_begin set already_created to 1 forward send object_set_on end_procedure goto crit_text_end crit_text_begin: object crit_text_title is an object_title crit_text_title ; "Critical Error Text Translation" end_object object crit_text_format is an object_title crit_text_format "" set center_state item 0 to false procedure reset_values set value item 0 to (phrase_1 + " " + phrase_2 + " @|" + ; phrase_3 + ": Diagnostic " + option_1 + " " + ; option_2 + " " + option_3 + ":") end_procedure procedure set_values local string txt delegate get message_format to txt set value item 0 to txt end_procedure end_object object crit_text_phrases is an entry register_procedure redisplay_format returns integer item_list entry_item phrase_1 { required, iexit=msg_redisplay_format } entry_item phrase_2 { required, iexit=msg_redisplay_format } entry_item phrase_3 { required, iexit=msg_redisplay_format } end_item_list procedure set_values send entry_update 0 true if (changed_state(current_object)) indicate changes_made true end_procedure procedure reset_values send entry_display 0 true set changed_state to false end_procedure procedure redisplay_format returns integer if (item_changed_state(current_object,current)) ; delegate send redisplay_msg_format end_procedure end_object object crit_text_options is an entry register_function check_reply_1 returns integer register_function check_reply_2 returns integer register_function check_reply_3 returns integer register_procedure redisplay_format returns integer item_list entry_item option_1 { required, iexit=msg_redisplay_format } entry_item reply_1 { capslock, ivalidate=get_check_reply_1 } entry_item option_2 { required, iexit=msg_redisplay_format } entry_item reply_2 { capslock, ivalidate=get_check_reply_2 } entry_item option_3 { required, iexit=msg_redisplay_format } entry_item reply_3 { capslock, ivalidate=get_check_reply_3 } end_item_list function check_this integer this returns integer local string reply other local integer index len retval uppercase (value(current_object,(this * 2 + 1))) to reply length reply to len for index from 1 to len move ((mid(reply,1,index) < 'A') ; or (mid(reply,1,index) > 'Z')) to retval if retval move ((mid(reply,1,index) < '0') ; or (mid(reply,1,index) > '9')) to retval until retval if not retval begin for index from 0 to 2 if index ne this begin uppercase (value(current_object,(index * 2 + 1))) to other move (reply = other) to retval end until retval ne 0 end if retval error 15 // invalid entry; either outside [A-Z0-9], // or same as another reply function_return retval end_function function check_reply_1 returns integer function_return (check_this(current_object,0)) end_function function check_reply_2 returns integer function_return (check_this(current_object,1)) end_function function check_reply_3 returns integer function_return (check_this(current_object,2)) end_function procedure set_values send entry_update 0 true if (changed_state(current_object)) indicate changes_made true end_procedure procedure reset_values send entry_display 0 true set changed_state to false end_procedure procedure redisplay_format returns integer if (item_changed_state(current_object,current)) ; delegate send redisplay_msg_format end_procedure end_object object crit_diags is a popup_client set location to 1 4 relative set popup_state to true set block_mouse_state true object crit_diags_title is an object_title crit_diags_title ; "Critical Error Diagnostics" end_object object crit_diags_list is a sellist set local_rotate_state to true set search_mode to no_search set select_mode to no_select on_key key_enter send next private procedure reset_values local integer dyn_state local string txt get dynamic_update_state to dyn_state set dynamic_update_state to false if (focus(desktop)) ne current_object begin for windowindex from criterr_first_diagnostic to ; criterr_last_diagnostic send add_item msg_next ; (windowindex - criterr_first_diagnostic + 1) set shadow_state item ; (item_count(current_object) - 1) to true get string_value of crit_error_originals item ; (windowindex - criterr_first_diagnostic) ; to txt send add_item msg_next txt set shadow_state item ; (item_count(current_object) - 1) to true get string_value of crit_error_diagnostics item ; (windowindex - criterr_first_diagnostic) ; to txt send add_item msg_next txt set entry_state item ; (item_count(current_object) - 1) to true loop end else begin send delete_data for windowindex from criterr_first_diagnostic to ; criterr_last_diagnostic send add_item msg_next ; (windowindex - criterr_first_diagnostic + 1) set shadow_state item ; (item_count(current_object) - 1) to true get string_value of crit_error_originals item ; (windowindex - criterr_first_diagnostic) ; to txt send add_item msg_next txt set shadow_state item ; (item_count(current_object) - 1) to true set value of crit_error_diagnostics item ; (windowindex - criterr_first_diagnostic) ; to txt send add_item msg_next txt set entry_state item ; (item_count(current_object) - 1) to true loop end set changed_state false set dynamic_update_state to dyn_state end_procedure procedure process_selection integer item# end_procedure procedure set_values local string newtxt oldtxt for windowindex from criterr_first_diagnostic to ; criterr_last_diagnostic get value item ; (((windowindex - criterr_first_diagnostic) * 3) + 2); to newtxt get string_value of crit_error_diagnostics ; item (windowindex - criterr_first_diagnostic) ; to oldtxt set array_value of crit_error_diagnostics ; item (windowindex - criterr_first_diagnostic) ; to newtxt [not changes_made] indicate changes_made as ; newtxt ne oldtxt loop end_procedure end_object object crit_diags_button is an option_button end_object end_object object crit_text_special is a button set focus_mode to pointer_only item_list on_item "Alt+F1=Translate Diagnostics" send do_diagnostics end_item_list end_object object crit_text_button is an option_button end_object return crit_text_end: procedure do_diagnostics send object_set_on to (crit_diags(current_object)) end_procedure function message_format returns string local integer obj local string new_format move (crit_text_phrases(current_object)) to obj move (string(value(obj,0)) + " " + string(value(obj,1)) + " @|" + ; string(value(obj,2))) to new_format move (crit_text_options(current_object)) to obj move (string(new_format) + ": Diagnostic " + ; string(value(obj,0)) + " " + string(value(obj,2)) + " " + ; string(value(obj,4)) + ":") to new_format function_return new_format end_function procedure redisplay_msg_format set value of (crit_text_format(current_object)) item 0 ; to (message_format(current_object)) end_procedure end_object #ENDIF // HAS_CRITICAL_ERROR object default_text is a popup_client set location to 3 2 relative procedure object_set_on if (already_created(current_object)) eq 0 gosub default_text_begin set already_created to 1 send request_reset_values send popup end_procedure goto default_text_end default_text_begin: object default_text_title is an object_title default_text_title ; "Default Error Text" end_object object default_text_phrases is an entry on_key key_enter send next private item_list entry_item error_cant_open entry_item error_no_text entry_item error_out_of_range end_item_list procedure set_values send entry_update 0 true if (changed_state(current_object)) indicate changes_made true end_procedure procedure reset_values send entry_display 0 true set changed_state to false end_procedure procedure shadow_items integer state set shadow_state item 0 to state end_procedure end_object object default_text_button is an option_button end_object return default_text_end: end_object object ascii_map is a pick_menu //pick_list set location to 8 28 absolute set popup_state to true set block_mouse_state to true set select_mode to auto_select set search_mode to first_character set scroll_bar_offset to 1 set auto_top_item_state to false // set item_limit to 21 on_key key_f2 send set_ascii on_key key_f5 send reset_ascii on_key key_escape send ascii_map_off on_key key_enter send set_ascii //default_key on_key key_f10 send default_key for windowindex from 1 to 255 if not ('|'+string(windowindex)+'|') in "|7|8|10|12|26|27|" ; send add_item msg_none (character(windowindex)) loop object ascii_title is an object_title ascii_title "Valid Characters" set location to 1 1 relative end_object object ascii_button is a button set location to 8 2 relative set focus_mode to pointer_only item_list on_item okkey send set_ascii on_item resetkey send reset_ascii on_item cancelkey send ascii_map_off on_item helpkey send extended_help end_item_list end_object procedure set_ascii returns integer local integer newascii local string achar get current_item to newascii set original_selection to newascii get value item newascii to achar procedure_return (ascii(achar)) end_procedure procedure reset_ascii local integer oldascii get original_selection to oldascii set current_item to oldascii set select_state item current to true end_procedure procedure ascii_map_off returns integer local integer oldascii local string achar get original_selection to oldascii get value item oldascii to achar procedure_return (ascii(achar)) end_procedure procedure init_ascii integer oldascii local integer thisone maxx temp local string achar character oldascii to achar move 0 to thisone set select_count to 0 get item_matching achar thisone set original_selection to thisone send reset_ascii end_procedure end_object object load_as is a client set popup_state to true set block_mouse_state to true set location to 7 6 relative on_key key_f2 send load_as_this on_key key_escape send object_set_off object load_as_title is an object_title load_as_title "Load" end_object object load_as_form is a form item_list on_item "" send next end_item_list end_object object load_as_reset is a checkbox set select_mode to multi_select item_list on_item "" send none end_item_list end_object object load_as_button is a button set focus_mode to pointer_only item_list on_item okkey send load_as_this on_item cancelkey send object_set_off on_item helpkey send extended_help end_item_list end_object procedure load_as_this local string old_ini local integer reset_to_it move inifile to old_ini get value of (load_as_form(current_object)) item 0 to inifile get select_state of (load_as_reset(current_object)) item 0 ; to reset_to_it direct_input inifile indicate err as [seqeof] close_input [not err] begin send object_set_off if reset_to_it send reload_it else send load_it end [err] begin send tell_em to not_done "open or read" indicate err false move old_ini to inifile end end_procedure procedure object_set_on local integer result [changes_made] begin get tell_em of (not_saved(current_object)) "loading?" ; to result if result eq msg_ok send save_it else if result eq msg_negative begin indicate changes_made false send show_status end end [not changes_made] begin set value of (load_as_form(current_object)) item 0 to inifile set select_state of (load_as_reset(current_object)) item 0 ; to true send popup end end_procedure procedure object_set_off send deactivate send show_status to main_object end_procedure end_object object save_as is a client set popup_state to true set block_mouse_state to true set location to 7 6 relative on_key key_f2 send save_as_this on_key key_escape send object_set_off object save_as_title is an object_title save_as_title "Save As" end_object object save_as_form is a form item_list on_item "" send none end_item_list end_object object save_as_button is a button set focus_mode to pointer_only item_list on_item okkey send save_as_this on_item cancelkey send object_set_off on_item helpkey send extended_help end_item_list end_object procedure save_as_this local string tempname move inifile to tempname get value of (save_as_form(current_object)) item 0 to inifile send save_it move tempname to inifile send object_set_off end_procedure procedure object_set_on set value of (save_as_form(current_object)) item 0 to inifile send popup end_procedure procedure object_set_off send deactivate send show_status to main_object end_procedure end_object object print_as is a client set popup_state to true set block_mouse_state to true set location to 6 6 relative on_key key_f2 send print_as_this on_key key_escape send object_set_off object print_as_title is an object_title print_as_title "Print" end_object object print_as_radio is a checkbox set select_mode to auto_select set auto_top_item_state to false item_list on_item "Printer" send none on_item "File" send next end_item_list procedure activating forward send activating set current_item to 0 end_procedure end_object object print_as_form is a form item_list on_item "" send none end_item_list procedure entering returns integer local integer retval forward send entering retval get select_state of (print_as_radio(parent(current_object))) ; item 0 to retval if retval begin set shadow_state item 0 to true set value item 0 to "" end else set shadow_state item 0 to false end_procedure end_object object print_as_button is a button set focus_mode to pointer_only item_list on_item okkey send print_as_this on_item cancelkey send object_set_off on_item helpkey send extended_help end_item_list end_object procedure print_as_this local string output_name local integer toafile get select_state of (print_as_radio(current_object)) item 1 ; to toafile if toafile get value of (print_as_form(current_object)) item 0 ; to output_name else move print_device to output_name send print_ini output_name toafile send object_set_off end_procedure procedure object_set_on set value of (print_as_form(current_object)) item 0 to "" send popup end_procedure procedure object_set_off send deactivate send show_status to main_object end_procedure end_object create_menu main_action_bar set location to -1 0 relative set auto_top_item_state to false on_item "File" begin_pull_down file_pull_down on_item "Load... " send object_set_on ; to (load_as(current_object)) on_item "Save F2" send save_it to main_object on_item "Save As... " send object_set_on ; to (save_as(current_object)) on_item "Reset F5" send reload_it to main_object on_item "Print... Shift+F4" send print_it to main_object on_item "Exit Alt+F4" send quitting to main_object end_pull_down on_item "Keyboard" begin_pull_down keyboard_pull_down on_item "Accelerator Keys..." send object_set_on ; to (keyboard_stuff(current_object)) end_pull_down on_item "Colors" begin_pull_down screen_pull_down on_item "Default Colors..." send do_default_colors to main_object on_item "Palettes... " send object_set_on ; to (palette_color_stuff(current_object)) on_item "Class Colors... " send object_set_on ; to (class_color_stuff(current_object)) #IFDEF HAS_EXIT_COLOR on_item "Exit Color..." send object_set_on ; to (exit_color(current_object)) #ENDIF end_pull_down #IFDEF HAS_GRAPHICS on_item "Graphics" begin_pull_down graphics_pull_down on_item "Screen Driver... " send object_set_on ; to (adapters(current_object)) on_item "Printer Driver..." send object_set_on ; to (printers(current_object)) end_pull_down #ENDIF // HAS_GRAPHICS on_item "Appearance" begin_pull_down appearance_pull_down on_item "Checkboxes... " send object_set_on ; to (check_strings(current_object)) on_item "Radio Buttons... " send object_set_on ; to (radio_strings(current_object)) on_item "Scroll Bars... " send object_set_on ; to (scrollbar_strings(current_object)) on_item "Currency String... " send object_set_on ; to (currency(current_object)) on_item "Empty Windows... " send object_set_on ; to (window_fill(current_object)) on_item "Page Ejection Prompt..." send object_set_on ; to (press_any_key(current_object)) end_pull_down on_item "Options" begin_pull_down options_pull_down #IFDEF HAS_POWER_FAIL on_item "Power Fail Protection..." send object_set_on ; to (power_fail(current_object)) #ENDIF // HAS_POWER_FAIL on_item "Date Format... " send object_set_on ; to (date_format(current_object)) on_item "Number Format... " send object_set_on ; to (numeric_format(current_object)) on_item "Automatic return... " send object_set_on ; to (auto_return(current_object)) end_pull_down on_item "Miscellaneous" begin_pull_down miscellaneous_pull_down on_item "Horizontal Scrolling..." send object_set_on ; to (scroll_increments(current_object)) on_item "Scroll Bar Position..." send object_set_on ; to (scrollbar_offset(current_object)) #IFDEF HAS_MOUSE on_item "Mouse Double-click Speed..." send object_set_on ; to (double_click(current_object)) #ENDIF // HAS_MOUSE on_item "Page Control..." send object_set_on ; to (page_control(current_object)) #IFDEF HAS_SPOOLER on_item "Spooler Control Strings..." send object_set_on ; to (spooler_control(current_object)) #ENDIF // HAS_SPOOLER on_item "Character Translation..." send object_set_on ; to (translate(current_object)) #IFDEF HAS_CRITICAL_ERROR on_item "Critical Error Handling..." send object_set_on ; to (crit_error(current_object)) on_item "Critical Error Text Translation..." send object_set_on ; to (crit_text(current_object)) #ENDIF // HAS_CRITICAL_ERROR on_item "Default Error Text Translation..." send object_set_on ; to (default_text(current_object)) end_pull_down #include helpa_pd.inc set verify_exit_msg to check_changes on_key key_alt+key_f send activate_pull_down ; to (file_pull_down(current_object)) private on_key key_alt+key_k send activate_pull_down ; to (keyboard_pull_down(current_object)) private on_key key_alt+key_c send activate_pull_down ; to (screen_pull_down(current_object)) private #IFDEF HAS_GRAPHICS on_key key_alt+key_g send activate_pull_down ; to (graphics_pull_down(current_object)) private #ENDIF on_key key_alt+key_a send activate_pull_down ; to (appearance_pull_down(current_object)) private on_key key_alt+key_o send activate_pull_down ; to (options_pull_down(current_object)) private on_key key_alt+key_m send activate_pull_down ; to (miscellaneous_pull_down(current_object)) private on_key key_alt+key_h send activate_pull_down ; to (help_pull_down(current_object)) private on_key key_f2 send save_it to main_object on_key key_f5 send reload_it to main_object on_key key_shift+key_F4 send print_it to main_object end_menu object main_status is a button set focus_mode to pointer_only set center_state item 0 to true item_list on_item "Current settings" send none on_item "" send do_default_colors to main_object on_item "" send object_set_on to (check_strings(current_object)) on_item "" send object_set_on to (check_strings(current_object)) on_item "" send do_default_colors to main_object #IFDEF HAS_EXIT_COLOR on_item "" send object_set_on to (exit_color(current_object)) #ENDIF on_item "" send object_set_on to (radio_strings(current_object)) on_item "" send object_set_on to (radio_strings(current_object)) on_item "" send do_default_colors to main_object on_item "" send object_set_on ; to (scrollbar_strings(current_object)) on_item "" send object_set_on ; to (scroll_increments(current_object)) on_item "" send object_set_on ; to (scrollbar_strings(current_object)) on_item "" send object_set_on ; to (scrollbar_offset(current_object)) #IFDEF HAS_MOUSE on_item "" send object_set_on to (double_click(current_object)) #ENDIF // HAS_MOUSE on_item "" send object_set_on ; to (scrollbar_strings(current_object)) on_item "" send object_set_on to (date_format(current_object)) on_item "" send object_set_on to (currency(current_object)) on_item "" send object_set_on to (numeric_format(current_object)) on_item "" send object_set_on to (window_fill(current_object)) #IFDEF HAS_POWER_FAIL on_item "" send object_set_on to (power_fail(current_object)) #ENDIF // HAS_POWER_FAIL #IFDEF HAS_GRAPHICS on_item "" send object_set_on to (adapters(current_object)) on_item "" send object_set_on to (adapters(current_object)) #ENDIF // HAS_GRAPHICS on_item "" send object_set_on to (auto_return(current_object)) #IFDEF HAS_GRAPHICS on_item "" send object_set_on to (printers(current_object)) #ENDIF // HAS_GRAPHICS #IFDEF HAS_SPOOLER on_item "" send object_set_on to (spooler_control(current_object)) on_item "" send object_set_on to (spooler_control(current_object)) #ENDIF // HAS_SPOOLER on_item "" send object_set_on to (page_control(current_object)) on_item "" send object_set_on to (page_control(current_object)) on_item "" send object_set_on to (press_any_key(current_object)) end_item_list procedure show_status get fg_value of screencolors item u_desktop to tmp1 set value of main_status.foreground to tmp1 set value of main_status.check_select to check_string_select set value of main_status.check_deselect to check_string_deselect get bg_value of screencolors item u_desktop to tmp1 set value of main_status.background to tmp1 #IFDEF HAS_EXIT_COLOR set value of main_status.exit to exit_color_value #ENDIF set value of main_status.radio_select to radio_string_select set value of main_status.radio_deselect to radio_string_deselect get pal_value of screencolors item u_desktop to tmp1 get value of palette_names item tmp1 to symbol set value of main_status.pallette to symbol set value of main_status.scroll_up to (character(scrollbar_up)) set value of main_status.increments to scroll_increments_option set value of main_status.scroll_bar to (character(scrollbar_bar)) set value of main_status.offset to scrollbar_offset_option #IFDEF HAS_MOUSE set value of main_status.double_click to (11 - double_click_speed) #ENDIF // HAS_MOUSE set value of main_status.scroll_down to (character(scrollbar_down)) if date_format_option eq 0 ; set value of main_status.date_form to ; ("mm" + character(date_separator) + "dd" + ; character(date_separator) + "yy") else if date_format_option eq 1 ; set value of main_status.date_form to ; ("dd" + character(date_separator) + "mm" + ; character(date_separator) + "yy") else set value of main_status.date_form to ; ("yy" + character(date_separator) + "mm" + ; character(date_separator) + "dd") set value of main_status.currency to currency_string set value of main_status.number_form to ; (if(numeric_format_option,"10.000,00","10,000.00")) set value of main_status.empty_window to ; (character(window_fill_char)) #IFDEF HAS_POWER_FAIL set value of main_status.power_fail to ; (if(power_fail_option,"Yes","No")) #ENDIF // HAS_POWER_FAIL #IFDEF HAS_GRAPHICS set value of main_status.graph_driver to graphics_driver set value of main_status.graph_mode to graphics_mode #ENDIF // HAS_GRAPHICS set value of main_status.auto_return to ; (if(auto_return_option,"Yes","No")) #IFDEF HAS_GRAPHICS set value of main_status.print_driver to printer_driver #ENDIF // HAS_GRAPHICS #IFDEF HAS_SPOOLER set value of main_status.dfprinter_string to ; spooler_dfprinter_string set value of main_status.nodfprinter_string to ; spooler_nodfprinter_string #ENDIF // HAS_SPOOLER set value of main_status.pageend_opt to pageend_option if formfeed_option eq 0 ; set value of main_status.pagefeed_opt to "Prompt the user" else if formfeed_option eq 1 ; set value of main_status.pagefeed_opt to "Formfeed" else set value of main_status.pagefeed_opt to ; ("Linefeeds to " + string(pagefeed_option) + " lines") set value of main_status.eject_prompt to press_any_key_string [changes_made] set value of (main_footer(main_object.obj)) item 0 ; to "Changes have been made" [not changes_made] set value of (main_footer(main_object.obj)) ; item 0 to "" set value of (main_footer(main_object.obj)) item 1 to ; (clip(desktop,inifile,38)) end_procedure end_object object main_button is a button set focus_mode to pointer_only item_list on_item "F2=Save" send save_it to main_object on_item resetkey send reload_it to main_object on_item "Shift+F4=Print" send print_it to main_object on_item "Alt+F4=Exit" send quitting to main_object on_item helpkey send extended_help end_item_list end_object procedure print_it send activate to (main_action_bar(current_object)) send object_set_on to (print_as(current_object)) end_procedure function ascii_map_on integer oldascii returns integer local integer newascii send init_ascii to (ascii_map(current_object)) oldascii ui_accept (ascii_map(current_object)) to newascii function_return newascii end_function procedure write_compare string dummy local integer var_arg local string oldline newline dum move "" to newline for var_arg from 1 to num_arguments append newline var_arg& loop readln oldline [seqeof] begin increment cimage_number if cimage_number lt 8 begin close_input if cimage_number eq 2 image_input default_ini2 if cimage_number eq 3 image_input default_ini3 if cimage_number eq 4 image_input default_ini4 if cimage_number eq 5 image_input default_ini5 if cimage_number eq 6 image_input default_ini6 if cimage_number eq 7 image_input default_ini7 readln oldline end end indicate err as [seqeof] [not err] if newline ne oldline writeln newline end_procedure function save_ini returns integer local integer temp temp2 temp3 local string stuff indicate err false if inifile eq "" move dflt_ini to inifile direct_output inifile [seqeof] begin close_output send tell_em to not_done "save to" function_return 0 end image_input default_ini move 1 to cimage_number send working "Saving," [not err] move (accelerator_group * 256) to feature_group [not err] for temp from kprint_screen to kclear_all send write_compare (feature_group + temp - 256) equals ; (key_value(cua_keys.obj,(temp - 256))) [not err] loop [not err] for temp from kmark to kclose_panel send write_compare (feature_group + temp - 256) equals ; (key_value(cua_keys.obj,(temp - 256))) [not err] loop [not err] move (ui_color_group * 256) to feature_group [not err] for windowindex from u_desktop to u_help get fg_value of screencolors item windowindex to temp get bg_value of screencolors item windowindex to temp2 get pal_value of screencolors item windowindex to temp3 send write_compare (feature_group + windowindex) equals ; temp space temp2 space temp3 [not err] loop [not err] for windowindex from u_trace to u_entrylist get fg_value of screencolors item windowindex to temp get bg_value of screencolors item windowindex to temp2 get pal_value of screencolors item windowindex to temp3 send write_compare (feature_group + windowindex) equals ; temp space temp2 space temp3 [not err] loop [not err] for windowindex from u_radio to u_clipboard get fg_value of screencolors item windowindex to temp get bg_value of screencolors item windowindex to temp2 get pal_value of screencolors item windowindex to temp3 send write_compare (feature_group + windowindex) equals ; temp space temp2 space temp3 [not err] loop [not err] move (ui_info_group * 256) to feature_group [not err] for temp from 1 to 8 for temp2 from 0 to 7 get integer_value of palette_colors item (temp * 8 + temp2) ; to temp3 send write_compare (feature_group + temp2) equals ; (temp - 1) space temp3 [not err] loop [not err] loop [not err] send write_compare ; (feature_group + not_checked) equals check_string_deselect [not err] send write_compare ; (feature_group + checked) equals check_string_select [not err] send write_compare ; (feature_group + radio_on) equals radio_string_select [not err] send write_compare ; (feature_group + radio_off) equals radio_string_deselect [not err] send write_compare ; (feature_group + scbar_ofs) equals scrollbar_offset_option [not err] send write_compare ; (feature_group + scbar_up) equals scrollbar_up [not err] send write_compare ; (feature_group + scbar_down) equals scrollbar_down [not err] send write_compare ; (feature_group + scbar_bar) equals scrollbar_bar [not err] send write_compare ; (feature_group + hor_scrl) equals scroll_increments_option [not err] send write_compare ; (feature_group + dbl_click) equals double_click_speed [not err] move (termlist_group * 256) to feature_group [not err] get fg_value of screencolors item u_desktop to temp [not err] get bg_value of screencolors item u_desktop to temp2 [not err] begin send write_compare (feature_group + desktop_col) equals ; temp space temp2 space end [not err] send write_compare (feature_group + auto_ret) equals ; auto_return_option [not err] send write_compare (feature_group + date_form) equals ; date_format_option [not err] send write_compare (feature_group + num_form) equals ; numeric_format_option [not err] send write_compare (feature_group + pwr_fail) equals ; power_fail_option [not err] send write_compare (feature_group + crncy) equals ; currency_string [not err] send write_compare (feature_group + wfill) equals ; window_fill_char [not err] send write_compare (feature_group + gr_adapter) equals ; (if((graphics_path > ""),(graphics_path + separator),"")) ; graphics_driver [not err] send write_compare (feature_group + gr_mode) equals ; graphics_mode [not err] send write_compare (feature_group + gr_printer) equals ; (if((printer_path > ""),(printer_path + separator),"")) ; printer_driver [not err] send write_compare (feature_group + exit_col) equals ; exit_color_value [not err] move (keymap_group * 256) to feature_group [not err] for temp from 0 to 255 get upcase_value of key_map item temp to temp2 send write_compare (feature_group + upcase_feature) equals ; ((temp * 65536) + temp2) [not err] loop [not err] for temp from 0 to 255 get locase_value of key_map item temp to temp2 send write_compare (feature_group + locase_feature) equals ; ((temp * 65536) + temp2) [not err] loop [not err] for temp from 0 to 255 get attrib_value of key_map item temp to temp2 send write_compare (feature_group + attrib_feature) equals ; ((temp * 65536) + temp2) [not err] loop [not err] for temp from 0 to 255 get remap_value of key_map item temp to temp2 send write_compare (feature_group + remap_feature) equals ; ((temp * 65536) + temp2) [not err] loop [not err] move (misc_group * 256) to feature_group [not err] send write_compare (feature_group + date_sep) equals ; date_separator [not err] send write_compare (feature_group + any_key_msg) ; equals (trim(press_any_key_string)) ' ' [not err] send write_compare (feature_group + page_end) equals ; pageend_option [not err] if formfeed_option eq 0 send write_compare ; (feature_group + page_feed) equals -1 [not err] else if formfeed_option eq 1 send write_compare ; (feature_group + page_feed) equals 0 [not err] else send write_compare ; (feature_group + page_feed) equals pagefeed_option [not err] send write_compare ; (feature_group + default_error_cant_open) equals error_cant_open [not err] send write_compare ; (feature_group + default_error_no_text) equals error_no_text [not err] send write_compare ; (feature_group + default_error_out_of_range) equals error_out_of_range [not err] send write_compare ; (feature_group + default_spool_dfprinter_cfg_str) equals ; spooler_dfprinter_string [not err] send write_compare ; (feature_group + default_spool_nodfprinter_cfg_str) equals ; spooler_nodfprinter_string [not err] move (critical_error_group * 256) to feature_group [not err] send write_compare ; (feature_group + criterr_header_msg) equals phrase_1 [not err] send write_compare ; (feature_group + criterr_abort_msg) equals option_1 [not err] send write_compare ; (feature_group + criterr_retry_msg) equals option_2 [not err] send write_compare ; (feature_group + criterr_fail_msg) equals option_3 [not err] send write_compare ; (feature_group + criterr_drive) equals phrase_2 [not err] send write_compare ; (feature_group + criterr_device) equals phrase_3 [not err] send write_compare ; (feature_group + criterr_dflt1) equals criterr_default1 [not err] send write_compare ; (feature_group + criterr_retry) equals criterr_retries [not err] send write_compare ; (feature_group + criterr_dflt2) equals criterr_default2 [not err] begin if canrespond eq 0 move (-criterr_timeout) to criterr_timeout send write_compare (feature_group + criterr_timeout_secs) ; equals criterr_timeout if canrespond eq 0 move (-criterr_timeout) to criterr_timeout end [not err] send write_compare ; (feature_group + criterr_abort_chars) equals reply_1 [not err] send write_compare ; (feature_group + criterr_retry_chars) equals reply_2 [not err] send write_compare ; (feature_group + criterr_fail_chars) equals reply_3 [not err] begin move ((canfail * $01) + (canabort * $02) + (canretry * $04)) ; to temp send write_compare ; (feature_group + criterr_user_mask) equals temp end [not err] for temp from criterr_first_diagnostic to ; criterr_last_diagnostic get string_value of crit_error_diagnostics item ; (temp - criterr_first_diagnostic) to token send write_compare (feature_group + temp) equals (trim(token)) [not err] loop [not err] if (item_count(unused_ini.obj)) gt 0 begin for temp from 0 to (item_count(unused_ini.obj) - 1) writeln (string_value(unused_ini.obj,temp)) loop end close_input close_output send done [err] send tell_em to not_done "save to" function_return (not(err)) end_function procedure load_it send activate to (main_action_bar(current_object)) send reset_defaults 1 send done [err] begin send tell_em to not_done "open or read" indicate err false end send done send show_status end_procedure procedure save_it local integer result send activate to (main_action_bar(current_object)) get save_ini to result [changes_made] indicate changes_made as (result = false) send show_status end_procedure function colorname integer colornum returns string if colornum eq 0 function_return "Inherit" if colornum eq 1 function_return "Desktop win" if colornum eq 2 function_return "Desktop img" function_return (string(colornum)) end_function procedure check_page integer want_lines integer hdr_image pagecheck want_lines [pagebreak] output profile_header [not err not pagebreak] output profile_footer [not err] move hdr_image to current_image [not err] output end_procedure procedure print_ini string output_name integer isafile local integer temp temp2 temp3 local string stuff stuff2 msg move "Dfconfig failed to print:" to msg direct_output output_name [seqeof] begin if isafile send show_em to not_done msg ; "file could not be created." else send show_em to not_done msg ; "printer appears not ready." procedure_return end send working "Printing," indicate err false if isafile move 0 to pageend else move 60 to pageend move 0 to linecount output profile_header output profile_keys_header for temp from kprint_screen to kclear_all get key_value of cua_keys item (temp - 256) to temp2 get name_value of cua_keys item (temp - 256) to stuff send print_key stuff temp2 [not err] loop [not err] for temp from kmark to kclose_panel get key_value of cua_keys item (temp - 256) to temp2 get name_value of cua_keys item (temp - 256) to stuff send print_key stuff temp2 [not err] loop [not err] send check_page (profile_footer.lines + ; profile_colors_header.lines + (profile_colors.lines * 5)) ; profile_colors_header.n [not err] get fg_value of screencolors item u_desktop to temp [not err] get bg_value of screencolors item u_desktop to temp2 [not err] get pal_value of screencolors item u_desktop to temp3 [not err] get name_value of screencolors item u_desktop to stuff [not err] get value of palette_names item temp3 to stuff2 [not err] send print_colors (stuff + " (desktop)") temp temp2 stuff2 [not err] for windowindex from u_message to u_help get fg_value of screencolors item windowindex to temp get bg_value of screencolors item windowindex to temp2 get pal_value of screencolors item windowindex to temp3 get name_value of screencolors item windowindex to stuff get value of palette_names item temp3 to stuff2 send print_colors (stuff + " class") temp temp2 stuff2 [not err] loop [not err] for windowindex from u_trace to u_entrylist get fg_value of screencolors item windowindex to temp get bg_value of screencolors item windowindex to temp2 get pal_value of screencolors item windowindex to temp3 get name_value of screencolors item windowindex to stuff get value of palette_names item temp3 to stuff2 send print_colors (stuff + " class") temp temp2 stuff2 [not err] loop [not err] for windowindex from u_radio to u_clipboard get fg_value of screencolors item windowindex to temp get bg_value of screencolors item windowindex to temp2 get pal_value of screencolors item windowindex to temp3 get name_value of screencolors item windowindex to stuff get value of palette_names item temp3 to stuff2 send print_colors (stuff + " class") temp temp2 stuff2 [not err] loop [not err] send check_page (profile_footer.lines + ; profile_palette_colors_header.lines + ; profile_palette_colors_subheader.lines + ; profile_palette_colors.lines) profile_palette_colors_header.n [not err] for temp from 1 to 8 pagecheck (profile_palette_colors_subheader.lines ; + profile_palette_colors.lines) [pagebreak] output profile_header [not err pagebreak] output profile_palette_colors_header [not err] get value of palette_names item temp to stuff [not err] print (stuff + " palette") ; to profile_palette_colors_subheader.1 [not err] output profile_palette_colors_subheader [not err] autopage profile_palette_colors [not err] print (colorname(current_object, ; integer_value(palette_colors.obj,(temp * 8)))) [not err] print (colorname(current_object, ; integer_value(palette_colors.obj,(temp * 8 + 1)))) [not err] print (colorname(current_object, ; integer_value(palette_colors.obj,(temp * 8 + 2)))) [not err] print (colorname(current_object, ; integer_value(palette_colors.obj,(temp * 8 + 3)))) [not err] print (colorname(current_object, ; integer_value(palette_colors.obj,(temp * 8 + 4)))) [not err] print (colorname(current_object, ; integer_value(palette_colors.obj,(temp * 8 + 6)))) [not err] output profile_palette_colors [not err] loop [not err] send check_page (profile_footer.lines + ; profile_ui_header.lines + profile_ui_body.lines) ; profile_ui_header.n [not err] autopage profile_ui_body [not err] print check_string_select [not err] print check_string_deselect [not err] print radio_string_select [not err] print radio_string_deselect [not err] print scrollbar_offset_option [not err] print (character(scrollbar_up)) [not err] print (character(scrollbar_bar)) [not err] print (character(scrollbar_down)) [not err] print scroll_increments_option [not err] print (11 - double_click_speed) [not err] output profile_ui_body [not err] send check_page (profile_footer.lines + ; profile_misc_header.lines + profile_misc_body.lines) ; profile_misc_header.n [not err] autopage profile_misc_body [not err] print (if(auto_return_option,"yes","no")) [not err] character date_separator to stuff2 [not err] if date_format_option eq 0 ; move ("mm" + stuff2 + "dd" + stuff2 + "yy") to stuff [not err] else if date_format_option eq 1 ; move ("dd" + stuff2 + "mm" + stuff2 + "yy") to stuff [not err] else move ("yy" + stuff2 + "mm" + stuff2 + "dd") to stuff [not err] print stuff [not err] print (if(numeric_format_option,"1.000,00","1,000.00")) [not err] print (if(power_fail_option,"yes","no")) [not err] print currency_string [not err] print (character(window_fill_char)) [not err] if graphics_path gt "" begin trim graphics_path to stuff if (right(stuff,1)) ne separator append stuff separator end [not err] else move "" to stuff [not err] append stuff graphics_driver [not err] print stuff [not err] print graphics_mode [not err] if printer_path gt "" begin trim printer_path to stuff if (right(stuff,1)) ne separator append stuff separator end [not err] else move "" to stuff [not err] append stuff printer_driver [not err] print stuff [not err] print press_any_key_string [not err] print spooler_dfprinter_string [not err] print spooler_nodfprinter_string [not err] output profile_misc_body [not err] send print_misc "Useable page size in lines" ; pageend_option [not err] begin move "When the page is full" to stuff if formfeed_option eq 0 send print_misc stuff ; "Prompt the user for a keystroke" else if formfeed_option eq 1 send print_misc stuff ; "Output a formfeed character" else send print_misc stuff ; "Fill remainder with linefeed characters" end [not err] send check_page (profile_footer.lines + ; profile_mapping_header.lines +(profile_mapping_body.lines *5)) ; profile_mapping_header.n [not err] for windowindex from 0 to 255 send print_map windowindex [not err] loop [not err] begin pagecheck profile_critical.lines [pagebreak] output profile_header end autopage profile_critical print phrase_1 print option_1 print option_2 print option_3 print phrase_2 print phrase_3 [not err] begin move "" to stuff if canabort gt 0 move "Abort " to stuff if canretry gt 0 append stuff "Retry " if canfail gt 0 append stuff "Fail" if stuff ne "" move "Y" to stuff2 else move "N" to stuff2 print stuff2 print stuff end print criterr_timeout if criterr_default1 eq CRITERR_ABORT_FLAG move "Abort" to stuff if criterr_default1 eq CRITERR_RETRY_FLAG move "Retry" to stuff if criterr_default1 eq CRITERR_FAIL_FLAG move "Fail" to stuff print stuff print criterr_retries if criterr_default2 eq CRITERR_ABORT_FLAG move "Abort" to stuff if criterr_default2 eq CRITERR_RETRY_FLAG move "Retry" to stuff if criterr_default2 eq CRITERR_FAIL_FLAG move "Fail" to stuff print stuff print reply_1 print reply_2 print reply_3 writeln output profile_critical pagecheck (item_count(crit_error_diagnostics.obj)) [pagebreak] output profile_header writeln writeln "Critical error diagnostic messages" writeln [not err] begin for temp from criterr_first_diagnostic to criterr_last_diagnostic get string_value of crit_error_diagnostics item ; (temp - criterr_first_diagnostic) to token writeln (trim(token)) [not err] loop end writeln writeln "Default error text" writeln writeln "No error text: Can't open = " error_cant_open writeln "No error text available = " error_no_text writeln "Error number out of range = " error_out_of_range close_output send done [err] begin if isafile begin send show_em to not_done msg "not enough room for file." erasefile output_name end else send show_em to not_done msg; "printer reports an error." indicate err false end end_procedure procedure body_check pagecheck profile_body.lines [not err pagebreak] output profile_header end_procedure procedure print_key string descr integer thekey send body_check [not err pagebreak] output profile_keys_header [err] procedure_return print descr to profile_body.1 print (map_sequence(desktop,thekey,1)) to profile_body.2 output profile_body end_procedure procedure print_misc string descr string val send body_check [err] procedure_return print descr to profile_body.1 print val to profile_body.2 output profile_body end_procedure procedure print_colors string descr integer fg integer bg ; string palette_name pagecheck profile_colors.lines [pagebreak] output profile_header [err] procedure_return [pagebreak] output profile_colors_header [err] procedure_return print descr to profile_colors.1 print (colorname(current_object,fg)) to profile_colors.2 print (colorname(current_object,bg)) to profile_colors.3 print palette_name to profile_colors.4 output profile_colors end_procedure procedure print_map integer thekey local integer temp send body_check [not err pagebreak] output profile_mapping_header [err] procedure_return blankform profile_mapping_body autopage profile_mapping_body print (dec2hex(desktop,thekey)) get upcase_value of key_map item thekey to temp print (dec2hex(desktop,temp)) get locase_value of key_map item thekey to temp print (dec2hex(desktop,temp)) get remap_value of key_map item thekey to temp print (dec2hex(desktop,temp)) get attrib_value of key_map item thekey to temp if ((temp iand $040) = $040) print 'X' if ((temp iand $008) = $008) print 'X' if ((temp iand $002) = $002) print 'X' if ((temp iand $001) = $001) print 'X' if ((temp iand $010) = $010) print 'X' if ((temp iand $020) = $020) print 'X' if ((temp iand $100) = $100) print 'X' if ((temp iand $200) = $200) print 'X' if ((temp iand $400) = $400) print 'X' output profile_mapping_body end_procedure procedure reload_it local integer result local string myself [changes_made] begin get tell_em of (not_saved(current_object)) "resetting?" to result if result eq msg_ok send save_it else if result eq msg_negative indicate changes_made false end [not changes_made] begin send working "Resetting," get module_name to myself append myself ' ' inifile send destroy_object to desktop 1 reset_ini inifile chain myself end end_procedure procedure quitting local integer result indicate ok_to_exit as [not changes_made] [not ok_to_exit] begin get tell_em of (not_saved(current_object)) "exiting?" to result if result eq msg_ok begin send save_it indicate ok_to_exit true end else if result eq msg_negative indicate ok_to_exit true end [ok_to_exit] send exit_application to desktop end_procedure procedure check_changes returns integer local integer result indicate ok_to_exit as [not changes_made] [not ok_to_exit] begin get tell_em of (not_saved(current_object)) "exiting?" to result if result eq msg_ok begin send save_it indicate ok_to_exit true end else if result eq msg_negative indicate ok_to_exit true end [ok_to_exit] procedure_return 0 procedure_return 1 end_procedure procedure show_status send show_status to (main_status(current_object)) end_procedure procedure activate forward send activate clearscreen send done end_procedure on_key key_alt+key_f4 send quitting to main_object end_object procedure check_memory for desktop local integer mem_left memory mem_left set value of (main_footer(main_object.obj)) item 2 to mem_left end_procedure procedure activating for desktop send check_memory end_procedure procedure deactivating for desktop send check_memory end_procedure cmdline inifile send reset_defaults (inifile <> "") [err] begin send tell_em to not_done "open or read" indicate err false end send show_status to main_object start_ui main_object clearscreen set_argument_size old_Size abort