/[clarity]/gui/insert-data-interface.lisp
ViewVC logotype

Contents of /gui/insert-data-interface.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1 - (show annotations)
Wed Aug 16 20:18:39 2006 UTC (7 years, 8 months ago) by skleinberg
File size: 2686 byte(s)
Initial import
1 ;;; -*- Mode: Lisp -*-
2
3 #|CLARITY: Common Lisp Data Alignment Repository
4 Copyright (c) 2006 Samantha Kleinberg
5 All rights reserved.
6
7 This library is free software; you can redistribute it and/or modify it under the terms of the GNU
8 Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the
9 License, or (at your option) any later version.
10
11 This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even
12 the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser
13 General Public License for more details.
14
15 You should have received a copy of the GNU Lesser General Public License along with this library;
16 if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
17
18 contact: Samantha AT Bioinformatics DOT nyu DOT edu
19 715 Broadway, 10th floor
20 New York, NY 10003|#
21
22 (in-package "CLARITY")
23
24 (capi:define-interface insert-data-interface ()
25 ((file-location :accessor file-location
26 :initarg :file-location))
27 (:panes
28 (insert-form
29 capi:title-pane
30 :text "Fill out form")
31 (file-location-1
32 capi:title-pane
33 :text "File location:")
34 (file-location-input-1
35 capi:display-pane
36 :accessor file-location-pane
37 )
38 (file-location-button-1
39 capi:push-button
40 :text "Find file"
41 :selection-callback 'get-filename
42 :callback-type :interface
43 )
44 (file-date-1
45 capi:title-pane
46 :text "Creation date")
47 (file-date-input-1
48 capi:text-input-pane
49 :accessor file-date-input)
50 (spacer
51 capi:title-pane
52 :text "")
53 (spacer-2
54 capi:title-pane
55 :text "")
56 (spacer-3
57 capi:title-pane
58 :text "")
59
60 (probe-check-box
61 capi:check-button
62 :text "Check if data file includes gene information."
63 :accessor probe-check-box
64 )
65
66 (ok-cancel-panel
67 capi:push-button-panel
68 :items '("OK" "Cancel")
69 :callback-type :data
70 :callbacks '(capi:exit-dialog
71 capi:abort-dialog)
72 :max-height t
73 :max-width t))
74 (:layouts
75 (column-layout-1
76 capi:column-layout
77 '(insert-form grid-layout-1))
78 (grid-layout-1
79 capi:grid-layout
80 '(file-location-1 file-location-input-1 file-location-button-1
81 file-date-1 file-date-input-1 spacer
82 probe-check-box spacer-3 spacer-3
83 spacer-2 ok-cancel-panel)
84 :columns 3))
85 (:default-initargs
86 :best-height 89
87 :best-width 424
88 :layout 'column-layout-1
89 :title "Insert-data-interface"))

  ViewVC Help
Powered by ViewVC 1.1.5