cdesktopenv/cde/programs/ttsnoop/stringChooser.bil

135 lines
2.4 KiB
Plaintext

// $XConsortium: stringChooser.bil /main/2 1996/11/11 11:59:07 drk $
:bil-version 1 0
:module stringChooser
(
:element stringChooser
(
:type :dialog
:x 279
:y 546
:width 459
:height 90
:bg-color "white"
:label "tt_ptype_undeclare"
:resizable :true
:visible :false
:default-button stringOkButton
:children (
stringPane
dialog_button_panel
)
)
:element stringPane
(
:type :container
:container-type :relative
:x 0
:y 0
:width 455
:height 86
:visible :true
:border-frame :shadow-in
:north-attachment (:point 0 0)
:south-attachment (:obj stringChooser 0)
:east-attachment (:obj stringChooser 0)
:west-attachment (:point 0 0)
:children (
stringText
)
)
:element stringText
(
:type :text-field
:text-type :alphanumeric
:x 16
:y 10
:label-type :string
:label "ptype"
:label-position :north
:num-columns 58
:max-length 256
:read-only :false
:active :true
:visible :true
:north-attachment (:point 0 10)
:west-attachment (:point 0 16)
)
:element dialog_button_panel
(
:type :container
:container-type :button-panel
:width 459
:height 48
:visible :true
:border-frame :none
:children (
stringOkButton
stringCancelButton
stringHelpButton
)
)
:element stringOkButton
(
:type :button
:button-type :push-button
:label-type :string
:label-alignment :center
:label "Undeclare"
:active :true
:visible :true
:north-attachment (:point 0 5)
:east-attachment (:grid-line 30 0)
:west-attachment (:grid-line 10 0)
)
:element stringCancelButton
(
:type :button
:button-type :push-button
:label-type :string
:label-alignment :center
:label "Cancel"
:active :true
:visible :true
:north-attachment (:point 0 5)
:east-attachment (:grid-line 60 0)
:west-attachment (:grid-line 40 0)
)
:element stringHelpButton
(
:type :button
:button-type :push-button
:label-type :string
:label-alignment :center
:label "Help"
:active :true
:visible :true
:north-attachment (:point 0 5)
:east-attachment (:grid-line 90 0)
:west-attachment (:grid-line 70 0)
)
:connection
(
:from stringOkButton
:when :activate
:action-type :call-function
:action stringOkayed
)
:connection
(
:from stringCancelButton
:to stringChooser
:when :activate
:action-type :builtin
:action :hide
:arg-type :void
)
:connection
(
:from stringHelpButton
:when :activate
:action-type :call-function
:action stringHelp
)
)