--- RCPTT testcase ---
Format-Version: 1.0
Context-Type: org.eclipse.rcptt.ctx.ecl
Element-Name: ECL_Procedure
Element-Type: context
Element-Version: 2.0
Id: _procedurestotestclassdiagram
Runtime-Version: 2.0.2.201511100828
Save-Time: 6/23/16 4:11 PM

------=_.ecl.context-718f04b4-ed39-33e3-af62-0995e4561998
Content-Type: text/ecl
Entry-Name: .ecl.context

// This function creates a Papyrus project.
proc "create-project" [val nameProject] {

	// Define the new project name.
	get-menu "File/New/Papyrus Project" | click
	with [get-window "New Papyrus Project"] {
	    get-button "Next >" | click
	    with [get-editbox -after [get-label "Project name:"]] {
	        set-text $nameProject
	    }
	    get-button "Next >" | click
	}
	
	// Validate the creation of the Papyrus project.
	get-window "New Papyrus Project" | get-button Finish | click
	
	// Verify if the Papyrus project has been created.
	get-view "Project Explorer" | get-tree | get-item $nameProject | get-property caption | equals $nameProject | verify-true
}


//This function renames a RootElement.
proc "rename-rootElement" [val currentNameRootE] [val newNameRootE] {
	with [get-view "Model Explorer" | get-tree] {	    
	    get-item $currentNameRootE | click
	    select $currentNameRootE | get-menu Rename | click
	}
	with [get-window "Rename..."] {
	    get-editbox -after [get-label "New name:"] | set-text $newNameRootE
	    get-button OK | click
	}
	
	get-view "Model Explorer" | get-tree | get-item $newNameRootE | get-property caption | equals $newNameRootE | verify-true
}
------=_.ecl.context-718f04b4-ed39-33e3-af62-0995e4561998--