home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / maestro / source / vcrdub / vcrdub.g < prev    next >
Encoding:
Text File  |  1993-06-15  |  30.0 KB  |  1,062 lines
  1. ;GIL-3
  2. (
  3. (
  4.     :type                   :menu
  5.     :name                   DocMenu
  6.     :help                   ""
  7.     :columns                1
  8.     :menu-type              :command
  9.     :menu-handler           nil
  10.     :menu-title             ""
  11.     :menu-item-labels       ("Open" "Save" "About vcrDub..." )
  12.     :menu-item-label-types  (:string :string :string )
  13.     :menu-item-states       (:active :active :active )
  14.     :menu-item-defaults     (nil nil nil )
  15.     :initial-selections     (nil nil nil )
  16.     :menu-item-handlers     (DubFileOpen DubFileSave ShowInfoPanel )
  17.     :menu-item-menus        (nil nil nil )
  18.     :menu-item-colors       ("" "" "" )
  19.     :pinnable               t
  20.     :user-data              ()
  21.     :actions                (
  22.         (
  23.         :from                   (DocMenu "Open")
  24.         :when                   (Notify )
  25.         :to                     (DocMenu "Open")
  26.         :function_type          CallFunction
  27.         :arg_type               ()
  28.         :action                 (DubFileOpen)
  29.         )
  30.         (
  31.         :from                   (DocMenu "Save")
  32.         :when                   (Notify )
  33.         :to                     (DocMenu "Save")
  34.         :function_type          CallFunction
  35.         :arg_type               ()
  36.         :action                 (DubFileSave)
  37.         )
  38.         (
  39.         :from                   (DocMenu "About vcrDub...")
  40.         :when                   (Notify )
  41.         :to                     (DocMenu "About vcrDub...")
  42.         :function_type          CallFunction
  43.         :arg_type               ()
  44.         :action                 (ShowInfoPanel)
  45.         )
  46.     )
  47. )
  48. (
  49.     :type                   :base-window
  50.     :name                   window1
  51.     :owner                  nil
  52.     :width                  809
  53.     :height                 471
  54.     :background-color       "BG1"
  55.     :foreground-color       ""
  56.     :label                  "VCR Dub"
  57.     :label-type             :string
  58.     :initial-state          :open
  59.     :show-footer            t
  60.     :resizable              t
  61.     :icon-file              "vcrDubIcon"
  62.     :icon-label             ""
  63.     :icon-mask-file         ""
  64.     :event-handler          nil
  65.     :user-data              ()
  66.     :actions                ()
  67. )
  68. (
  69.     :type                   :control-area
  70.     :name                   dubFileControls
  71.     :owner                  window1
  72.     :help                   ""
  73.     :x                      5
  74.     :y                      6
  75.     :width                  795
  76.     :height                 42
  77.     :background-color       "BG1"
  78.     :foreground-color       ""
  79.     :initial-state          :visible
  80.     :show-border            t
  81.     :menu                   nil
  82.     :event-handler          nil
  83.     :user-data              ()
  84.     :actions                ()
  85. )
  86. (
  87.     :type                   :button
  88.     :name                   dubDocButton
  89.     :owner                  dubFileControls
  90.     :help                   ""
  91.     :x                      16
  92.     :y                      12
  93.     :width                  94
  94.     :height                 19
  95.     :constant-width         nil
  96.     :button-type            :normal
  97.     :foreground-color       ""
  98.     :label                  "Document"
  99.     :label-type             :string
  100.     :initial-state          :active
  101.     :menu                   DocMenu
  102.     :notify-handler         nil
  103.     :event-handler          nil
  104.     :user-data              ()
  105.     :actions                ()
  106. )
  107. (
  108.     :type                   :button
  109.     :name                   dubStartButton
  110.     :owner                  dubFileControls
  111.     :help                   ""
  112.     :x                      128
  113.     :y                      12
  114.     :width                  103
  115.     :height                 19
  116.     :constant-width         nil
  117.     :button-type            :normal
  118.     :foreground-color       ""
  119.     :label                  "Start Dubbing"
  120.     :label-type             :string
  121.     :initial-state          :active
  122.     :menu                   nil
  123.     :notify-handler         DubStart
  124.     :event-handler          nil
  125.     :user-data              ()
  126.     :actions                (
  127.         (
  128.         :from                   (window1 dubStartButton)
  129.         :when                   (Notify )
  130.         :to                     (window1 dubStartButton)
  131.         :function_type          CallFunction
  132.         :arg_type               ()
  133.         :action                 (DubStart)
  134.         )
  135.     )
  136. )
  137. (
  138.     :type                   :button
  139.     :name                   dubQuitButton
  140.     :owner                  dubFileControls
  141.     :help                   ""
  142.     :x                      248
  143.     :y                      12
  144.     :width                  45
  145.     :height                 19
  146.     :constant-width         nil
  147.     :button-type            :normal
  148.     :foreground-color       ""
  149.     :label                  "Quit"
  150.     :label-type             :string
  151.     :initial-state          :active
  152.     :menu                   nil
  153.     :notify-handler         DubQuit
  154.     :event-handler          nil
  155.     :user-data              ()
  156.     :actions                (
  157.         (
  158.         :from                   (window1 dubQuitButton)
  159.         :when                   (Notify )
  160.         :to                     (window1 dubQuitButton)
  161.         :function_type          CallFunction
  162.         :arg_type               ()
  163.         :action                 (DubQuit)
  164.         )
  165.     )
  166. )
  167. (
  168.     :type                   :message
  169.     :name                   dubStatusMsg
  170.     :owner                  dubFileControls
  171.     :help                   ""
  172.     :x                      336
  173.     :y                      16
  174.     :width                  60
  175.     :height                 13
  176.     :foreground-color       ""
  177.     :label                  "Message"
  178.     :label-type             :string
  179.     :label-bold             t
  180.     :initial-state          :active
  181.     :event-handler          nil
  182.     :user-data              ()
  183.     :actions                ()
  184. )
  185. (
  186.     :type                   :control-area
  187.     :name                   dubEditListControls
  188.     :owner                  window1
  189.     :help                   ""
  190.     :x                      5
  191.     :y                      55
  192.     :width                  419
  193.     :height                 416
  194.     :background-color       "BG1"
  195.     :foreground-color       ""
  196.     :initial-state          :visible
  197.     :show-border            t
  198.     :menu                   nil
  199.     :event-handler          nil
  200.     :user-data              ()
  201.     :actions                ()
  202. )
  203. (
  204.     :type                   :button
  205.     :name                   dubAddButton
  206.     :owner                  dubEditListControls
  207.     :help                   ""
  208.     :x                      300
  209.     :y                      16
  210.     :width                  90
  211.     :height                 19
  212.     :constant-width         nil
  213.     :button-type            :normal
  214.     :foreground-color       ""
  215.     :label                  "Add edit ->"
  216.     :label-type             :string
  217.     :initial-state          :active
  218.     :menu                   nil
  219.     :notify-handler         EditAdd
  220.     :event-handler          nil
  221.     :user-data              ()
  222.     :actions                (
  223.         (
  224.         :from                   (window1 dubAddButton)
  225.         :when                   (Notify )
  226.         :to                     (window1 dubAddButton)
  227.         :function_type          CallFunction
  228.         :arg_type               ()
  229.         :action                 (EditAdd)
  230.         )
  231.     )
  232. )
  233. (
  234.     :type                   :message
  235.     :name                   dubEditListMsg
  236.     :owner                  dubEditListControls
  237.     :help                   ""
  238.     :x                      144
  239.     :y                      48
  240.     :width                  106
  241.     :height                 13
  242.     :foreground-color       ""
  243.     :label                  "Source Edit List"
  244.     :label-type             :string
  245.     :label-bold             t
  246.     :initial-state          :active
  247.     :event-handler          nil
  248.     :user-data              ()
  249.     :actions                ()
  250. )
  251. (
  252.     :type                   :message
  253.     :name                   dubEditNum
  254.     :owner                  dubEditListControls
  255.     :help                   ""
  256.     :x                      28
  257.     :y                      80
  258.     :width                  38
  259.     :height                 13
  260.     :foreground-color       ""
  261.     :label                  "Edit #"
  262.     :label-type             :string
  263.     :label-bold             t
  264.     :initial-state          :active
  265.     :event-handler          nil
  266.     :user-data              ()
  267.     :actions                ()
  268. )
  269. (
  270.     :type                   :message
  271.     :name                   dubEditLabel
  272.     :owner                  dubEditListControls
  273.     :help                   ""
  274.     :x                      140
  275.     :y                      80
  276.     :width                  38
  277.     :height                 13
  278.     :foreground-color       ""
  279.     :label                  "Label"
  280.     :label-type             :string
  281.     :label-bold             t
  282.     :initial-state          :active
  283.     :event-handler          nil
  284.     :user-data              ()
  285.     :actions                ()
  286. )
  287. (
  288.     :type                   :message
  289.     :name                   dubEditDur
  290.     :owner                  dubEditListControls
  291.     :help                   ""
  292.     :x                      280
  293.     :y                      80
  294.     :width                  60
  295.     :height                 13
  296.     :foreground-color       ""
  297.     :label                  "Duration"
  298.     :label-type             :string
  299.     :label-bold             t
  300.     :initial-state          :active
  301.     :event-handler          nil
  302.     :user-data              ()
  303.     :actions                ()
  304. )
  305. (
  306.     :type                   :scrolling-list
  307.     :name                   dubScrollList
  308.     :owner                  dubEditListControls
  309.     :help                   ""
  310.     :x                      12
  311.     :y                      100
  312.     :width                  380
  313.     :height                 290
  314.     :value-x                12
  315.     :value-y                117
  316.     :rows                   15
  317.     :foreground-color       ""
  318.     :label                  ""
  319.     :title                  ""
  320.     :label-type             :string
  321.     :layout-type            :vertical
  322.     :read-only              nil
  323.     :multiple-selections    nil
  324.     :selection-required     nil
  325.     :initial-state          :active
  326.     :droppable              nil
  327.     :default-drop-site      nil
  328.     :menu                   nil
  329.     :notify-handler         DubSelect
  330.     :event-handler          nil
  331.     :initial-list-values    ()
  332.     :initial-list-glyphs    ()
  333.     :initial-selections     ()
  334.     :user-data              ()
  335.     :actions                (
  336.         (
  337.         :from                   (window1 dubScrollList)
  338.         :when                   (Notify )
  339.         :to                     (window1 dubScrollList)
  340.         :function_type          CallFunction
  341.         :arg_type               ()
  342.         :action                 (DubSelect)
  343.         )
  344.     )
  345. )
  346. (
  347.     :type                   :control-area
  348.     :name                   dubEditOpControls
  349.     :owner                  window1
  350.     :help                   ""
  351.     :x                      435
  352.     :y                      55
  353.     :width                  365
  354.     :height                 105
  355.     :background-color       "BG1"
  356.     :foreground-color       ""
  357.     :initial-state          :visible
  358.     :show-border            t
  359.     :menu                   nil
  360.     :event-handler          nil
  361.     :user-data              ()
  362.     :actions                ()
  363. )
  364. (
  365.     :type                   :message
  366.     :name                   dubOpMsg
  367.     :owner                  dubEditOpControls
  368.     :help                   ""
  369.     :x                      100
  370.     :y                      12
  371.     :width                  163
  372.     :height                 13
  373.     :foreground-color       ""
  374.     :label                  "Current Edit Operations"
  375.     :label-type             :string
  376.     :label-bold             t
  377.     :initial-state          :active
  378.     :event-handler          nil
  379.     :user-data              ()
  380.     :actions                ()
  381. )
  382. (
  383.     :type                   :setting
  384.     :name                   dubAudioStg
  385.     :owner                  dubEditOpControls
  386.     :help                   ""
  387.     :x                      184
  388.     :y                      40
  389.     :width                  152
  390.     :height                 23
  391.     :value-x                266
  392.     :value-y                40
  393.     :rows                   1
  394.     :columns                0
  395.     :layout-type            :horizontal
  396.     :foreground-color       ""
  397.     :setting-type           :exclusive
  398.     :selection-required     t
  399.     :label                  "Audio Dub:"
  400.     :label-type             :string
  401.     :notify-handler         SetAudioDub
  402.     :event-handler          nil
  403.     :choices                ("Off" "On" )
  404.     :choice-label-types     (:string :string )
  405.     :choice-colors          ("" "" )
  406.     :initial-selections     (nil nil )
  407.     :initial-state          :active
  408.     :user-data              ()
  409.     :actions                (
  410.         (
  411.         :from                   (window1 dubAudioStg)
  412.         :when                   (Notify )
  413.         :to                     (window1 dubAudioStg)
  414.         :function_type          CallFunction
  415.         :arg_type               ()
  416.         :action                 (SetAudioDub)
  417.         )
  418.     )
  419. )
  420. (
  421.     :type                   :button
  422.     :name                   dubMergeButton
  423.     :owner                  dubEditOpControls
  424.     :help                   ""
  425.     :x                      16
  426.     :y                      44
  427.     :width                  55
  428.     :height                 19
  429.     :constant-width         nil
  430.     :button-type            :normal
  431.     :foreground-color       ""
  432.     :label                  "Merge"
  433.     :label-type             :string
  434.     :initial-state          :active
  435.     :menu                   nil
  436.     :notify-handler         EditMerge
  437.     :event-handler          nil
  438.     :user-data              ()
  439.     :actions                (
  440.         (
  441.         :from                   (window1 dubMergeButton)
  442.         :when                   (Notify )
  443.         :to                     (window1 dubMergeButton)
  444.         :function_type          CallFunction
  445.         :arg_type               ()
  446.         :action                 (EditMerge)
  447.         )
  448.     )
  449. )
  450. (
  451.     :type                   :button
  452.     :name                   dubDelButton
  453.     :owner                  dubEditOpControls
  454.     :help                   ""
  455.     :x                      96
  456.     :y                      44
  457.     :width                  57
  458.     :height                 19
  459.     :constant-width         nil
  460.     :button-type            :normal
  461.     :foreground-color       ""
  462.     :label                  "Delete"
  463.     :label-type             :string
  464.     :initial-state          :active
  465.     :menu                   nil
  466.     :notify-handler         DubDelete
  467.     :event-handler          nil
  468.     :user-data              ()
  469.     :actions                (
  470.         (
  471.         :from                   (window1 dubDelButton)
  472.         :when                   (Notify )
  473.         :to                     (window1 dubDelButton)
  474.         :function_type          CallFunction
  475.         :arg_type               ()
  476.         :action                 (DubDelete)
  477.         )
  478.     )
  479. )
  480. (
  481.     :type                   :text-field
  482.     :name                   dubMergeLabel
  483.     :owner                  dubEditOpControls
  484.     :help                   ""
  485.     :x                      16
  486.     :y                      76
  487.     :width                  266
  488.     :height                 15
  489.     :value-x                98
  490.     :value-y                76
  491.     :value-length           23
  492.     :stored-length          23
  493.     :rows                   3
  494.     :foreground-color       ""
  495.     :text-type              :alphanumeric
  496.     :label                  "New Label:"
  497.     :label-type             :string
  498.     :layout-type            :horizontal
  499.     :value-underlined       t
  500.     :initial-value          ""
  501.     :initial-state          :active
  502.     :read-only              nil
  503.     :notify-handler         nil
  504.     :event-handler          nil
  505.     :user-data              ()
  506.     :actions                ()
  507. )
  508. (
  509.     :type                   :canvas-pane
  510.     :name                   dubEditCanvas
  511.     :owner                  window1
  512.     :help                   ""
  513.     :x                      435
  514.     :y                      169
  515.     :width                  365
  516.     :height                 299
  517.     :background-color       "BG1"
  518.     :foreground-color       "Black"
  519.     :initial-state          :visible
  520.     :draggable              nil
  521.     :droppable              nil
  522.     :default-drop-site      nil
  523.     :menu                   nil
  524.     :horizontal-scrollbar   nil
  525.     :scrollable-width       365
  526.     :vertical-scrollbar     t
  527.     :scrollable-height      299
  528.     :repaint-proc           EditRepaintHandler
  529.     :event-handler          EditEventHandler
  530.     :drawing-model          :xwindows
  531.     :user-data              ()
  532.     :actions                (
  533.         (
  534.         :from                   (window1 dubEditCanvas)
  535.         :when                   (Repaint )
  536.         :to                     (window1 dubEditCanvas)
  537.         :function_type          CallFunction
  538.         :arg_type               ()
  539.         :action                 (EditRepaintHandler)
  540.         )
  541.         (
  542.         :from                   (window1 dubEditCanvas)
  543.         :when                   (AnyEvent )
  544.         :to                     (window1 dubEditCanvas)
  545.         :function_type          CallFunction
  546.         :arg_type               ()
  547.         :action                 (EditEventHandler)
  548.         )
  549.     )
  550. )
  551. (
  552.     :type                   :popup-window
  553.     :name                   dubSetupWindow
  554.     :owner                  window1
  555.     :width                  357
  556.     :height                 260
  557.     :background-color       ""
  558.     :foreground-color       ""
  559.     :label                  "Video Setup"
  560.     :label-type             :string
  561.     :initial-state          :invisible
  562.     :show-footer            t
  563.     :resizable              t
  564.     :pinned                 nil
  565.     :done-handler           nil
  566.     :event-handler          nil
  567.     :user-data              ()
  568.     :actions                ()
  569. )
  570. (
  571.     :type                   :control-area
  572.     :name                   dubVideoSetupControls
  573.     :owner                  dubSetupWindow
  574.     :help                   ""
  575.     :x                      0
  576.     :y                      0
  577.     :width                  357
  578.     :height                 260
  579.     :background-color       "BG1"
  580.     :foreground-color       ""
  581.     :initial-state          :visible
  582.     :show-border            nil
  583.     :menu                   nil
  584.     :event-handler          nil
  585.     :user-data              ()
  586.     :actions                ()
  587. )
  588. (
  589.     :type                   :setting
  590.     :name                   playDeckDeviceStg
  591.     :owner                  dubVideoSetupControls
  592.     :help                   ""
  593.     :x                      24
  594.     :y                      20
  595.     :width                  170
  596.     :height                 23
  597.     :value-x                117
  598.     :value-y                20
  599.     :rows                   1
  600.     :columns                0
  601.     :layout-type            :horizontal
  602.     :foreground-color       ""
  603.     :setting-type           :stack
  604.     :selection-required     t
  605.     :label                  "Play Deck:    "
  606.     :label-type             :string
  607.     :notify-handler         SetPlayDevice
  608.     :event-handler          nil
  609.     :choices                ("Choice" )
  610.     :choice-label-types     (:string )
  611.     :choice-colors          ("" )
  612.     :choice-defaults        (nil )
  613.     :initial-selections     (nil )
  614.     :initial-state          :active
  615.     :user-data              ()
  616.     :actions                (
  617.         (
  618.         :from                   (dubSetupWindow playDeckDeviceStg)
  619.         :when                   (Notify )
  620.         :to                     (dubSetupWindow playDeckDeviceStg)
  621.         :function_type          CallFunction
  622.         :arg_type               ()
  623.         :action                 (SetPlayDevice)
  624.         )
  625.     )
  626. )
  627. (
  628.     :type                   :setting
  629.     :name                   recDeckDeviceStg
  630.     :owner                  dubVideoSetupControls
  631.     :help                   ""
  632.     :x                      24
  633.     :y                      48
  634.     :width                  171
  635.     :height                 23
  636.     :value-x                118
  637.     :value-y                48
  638.     :rows                   1
  639.     :columns                0
  640.     :layout-type            :horizontal
  641.     :foreground-color       ""
  642.     :setting-type           :stack
  643.     :selection-required     t
  644.     :label                  "Record Deck:"
  645.     :label-type             :string
  646.     :notify-handler         SetRecDevice
  647.     :event-handler          nil
  648.     :choices                ("Choice" )
  649.     :choice-label-types     (:string )
  650.     :choice-colors          ("" )
  651.     :choice-defaults        (nil )
  652.     :initial-selections     (nil )
  653.     :initial-state          :active
  654.     :user-data              ()
  655.     :actions                (
  656.         (
  657.         :from                   (dubSetupWindow recDeckDeviceStg)
  658.         :when                   (Notify )
  659.         :to                     (dubSetupWindow recDeckDeviceStg)
  660.         :function_type          CallFunction
  661.         :arg_type               ()
  662.         :action                 (SetRecDevice)
  663.         )
  664.     )
  665. )
  666. (
  667.     :type                   :setting
  668.     :name                   playDeckStg
  669.     :owner                  dubVideoSetupControls
  670.     :help                   ""
  671.     :x                      24
  672.     :y                      84
  673.     :width                  278
  674.     :height                 23
  675.     :value-x                255
  676.     :value-y                84
  677.     :rows                   1
  678.     :columns                0
  679.     :layout-type            :horizontal
  680.     :foreground-color       ""
  681.     :setting-type           :exclusive
  682.     :selection-required     t
  683.     :label                  "Choose serial port for Play Deck:"
  684.     :label-type             :string
  685.     :notify-handler         SetPlayDeck
  686.     :event-handler          nil
  687.     :choices                ("A" "B" )
  688.     :choice-label-types     (:string :string )
  689.     :choice-colors          ("" "" )
  690.     :initial-selections     (nil nil )
  691.     :initial-state          :active
  692.     :user-data              ()
  693.     :actions                (
  694.         (
  695.         :from                   (dubSetupWindow playDeckStg)
  696.         :when                   (Notify )
  697.         :to                     (dubSetupWindow playDeckStg)
  698.         :function_type          CallFunction
  699.         :arg_type               ()
  700.         :action                 (SetPlayDeck)
  701.         )
  702.     )
  703. )
  704. (
  705.     :type                   :setting
  706.     :name                   recDeckStg
  707.     :owner                  dubVideoSetupControls
  708.     :help                   ""
  709.     :x                      160
  710.     :y                      116
  711.     :width                  141
  712.     :height                 23
  713.     :value-x                254
  714.     :value-y                116
  715.     :rows                   1
  716.     :columns                0
  717.     :layout-type            :horizontal
  718.     :foreground-color       ""
  719.     :setting-type           :exclusive
  720.     :selection-required     t
  721.     :label                  "Record Deck:"
  722.     :label-type             :string
  723.     :notify-handler         SetRecDeck
  724.     :event-handler          nil
  725.     :choices                ("A" "B" )
  726.     :choice-label-types     (:string :string )
  727.     :choice-colors          ("" "" )
  728.     :initial-selections     (nil nil )
  729.     :initial-state          :active
  730.     :user-data              ()
  731.     :actions                (
  732.         (
  733.         :from                   (dubSetupWindow recDeckStg)
  734.         :when                   (Notify )
  735.         :to                     (dubSetupWindow recDeckStg)
  736.         :function_type          CallFunction
  737.         :arg_type               ()
  738.         :action                 (SetRecDeck)
  739.         )
  740.     )
  741. )
  742. (
  743.     :type                   :text-field
  744.     :name                   startAddTxt
  745.     :owner                  dubVideoSetupControls
  746.     :help                   ""
  747.     :x                      24
  748.     :y                      160
  749.     :width                  286
  750.     :height                 15
  751.     :value-x                211
  752.     :value-y                160
  753.     :value-length           8
  754.     :stored-length          80
  755.     :rows                   3
  756.     :foreground-color       ""
  757.     :text-type              :numeric
  758.     :label                  "Start recording at address:"
  759.     :label-type             :string
  760.     :layout-type            :horizontal
  761.     :value-underlined       t
  762.     :max-value              28800
  763.     :min-value              3
  764.     :initial-value          0
  765.     :initial-state          :active
  766.     :read-only              nil
  767.     :notify-handler         nil
  768.     :event-handler          nil
  769.     :user-data              ()
  770.     :actions                ()
  771. )
  772. (
  773.     :type                   :text-field
  774.     :name                   intervalTxt
  775.     :owner                  dubVideoSetupControls
  776.     :help                   ""
  777.     :x                      24
  778.     :y                      192
  779.     :width                  236
  780.     :height                 15
  781.     :value-x                189
  782.     :value-y                192
  783.     :value-length           3
  784.     :stored-length          4
  785.     :rows                   3
  786.     :foreground-color       ""
  787.     :text-type              :numeric
  788.     :label                  "Interval between edits:"
  789.     :label-type             :string
  790.     :layout-type            :horizontal
  791.     :value-underlined       t
  792.     :max-value              300
  793.     :min-value              3
  794.     :initial-value          0
  795.     :initial-state          :active
  796.     :read-only              nil
  797.     :notify-handler         nil
  798.     :event-handler          nil
  799.     :user-data              ()
  800.     :actions                ()
  801. )
  802. (
  803.     :type                   :message
  804.     :name                   intervalMsg
  805.     :owner                  dubVideoSetupControls
  806.     :help                   ""
  807.     :x                      268
  808.     :y                      192
  809.     :width                  48
  810.     :height                 13
  811.     :foreground-color       ""
  812.     :label                  "seconds"
  813.     :label-type             :string
  814.     :label-bold             nil
  815.     :initial-state          :active
  816.     :event-handler          nil
  817.     :user-data              ()
  818.     :actions                ()
  819. )
  820. (
  821.     :type                   :button
  822.     :name                   dubSerialDoneButton
  823.     :owner                  dubVideoSetupControls
  824.     :help                   ""
  825.     :x                      136
  826.     :y                      224
  827.     :width                  74
  828.     :height                 19
  829.     :constant-width         nil
  830.     :button-type            :normal
  831.     :foreground-color       ""
  832.     :label                  "Continue"
  833.     :label-type             :string
  834.     :initial-state          :active
  835.     :menu                   nil
  836.     :notify-handler         SerialDone
  837.     :event-handler          nil
  838.     :user-data              ()
  839.     :actions                (
  840.         (
  841.         :from                   (dubSetupWindow dubSerialDoneButton)
  842.         :when                   (Notify )
  843.         :to                     (dubSetupWindow dubSerialDoneButton)
  844.         :function_type          CallFunction
  845.         :arg_type               ()
  846.         :action                 (SerialDone)
  847.         )
  848.     )
  849. )
  850. (
  851.     :type                   :popup-window
  852.     :name                   infoPopup
  853.     :owner                  window1
  854.     :width                  449
  855.     :height                 283
  856.     :background-color       ""
  857.     :foreground-color       ""
  858.     :label                  "About vcrDub"
  859.     :label-type             :string
  860.     :initial-state          :invisible
  861.     :show-footer            nil
  862.     :resizable              nil
  863.     :pinned                 t
  864.     :done-handler           nil
  865.     :event-handler          nil
  866.     :user-data              ()
  867.     :actions                ()
  868. )
  869. (
  870.     :type                   :control-area
  871.     :name                   controls1
  872.     :owner                  infoPopup
  873.     :help                   ""
  874.     :x                      0
  875.     :y                      0
  876.     :width                  449
  877.     :height                 283
  878.     :background-color       "BG1"
  879.     :foreground-color       ""
  880.     :initial-state          :visible
  881.     :show-border            nil
  882.     :menu                   nil
  883.     :event-handler          nil
  884.     :user-data              ()
  885.     :actions                ()
  886. )
  887. (
  888.     :type                   :message
  889.     :name                   appNameMsg
  890.     :owner                  controls1
  891.     :help                   ""
  892.     :x                      153
  893.     :y                      16
  894.     :width                  141
  895.     :height                 13
  896.     :foreground-color       ""
  897.     :label                  "vcrDub  Version 1.12"
  898.     :label-type             :string
  899.     :label-bold             t
  900.     :initial-state          :active
  901.     :event-handler          nil
  902.     :user-data              ()
  903.     :actions                ()
  904. )
  905. (
  906.     :type                   :message
  907.     :name                   descriptionMsg
  908.     :owner                  controls1
  909.     :help                   ""
  910.     :x                      106
  911.     :y                      40
  912.     :width                  234
  913.     :height                 13
  914.     :foreground-color       ""
  915.     :label                  "An application for dubbing videotapes"
  916.     :label-type             :string
  917.     :label-bold             nil
  918.     :initial-state          :active
  919.     :event-handler          nil
  920.     :user-data              ()
  921.     :actions                ()
  922. )
  923. (
  924.     :type                   :message
  925.     :name                   maestroMsg
  926.     :owner                  controls1
  927.     :help                   ""
  928.     :x                      8
  929.     :y                      64
  930.     :width                  430
  931.     :height                 13
  932.     :foreground-color       ""
  933.     :label                  "designed for use with the MAEstro Multimedia Authoring Environment"
  934.     :label-type             :string
  935.     :label-bold             nil
  936.     :initial-state          :active
  937.     :event-handler          nil
  938.     :user-data              ()
  939.     :actions                ()
  940. )
  941. (
  942.     :type                   :message
  943.     :name                   authorMsg
  944.     :owner                  controls1
  945.     :help                   ""
  946.     :x                      168
  947.     :y                      96
  948.     :width                  111
  949.     :height                 13
  950.     :foreground-color       ""
  951.     :label                  "by Wee-Lee Lim"
  952.     :label-type             :string
  953.     :label-bold             t
  954.     :initial-state          :active
  955.     :event-handler          nil
  956.     :user-data              ()
  957.     :actions                ()
  958. )
  959. (
  960.     :type                   :message
  961.     :name                   copyrightMsg
  962.     :owner                  controls1
  963.     :help                   ""
  964.     :x                      16
  965.     :y                      120
  966.     :width                  404
  967.     :height                 13
  968.     :foreground-color       ""
  969.     :label                  "Copyright (C) 1991, 1992 Libraries & Information Resources (L&IR)"
  970.     :label-type             :string
  971.     :label-bold             nil
  972.     :initial-state          :active
  973.     :event-handler          nil
  974.     :user-data              ()
  975.     :actions                ()
  976. )
  977. (
  978.     :type                   :message
  979.     :name                   stanfordUMsg
  980.     :owner                  controls1
  981.     :help                   ""
  982.     :x                      162
  983.     :y                      144
  984.     :width                  118
  985.     :height                 13
  986.     :foreground-color       ""
  987.     :label                  "Stanford University"
  988.     :label-type             :string
  989.     :label-bold             nil
  990.     :initial-state          :active
  991.     :event-handler          nil
  992.     :user-data              ()
  993.     :actions                ()
  994. )
  995. (
  996.     :type                   :message
  997.     :name                   stanfordCAMsg
  998.     :owner                  controls1
  999.     :help                   ""
  1000.     :x                      120
  1001.     :y                      168
  1002.     :width                  203
  1003.     :height                 13
  1004.     :foreground-color       ""
  1005.     :label                  "Stanford, California 94305-3090"
  1006.     :label-type             :string
  1007.     :label-bold             nil
  1008.     :initial-state          :active
  1009.     :event-handler          nil
  1010.     :user-data              ()
  1011.     :actions                ()
  1012. )
  1013. (
  1014.     :type                   :message
  1015.     :name                   forMoreInfoMsg
  1016.     :owner                  controls1
  1017.     :help                   ""
  1018.     :x                      72
  1019.     :y                      208
  1020.     :width                  309
  1021.     :height                 13
  1022.     :foreground-color       ""
  1023.     :label                  "For more info, contact maestro@sioux.stanford.edu"
  1024.     :label-type             :string
  1025.     :label-bold             nil
  1026.     :initial-state          :active
  1027.     :event-handler          nil
  1028.     :user-data              ()
  1029.     :actions                ()
  1030. )
  1031. (
  1032.     :type                   :button
  1033.     :name                   removeInfoWindowButton
  1034.     :owner                  controls1
  1035.     :help                   ""
  1036.     :x                      208
  1037.     :y                      256
  1038.     :width                  36
  1039.     :height                 19
  1040.     :constant-width         nil
  1041.     :button-type            :normal
  1042.     :foreground-color       ""
  1043.     :label                  "OK"
  1044.     :label-type             :string
  1045.     :initial-state          :active
  1046.     :menu                   nil
  1047.     :notify-handler         RemoveInfoWindow
  1048.     :event-handler          nil
  1049.     :user-data              ()
  1050.     :actions                (
  1051.         (
  1052.         :from                   (infoPopup removeInfoWindowButton)
  1053.         :when                   (Notify )
  1054.         :to                     (infoPopup removeInfoWindowButton)
  1055.         :function_type          CallFunction
  1056.         :arg_type               ()
  1057.         :action                 (RemoveInfoWindow)
  1058.         )
  1059.     )
  1060. )
  1061. )
  1062.