cde/programs/ttsnoop/fileChooser.bil

   1 // $XConsortium: fileChooser.bil /main/2 1996/11/11 11:57:40 drk $
   2 :bil-version    1 0
   3 :module fileChooser
   4 (
   5
   6 :element fchooser
   7 (
   8         :type                   :file-chooser
   9         :x                      611
  10         :y                      258
  11         :label                  "tt_message_file_set"
  12         :ok-label               "Set"
  13         :auto-dismiss           :true
  14         :file-type-mask         :any
  15 )
  16 :connection
  17 (
  18         :from                   fchooser
  19         :when                   :ok
  20         :action-type            :call-function
  21         :action                 fileOkayed
  22 )
  23 )