//AB/ OBJECTDEF
Object oFromLoginButton is a cLoginButton
    //AB-StoreStart
    Procedure OnClick
      Send DoServerConnect
    End_Procedure // OnClick
    //AB-StoreEnd
End_Object