cde/programs/ttsnoop/ttChooser.bil

   1 // $XConsortium: ttChooser.bil /main/2 1996/11/11 11:59:29 drk $
   2 :bil-version    1 0
   3 :module ttChooser
   4 (
   5
   6 :element chooser
   7 (
   8         :type                   :dialog
   9         :x                      58
  10         :y                      506
  11         :width                  477
  12         :height                 196
  13         :bg-color               "white"
  14         :label                  "tt_message_handler_set"
  15         :resizable              :true
  16         :visible                :false
  17         :default-button         chooserOkButton
  18         :help-button            chooserHelpButton
  19         :children               (
  20                 chooserPane
  21                 dialog_button_panel2
  22         )
  23 )
  24 :element chooserPane
  25 (
  26         :type                   :container
  27         :container-type         :relative
  28         :x                      0
  29         :y                      0
  30         :width                  473
  31         :height                 192
  32         :visible                :true
  33         :border-frame           :shadow-in
  34         :north-attachment       (:point 0 0)
  35         :south-attachment       (:obj chooser 0)
  36         :east-attachment        (:obj chooser 0)
  37         :west-attachment        (:point 0 0)
  38         :children               (
  39                 chooserList
  40                 chooserText
  41         )
  42 )
  43 :element chooserList
  44 (
  45         :type                   :list
  46         :x                      20
  47         :y                      10
  48         :width                  433
  49         :label-type             :string
  50         :label                  "Tt_messages"
  51         :label-position         :north
  52         :selection-mode         :browse
  53         :selection-required     :false
  54         :num-rows               4
  55         :active                 :true
  56         :visible                :true
  57         :north-attachment       (:point 0 10)
  58         :east-attachment        (:point 0 20)
  59         :west-attachment        (:point 0 20)
  60 )
  61 :element chooserText
  62 (
  63         :type                   :text-field
  64         :text-type              :alphanumeric
  65         :x                      20
  66         :y                      131
  67         :label-type             :string
  68         :label                  "Tt_message:"
  69         :label-position         :west
  70         :num-columns            42
  71         :max-length             80
  72         :read-only              :false
  73         :active                 :true
  74         :visible                :true
  75         :north-attachment       (:obj chooserList 10)
  76         :east-attachment        (:point 0 20)
  77         :west-attachment        (:point 0 20)
  78 )
  79 :element dialog_button_panel2
  80 (
  81         :type                   :container
  82         :container-type         :button-panel
  83         :width                  477
  84         :height                 48
  85         :visible                :true
  86         :border-frame           :none
  87         :children               (
  88                 chooserOkButton
  89                 chooserCancelButton
  90                 chooserHelpButton
  91         )
  92 )
  93 :element chooserOkButton
  94 (
  95         :type                   :button
  96         :button-type            :push-button
  97         :label-type             :string
  98         :label-alignment        :center
  99         :label                  "Destroy"
 100         :active                 :true
 101         :visible                :true
 102         :north-attachment       (:point 0 5)
 103         :east-attachment        (:grid-line 30 0)
 104         :west-attachment        (:grid-line 10 0)
 105 )
 106 :element chooserCancelButton
 107 (
 108         :type                   :button
 109         :button-type            :push-button
 110         :label-type             :string
 111         :label-alignment        :center
 112         :label                  "Cancel"
 113         :active                 :true
 114         :visible                :true
 115         :north-attachment       (:point 0 5)
 116         :east-attachment        (:grid-line 60 0)
 117         :west-attachment        (:grid-line 40 0)
 118 )
 119 :element chooserHelpButton
 120 (
 121         :type                   :button
 122         :button-type            :push-button
 123         :label-type             :string
 124         :label-alignment        :center
 125         :label                  "Help"
 126         :active                 :true
 127         :visible                :true
 128         :north-attachment       (:point 0 5)
 129         :east-attachment        (:grid-line 90 0)
 130         :west-attachment        (:grid-line 70 0)
 131 )
 132 :connection
 133 (
 134         :from                   chooserCancelButton
 135         :to                     chooser
 136         :when                   :activate
 137         :action-type            :builtin
 138         :action                 :hide
 139         :arg-type               :void
 140 )
 141 :connection
 142 (
 143         :from                   chooserList
 144         :when                   :item-selected
 145         :action-type            :call-function
 146         :action                 choiceSelected
 147 )
 148 :connection
 149 (
 150         :from                   chooserOkButton
 151         :when                   :activate
 152         :action-type            :call-function
 153         :action                 choiceOkayed
 154 )
 155 :connection
 156 (
 157         :from                   chooserList
 158         :when                   :double-click
 159         :action-type            :call-function
 160         :action                 choiceOkayed
 161 )
 162 :connection
 163 (
 164         :from                   chooserHelpButton
 165         :when                   :activate
 166         :action-type            :call-function
 167         :action                 ttChooserHelp
 168 )
 169 )