| --- RCPTT testcase --- |
| Format-Version: 1.0 |
| Context-Type: org.eclipse.rcptt.ctx.ecl |
| Element-Name: ECL_AddDiagram |
| Element-Type: context |
| Element-Version: 2.0 |
| Id: _addadiagramtoproject |
| Runtime-Version: 2.0.2.201511100828 |
| Save-Time: 6/23/16 4:06 PM |
| |
| ------=_.ecl.context-718f04b4-ed39-33e3-af62-0995e4561998 |
| Content-Type: text/ecl |
| Entry-Name: .ecl.context |
| |
| // This function add a diagram to the model. |
| proc "add-diagram" [val type] [val name] [val modelExplorerRootName] |
| { |
| with [get-view -text $modelExplorer | get-tree] |
| { |
| get-item $modelExplorerRootName | click |
| select $modelExplorerRootName | get-menu [concat "New Diagram/.*" $type " Diagram"] | click |
| with [get-window "Enter a new diagram name"] |
| { |
| get-editbox -after [get-label "The new diagram name:"] | set-text $name |
| get-button OK | click |
| } |
| } |
| } |
| ------=_.ecl.context-718f04b4-ed39-33e3-af62-0995e4561998-- |
