| --- RCPTT testcase --- |
| Format-Version: 1.0 |
| Context-Type: org.eclipse.rcptt.ctx.ecl |
| Element-Name: ECL_DiagramNavigation |
| Element-Type: context |
| Element-Version: 2.0 |
| Id: _diagramnavigation |
| Runtime-Version: 2.2.0.201611022324 |
| Save-Time: 12/2/16 3:40 PM |
| |
| ------=_.ecl.context-718f04b4-ed39-33e3-af62-0995e4561998 |
| Content-Type: text/ecl |
| Entry-Name: .ecl.context |
| |
| // This function selects a named edit part in the diagram |
| proc "select-edit-part" [val x] [val y] [val name ""] [val className ""] [val text ""] [val height] [val width] |
| { |
| |
| with [if [$name | not-eq ""] -then {get-edit-part -name $name } -else |
| { |
| if [$className | not-eq ""] -then {get-edit-part -className $className} -else |
| { |
| if [$text | not-eq ""] -then {get-edit-part -text $text} -else {} |
| }}] { |
| mouse-press $x $y button1 -height $height -width $width |
| mouse-release $x $y button1 -height $height -width $width |
| } |
| } |
| |
| proc "select-target-connection" [val x] [val y] [val sourceName] [val index 0] [val height] [val width] |
| { |
| with [get-edit-part -name $sourceName | get-target-connection $index] { |
| mouse-press $x $y button1 -height $height -width $width |
| mouse-release $x $y button1 -height $height -width $width |
| } |
| } |
| |
| proc "close-diagram" [val editorName][val diagramName] |
| { |
| with [get-editor $editorName | get-tab-folder] { |
| with [get-tab-item $diagramName] { |
| click |
| close |
| } |
| } |
| } |
| |
| proc "close-all-diagrams" [val editorName] |
| { |
| with [get-editor $editorName | get-tab-folder] { |
| get-tab-item Welcome | click |
| with [get-menu -path "Close All Diagrams"]{ |
| if [is-disabled | not]{ |
| click |
| } |
| } |
| } |
| } |
| |
| ------=_.ecl.context-718f04b4-ed39-33e3-af62-0995e4561998-- |