rcpttTests/ECL_IDE_module/ControlPanel/Undo_Redo in Control Panel.test

--- RCPTT testcase ---
Format-Version: 1.0
Q7-vendor: www.xored.com/q7
Contexts: _ymiyse5IEeCU6db9MgIBkA,_ZQYygK2sEeCqBbDEJWufvQ,_XltvoIKaEeC_2txVMvPWLQ
Element-Name: Undo/Redo in Control Panel
Element-Type: testcase
Element-Version: 3.0
External-Reference: http://jira4.xored.com/browse/QS-1330
Id: _ok65YPMBEeCE19s6EOk3LA
Q7-Runtime-Version: 1.5.0.qualifier
Save-Time: 6/14/14 2:30 PM
Tags: selfAUT, ControlPanel, UndoRedo
Testcase-Type: ecl

------=_.description-216f885c-d591-38ce-8ea2-e4f8cb4d6ffa
Content-Type: text/plain
Entry-Name: .description

Copyright (c) 2009, 2014 Xored Software Inc and others.
All rights reserved. This program and the accompanying materials
are made available under the terms of the Eclipse Public License v1.0
which accompanies this distribution, and is available at
http://www.eclipse.org/legal/epl-v10.html

Contributors:
    Xored Software Inc - initial creation and/or initial documentation
--------------------------------------------------------------------------------

TEST STEPS

1. Have non-empty scenario;
2. Start recording, add some ECL code;
3. Check Ctrl+Z/Ctrl+Y key combinations perform Undoing/Redoing.


------=_.description-216f885c-d591-38ce-8ea2-e4f8cb4d6ffa--
------=_.content-0a7243a0-75d3-3d5f-9791-539de0e5b7ac
Content-Type: text/ecl
Entry-Name: .content

get-view "Test Explorer" | get-tree | select "TestQ7Prj/Test scenario" | double-click -nowait
with [get-editor "Test scenario"] {
    with [get-section Script | get-editbox] {
        type-text "wait "
        key-type "NUMPAD_2" 2
        key-type "NUMPAD_0" 0
        key-type "NUMPAD_0" 0
    }
    get-button Record | click
}
get-window "Control Panel - Test scenario (TestQ7Prj) - selfQ7 [Recording]" | get-editbox | get-property rawValue 
    | equals "wait 200" | verify-true
with [get-window "Control Panel - Test scenario (TestQ7Prj) - selfQ7 [Recording]"] {
    get-editbox | set-text-offset 8 0
    get-button Stop | click
}
with [get-window "Control Panel - Test scenario (TestQ7Prj) - selfQ7" | get-editbox] {
    set-text-offset 8 0
    key-type CR
    key-type q
}
get-window "Control Panel - Test scenario (TestQ7Prj) - selfQ7" | get-editbox | get-property rawValue 
    | equals "wait 200\\n"
    + "q" | verify-true
with [get-window "Control Panel - Test scenario (TestQ7Prj) - selfQ7" | get-editbox] {
    set-text-offset 1 1
    key-type "M1+z"
    set-text-offset 8 0
}
get-window "Control Panel - Test scenario (TestQ7Prj) - selfQ7" | get-editbox | get-property rawValue 
    | equals "wait 200" | verify-true
with [get-window "Control Panel - Test scenario (TestQ7Prj) - selfQ7" | get-editbox] {
    set-text-offset 8 0
    key-type "M1+y"
}
get-window "Control Panel - Test scenario (TestQ7Prj) - selfQ7" | get-editbox | get-property rawValue 
    | equals "wait 200\\n"
    + "q" | verify-true
------=_.content-0a7243a0-75d3-3d5f-9791-539de0e5b7ac--