home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / maestro / source / timeline / blanktim.g < prev    next >
Encoding:
Text File  |  1993-06-15  |  7.7 KB  |  271 lines
  1. ;GIL-3
  2. (
  3. (
  4.     :type                   :popup-window
  5.     :name                   InsertBlankTimePopup
  6.     :owner                  nil
  7.     :width                  438
  8.     :height                 196
  9.     :background-color       "Light Gray"
  10.     :foreground-color       "Light Gray"
  11.     :label                  "Insert Blank Time"
  12.     :label-type             :string
  13.     :initial-state          :invisible
  14.     :show-footer            t
  15.     :resizable              nil
  16.     :pinned                 nil
  17.     :done-handler           CancelBlankTime
  18.     :event-handler          nil
  19.     :user-data              ()
  20.     :actions                (
  21.         (
  22.         :from                   (InsertBlankTimePopup)
  23.         :when                   (Done )
  24.         :to                     (InsertBlankTimePopup)
  25.         :function_type          CallFunction
  26.         :arg_type               ()
  27.         :action                 (CancelBlankTime)
  28.         )
  29.     )
  30. )
  31. (
  32.     :type                   :control-area
  33.     :name                   controls1
  34.     :owner                  InsertBlankTimePopup
  35.     :help                   ""
  36.     :x                      0
  37.     :y                      0
  38.     :width                  438
  39.     :height                 195
  40.     :background-color       "Light Gray"
  41.     :foreground-color       ""
  42.     :initial-state          :visible
  43.     :show-border            nil
  44.     :menu                   nil
  45.     :event-handler          nil
  46.     :user-data              ()
  47.     :actions                ()
  48. )
  49. (
  50.     :type                   :message
  51.     :name                   TimeLineMessage
  52.     :owner                  controls1
  53.     :help                   ""
  54.     :x                      28
  55.     :y                      16
  56.     :width                  116
  57.     :height                 13
  58.     :foreground-color       "Black"
  59.     :label                  "TimeLine Editor :"
  60.     :label-type             :string
  61.     :label-bold             t
  62.     :initial-state          :active
  63.     :event-handler          nil
  64.     :user-data              ()
  65.     :actions                ()
  66. )
  67. (
  68.     :type                   :message
  69.     :name                   TimeLineDocMsg
  70.     :owner                  controls1
  71.     :help                   ""
  72.     :x                      156
  73.     :y                      16
  74.     :width                  61
  75.     :height                 13
  76.     :foreground-color       "Black"
  77.     :label                  "docname"
  78.     :label-type             :string
  79.     :label-bold             t
  80.     :initial-state          :active
  81.     :event-handler          nil
  82.     :user-data              ()
  83.     :actions                ()
  84. )
  85. (
  86.     :type                   :message
  87.     :name                   AmountOfBlankTimeMsg
  88.     :owner                  controls1
  89.     :help                   ""
  90.     :x                      28
  91.     :y                      40
  92.     :width                  218
  93.     :height                 13
  94.     :foreground-color       "Black"
  95.     :label                  "Amount of blank time to insert :"
  96.     :label-type             :string
  97.     :label-bold             t
  98.     :initial-state          :active
  99.     :event-handler          nil
  100.     :user-data              ()
  101.     :actions                ()
  102. )
  103. (
  104.     :type                   :text-field
  105.     :name                   MinTimeText
  106.     :owner                  controls1
  107.     :help                   ""
  108.     :x                      28
  109.     :y                      68
  110.     :width                  135
  111.     :height                 15
  112.     :value-x                92
  113.     :value-y                68
  114.     :value-length           2
  115.     :stored-length          2
  116.     :rows                   3
  117.     :foreground-color       "Black"
  118.     :text-type              :numeric
  119.     :label                  "Minutes"
  120.     :label-type             :string
  121.     :layout-type            :horizontal
  122.     :value-underlined       t
  123.     :max-value              59
  124.     :min-value              0
  125.     :initial-value          0
  126.     :initial-state          :active
  127.     :read-only              nil
  128.     :notify-handler         nil
  129.     :event-handler          nil
  130.     :user-data              ()
  131.     :actions                ()
  132. )
  133. (
  134.     :type                   :text-field
  135.     :name                   SecTimeText
  136.     :owner                  controls1
  137.     :help                   ""
  138.     :x                      188
  139.     :y                      68
  140.     :width                  135
  141.     :height                 15
  142.     :value-x                252
  143.     :value-y                68
  144.     :value-length           2
  145.     :stored-length          2
  146.     :rows                   3
  147.     :foreground-color       "Black"
  148.     :text-type              :numeric
  149.     :label                  "Seconds"
  150.     :label-type             :string
  151.     :layout-type            :horizontal
  152.     :value-underlined       t
  153.     :max-value              59
  154.     :min-value              0
  155.     :initial-value          0
  156.     :initial-state          :active
  157.     :read-only              nil
  158.     :notify-handler         nil
  159.     :event-handler          nil
  160.     :user-data              ()
  161.     :actions                ()
  162. )
  163. (
  164.     :type                   :setting
  165.     :name                   InsertBlankTimeChoice
  166.     :owner                  controls1
  167.     :help                   ""
  168.     :x                      28
  169.     :y                      92
  170.     :width                  300
  171.     :height                 52
  172.     :value-x                148
  173.     :value-y                92
  174.     :rows                   0
  175.     :columns                1
  176.     :layout-type            :horizontal
  177.     :foreground-color       "BLack"
  178.     :setting-type           :check
  179.     :selection-required     t
  180.     :label                  "Where to insert :"
  181.     :label-type             :string
  182.     :notify-handler         nil
  183.     :event-handler          nil
  184.     :choices                ("Currently selected track" "All tracks" )
  185.     :choice-label-types     (:string :string )
  186.     :choice-colors          ("Black" "Black" )
  187.     :initial-selections     (nil nil )
  188.     :initial-state          :active
  189.     :user-data              ()
  190.     :actions                ()
  191. )
  192. (
  193.     :type                   :message
  194.     :name                   CurrentlyActiveTrackMsg
  195.     :owner                  controls1
  196.     :help                   ""
  197.     :x                      336
  198.     :y                      96
  199.     :width                  39
  200.     :height                 13
  201.     :foreground-color       "Black"
  202.     :label                  "(None)"
  203.     :label-type             :string
  204.     :label-bold             nil
  205.     :initial-state          :active
  206.     :event-handler          nil
  207.     :user-data              ()
  208.     :actions                ()
  209. )
  210. (
  211.     :type                   :button
  212.     :name                   InsertBlankTimeButton
  213.     :owner                  controls1
  214.     :help                   ""
  215.     :x                      104
  216.     :y                      160
  217.     :width                  53
  218.     :height                 19
  219.     :constant-width         nil
  220.     :button-type            :normal
  221.     :foreground-color       "Black"
  222.     :label                  "Insert"
  223.     :label-type             :string
  224.     :initial-state          :active
  225.     :menu                   nil
  226.     :notify-handler         InsertBlankTime
  227.     :event-handler          nil
  228.     :user-data              ()
  229.     :actions                (
  230.         (
  231.         :from                   (InsertBlankTimePopup InsertBlankTimeButton)
  232.         :when                   (Notify )
  233.         :to                     (InsertBlankTimePopup InsertBlankTimeButton)
  234.         :function_type          CallFunction
  235.         :arg_type               ()
  236.         :action                 (InsertBlankTime)
  237.         )
  238.     )
  239. )
  240. (
  241.     :type                   :button
  242.     :name                   CancelBlankTimeButton
  243.     :owner                  controls1
  244.     :help                   ""
  245.     :x                      228
  246.     :y                      160
  247.     :width                  59
  248.     :height                 19
  249.     :constant-width         nil
  250.     :button-type            :normal
  251.     :foreground-color       "Black"
  252.     :label                  "Cancel"
  253.     :label-type             :string
  254.     :initial-state          :active
  255.     :menu                   nil
  256.     :notify-handler         CancelBlankTime
  257.     :event-handler          nil
  258.     :user-data              ()
  259.     :actions                (
  260.         (
  261.         :from                   (InsertBlankTimePopup CancelBlankTimeButton)
  262.         :when                   (Notify )
  263.         :to                     (InsertBlankTimePopup CancelBlankTimeButton)
  264.         :function_type          CallFunction
  265.         :arg_type               ()
  266.         :action                 (CancelBlankTime)
  267.         )
  268.     )
  269. )
  270. )
  271.