home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / m4vardescr.tcl < prev    next >
Text File  |  1996-09-20  |  5KB  |  164 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Westmount Technology    1994
  4. #
  5. #      File:           @(#)m4vardescr.tcl    /main/hindenburg/5
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)m4vardescr.tcl    /main/hindenburg/5   20 Sep 1996 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_action_syntax "Action Syntax"
  34.         M4_attribute_filter "Attribute Filter"
  35.         M4_a_printer "Text Printer Command"
  36.         M4_a_printer_llen "Text Printer Line Length"
  37.         M4_a_printer_plen "Text Printer Page Length"
  38.         M4_bg "Background"
  39.         M4_brokerport "Broker Port Number"
  40.         M4_class_scope "Default Class Scope"
  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_hidden_flows "Hidden Flows"
  72.         M4_home "Path To Installation Root"
  73.         M4_imphost "Implementation Host"
  74.         M4_infoview_mode "View Mode"
  75.         M4_initial_fold "Initial Fold"
  76.         M4_keyboardfocuspolicy "Keyboard Focus Policy"
  77.         M4_lc_collate "Locale For String Collation"
  78.         M4_lc_ctype "Locale For Char Classification"
  79.         M4_levelpath "Client Context"
  80.         M4_levelpath_ids "Client Context Ids"
  81.         M4_license_host "License Server Host"
  82.         M4_license_filter "License Filter"
  83.         M4_messagearea "Message Area Present"
  84.         M4_module_syntax "Module Syntax"
  85.         M4_nameserverhost "Nameserver Host"
  86.         M4_nameserverport "Nameserver Port Number"
  87.         M4_operation_filter "Operation Filter"
  88.         M4_orb_timeout "Broker Timeout"
  89.         M4_package "Package"
  90.         M4_password "Password"
  91.         M4_previewer "Previewer"
  92.         M4_print_box "Print Box"
  93.         M4_process_syntax "Process Syntax"
  94.         M4_projroles "Project Roles"
  95.         M4_protocol "Implementation Protocol"
  96.         M4_ps_auto_scale "Automatic Scaling"
  97.         M4_ps_columns "Number Of Horizontal Pages"
  98.         M4_ps_mode "Graphical Printer Mode"
  99.         M4_ps_page_h "Graphical Printer Page Height"
  100.         M4_ps_page_w "Graphical Printer Page Width"
  101.         M4_ps_printer "Graphical Printer Command"
  102.         M4_ps_rows "Number Of Vertical Pages"
  103.         M4_ps_scale "Scale Factor"
  104.         M4_ps_title "Diagram Title"
  105.         M4_ref_view "References"
  106.         M4_repdir "Log Directory"
  107.         M4_reuse_tool "Reuse Exetool"
  108.         M4_section_syntax "Section Syntax"
  109.         M4_sel_color "Selection Color"
  110.         M4_services "Object Services File"
  111.         M4_sort_case_sensitive "Sort Case Sensitive"
  112.         M4_state_syntax "State Syntax"
  113.         M4_target_lang "Target Language"
  114.         M4_tdb_host "Target Data Base Host"
  115.         M4_tdb_name "Target Data Base Name"
  116.         M4_toolbar "Toolbar Present"
  117.         M4_viewer "Viewer"
  118.         M4_win_editor "Text Window Editor"
  119.         M4_win_previewer "Window Previewer"
  120.         M4_win_viewer "Window Viewer"
  121.         M4_zoom "Zoom Factor"
  122.     }
  123.  
  124.     # End constructor user section
  125.     return $this
  126. }
  127.  
  128. method M4VarDescription::destructor {this} {
  129.     # Start destructor user section
  130.     # End destructor user section
  131. }
  132.  
  133. method M4VarDescription::getUiName {this m4var} {
  134.     set context [context $m4var]
  135.     if {"$context" == ""} {
  136.     return [$this get_UiName $m4var]
  137.     }
  138.     regsub "__$context" "$m4var" "" _m4var
  139.     return "[$this get_UiName $_m4var] ($context)"
  140. }
  141.  
  142. method M4VarDescription::removeUiName {this m4var} {
  143.     $this remove_uiName $m4var
  144. }
  145.  
  146. method M4VarDescription::setUiName {this m4var newUiName} {
  147.     $this set_UiName $m4var $newUiName
  148. }
  149.  
  150. # Do not delete this line -- regeneration end marker
  151.  
  152. method M4VarDescription::get_UiName {this m4var} {
  153.     return [[$this _UiName] set $m4var]
  154. }
  155.  
  156. method M4VarDescription::set_UiName {this m4var new_UiName} {
  157.     [$this _UiName] set $m4var $new_UiName
  158. }
  159.  
  160. method M4VarDescription::remove_UiName {this m4var} {
  161.     [$this _UiName] unset $m4var
  162. }
  163.  
  164.