define RCSFastRenew
{
        save()
        theMessage = "Checkpoint"
        shell_command ( "ci -u \"-m" theMessage "\" " $file_name, "" )
        if ( $shell_cmd_status != 0 )
        {
                dialog ( "Error Renewing " $file_name ": " $shell_cmd_status, "Ok" )
        }

        shell_command ( "co -l " $file_name, "" )
        if ( $shell_cmd_status != 0 )
        {
                dialog ( "Error Checking Out " $file_name ": " $shell_cmd_status, "Ok" )
        }
        revert_to_saved()
}

define RCSFastCheckIn
{
        save()
        theMessage = "Checkpoint"
        shell_command ( "ci -u \"-m" theMessage "\" " $file_name, "" )
        if ( $shell_cmd_status == 0 )
        {
                revert_to_saved()
        }
        else
        {
                dialog ( "Error Checking In " $file_name ": " $shell_cmd_status, "Ok" )
        }
}

define RCSCheckIn
{

        save()
        inMessage = "Check in: " $file_name " with comment"
        theMessage = string_dialog( inMessage, "Ok", "Cancel" )
        if ( $string_dialog_button == 1 )
        {
                shell_command ( "ci -u \"-m" theMessage "\" " $file_name, "" )
                if ( $shell_cmd_status == 0 )
                {
                        revert_to_saved()
                }
                else
                {
                        dialog ( "Error Checking In " $file_name ": " $shell_cmd_status, "Ok" )
                }
        }
}

define RCSCheckInClose
{

        save()
        inMessage = "Check in: " $file_name " with comment"
        theMessage = string_dialog( inMessage, "Ok", "Cancel" )
        if ( $string_dialog_button == 1 )
        {
                shell_command ( "ci -u \"-m" theMessage "\" " $file_name, "" )
                if ( $shell_cmd_status == 0 )
                {
                        close()
                }
                else
                {
                        dialog ( "Error Checking In " $file_name ": " $shell_cmd_status, "Ok" )
                }
        }
}

define RCSCheckOut
{
        save()
        shell_command ( "co -l " $file_name, "" )
        if ( $shell_cmd_status == 0 )
        {
                revert_to_saved()
        }
        else
        {
                dialog ( "Error Checking Out " $file_name ": " $shell_cmd_status, "Ok" )
        }
}

define RCSRenew
{
        save()
        inMessage = "Renew: " $file_name " with comment:"
        theMessage = string_dialog( inMessage, "Ok", "Cancel" )
        if ( $string_dialog_button == 1 )
        {

                shell_command ( "ci -u \"-m" theMessage "\" " $file_name, "" )
                if ( $shell_cmd_status != 0 )
                {
                        dialog ( "Error Renewing " $file_name ": " $shell_cmd_status, "Ok" )
                        revert_to_saved()
                        return
                }

                shell_command ( "co -l " $file_name, "" )
                if ( $shell_cmd_status != 0 )
                {
                        dialog ( "Error Checking Out " $file_name ": " $shell_cmd_status, "Ok" )
                }
                revert_to_saved()
        }
}