home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / msumldesk.mnu < prev    next >
Text File  |  1997-06-03  |  3KB  |  123 lines
  1. registerObject  {
  2.     scope        {* *}
  3.     name        .utilities.menu.user_4
  4.     type        CustMenuSeparator
  5.     visible        {0 0 1 1 0}
  6.     objSpec        {
  7.     }
  8. }
  9.  
  10. registerObject  {
  11.     scope        {* * {Analysis SystemDesign ObjectDesign}}
  12.     name        .utilities.menu.exporttomsrepository
  13.     type        CustMenuPushButton
  14.     visible        {0 0 0 1 0}
  15.     objSpec        {
  16.         label        {Export to MS Repository}
  17.         hintText    {Export to MS Repository.}
  18.         activated    {
  19.             #CTGENCommandScript
  20.             if ![isCommand MsRepChooser] {
  21.                 set home [m4_var get M4_home]/contrib/ObjectTeamMsRepUml/tcl
  22.                 source $home/msrepchoos.tcl
  23.                 source $home/msimportco.tcl
  24.                 source $home/msexportco.tcl
  25.                 }
  26.             set selSet ""
  27.             set selectedObjSet [.main selectedObjSet]
  28.                 
  29.             foreach obj [.main selectedObjSet] {
  30.                 if [$obj isA PhaseVersion] {
  31.                 foreach sv [$obj systemVersions] {
  32.                     lappend selSet [$sv identity]
  33.                 }
  34.                 #only one phase version can be exp.
  35.                 break
  36.                 }
  37.                 lappend selSet [$obj identity]
  38.             }
  39.             MsExportControl new .main.msExportChooser "" "" $selSet
  40.             .main.msExportChooser popUp
  41.             [.main messageArea] message "" 
  42.             #CTGENEndCommandScript    
  43.         }
  44.         selCount    many
  45.         checkOn        selectionChange
  46.         selIsATypes    SSysVDbObj
  47.     }
  48. }
  49.  
  50. registerObject  {
  51.     scope        {* *}
  52.     name        .utilities.menu.exporttomsrepository
  53.     type        CustMenuPushButton
  54.     visible        {0 0 1 0 0}
  55.     objSpec        {
  56.         label        {Export to MS Repository}
  57.         hintText    {Export to MS Repository.}
  58.         activated    {
  59.             #CTGENCommandScript
  60.             if ![isCommand MsRepChooser] {
  61.                 set home [m4_var get M4_home]/contrib/ObjectTeamMsRepUml/tcl
  62.                 source $home/msrepchoos.tcl
  63.                 source $home/msimportco.tcl
  64.                 source $home/msexportco.tcl
  65.                 }
  66.             set selSet ""
  67.             set selectedObjSet [.main selectedObjSet]
  68.                 
  69.             if ![llength $selectedObjSet]  {
  70.                 wmtkerror "No system selected"
  71.                 return
  72.             }
  73.             foreach obj [.main selectedObjSet] {
  74.                 if [$obj isA PhaseVersion] {
  75.                 foreach sv [$obj systemVersions] {
  76.                     lappend selSet [$sv identity]
  77.                 }
  78.                 #only one phase version can be exp.
  79.                 break
  80.                 }
  81.                 lappend selSet [$obj identity]
  82.             }
  83.             MsExportControl new .main.msExportChooser "" "" $selSet
  84.             .main.msExportChooser popUp
  85.             [.main messageArea] message "" 
  86.             #CTGENEndCommandScript    
  87.         }
  88.         selCount    1
  89.         checkOn        selectionChange
  90.         selIsATypes    PhaseVersion
  91.         selTypes    {Analysis ObjectDesign SystemDesign}
  92.     }
  93. }
  94.  
  95. registerObject  {
  96.     scope        {* * {Analysis SystemDesign ObjectDesign}}
  97.     name        .utilities.menu.importfrommsrepository
  98.     type        CustMenuPushButton
  99.     visible        {0 0 0 1 0}
  100.     objSpec        {
  101.         label        {Import from MS Repository}
  102.         mnemonic    I
  103.         hintText    {Import from MS Repository.}
  104.         activated    {
  105.             busy {
  106.             #CTGENCommandScript
  107.             if ![isCommand MsRepChooser] {
  108.                 set home [m4_var get M4_home]/contrib/ObjectTeamMsRepUml/tcl
  109.                 source $home/msrepchoos.tcl
  110.                 source $home/msimportco.tcl
  111.                 source $home/msexportco.tcl
  112.             }
  113.             [.main messageArea] message "Reading models in repository ..."
  114.             MsImportControl new .main.msImportChooser "" ""
  115.             .main.msImportChooser popUp
  116.             [.main messageArea] message "" 
  117.             #CTGENEndCommandScript    
  118.             }
  119.         }
  120.     }
  121. }
  122.  
  123.