/*********************************************************************
* Copyright (C) 2000 by Progress Software Corporation ("PSC"),       *
* 14 Oak Park, Bedford, MA 01730, and other contributors as listed   *
* below.  All Rights Reserved.                                       *
*                                                                    *
* The Initial Developer of the Original Code is PSC.  The Original   *
* Code is Progress IDE code released to open source December 1, 2000.*
*                                                                    *
* The contents of this file are subject to the Possenet Public       *
* License Version 1.0 (the "License"); you may not use this file     *
* except in compliance with the License.  A copy of the License is   *
* available as of the date of this notice at                         *
* http://www.possenet.org/license.html                               *
*                                                                    *
* Software distributed under the License is distributed on an "AS IS"*
* basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. You*
* should refer to the License for the specific language governing    *
* rights and limitations under the License.                          *
*                                                                    *
* Contributors:                                                      *
*                                                                    *
*********************************************************************/
/*----------------------------------------------------------------------------

File: 2lstup.i

Description:
    Shift an item "up" one in a "shadow" select list situation. This
    code assumes that both lists have the same number of entries and
    are already in proper order.
    
    The function including this file must also include 2lstdef.i

Arguments:
   &pick_list_w   - The list.
   &shadow_list_w - The shadow of the list.
   &frame         - The frame of the pick list

Author: David Lee

Date Created: 03/04/93
----------------------------------------------------------------------------*/

IF {&pick_list_w}:SCREEN-VALUE IN FRAME {&frame} <> ? THEN DO:
  /* Find the entry in the list */
  ASSIGN
    lst_choice     =  {&pick_list_w}:SCREEN-VALUE IN FRAME {&frame}
    lst_pick_list  =  {&pick_list_w}:LIST-ITEMS IN FRAME {&frame}
    lst_index      =  LOOKUP(ENTRY(1,lst_choice,CHR(3)),lst_pick_list,CHR(3))
    lst2_orig_index = lst_index
    lst2_pick_list =  {&shadow_list_w}:LIST-ITEMS IN FRAME {&frame}.

  /*
   * Update the shadow list. First build a second choice list
   * based on the first choice list. First get the name of the
   * choice, then gets its location in its data structure, then
   * get the corresponding element from the shadow's datastructure
   */
   
  DO lst2_index = 1 TO NUM-ENTRIES(lst_choice,CHR(3)):
    lst2_shadow = lst2_shadow +
      ENTRY(LOOKUP(ENTRY(lst2_index,lst_choice,CHR(3)),lst_pick_list,CHR(3)), 
            lst2_pick_list,CHR(3)).

    IF lst2_index <> NUM-ENTRIES(lst_choice,CHR(3)) THEN
      lst2_shadow = lst2_shadow + CHR(3).
  END.

  /* Update the data structure for the list that has the selection */
  {adecomm/lstup.i &choice       = lst_choice
                   &pick_list    = lst_pick_list
                   &choice_index = lst_index}

  /* And now add the chosen item back into the list */
  ASSIGN       
    {&pick_list_w}:LIST-ITEMS IN FRAME {&frame} = lst_pick_list      
    {&pick_list_w}:SCREEN-VALUE      IN FRAME {&frame} = lst_choice.
  
  /* Go change the data structure */
  {adecomm/lstup.i &choice       = lst2_shadow
                   &pick_list    = lst2_pick_list
                   &choice_index = lst2_orig_index}

  /* And now update the shadow.  */
  ASSIGN       
    {&shadow_list_w}:LIST-ITEMS IN FRAME {&frame} = lst2_pick_list      
    {&shadow_list_w}:SCREEN-VALUE      IN FRAME {&frame} = lst2_shadow.
    
END.

/* 2lstup.i - end of file */