rollout recordplace "Record Place V0.1" 
(


--01
    pickbutton pickpos1 "Pick Object Place" pos:[10,10] 
    button replacepos1 "Go" pos:[120,10] 


--02
    pickbutton pickpos2 "Pick Object Place" pos:[10,40] 
    button replacepos2 "Go" pos:[120,40]


--03
    pickbutton pickpos3 "Pick Object Place" pos:[10,70] 
    button replacepos3 "Go" pos:[120,70] 


--04
    pickbutton pickpos4 "Pick Object Place" pos:[10,100] 
    button replacepos4 "Go" pos:[120,100] 


--05
    pickbutton pickpos5"Pick Object Place" pos:[10,130] 
    button replacepos5 "Go" pos:[120,130] 


--06
    pickbutton pickpos6 "Pick Object Place" pos:[10,160] 
    button replacepos6 "Go" pos:[120,160] 

 


-- 01
    on pickpos1 picked obj do
    (
    --local pos_obj1 = obj
    global obj_pos1 = obj.pos
    pickpos1.text = obj.name
    )
    
    
    
    on replacepos1 pressed do
    (
    
undo on
    for i in selection do
        (
        i.pos = obj_pos1
    
        --i.pos = pos_obj.pos
        )
    )


-- 02
    on pickpos2 picked obj do
    (
    --local pos_obj2 = obj
    global obj_pos2 = obj.pos
    pickpos2.text = obj.name
    )
    
    
    
    on replacepos2 pressed do
    (
    
undo on
    for i in selection do
        (
        i.pos = obj_pos2
    
        --i.pos = pos_obj.pos
        )
    )



-- 03
    on pickpos3 picked obj do
    (
    --local pos_obj3 = obj
    global obj_pos3 = obj.pos
    pickpos3.text = obj.name
    )
    
    
    
    on replacepos3 pressed do
    (
    
undo on
    for i in selection do
        (
        i.pos = obj_pos3
    
        --i.pos = pos_obj.pos
        )
    )


-- 04
    on pickpos4 picked obj do
    (
    --local pos_obj4 = obj
    global obj_pos4 = obj.pos
    pickpos4.text = obj.name
    )
    
    
    
    on replacepos4 pressed do
    (
    
undo on
    for i in selection do
        (
        i.pos = obj_pos4
    
        --i.pos = pos_obj.pos
        )
    )


-- 05
    on pickpos5 picked obj do
    (
    --local pos_obj5 = obj
    global obj_pos5 = obj.pos
    pickpos5.text = obj.name
    )
    
    
    
    on replacepos5 pressed do
    (
    
undo on
    for i in selection do
        (
        i.pos = obj_pos5
    
        --i.pos = pos_obj.pos
        )
    )


-- 06
    on pickpos6 picked obj do
    (
    --local pos_obj6 = obj
    global obj_pos6 = obj.pos
    pickpos6.text = obj.name
    )
    
    
    
    on replacepos6 pressed do
    (
    
undo on
    for i in selection do
        (
        i.pos = obj_pos6
    
        --i.pos = pos_obj.pos
        )
    )

    
)



-- create the rollout window and add the  rollout
if recordplaceFloater != undefined do
                (
                closerolloutfloater recordplaceFloater
                )        
CreateDialog  recordplace