#=auto==========================================================================
#   Portions (c) Copyright 2005 Brigham and Women's Hospital (BWH) All Rights Reserved.
# 
#   See Doc/copyright/copyright.txt
#   or http://www.slicer.org/copyright/copyright.txt for details.
# 
#   Program:   3D Slicer
#   Module:    $RCSfile: EdSaveIsland.tcl,v $
#   Date:      $Date: 2005/12/20 22:54:42 $
#   Version:   $Revision: 1.16.8.1 $
# 
#===============================================================================
# FILE:        EdSaveIsland.tcl
# PROCEDURES:  
#   EdSaveIslandInit
#   EdSaveIslandBuildGUI
#   EdSaveIslandApply
#==========================================================================auto=

#-------------------------------------------------------------------------------
# .PROC EdSaveIslandInit
# 
# .ARGS
# .END
#-------------------------------------------------------------------------------
proc EdSaveIslandInit {} {
    global Ed Gui

    set e EdSaveIsland
    set Ed($e,name)      "Save Island"
    set Ed($e,initials)  "SI"
    set Ed($e,desc)      "Save Island: remove all but one island."
    set Ed($e,rank)      7
    set Ed($e,procGUI)   EdSaveIslandBuildGUI

    # Required
    set Ed($e,scope) Single 
    set Ed($e,input) Working

    set Ed($e,xSeed) 0
    set Ed($e,ySeed) 0
    set Ed($e,zSeed) 0
}

#-------------------------------------------------------------------------------
# .PROC EdSaveIslandBuildGUI
# 
# .ARGS
# .END
#-------------------------------------------------------------------------------
proc EdSaveIslandBuildGUI {} {
    global Ed Gui

    #-------------------------------------------
    # SaveIsland frame
    #-------------------------------------------
    set f $Ed(EdSaveIsland,frame)

    frame $f.fInput   -bg $Gui(activeWorkspace)
    frame $f.fScope   -bg $Gui(activeWorkspace)
    frame $f.fGrid    -bg $Gui(activeWorkspace)
    frame $f.fApply   -bg $Gui(activeWorkspace)
    pack $f.fGrid $f.fInput $f.fScope $f.fApply \
        -side top -pady $Gui(pad) -fill x

    EdBuildScopeGUI $Ed(EdSaveIsland,frame).fScope Ed(EdSaveIsland,scope) Multi
    EdBuildInputGUI $Ed(EdSaveIsland,frame).fInput Ed(EdSaveIsland,input)

    #-------------------------------------------
    # SaveIsland->Grid frame
    #-------------------------------------------
    set f $Ed(EdSaveIsland,frame).fGrid

    # Seed
    eval {label $f.lSeed -text "Location:"} $Gui(WLA)
    eval {entry $f.eX -width 4 -textvariable Ed(EdSaveIsland,xSeed)} $Gui(WEA)
    eval {entry $f.eY -width 4 -textvariable Ed(EdSaveIsland,ySeed)} $Gui(WEA)
    eval {entry $f.eZ -width 4 -textvariable Ed(EdSaveIsland,zSeed)} $Gui(WEA)
#    grid $f.lSeed $f.eX $f.eY $f.eZ -padx $Gui(pad) -pady $Gui(pad) -sticky e

    #-------------------------------------------
    # SaveIsland->Apply frame
    #-------------------------------------------
    set f $Ed(EdSaveIsland,frame).fApply

#    eval {button $f.bApply -text "Apply" \
#        -command "EdSaveIslandApply"} $Gui(WBA) {-width 8}
#    pack $f.bApply -side top -padx $Gui(pad) -pady 2

    eval {label $f.l -text "Apply by clicking on the island."} $Gui(WLA)
    pack $f.l -side top

}

#-------------------------------------------------------------------------------
# .PROC EdSaveIslandApply
# 
# .ARGS
# .END
#-------------------------------------------------------------------------------
proc EdSaveIslandApply {} {
    global Ed Volume Gui

    set e EdSaveIsland
    set v [EditorGetInputID $Ed($e,input)]

    EdSetupBeforeApplyEffect $v $Ed($e,scope) Native

    set Gui(progressText) "Save Island in [Volume($v,node) GetName]"
    
    set x       $Ed($e,xSeed)
    set y       $Ed($e,ySeed)
    set z       $Ed($e,zSeed)
    Ed(editor)  SaveIsland $x $y $z
    Ed(editor)  SetInput ""
    Ed(editor)  UseInputOff

    EdUpdateAfterApplyEffect $v
}

