//--------------------------------------------------------------
//
//  RepView.Pop
//
//  Popup menu for RepView.Wfm
//
//
//  dBASE Samples Group
//
//  Copyright (c) 2000, dBASE, Inc.
//  All rights reserved.
//
//---------------------------------------------------------------
** END HEADER -- do not remove this line
//
// Generated on 09/25/97
//
parameter formObj, popupName
new repviewPOPUP(formObj, popupName)

class repviewPOPUP(formObj, popupName) of POPUP(formObj, popupName)

   this.MENUTOP = new MENU(this)
   with (this.MENUTOP)
      onClick  := {;this.parent.parent.root.TopPage_OnClick()}
      text = "First Page"
   endwith


   this.MENUPREV = new MENU(this)
   with (this.MENUPREV)
      onClick  := {;this.parent.parent.root.PrevPage_OnClick()}
      text = "Previous Page"
   endwith


   this.MENUNEXT = new MENU(this)
   with (this.MENUNEXT)
      onClick  := {;this.parent.parent.root.NextPage_OnClick()}
      text = "Next Page"
   endwith


   this.MENULAST = new MENU(this)
   with (this.MENULAST)
      onClick  := {;this.parent.parent.root.LastPage_OnClick()}
      text = "Last Page"
   endwith


   this.MENUSEP1 = new MENU(this)
   with (this.MENUSEP1)
      text = ""
      separator = true
   endwith


   this.MENUPRINT = new MENU(this)
   with (this.MENUPRINT)
      onClick  := {;this.parent.parent.root.print_OnClick()}
      text = "Print..."
   endwith

endclass