cde/programs/ttsnoop/stringChooser.bil

   1 // $XConsortium: stringChooser.bil /main/2 1996/11/11 11:59:07 drk $
   2 :bil-version    1 0
   3 :module stringChooser
   4 (
   5
   6 :element stringChooser
   7 (
   8         :type                   :dialog
   9         :x                      279
  10         :y                      546
  11         :width                  459
  12         :height                 90
  13         :bg-color               "white"
  14         :label                  "tt_ptype_undeclare"
  15         :resizable              :true
  16         :visible                :false
  17         :default-button         stringOkButton
  18         :children               (
  19                 stringPane
  20                 dialog_button_panel
  21         )
  22 )
  23 :element stringPane
  24 (
  25         :type                   :container
  26         :container-type         :relative
  27         :x                      0
  28         :y                      0
  29         :width                  455
  30         :height                 86
  31         :visible                :true
  32         :border-frame           :shadow-in
  33         :north-attachment       (:point 0 0)
  34         :south-attachment       (:obj stringChooser 0)
  35         :east-attachment        (:obj stringChooser 0)
  36         :west-attachment        (:point 0 0)
  37         :children               (
  38                 stringText
  39         )
  40 )
  41 :element stringText
  42 (
  43         :type                   :text-field
  44         :text-type              :alphanumeric
  45         :x                      16
  46         :y                      10
  47         :label-type             :string
  48         :label                  "ptype"
  49         :label-position         :north
  50         :num-columns            58
  51         :max-length             256
  52         :read-only              :false
  53         :active                 :true
  54         :visible                :true
  55         :north-attachment       (:point 0 10)
  56         :west-attachment        (:point 0 16)
  57 )
  58 :element dialog_button_panel
  59 (
  60         :type                   :container
  61         :container-type         :button-panel
  62         :width                  459
  63         :height                 48
  64         :visible                :true
  65         :border-frame           :none
  66         :children               (
  67                 stringOkButton
  68                 stringCancelButton
  69                 stringHelpButton
  70         )
  71 )
  72 :element stringOkButton
  73 (
  74         :type                   :button
  75         :button-type            :push-button
  76         :label-type             :string
  77         :label-alignment        :center
  78         :label                  "Undeclare"
  79         :active                 :true
  80         :visible                :true
  81         :north-attachment       (:point 0 5)
  82         :east-attachment        (:grid-line 30 0)
  83         :west-attachment        (:grid-line 10 0)
  84 )
  85 :element stringCancelButton
  86 (
  87         :type                   :button
  88         :button-type            :push-button
  89         :label-type             :string
  90         :label-alignment        :center
  91         :label                  "Cancel"
  92         :active                 :true
  93         :visible                :true
  94         :north-attachment       (:point 0 5)
  95         :east-attachment        (:grid-line 60 0)
  96         :west-attachment        (:grid-line 40 0)
  97 )
  98 :element stringHelpButton
  99 (
 100         :type                   :button
 101         :button-type            :push-button
 102         :label-type             :string
 103         :label-alignment        :center
 104         :label                  "Help"
 105         :active                 :true
 106         :visible                :true
 107         :north-attachment       (:point 0 5)
 108         :east-attachment        (:grid-line 90 0)
 109         :west-attachment        (:grid-line 70 0)
 110 )
 111 :connection
 112 (
 113         :from                   stringOkButton
 114         :when                   :activate
 115         :action-type            :call-function
 116         :action                 stringOkayed
 117 )
 118 :connection
 119 (
 120         :from                   stringCancelButton
 121         :to                     stringChooser
 122         :when                   :activate
 123         :action-type            :builtin
 124         :action                 :hide
 125         :arg-type               :void
 126 )
 127 :connection
 128 (
 129         :from                   stringHelpButton
 130         :when                   :activate
 131         :action-type            :call-function
 132         :action                 stringHelp
 133 )
 134 )