home *** CD-ROM | disk | FTP | other *** search
/ BURKS 2 / BURKS_AUG97.ISO / SLAKWARE / XV2 / XV32EXMP.TGZ / xv32exmp.tar / usr / src / xview / uic / OverviewExample / entries.G < prev    next >
Text File  |  1993-06-17  |  5KB  |  174 lines
  1. ;GIL-3
  2. (
  3. (
  4.     :type                   :base-window
  5.     :name                   entry_window
  6.     :owner                  nil
  7.     :width                  307
  8.     :height                 132
  9.     :background-color       ""
  10.     :foreground-color       ""
  11.     :label                  "Entries"
  12.     :label-type             :string
  13.     :initial-state          :open
  14.     :show-footer            t
  15.     :resizable              t
  16.     :icon-file              ""
  17.     :icon-label             ""
  18.     :icon-mask-file         ""
  19.     :event-handler          nil
  20.     :user-data              ()
  21.     :actions                ()
  22. )
  23. (
  24.     :type                   :control-area
  25.     :name                   entry_display
  26.     :owner                  entry_window
  27.     :help                   "A window for adding and deleting entires
  28. to and from a scrolling list."
  29.     :x                      0
  30.     :y                      0
  31.     :width                  307
  32.     :height                 132
  33.     :background-color       ""
  34.     :foreground-color       ""
  35.     :initial-state          :visible
  36.     :show-border            nil
  37.     :menu                   nil
  38.     :event-handler          nil
  39.     :user-data              ()
  40.     :actions                ()
  41. )
  42. (
  43.     :type                   :button
  44.     :name                   add_button
  45.     :owner                  entry_display
  46.     :help                   "Press this button to add the entry in the
  47. text input field to the scrolling list."
  48.     :x                      8
  49.     :y                      16
  50.     :width                  42
  51.     :height                 19
  52.     :constant-width         nil
  53.     :button-type            :normal
  54.     :foreground-color       ""
  55.     :label                  "Add"
  56.     :label-type             :string
  57.     :initial-state          :active
  58.     :menu                   nil
  59.     :notify-handler         add_button_handler
  60.     :event-handler          nil
  61.     :user-data              ()
  62.     :actions                (
  63.         (
  64.         :from                   (entry_window add_button)
  65.         :when                   (Notify )
  66.         :to                     (entry_window add_button)
  67.         :function_type          CallFunction
  68.         :arg_type               ()
  69.         :action                 (add_button_handler)
  70.         )
  71.     )
  72. )
  73. (
  74.     :type                   :scrolling-list
  75.     :name                   entry_list
  76.     :owner                  entry_display
  77.     :help                   "Entries are displayed here."
  78.     :x                      76
  79.     :y                      16
  80.     :width                  200
  81.     :height                 74
  82.     :value-x                76
  83.     :value-y                16
  84.     :rows                   3
  85.     :foreground-color       ""
  86.     :label                  ""
  87.     :title                  ""
  88.     :label-type             :string
  89.     :layout-type            :horizontal
  90.     :read-only              nil
  91.     :multiple-selections    nil
  92.     :selection-required     nil
  93.     :initial-state          :active
  94.     :droppable              nil
  95.     :default-drop-site      nil
  96.     :menu                   nil
  97.     :notify-handler         entry_list_handler
  98.     :event-handler          nil
  99.     :initial-list-values    ()
  100.     :initial-list-glyphs    ()
  101.     :initial-selections     ()
  102.     :user-data              ()
  103.     :actions                (
  104.         (
  105.         :from                   (entry_window entry_list)
  106.         :when                   (Notify )
  107.         :to                     (entry_window entry_list)
  108.         :function_type          CallFunction
  109.         :arg_type               ()
  110.         :action                 (entry_list_handler)
  111.         )
  112.     )
  113. )
  114. (
  115.     :type                   :button
  116.     :name                   delete_button
  117.     :owner                  entry_display
  118.     :help                   "Press this button to delete the entry in the
  119. text input field to the scrolling list."
  120.     :x                      8
  121.     :y                      48
  122.     :width                  57
  123.     :height                 19
  124.     :constant-width         nil
  125.     :button-type            :normal
  126.     :foreground-color       ""
  127.     :label                  "Delete"
  128.     :label-type             :string
  129.     :initial-state          :active
  130.     :menu                   nil
  131.     :notify-handler         delete_button_handler
  132.     :event-handler          nil
  133.     :user-data              ()
  134.     :actions                (
  135.         (
  136.         :from                   (entry_window delete_button)
  137.         :when                   (Notify )
  138.         :to                     (entry_window delete_button)
  139.         :function_type          CallFunction
  140.         :arg_type               ()
  141.         :action                 (delete_button_handler)
  142.         )
  143.     )
  144. )
  145. (
  146.     :type                   :text-field
  147.     :name                   entry_field
  148.     :owner                  entry_display
  149.     :help                   "Type an entry to be added or deleted."
  150.     :x                      8
  151.     :y                      104
  152.     :width                  287
  153.     :height                 15
  154.     :value-x                55
  155.     :value-y                104
  156.     :value-length           30
  157.     :stored-length          30
  158.     :rows                   3
  159.     :foreground-color       ""
  160.     :text-type              :alphanumeric
  161.     :label                  "Entry:"
  162.     :label-type             :string
  163.     :layout-type            :horizontal
  164.     :value-underlined       t
  165.     :initial-value          ""
  166.     :initial-state          :active
  167.     :read-only              nil
  168.     :notify-handler         nil
  169.     :event-handler          nil
  170.     :user-data              ()
  171.     :actions                ()
  172. )
  173. )
  174.