/** @file
  UI Common Controls

;******************************************************************************
;* Copyright (c) 2012 - 2020, Insyde Software Corp. All Rights Reserved.
;*
;* You may not reproduce, distribute, publish, display, perform, modify, adapt,
;* transmit, broadcast, present, recite, release, license or otherwise exploit
;* any part of this publication in any form, by any means, without the prior
;* written permission of Insyde Software Corporation.
;*
;******************************************************************************
*/
#include "H2ODisplayEngineLocalMetro.h"
#include "UiControls.h"
#include "H2OControls.h"
#include "H2OPanels.h"
#include "MetroUi.h"

STATIC H2O_SETUP_PAGE_PANEL_CLASS        *mH2OSetupPagePanelClass = NULL;
#define CURRENT_CLASS                    mH2OSetupPagePanelClass

extern HWND                     gLastFocus;

//
// Record old page id, when change page need set scrollpos to zero
//
H2O_PAGE_ID                     mOldPageId = 0;

VOID
FreeStatements (
  H2O_SETUP_PAGE_PANEL          *This
  )
{
  UINTN                         Index;

  if (This->StatementCount == 0 && This->Statement == NULL) {
    return;
  }

  for (Index = 0; Index < This->StatementCount; Index++) {
    FreePool (This->Statement[Index]);
  }
  This->StatementCount = 0;
  FreePool (This->Statement);
  This->Statement = NULL;
}

VOID
FreeIfrOpcodeInfo (
  H2O_SETUP_PAGE_PANEL          *This
  )
{
  if (This->IfrOpcodeInfoList != NULL && This->IfrOpcodeInfoCount != 0) {
    FreePool (This->IfrOpcodeInfoList);
    This->IfrOpcodeInfoList  = NULL;
    This->IfrOpcodeInfoCount = 0;
  }
}

EFI_STATUS
GetIfrOpcodePropertyList (
  IN  H2O_SETUP_PAGE_PANEL          *This,
  IN  UINT8                         IfrOpcode,
  IN  H2O_PANEL_INFO                *SetupPagePanelInfo,
  OUT H2O_PROPERTY_INFO             ***PropertyList,
  OUT UINTN                         *PropertyCount
  )
{
  UINTN                             Index;

  for (Index = 0; Index < This->IfrOpcodeInfoCount; Index++) {
    if (This->IfrOpcodeInfoList[Index].IfrOpcode == IfrOpcode) {
      *PropertyList  = This->IfrOpcodeInfoList[Index].PropertyList;
      *PropertyCount = This->IfrOpcodeInfoList[Index].PropertyCount;
      return EFI_SUCCESS;
    }
  }

  This->IfrOpcodeInfoList = ReallocatePool (
                              sizeof(H2O_SETUP_PAGE_PANEL_IFR_OPCODE_INFO) * This->IfrOpcodeInfoCount,
                              sizeof(H2O_SETUP_PAGE_PANEL_IFR_OPCODE_INFO) * (This->IfrOpcodeInfoCount + 1),
                              This->IfrOpcodeInfoList
                              );
  if (This->IfrOpcodeInfoList == NULL) {
    This->IfrOpcodeInfoCount = 0;
    return EFI_OUT_OF_RESOURCES;
  }

  This->IfrOpcodeInfoList[This->IfrOpcodeInfoCount].IfrOpcode = IfrOpcode;
  GetVfcfPanelPropertyList (
    SetupPagePanelInfo,
    GetStyleTypeByOpCode (IfrOpcode),
    H2O_STYLE_PSEUDO_CLASS_NORMAL,
    &This->IfrOpcodeInfoList[This->IfrOpcodeInfoCount].PropertyList,
    &This->IfrOpcodeInfoList[This->IfrOpcodeInfoCount].PropertyCount
    );
  *PropertyList  = This->IfrOpcodeInfoList[This->IfrOpcodeInfoCount].PropertyList;
  *PropertyCount = This->IfrOpcodeInfoList[This->IfrOpcodeInfoCount].PropertyCount;
  This->IfrOpcodeInfoCount++;
  return EFI_SUCCESS;
}

VOID
SetupPageItemSelected (
  UI_LIST_VIEW                  *This,
  UI_CONTROL                    *Item,
  UINT32                        Index
  )
{
  H2O_FORM_BROWSER_S            *Statement;
  H2O_STATEMENT_ID              StatementId;
  EFI_STATUS                    Status;

  StatementId = (H2O_STATEMENT_ID) GetWindowLongPtr (Item->Wnd, GWLP_USERDATA);
  Status = gFB->GetSInfo (gFB, gFB->CurrentP->PageId, StatementId, &Statement);
  if (EFI_ERROR (Status)) {
    return ;
  }

  if (Statement->IfrOpCode != gFB->CurrentQ->IfrOpCode) {
    SendSelectQNotify (Statement->PageId, Statement->QuestionId, Statement->IfrOpCode);
  }

  FreePool (Statement);
}

VOID
SetupPageItemClick (
  UI_LIST_VIEW                  *This,
  UI_CONTROL                    *Item,
  UINT32                        Index
  )
{
  H2O_FORM_BROWSER_S            *Statement;
  H2O_STATEMENT_ID              StatementId;
  EFI_STATUS                    Status;
  EFI_HII_VALUE                 HiiValue;

  StatementId = (H2O_STATEMENT_ID) GetWindowLongPtr (Item->Wnd, GWLP_USERDATA);
  Status = gFB->GetSInfo (gFB, gFB->CurrentP->PageId, StatementId, &Statement);
  if (EFI_ERROR (Status)) {
    return ;
  }

  if (Statement->Selectable) {
    SendSelectQNotify (Statement->PageId, Statement->QuestionId, Statement->IfrOpCode);

    if (Statement->Operand == EFI_IFR_CHECKBOX_OP) {
      CopyMem (&HiiValue, &Statement->HiiValue, sizeof (EFI_HII_VALUE));
      HiiValue.Value.b = !HiiValue.Value.b;
      SendChangeQNotify (Statement->PageId, Statement->QuestionId, &HiiValue);
    } else {
      SendOpenQNotify (Statement->PageId, Statement->QuestionId, Statement->IfrOpCode);
    }
  }

  FreePool (Statement);
}

VOID
FrontPageItemOnSetState (
  UI_CONTROL                    *Control,
  UI_STATE                      SetState,
  UI_STATE                      ClearState
  )
{
  H2O_FORM_BROWSER_S            *Statement;
  H2O_STATEMENT_ID              StatementId;
  EFI_STATUS                    Status;

  if (SetState & UISTATE_HOVER) {

    StatementId = (H2O_STATEMENT_ID) GetWindowLongPtr (Control->Wnd, GWLP_USERDATA);
    Status = gFB->GetSInfo (gFB, gFB->CurrentP->PageId, StatementId, &Statement);
    if (EFI_ERROR (Status)) {
      return ;
    }

    if (Statement->Selectable) {
      SendSelectQNotify (Statement->PageId, Statement->QuestionId, Statement->IfrOpCode);
    }
    FreePool (Statement);
  }
}

/**
  Set the attributes of front page panel.
  Based on front page item count, calculate the padding, cell height and cell width.
  If front page items can not be accommodated in one page, it will enable vertical scroll bar.

  @param [in] This                 A pointer to the H2O_SETUP_PAGE_PANEL instance
  @param [in] FrontPageItemHeight  Front page item height
  @param [in] FrontPageItemWidth   Front page item width
  @param [in] FrontPageItemCount   Front page item count

  @retval EFI_SUCCESS              Set the attributes successful.
  @retval EFI_INVALID_PARAMETER    This is NULL or FrontPageItemHeight, FrontPageItemWidth or FrontPageItemCount is zero.
**/
EFI_STATUS
SetFrontPagePanelAttribute (
  IN H2O_SETUP_PAGE_PANEL       *This,
  IN INT32                      FrontPageItemHeight,
  IN INT32                      FrontPageItemWidth,
  IN UINT32                     FrontPageItemCount
  )
{
  UI_CONTROL                    *Control;
  RECT                          Rc;
  INT32                         PaddingHeight;
  INT32                         PaddingWidth;
  CHAR16                        Str[200];
  INT32                         MaxColumn;
  INT32                         Column;
  INT32                         Row;
  INT32                         BestColumn;
  UINT32                        ItemCount;
  INT32                         MaxPadding;
  INT32                         Padding;
  INT32                         ScrollBarWidth;

  if (This == NULL || FrontPageItemHeight == 0 || FrontPageItemWidth == 0 || FrontPageItemCount == 0) {
    return EFI_INVALID_PARAMETER;
  }

  Control = (UI_CONTROL *) This;

  GetWindowRect (Control->Wnd, &Rc);
  OffsetRect (&Rc, -Rc.left, -Rc.top);
  MaxColumn = Rc.right / FrontPageItemWidth;
  if (MaxColumn == 0) {
    UiApplyAttributeList ((UI_CONTROL *)This, L"cellwidth='0' cellheight='0' padding='0,0,0,0'");
    return EFI_SUCCESS;
  }

  PaddingHeight = 0;
  PaddingWidth  = 0;

  MaxPadding = 0;
  BestColumn = 0;
  ItemCount  = FrontPageItemCount;
  for (Column = 1; Column <= MaxColumn; Column++) {
    Row = ItemCount / Column;
    if ((ItemCount % Column) != 0) {
      Row++;
    }

    if (Column * FrontPageItemWidth  > Rc.right ||
        Row    * FrontPageItemHeight > Rc.bottom) {
      continue;
    }

    if ((ItemCount % Column) != 0) {
      ItemCount += (Column - (ItemCount % Column));
    }

    Padding = MIN ((Rc.right - Column * FrontPageItemWidth) / (Column + 1), (Rc.bottom - Row * FrontPageItemHeight) / (Row + 1));

    if (Padding > MaxPadding) {
      MaxPadding = Padding;
      BestColumn = Column;
    }
  }

  if (BestColumn == 0) {
    ScrollBarWidth = 25;
    Column         = (Rc.right - ScrollBarWidth) / FrontPageItemWidth;
    PaddingWidth   = (Rc.right - ScrollBarWidth - Column * FrontPageItemWidth) / (Column + 1);
    PaddingHeight  = 10;
  } else {
    Column = BestColumn;
    Row    = FrontPageItemCount / Column;
    if ((FrontPageItemCount % Column) != 0) {
      Row++;
    }
    PaddingWidth  = (Rc.right - Column * FrontPageItemWidth) / (Column + 1);
    PaddingHeight = (Rc.bottom - Row * FrontPageItemHeight) / (Row + 1);
  }

  UnicodeSPrint (
    Str,
    sizeof (Str),
    L"cellwidth='%d' cellheight='%d' padding='%d,%d,%d,%d' width='%d' height='%d' vscrollbar='%s'",
    PaddingWidth,
    PaddingHeight,
    PaddingHeight,
    PaddingWidth,
    PaddingHeight,
    PaddingWidth,
    Rc.right - 2 * PaddingWidth,
    Rc.bottom - 2 * PaddingHeight,
    (BestColumn == 0) ? L"true" : L"false"
    );

  UiApplyAttributeList ((UI_CONTROL *)This, Str);

  return EFI_SUCCESS;
}

EFI_STATUS
RefreshMenuOptionList (
  H2O_SETUP_PAGE_PANEL          *This
  )
{
  UINTN                         Index;
  EFI_STATUS                    Status;
  UI_CONTROL                    *Control;
  UI_CONTROL                    *Item;
  HWND                          Wnd;
  H2O_FORM_BROWSER_P            *CurrentP;
  H2O_PAGE_ID                   PageId;
  H2O_FORM_BROWSER_S            *Statement;
  CHAR16                        Str[50];
  BOOLEAN                       InFrontPage;
  H2O_STATEMENT_ID              StatementId;
  INT32                         Height;
  INT32                         Width;
  H2O_PANEL_INFO                *PanelInfo;
  H2O_PROPERTY_INFO             **PropertyList;
  UINTN                         PropertyCount;

  Control = (UI_CONTROL *) This;
  Wnd     = Control->Wnd;

  CurrentP   = gFB->CurrentP;
  PageId     = CurrentP->PageId;

  //
  // remove old items
  //
  CONTROL_CLASS(This)->RemoveAllChild ((UI_CONTROL *)This);

  //
  // set scroll pos to zero when change page
  //
  if (mOldPageId != PageId) {
    mOldPageId = PageId;
    if (Control->VScrollBar != NULL) {
      SCROLLBAR_CLASS(Control->VScrollBar)->SetScrollPos (Control->VScrollBar, 0);
    }
    FreeIfrOpcodeInfo (This);
  }

  FreeStatements (This);
  This->Statement      = AllocateZeroPool (CurrentP->NumberOfStatementIds * sizeof (H2O_FORM_BROWSER_S *));
  if (This->Statement == NULL) {
    return EFI_OUT_OF_RESOURCES;
  }

  InFrontPage = IsFrontPage ();
  This->StatementCount = CurrentP->NumberOfStatementIds;

  Height = 175;
  Width  = 240;
  if (InFrontPage) {
    SetFrontPagePanelAttribute (This, Height, Width, This->StatementCount);
  }

  PanelInfo = GetPanelInfo (mLayoutInfo, SETUP_PAGE_PANEL_ID);
  for (Index = 0; Index < CurrentP->NumberOfStatementIds; Index++) {
    Status = gFB->GetSInfo (gFB, PageId, CurrentP->StatementIds[Index], &Statement);
    This->Statement[Index] = Statement;
    ASSERT_EFI_ERROR (Status);
    if (EFI_ERROR (Status)) {
      continue;
    }

    if (InFrontPage) {
      if (Statement->Operand != EFI_IFR_REF_OP && Statement->Operand != EFI_IFR_ACTION_OP) {
        continue;
      }
      Item = CreateControl (L"FrontPageItem", (UI_CONTROL*)This);
      UnicodeSPrint (Str, sizeof (Str), L"height='%d' width='%d'", Height, Width);
      UiApplyAttributeList (Item, Str);
      Item->OnSetState = FrontPageItemOnSetState;
    } else {
      Item = CreateControl (L"SetupPageItem", (UI_CONTROL*)This);
    }
    UnicodeSPrint (Str, sizeof (Str), L"0x%p", Statement);
    UiSetAttribute (Item, L"statement", Str);
    SetWindowLongPtr (Item->Wnd, GWLP_USERDATA, (INTN)CurrentP->StatementIds[Index]);
    CONTROL_CLASS(This)->AddChild ((UI_CONTROL *)This, Item);

    if (H2OSetupPageItemGetXmlBuffer (Statement->Operand) == NULL) {
      Status = GetIfrOpcodePropertyList (This, Statement->Operand, PanelInfo, &PropertyList, &PropertyCount);
      if (!EFI_ERROR (Status)) {
        SetAttributeFromVfcf (Item, PropertyList, PropertyCount, NULL);

        Item = CONTROL_CLASS(Item)->FindChildByName (Item, VFCF_PROPERTY_ORDER_CONTROL_NAME, UI_SEARCH_TYPE_ONLY_CHILD);
        if (Item != NULL) {
          UiApplyAttributeList (Item, L"width='0' height='0'");
          H2OSetupPageItemUpdateVfcfOrder (Item, Statement);
        }
      }
    }
  }

  if (gFB->CurrentQ != NULL) {
    for (Index = 0; Index < Control->ItemCount; Index++) {
      StatementId = (H2O_STATEMENT_ID) GetWindowLongPtr (Control->Items[Index]->Wnd, GWLP_USERDATA);
      if (StatementId == gFB->CurrentQ->StatementId) {
        LIST_VIEW_CLASS (This)->SetSelection ((UI_LIST_VIEW *)This, (INT32)Index, TRUE);
        break;
      }
    }
  }

  return EFI_SUCCESS;
}

VOID
H2OSetupPagePanelSelectQ (
  H2O_SETUP_PAGE_PANEL          *This
  )
{
  UINTN                         Index;
  UI_CONTROL                    *Control;
  H2O_STATEMENT_ID              StatementId;

  Control = (UI_CONTROL *) This;

  for (Index = 0; Index < Control->ItemCount; Index++) {
    StatementId = (H2O_STATEMENT_ID) GetWindowLongPtr (Control->Items[Index]->Wnd, GWLP_USERDATA);
    if (StatementId == gFB->CurrentQ->StatementId) {
      LIST_VIEW_CLASS (This)->SetSelection ((UI_LIST_VIEW *)This, (INT32)Index, TRUE);
      break;
    }
  }
}

/**
  Refresh question in setup page panel

  @param[in] This                A pointer to setup page panel control
  @param[in] RefreshQ            A pointer to refresh question event

  @retval EFI_SUCCESS            Successfully refresh question
  @retval EFI_INVALID_PARAMETER  Input parameter is NULL
  @retval EFI_NOT_FOUND          There is not matched question in setup page panel
  @retval Other                  Fail to get question info
**/
EFI_STATUS
H2OSetupPagePanelRefreshQ (
  IN H2O_SETUP_PAGE_PANEL              *This,
  IN H2O_DISPLAY_ENGINE_EVT_REFRESH_Q  *RefreshQ
  )
{
  EFI_STATUS                           Status;
  UI_CONTROL                           *Control;
  UINTN                                Index;
  H2O_STATEMENT_ID                     StatementId;
  H2O_FORM_BROWSER_Q                   *Question;
  CHAR16                               Str[20];

  if (This == NULL || RefreshQ == NULL) {
    return EFI_INVALID_PARAMETER;
  }

  Status = gFB->GetQInfo (gFB, RefreshQ->PageId, RefreshQ->QuestionId, &Question);
  if (EFI_ERROR (Status)) {
    return Status;
  }

  Control = (UI_CONTROL *) This;

  for (Index = 0; Index < Control->ItemCount; Index++) {
    StatementId = (H2O_STATEMENT_ID) GetWindowLongPtr (Control->Items[Index]->Wnd, GWLP_USERDATA);
    if (StatementId == Question->StatementId) {
      UnicodeSPrint (Str, sizeof (Str), L"0x%p", Question);
      UiSetAttribute (Control->Items[Index], L"statement", Str);
      break;
    }
  }

  FreePool (Question);

  return (Index < Control->ItemCount) ? EFI_SUCCESS : EFI_NOT_FOUND;
}


LRESULT
EFIAPI
H2OSetupPagePanelProc (
  HWND   Wnd,
  UINT32 Msg,
  WPARAM WParam,
  LPARAM LParam
  )
{
  H2O_SETUP_PAGE_PANEL          *This;
  UI_CONTROL                    *Control;
  EFI_KEY_DATA                  KeyData;
  INT32                         SelectedIndex;
  EFI_STATUS                    Status;
  EFI_HII_VALUE                 HiiValue;
  CHAR16                        Str[20];
  EFI_IMAGE_INPUT               *PageImage;
  UI_LIST_VIEW                  *ListView;

  This = (H2O_SETUP_PAGE_PANEL *) GetWindowLongPtr (Wnd, 0);
  if (This == NULL && Msg != WM_CREATE && Msg != WM_NCCALCSIZE) {
    ASSERT (FALSE);
    return 0;
  }
  Control = (UI_CONTROL *)This;

  switch (Msg) {

  case WM_CREATE:
    This = (H2O_SETUP_PAGE_PANEL *) AllocateZeroPool (sizeof (H2O_SETUP_PAGE_PANEL));
    if (This != NULL) {
      CONTROL_CLASS (This) = (UI_CONTROL_CLASS *) GetClassLongPtr (Wnd, 0);
      SetWindowLongPtr (Wnd, 0, (INTN)This);
      SendMessage (Wnd, UI_NOTIFY_CREATE, WParam, LParam);
    }
    break;

  case UI_NOTIFY_CREATE:
    PARENT_CLASS_WNDPROC (CURRENT_CLASS, Wnd, UI_NOTIFY_CREATE, WParam, LParam);
    ((UI_LIST_VIEW *) This)->OnItemClick = SetupPageItemClick;
    ((UI_LIST_VIEW *) This)->OnItemSelected = SetupPageItemSelected;

    if (IsFrontPage ()) {
      PageImage = GetCurrentFormSetImage ();
      if (PageImage != NULL && PcdGet32(PcdH2OLmdeMultiLayout) == 0) {
        UnicodeSPrint (Str, sizeof (Str), L"0x%p",  PageImage);
        UiSetAttribute (This, L"background-image", Str);
      }
      UiApplyAttributeList ((UI_CONTROL *) This, L"layout='cellspnanning' background-image-style='stretch'");
    } else {
      UiSetAttribute (This, L"vscrollbar", L"true");
    }
    break;

  case WM_KEYDOWN:
    switch (WParam) {

    case VK_RIGHT:
      ListView = (UI_LIST_VIEW *) UiFindChildByName ((UI_CONTROL *)GetWindowLongPtr(gWnd, 0), L"H2OSetupMenuPanel");
      if (ListView != NULL && ListView->Layout == UiListViewHorizontalLayout) {
        SendMessage (((UI_CONTROL *)ListView)->Wnd, WM_KEYDOWN, WParam, LParam);
        break;
      }
      if (!IsFrontPage ()) {
        return PARENT_CLASS_WNDPROC (CURRENT_CLASS, Wnd, Msg, VK_RETURN, LParam);
      }
      break;

    case VK_LEFT:
      ListView = (UI_LIST_VIEW *) UiFindChildByName ((UI_CONTROL *)GetWindowLongPtr(gWnd, 0), L"H2OSetupMenuPanel");
      if (ListView != NULL && ListView->Layout == UiListViewHorizontalLayout) {
        SendMessage (((UI_CONTROL *)ListView)->Wnd, WM_KEYDOWN, WParam, LParam);
        break;
      }
      if (!IsFrontPage () && !IsRootPage ()) {
        ZeroMem (&KeyData, sizeof (EFI_KEY_DATA));
        KeyData.Key.ScanCode = SCAN_ESC;
        GdAddEfiKeyData (&KeyData);
        return 0;
      }
      break;

    case VK_ADD:
    case VK_SUBTRACT:
      if (Control == NULL || gFB->CurrentQ == NULL) {
        break;
      }

      SelectedIndex = LIST_VIEW_CLASS (Control)->GetSelection ((UI_LIST_VIEW *) Control);
      if (SelectedIndex == -1 || SelectedIndex >= (INT32) Control->ItemCount) {
        break;
      }

      if ((H2O_STATEMENT_ID) GetWindowLongPtr (Control->Items[SelectedIndex]->Wnd, GWLP_USERDATA) != gFB->CurrentQ->StatementId) {
        break;
      }

      if (gFB->CurrentQ->Selectable && CONTROL_CLASS_GET_STATE (Control->Items[SelectedIndex]) & UISTATE_SELECTED) {
        Status = GetNextQuestionValue (gFB->CurrentQ, (BOOLEAN) (WParam == VK_ADD), &HiiValue);
        if (!EFI_ERROR (Status)) {
          Status = SendChangeQNotify (gFB->CurrentQ->PageId, gFB->CurrentQ->QuestionId, &HiiValue);
        }
      }
      return 0;

    default:
      break;
    }
    return PARENT_CLASS_WNDPROC (CURRENT_CLASS, Wnd, Msg, WParam, LParam);

  case WM_SETFOCUS:
    gLastFocus = Wnd;
    //
    // Set List View SetSelection to ensure the current statement will be shown on screen
    //
    if (Control->VScrollBar != NULL && Control->VScrollBar->ScrollPos == 0) {
      H2OSetupPagePanelSelectQ (This);
    }
    return PARENT_CLASS_WNDPROC (CURRENT_CLASS, Wnd, Msg, WParam, LParam);

  case FB_NOTIFY_SELECT_Q:
    H2OSetupPagePanelSelectQ (This);
    break;

  case FB_NOTIFY_REPAINT:
    RefreshMenuOptionList (This);
    break;

  case FB_NOTIFY_REFRESH_Q:
    H2OSetupPagePanelRefreshQ (This, (H2O_DISPLAY_ENGINE_EVT_REFRESH_Q *) LParam);
    break;

  case WM_DESTROY:
    FreeStatements (This);
    FreeIfrOpcodeInfo (This);
    return PARENT_CLASS_WNDPROC (CURRENT_CLASS, Wnd, Msg, WParam, LParam);

  default:
    return PARENT_CLASS_WNDPROC (CURRENT_CLASS, Wnd, Msg, WParam, LParam);
  }

  return 0;
}

H2O_SETUP_PAGE_PANEL_CLASS *
EFIAPI
GetH2OSetupPagePanelClass (
  VOID
  )
{
  if (CURRENT_CLASS != NULL) {
    return CURRENT_CLASS;
  }

  InitUiClass ((UI_CONTROL_CLASS **)&CURRENT_CLASS, sizeof (*CURRENT_CLASS), L"H2OSetupPagePanel", (UI_CONTROL_CLASS *) GetListViewClass());
  if (CURRENT_CLASS == NULL) {
    return NULL;
  }
  ((UI_CONTROL_CLASS *)CURRENT_CLASS)->WndProc  = H2OSetupPagePanelProc;

  return CURRENT_CLASS;
}