//AB/ Project SncSchem lookup
//AB/ Object prj is a Lookup_Project
//AB/   Set ProjectName to "SncSchem lookup"
//AB/   Set ProjectFileName to "SncSchem.SL"
//AB/   Set GenerateFileName to "NONAME3"

// Project Object Structure
//   SncSchem_SL is a dbModalPanel
//     SncSchem_DD is a DataDictionary
//     oSelList is a dbList
//     oOK_bn is a Button
//     oCancel_bn is a Button
//     oSearch_bn is a Button

// Register all objects
Register_Object oCancel_bn
Register_Object oOK_bn
Register_Object oSearch_bn
Register_Object oSelList
Register_Object SncSchem_DD
Register_Object SncSchem_SL


//AB-IgnoreStart

Use DFAllEnt.pkg


Use SncSchem.DD

//AB-IgnoreEnd

Object SncSchem_SL is a dbModalPanel
  Set Label to "Select a scheme"
  Set Size to 148 324
  Set Location to 4 5

  //AB-DDOStart

  Object SncSchem_DD is a SncSchem_DataDictionary
  End_Object    // SncSchem_DD

  Set Main_DD to (SncSchem_DD(self))
  Set Server to (SncSchem_DD(self))

  //AB-DDOEnd

  Object oSelList is a dbList
    Set Main_File to SncSchem.File_Number
    Set Size to 105 307
    Set Location to 6 6

    Begin_Row
      Entry_Item SncSchem.Name
    End_Row

    Set Form_Width    item 0 to 300
    Set Header_Label  item 0 to "Name"

  End_Object    // oSelList

  Object oOK_bn is a Button
    Set Label to "&OK"
    Set Location to 114 154

    //AB-StoreStart
    Procedure OnClick
        Send OK To oSelList
    End_Procedure
    //AB-StoreEnd

  End_Object    // oOK_bn

  Object oCancel_bn is a Button
    Set Label to "&Cancel"
    Set Location to 114 208

    //AB-StoreStart
    Procedure OnClick
        Send Cancel To oSelList
    End_Procedure
    //AB-StoreEnd

  End_Object    // oCancel_bn

  Object oSearch_bn is a Button
    Set Label to "&Search..."
    Set Location to 114 264

    //AB-StoreStart
    Procedure OnClick
        Send Search To oSelList
    End_Procedure
    //AB-StoreEnd

  End_Object    // oSearch_bn


  //AB-StoreStart
  On_Key Key_Alt+Key_O Send KeyAction To oOk_bn
  On_Key Key_Alt+Key_C Send KeyAction To oCancel_bn
  On_Key Key_Alt+Key_S Send KeyAction To oSearch_bn
  //AB-StoreEnd

End_Object    // SncSchem_SL

//AB/ End_Object    // prj