| --- RCPTT testcase --- |
| Format-Version: 1.0 |
| Context-Type: org.eclipse.rcptt.ctx.ecl |
| Element-Name: ECL_EditComment |
| Element-Type: context |
| Element-Version: 2.0 |
| Id: _addcommentondiagram |
| 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 comment on the given diagram. |
| proc "add-comment" [val x] [val y] [val textComment] [val diagramName] [val editorRootName] [val explorerRootName] [val pathComment] { |
| |
| |
| get-editor "model.di" | get-diagram | get-edit-part -name $editorRootName |
| |
| // Get comment in palette. |
| with [get-palette | get-palette-entry "Comment"] { |
| mouse-move 35 12 button1 -height 23 -width 251 |
| mouse-press 35 12 button1 -height 23 -width 251 |
| mouse-release 35 12 button1 524288 -height 23 -width 251 |
| } |
| |
| // Add the comment in the given diagram. |
| with [get-diagram $diagramName] { |
| mouse-move $x $y button1 |
| mouse-press $x $y button1 |
| mouse-release $x $y button1 |
| } |
| |
| get-view Properties | get-editbox -after [get-label Body] | set-text $textComment |
| |
| // Make sure the desired comment has been created. |
| with [get-view "Model Explorer" | get-tree | get-item $explorerRootName] { |
| get-item $pathComment | equals true |
| } |
| } |
| |
| |
| |
| // This function remove a comment on the given diagram. |
| proc "remove-comment" [val explorerRootName] [val pathComment] { |
| |
| with [get-view "Model Explorer" | get-tree | get-item $explorerRootName] { |
| get-item $pathComment | click |
| get-menu Delete | click |
| } |
| |
| // Make sure the desired comment has been removed. |
| with [get-view "Model Explorer" | get-tree | get-item $explorerRootName] { |
| verify-error {get-item $pathComment} |
| } |
| } |
| ------=_.ecl.context-718f04b4-ed39-33e3-af62-0995e4561998-- |