/***************************************************************************************/
/*                                                                                     */
/*  SCS editor Version 2                                                               */
/*  File : ScsDataInterface.pkg                                                        */
/*  Version : 30 Mai 2000                                                              */
/*  SCS specific data                                                                  */
/*                                                                                     */
/***************************************************************************************/

fun SCSDATA_ClearSelection (priority) =
  let SELECT_GetModule priority -> list in
    if list == nil
    then
      let SELECT_GetZone priority -> list in
        if list == nil
        then
          let SELECT_GetLink priority -> list in
            if list == nil
            then
              let SELECT_GetAssociation priority -> list in
                if list == nil
                then
                  0
                else
                (
                  1
                )
            else
            (
              /*apply_on_list list @LINK_ConfirmDeletion nil;*/
              1
            )
        else
        (
          1
        )
    else
    (
      1
    )
;;