App-SeismicUnixGui
view release on metacpan or search on metacpan
lib/App/SeismicUnixGui/misc/L_SU_global_constants.pm view on Meta::CPAN
my $help_menubutton_type_h = { _About => 'About',
_InstallationGuide => 'InstallationGuide',
_Tutorial => 'Tutorial',
};
my $purpose = { _geopsy => 'geopsy', };
my $var = {
_1_character => '1',
_14_characters => '14',
_13_characters => '13',
_12_characters => '12',
_11_characters => '11',
_2_characters => '2',
_3_characters => '3',
_4_characters => '4',
_5_characters => '5',
_6_characters => '6',
_7_characters => '7',
_8_characters => '8',
_10_characters => '10',
_15_characters => '15',
_20_characters => '20',
_30_characters => '30',
_32_characters => '32',
_35_characters => '35',
_37_characters => '37',
_40_characters => '40',
_45_characters => '45',
_ACTIVE_PROJECT => '/.L_SU/configuration/active',
_App => 'App',
_SeismicUnixGui => 'SeismicUnixGui',
_Project_config => 'Project.config',
_skip_directory => 'archive',
_base_file_name => 'base_file_name',
_clear_text => '',
_color_default => 'grey', # first color listbox to select
_config_file_format => '%-35s%1s%-20s',
_eight_characters => '8',
_empty_string => '',
_failure => -1,
_false => 0,
_data_name => 'data_name',
_base_file_name => 'base_file_name',
_five_pixels => '5',
_five_pixel_borderwidth => 5,
_five_lines => '5',
_forward_slash => "/",
_1_line => '1',
_2_lines => '2',
_3_lines => '3',
_4_lines => '4',
_8_lines => '8',
_7_lines => '7',
_1_pixel => '1',
_3_pixels => '3',
_6_pixels => '6',
_24_pixels => '24',
_12_pixels => '12',
_18_pixels => '18',
_NaN => 'NaN',
_five_characters => '5',
_flow => 'frame',
_half_tiny_width => '6',
_hundred_characters => '100',
_large__width => '200',
_light_gray => 'gray90',
_literal_empty_string => '\'\'',
_l_suplot_box_positionNsize => '600x800+1000+1000',
_l_suplot_width => '500',
_l_suplot_height => '300',
_log_file_txt => 'log.txt',
_main_window_geometry => '1100x750+100+100',
_medium_width => '100',
_message_box_geometry => '400x250+400+400',
_min_clicks4save_button => 45, # B4:19; fixing leaky param_widget memory
_min_clicks4flow_select => 8, # fixing leaky param_widget memory
_ms2s => 0.001,
_my_arial => "-*-arial-normal-r-*-*-*-120-*-*-*-*-*-*",
# _my_purple => 'MediumPurple1',
_my_purple => 'LightSteelBlue',
_my_white => 'white',
# _my_yellow => 'LightGoldenrod1',
_my_yellow => 'white',
_my_dark_grey => 'DarkGrey',
_my_black => 'black',
_my_light_green => 'LightGreen',
_my_light_grey => 'LightGrey',
_my_pink => 'pink',
_my_light_blue => 'LightBlue',
_my_dialog_box_geometry => '400x250+400+400',
_neutral => 'neutral',
_no_pixel => '0',
_no_dir => '/',
_no_borderwidth => '0',
_nu => 'nu',
_no => 'no',
_on => 'on',
_off => 'off',
_one_character => '1',
_one_pixel => '1',
_one_pixel_borderwidth => '1',
_program_title => 'SeismicUnixGui V0.87.6',
_project_selector_title => 'Project Selector',
_l_suplot_title => 'L_suplot',
_project_selector_title => 'Project Selector',
_project_selector => 'Project',
_project_selector_box_position => '600x600+100+100',
_null_sunix_value => '',
_reservation_color_default =>
'grey', # first choice for reserving a color listbox
_suffix_pl => '.pl',
_suffix_pm => '.pm',
_superflow => 'menubutton',
_small_width => '50',
_string2startFlowSetUp => '->clear\(\);', # for regex in perl_flow
_string2endFlowSetUp => '->Step\(\);', # for regex in perl_flow
_standard_width => '20',
_sunix_select => 'sunix_select',
_ten_characters => '10',
_test_dir_name => 't',
( run in 0.811 second using v1.01-cache-2.11-cpan-4ab04211f4c )