;;; -*- Mode: Lisp -*-

#|CLARITY: Common Lisp Data Alignment Repository
Copyright (c) 2006 Samantha Kleinberg
All rights reserved.

This library is free software; you can redistribute it and/or modify it under the terms of the GNU
Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the 
License, or (at your option) any later version.

This library 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 Lesser 
General Public License for more details.

You should have received a copy of the GNU Lesser General Public License along with this library; 
if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

contact: Samantha AT Bioinformatics DOT nyu DOT edu
715 Broadway, 10th floor
New York, NY 10003|#

(in-package "CLARITY")

(capi:define-interface insert-data-interface ()
  ((file-location :accessor file-location
                  :initarg :file-location))
  (:panes
   (insert-form
    capi:title-pane
    :text "Fill out form")
   (file-location-1
    capi:title-pane
    :text "File location:")
   (file-location-input-1
    capi:display-pane
    :accessor file-location-pane
    )
   (file-location-button-1
    capi:push-button
    :text "Find file"
    :selection-callback 'get-filename
    :callback-type :interface
    )
   (file-date-1
    capi:title-pane
    :text "Creation date")
   (file-date-input-1
    capi:text-input-pane
    :accessor file-date-input)
   (spacer
    capi:title-pane
    :text "")
   (spacer-2
    capi:title-pane
    :text "")
      (spacer-3
       capi:title-pane
       :text "")

   (probe-check-box
    capi:check-button
    :text "Check if data file includes gene information."
    :accessor probe-check-box
    )

   (ok-cancel-panel
    capi:push-button-panel
    :items '("OK" "Cancel")
    :callback-type :data
    :callbacks '(capi:exit-dialog
                 capi:abort-dialog)
    :max-height t
    :max-width t))
  (:layouts
   (column-layout-1
    capi:column-layout
    '(insert-form grid-layout-1))
   (grid-layout-1
    capi:grid-layout
    '(file-location-1 file-location-input-1 file-location-button-1 
                      file-date-1 file-date-input-1 spacer 
                      probe-check-box spacer-3 spacer-3
                      spacer-2 ok-cancel-panel)
    :columns 3))
  (:default-initargs
   :best-height 89
   :best-width 424
   :layout 'column-layout-1
   :title "Insert-data-interface"))