<?xml version="1.0" encoding="ISO-8859-1"?>

<!--
  - <COPYRIGHT>
  - Copyright 2003 Gerd Stolpmann
  -
  - <GPL>
  - This file is part of WTimer.
  - 
  - WTimer is free software; you can redistribute it and/or modify
  - it under the terms of the GNU General Public License as published by
  - the Free Software Foundation; either version 2 of the License, or
  - (at your option) any later version.
  -
  - WTimer is distributed in the hope that it will be useful,
  - but WITHOUT ANY WARRANTY; without even the implied warranty of
  - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  - GNU General Public License for more details.
  -
  - You should have received a copy of the GNU General Public License
  - along with WDialog; if not, write to the Free Software
  - Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  - </>
  -->

<!--  $Id: admin.ui,v 1.3 2003/03/23 11:59:13 gerd Exp $
   -  ======================================================================
   - 
  -->

<!-- This file defines the dialog "admin". -->

<!-- Better: split it up into several dialogs! -->

<ui:dialog name="admin" start-page="admin-start">
  <ui:variable name="session" type="dialog"/>


  <ui:page name="admin-start">
    <t:basic-grid>
      <p:nav-col>
	<t:admin-nav/>
      </p:nav-col>
      <p:headline>
	<t:admin-head/>
      </p:headline>
      <p:main-col>
	Select from the administration tasks listed at the left side.
      </p:main-col>
    </t:basic-grid>
  </ui:page>


  <!-- ERROR HANDLING -->

  <!-- See also ocaml class error_behaviour that uses the following
       definitions
    -->

  <ui:variable name="runtime-error"/>

  <ui:page name="runtime-error">
    <t:basic-grid>
      <p:nav-col>
	<!-- empty nav-col: this is a modal dialog -->
      </p:nav-col>
      <p:headline>
	<t:admin-head/>
      </p:headline>
      <p:main-col>
	<t:error errid="$[runtime-error]"/>
	<ui:button name="cont-error" label="Continue"/>
      </p:main-col>
    </t:basic-grid>
  </ui:page>

</ui:dialog>

<!-- ********************************************************************** -->

<!-- admin-nav: The navigation bar for administration -->

<ui:template name="admin-nav">

  <q:nav-section head="File">
    <t:file-menu except="file-admin"/>
  </q:nav-section>

  <t:task-menu/>

</ui:template>


<ui:template name="admin-head" from-caller="suffix">
  <ui:default name="suffix"></ui:default>
  Admin<ui:if value1="$suffix" value2="" op="ne">: $suffix</ui:if>
  <t:head-info-box/>
</ui:template>

  

<!-- ******************* For Emacs: ********************* -->
<!--
Local Variables:
mode: xml
sgml-parent-document: ("main.ui" "ui:application" "ui:dialog")
End:
-->