home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / m4vardescr.tcl < prev    next >
Encoding:
Text File  |  1997-11-12  |  5.8 KB  |  177 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Westmount Technology    1994
  4. #
  5. #      File:           @(#)m4vardescr.tcl    /main/titanic/8
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)m4vardescr.tcl    /main/titanic/8   12 Nov 1997 Copyright 1994 Westmount Technology
  10.  
  11. # Start user added include file section
  12. # End user added include file section
  13.  
  14.  
  15. Class M4VarDescription : {Object} {
  16.     constructor
  17.     method destructor
  18.     method getUiName
  19.     method removeUiName
  20.     method setUiName
  21.     method get_UiName
  22.     method set_UiName
  23.     method remove_UiName
  24.     attribute _UiName
  25. }
  26.  
  27. constructor M4VarDescription {class this name} {
  28.     set this [Object::constructor $class $this $name]
  29.     $this _UiName [Dictionary new]
  30.     # Start constructor user section
  31.  
  32.     [$this _UiName] contents {
  33.         M4_a_printer "Text Printer Command"
  34.         M4_a_printer_llen "Text Printer Line Length"
  35.         M4_a_printer_plen "Text Printer Page Length"
  36.         M4_action_syntax "Action Syntax"
  37.         M4_archive_cmd "Archive Command"
  38.         M4_attribute_filter "Attribute Filter"
  39.         M4_bg "Background"
  40.         M4_brokerport "Broker Port Number"
  41.         M4_class_syntax "Class Syntax"
  42.         M4_clear_screen "Clear Screen"
  43.         M4_condition_syntax "Condition Syntax"
  44.         M4_contextarea "Context Area Present"
  45.         M4_contextarea_labelfont "Label Font of Context Area"
  46.         M4_contextarea_valuefont "Value Font of Context Area"
  47.         M4_control_syntax "Control Syntax"
  48.         M4_corporate "Corporate Name"
  49.         M4_corproles "Corporate Roles"
  50.         M4_csconfig_parammode "Csconfig Parameter Display Mode"
  51.         M4_curr_rep "Current Report"
  52.         M4_data_syntax "Data Syntax"
  53.         M4_dblockmode "Read Lock Strategy"
  54.         M4_dbms "Project DBMS"
  55.         M4_dbtracesql "Debug Flag For RDBMS"
  56.         M4_diff "Compare Command"
  57.         M4_editor "Text Editor"
  58.         M4_fg "Foreground"
  59.         M4_file_history "History"
  60.         M4_filter_case_sensitive "Filter Case Sensitive"
  61.         M4_find_case_sensitive "Find Case Sensitive"
  62.         M4_find_using_filters "Use Filters For Find"
  63.         M4_flat_view "Display Flat View"
  64.         M4_fm_international "Use International FrameMaker"
  65.         M4_font "Normal Font"
  66.         M4_font_bold "Bold Font"
  67.         M4_fullnr "Full Process Index"
  68.         M4_geometry "Geometry"
  69.         M4_grid_delta "Grid Size"
  70.         M4_grid_visible "Grid Visible"
  71.         M4_heartbeat_interval "Heartbeat Interval"
  72.         M4_hidden_flows "Hidden Flows"
  73.         M4_home "Path To Installation Root"
  74.         M4_imphost "Implementation Host"
  75.         M4_infoview_mode "View Mode"
  76.         M4_initial_fold "Initial Fold"
  77.         M4_keyboardfocuspolicy "Keyboard Focus Policy"
  78.         M4_lc_collate "Locale For String Collation"
  79.         M4_lc_ctype "Locale For Char Classification"
  80.         M4_levelpath "Client Context"
  81.         M4_levelpath_ids "Client Context Ids"
  82.         M4_license_filter "License Filter"
  83.         M4_lock_filter "Lock Filter"
  84.         M4_lockfile_update "Lockfile Update Time"
  85.         M4_max_missed_heartbeats "Max Nr Of Missed Heartbeats"
  86.         M4_messagearea "Message Area Present"
  87.         M4_module_syntax "Module Syntax"
  88.         M4_nameserverhost "Nameserver Host"
  89.         M4_nameserverport "Nameserver Port Number"
  90.         M4_operation_filter "Operation Filter"
  91.         M4_orb_linger "Timeout For Servers"
  92.         M4_orb_maxclients "Max Nr Of Clients Per Server"
  93.         M4_orb_maxinstances "Max Nr Of Server Instances Per Host"
  94.         M4_orb_report "Report Time For Servers"
  95.         M4_orb_timeout "Timeout For Connections"
  96.         M4_package "Package"
  97.         M4_parent_pid "Process id of effective parent process"
  98.         M4_parent_threshold "Percentage Indicating Preference Of Parent dbserver"
  99.         M4_password "Password"
  100.         M4_previewer "Previewer"
  101.         M4_print_box "Print Box"
  102.         M4_probe_control "Nr Of Minimum And Remembered Probes"
  103.         M4_probe_maxdelay "Max Delay Of Average Probe Time"
  104.         M4_probe_timeout "Timeout For Probes"
  105.         M4_process_syntax "Process Syntax"
  106.         M4_projroles "Project Roles"
  107.         M4_protocol "Implementation Protocol"
  108.         M4_ps_auto_scale "Automatic Scaling"
  109.         M4_ps_columns "Number Of Horizontal Pages"
  110.         M4_ps_mode "Graphical Printer Mode"
  111.         M4_ps_page_h "Graphical Printer Page Height"
  112.         M4_ps_page_w "Graphical Printer Page Width"
  113.         M4_ps_printer "Graphical Printer Command"
  114.         M4_ps_rows "Number Of Vertical Pages"
  115.         M4_ps_scale "Scale Factor"
  116.         M4_ps_title "Diagram Title"
  117.         M4_ref_view "References"
  118.         M4_repdir "Log Directory"
  119.         M4_reuse_tool "Reuse Exetool"
  120.         M4_section_syntax "Section Syntax"
  121.         M4_sel_color "Selection Color"
  122.         M4_services "Object Services File"
  123.         M4_sort_case_sensitive "Sort Case Sensitive"
  124.         M4_state_syntax "State Syntax"
  125.         M4_target_lang "Target Language"
  126.         M4_tdb_host "Target Data Base Host"
  127.         M4_tdb_name "Target Data Base Name"
  128.         M4_toolbar "Toolbar Present"
  129.         M4_unarchive_cmd "Unarchive Command"
  130.         M4_viewer "Viewer"
  131.         M4_win_editor "(Text) Editor uses own window frame"
  132.         M4_win_previewer "Window Previewer"
  133.         M4_win_viewer "Window Viewer uses own window frame"
  134.         M4_zoom "Zoom Factor"
  135.     }
  136.  
  137.     # End constructor user section
  138.     return $this
  139. }
  140.  
  141. method M4VarDescription::destructor {this} {
  142.     # Start destructor user section
  143.     # End destructor user section
  144. }
  145.  
  146. method M4VarDescription::getUiName {this m4var} {
  147.     set context [context $m4var]
  148.     if {"$context" == ""} {
  149.     return [$this get_UiName $m4var]
  150.     }
  151.     regsub "__$context" "$m4var" "" _m4var
  152.     return "[$this get_UiName $_m4var] ($context)"
  153. }
  154.  
  155. method M4VarDescription::removeUiName {this m4var} {
  156.     $this remove_uiName $m4var
  157. }
  158.  
  159. method M4VarDescription::setUiName {this m4var newUiName} {
  160.     $this set_UiName $m4var $newUiName
  161. }
  162.  
  163. # Do not delete this line -- regeneration end marker
  164.  
  165. method M4VarDescription::get_UiName {this m4var} {
  166.     return [[$this _UiName] set $m4var]
  167. }
  168.  
  169. method M4VarDescription::set_UiName {this m4var new_UiName} {
  170.     [$this _UiName] set $m4var $new_UiName
  171. }
  172.  
  173. method M4VarDescription::remove_UiName {this m4var} {
  174.     [$this _UiName] unset $m4var
  175. }
  176.  
  177.