home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / maestro / source / dtr / dtr.g < prev    next >
Encoding:
Text File  |  1993-06-15  |  65.6 KB  |  2,218 lines
  1. ;GIL-3
  2. (
  3. (
  4.     :type                   :menu
  5.     :name                   documentMenu
  6.     :help                   ""
  7.     :columns                1
  8.     :menu-type              :command
  9.     :menu-handler           nil
  10.     :menu-title             "Document"
  11.     :menu-item-labels       ("Open Sound File" "Save Sound File" "Save Sound File As..." "About DTR ... " "Close" "Quit" )
  12.     :menu-item-label-types  (:string :string :string :string :string :string )
  13.     :menu-item-states       (:active :active :active :active :active :active )
  14.     :menu-item-defaults     (nil nil nil nil nil nil )
  15.     :initial-selections     (nil nil nil nil nil nil )
  16.     :menu-item-handlers     (OpenFileHandler SaveSoundFileMenuOption SaveSoundFileAsMenuOption InfoHandler CloseHandler QuitDtr )
  17.     :menu-item-menus        (nil nil nil nil nil nil )
  18.     :menu-item-colors       ("" "" "" "" "" "" )
  19.     :pinnable               t
  20.     :user-data              ()
  21.     :actions                (
  22.         (
  23.         :from                   (documentMenu "Open Sound File")
  24.         :when                   (Notify )
  25.         :to                     (documentMenu "Open Sound File")
  26.         :function_type          CallFunction
  27.         :arg_type               ()
  28.         :action                 (OpenFileHandler)
  29.         )
  30.         (
  31.         :from                   (documentMenu "Save Sound File")
  32.         :when                   (Notify )
  33.         :to                     (documentMenu "Save Sound File")
  34.         :function_type          CallFunction
  35.         :arg_type               ()
  36.         :action                 (SaveSoundFileMenuOption)
  37.         )
  38.         (
  39.         :from                   (documentMenu "Save Sound File As...")
  40.         :when                   (Notify )
  41.         :to                     (documentMenu "Save Sound File As...")
  42.         :function_type          CallFunction
  43.         :arg_type               ()
  44.         :action                 (SaveSoundFileAsMenuOption)
  45.         )
  46.         (
  47.         :from                   (documentMenu "About DTR ... ")
  48.         :when                   (Notify )
  49.         :to                     (documentMenu "About DTR ... ")
  50.         :function_type          CallFunction
  51.         :arg_type               ()
  52.         :action                 (InfoHandler)
  53.         )
  54.         (
  55.         :from                   (documentMenu "Close")
  56.         :when                   (Notify )
  57.         :to                     (documentMenu "Close")
  58.         :function_type          CallFunction
  59.         :arg_type               ()
  60.         :action                 (CloseHandler)
  61.         )
  62.         (
  63.         :from                   (documentMenu "Quit")
  64.         :when                   (Notify )
  65.         :to                     (documentMenu "Quit")
  66.         :function_type          CallFunction
  67.         :arg_type               ()
  68.         :action                 (QuitDtr)
  69.         )
  70.     )
  71. )
  72. (
  73.     :type                   :menu
  74.     :name                   editMenu
  75.     :help                   ""
  76.     :columns                1
  77.     :menu-type              :command
  78.     :menu-handler           nil
  79.     :menu-title             ""
  80.     :menu-item-labels       ("Cut" "Copy" "Undo" "Paste" "Clear All" )
  81.     :menu-item-label-types  (:string :string :string :string :string )
  82.     :menu-item-states       (:active :active :active :active :active )
  83.     :menu-item-defaults     (nil nil nil nil nil )
  84.     :initial-selections     (nil nil nil nil nil )
  85.     :menu-item-handlers     (CutHandler CopyHandler UndoHandler PasteHandler ClearAllHandler )
  86.     :menu-item-menus        (nil nil nil nil nil )
  87.     :menu-item-colors       ("" "" "" "" "" )
  88.     :pinnable               t
  89.     :user-data              ()
  90.     :actions                (
  91.         (
  92.         :from                   (editMenu "Cut")
  93.         :when                   (Notify )
  94.         :to                     (editMenu "Cut")
  95.         :function_type          CallFunction
  96.         :arg_type               ()
  97.         :action                 (CutHandler)
  98.         )
  99.         (
  100.         :from                   (editMenu "Copy")
  101.         :when                   (Notify )
  102.         :to                     (editMenu "Copy")
  103.         :function_type          CallFunction
  104.         :arg_type               ()
  105.         :action                 (CopyHandler)
  106.         )
  107.         (
  108.         :from                   (editMenu "Undo")
  109.         :when                   (Notify )
  110.         :to                     (editMenu "Undo")
  111.         :function_type          CallFunction
  112.         :arg_type               ()
  113.         :action                 (UndoHandler)
  114.         )
  115.         (
  116.         :from                   (editMenu "Paste")
  117.         :when                   (Notify )
  118.         :to                     (editMenu "Paste")
  119.         :function_type          CallFunction
  120.         :arg_type               ()
  121.         :action                 (PasteHandler)
  122.         )
  123.         (
  124.         :from                   (editMenu "Clear All")
  125.         :when                   (Notify )
  126.         :to                     (editMenu "Clear All")
  127.         :function_type          CallFunction
  128.         :arg_type               ()
  129.         :action                 (ClearAllHandler)
  130.         )
  131.     )
  132. )
  133. (
  134.     :type                   :menu
  135.     :name                   audioOutputOptionsMenu
  136.     :help                   ""
  137.     :columns                1
  138.     :menu-type              :exclusive
  139.     :menu-handler           nil
  140.     :menu-title             ""
  141.     :menu-item-labels       ("icons/speaker.icon" "icons/headphone.icon" )
  142.     :menu-item-label-types  (:glyph :glyph )
  143.     :menu-item-states       (:active :active )
  144.     :menu-item-defaults     (nil nil )
  145.     :initial-selections     (nil nil )
  146.     :menu-item-handlers     (SetSpeakerOutput SetHeadphoneOutput )
  147.     :menu-item-menus        (nil nil )
  148.     :menu-item-colors       ("" "" )
  149.     :pinnable               t
  150.     :user-data              ()
  151.     :actions                (
  152.         (
  153.         :from                   (audioOutputOptionsMenu "icons/speaker.icon")
  154.         :when                   (Notify )
  155.         :to                     (audioOutputOptionsMenu "icons/speaker.icon")
  156.         :function_type          CallFunction
  157.         :arg_type               ()
  158.         :action                 (SetSpeakerOutput)
  159.         )
  160.         (
  161.         :from                   (audioOutputOptionsMenu "icons/headphone.icon")
  162.         :when                   (Notify )
  163.         :to                     (audioOutputOptionsMenu "icons/headphone.icon")
  164.         :function_type          CallFunction
  165.         :arg_type               ()
  166.         :action                 (SetHeadphoneOutput)
  167.         )
  168.     )
  169. )
  170. (
  171.     :type                   :menu
  172.     :name                   optionsMenu
  173.     :help                   ""
  174.     :columns                1
  175.     :menu-type              :command
  176.     :menu-handler           nil
  177.     :menu-title             "Options"
  178.     :menu-item-labels       ("Clear Selection" "Size To Fit" "Global Wave Canvas" "Enable Sound Editing" "Audio Output Options" )
  179.     :menu-item-label-types  (:string :string :string :string :string )
  180.     :menu-item-states       (:active :active :active :active :active )
  181.     :menu-item-defaults     (nil nil nil nil nil )
  182.     :initial-selections     (nil nil nil nil nil )
  183.     :menu-item-handlers     (ResetMarkersHandler SizeToFitHandler GlobalWaveCanvasHandler ToggleSoundEditing nil )
  184.     :menu-item-menus        (nil nil nil nil audioOutputOptionsMenu )
  185.     :menu-item-colors       ("" "" "" "" "" )
  186.     :pinnable               t
  187.     :user-data              ()
  188.     :actions                (
  189.         (
  190.         :from                   (optionsMenu "Clear Selection")
  191.         :when                   (Notify )
  192.         :to                     (optionsMenu "Clear Selection")
  193.         :function_type          CallFunction
  194.         :arg_type               ()
  195.         :action                 (ResetMarkersHandler)
  196.         )
  197.         (
  198.         :from                   (optionsMenu "Size To Fit")
  199.         :when                   (Notify )
  200.         :to                     (optionsMenu "Size To Fit")
  201.         :function_type          CallFunction
  202.         :arg_type               ()
  203.         :action                 (SizeToFitHandler)
  204.         )
  205.         (
  206.         :from                   (optionsMenu "Global Wave Canvas")
  207.         :when                   (Notify )
  208.         :to                     (optionsMenu "Global Wave Canvas")
  209.         :function_type          CallFunction
  210.         :arg_type               ()
  211.         :action                 (GlobalWaveCanvasHandler)
  212.         )
  213.         (
  214.         :from                   (optionsMenu "Enable Sound Editing")
  215.         :when                   (Notify )
  216.         :to                     (optionsMenu "Enable Sound Editing")
  217.         :function_type          CallFunction
  218.         :arg_type               ()
  219.         :action                 (ToggleSoundEditing)
  220.         )
  221.     )
  222. )
  223. (
  224.     :type                   :menu
  225.     :name                   editListDocumentMenu
  226.     :help                   ""
  227.     :columns                1
  228.     :menu-type              :command
  229.     :menu-handler           nil
  230.     :menu-title             ""
  231.     :menu-item-labels       ("Open Edit List" "Save Edit List" "Save Edit List As..." "New" )
  232.     :menu-item-label-types  (:string :string :string :string )
  233.     :menu-item-states       (:active :active :active :active )
  234.     :menu-item-defaults     (nil nil nil nil )
  235.     :initial-selections     (nil nil nil nil )
  236.     :menu-item-handlers     (OpenEditListHandler SaveEditListHandler EditListSaveAsHandler NewEditListHandler )
  237.     :menu-item-menus        (nil nil nil nil )
  238.     :menu-item-colors       ("" "" "" "" )
  239.     :pinnable               t
  240.     :user-data              ()
  241.     :actions                (
  242.         (
  243.         :from                   (editListDocumentMenu "Open Edit List")
  244.         :when                   (Notify )
  245.         :to                     (editListDocumentMenu "Open Edit List")
  246.         :function_type          CallFunction
  247.         :arg_type               ()
  248.         :action                 (OpenEditListHandler)
  249.         )
  250.         (
  251.         :from                   (editListDocumentMenu "Save Edit List")
  252.         :when                   (Notify )
  253.         :to                     (editListDocumentMenu "Save Edit List")
  254.         :function_type          CallFunction
  255.         :arg_type               ()
  256.         :action                 (SaveEditListHandler)
  257.         )
  258.         (
  259.         :from                   (editListDocumentMenu "Save Edit List As...")
  260.         :when                   (Notify )
  261.         :to                     (editListDocumentMenu "Save Edit List As...")
  262.         :function_type          CallFunction
  263.         :arg_type               ()
  264.         :action                 (EditListSaveAsHandler)
  265.         )
  266.         (
  267.         :from                   (editListDocumentMenu "New")
  268.         :when                   (Notify )
  269.         :to                     (editListDocumentMenu "New")
  270.         :function_type          CallFunction
  271.         :arg_type               ()
  272.         :action                 (NewEditListHandler)
  273.         )
  274.     )
  275. )
  276. (
  277.     :type                   :base-window
  278.     :name                   mainWindow
  279.     :owner                  nil
  280.     :width                  600
  281.     :height                 460
  282.     :background-color       "light gray"
  283.     :foreground-color       ""
  284.     :label                  "Digital Tape Recorder"
  285.     :label-type             :string
  286.     :initial-state          :open
  287.     :show-footer            nil
  288.     :resizable              nil
  289.     :icon-file              "icons/dtr.icon"
  290.     :icon-label             ""
  291.     :icon-mask-file         ""
  292.     :event-handler          nil
  293.     :user-data              ()
  294.     :actions                ()
  295. )
  296. (
  297.     :type                   :control-area
  298.     :name                   menuControlPanel
  299.     :owner                  mainWindow
  300.     :help                   ""
  301.     :x                      0
  302.     :y                      0
  303.     :width                  600
  304.     :height                 115
  305.     :background-color       ""
  306.     :foreground-color       ""
  307.     :initial-state          :visible
  308.     :show-border            t
  309.     :menu                   nil
  310.     :event-handler          nil
  311.     :user-data              ()
  312.     :actions                ()
  313. )
  314. (
  315.     :type                   :button
  316.     :name                   documentButton
  317.     :owner                  menuControlPanel
  318.     :help                   ""
  319.     :x                      12
  320.     :y                      8
  321.     :width                  94
  322.     :height                 19
  323.     :constant-width         nil
  324.     :button-type            :normal
  325.     :foreground-color       "black"
  326.     :label                  "Document"
  327.     :label-type             :string
  328.     :initial-state          :active
  329.     :menu                   documentMenu
  330.     :notify-handler         nil
  331.     :event-handler          nil
  332.     :user-data              ()
  333.     :actions                ()
  334. )
  335. (
  336.     :type                   :button
  337.     :name                   editButton
  338.     :owner                  menuControlPanel
  339.     :help                   ""
  340.     :x                      120
  341.     :y                      8
  342.     :width                  24
  343.     :height                 19
  344.     :constant-width         t
  345.     :button-type            :normal
  346.     :foreground-color       "black"
  347.     :label                  "Edit"
  348.     :label-type             :string
  349.     :initial-state          :active
  350.     :menu                   editMenu
  351.     :notify-handler         nil
  352.     :event-handler          nil
  353.     :user-data              ()
  354.     :actions                ()
  355. )
  356. (
  357.     :type                   :button
  358.     :name                   optionsButton
  359.     :owner                  menuControlPanel
  360.     :help                   ""
  361.     :x                      192
  362.     :y                      8
  363.     :width                  80
  364.     :height                 19
  365.     :constant-width         nil
  366.     :button-type            :normal
  367.     :foreground-color       "black"
  368.     :label                  "Options"
  369.     :label-type             :string
  370.     :initial-state          :active
  371.     :menu                   optionsMenu
  372.     :notify-handler         nil
  373.     :event-handler          nil
  374.     :user-data              ()
  375.     :actions                ()
  376. )
  377. (
  378.     :type                   :button
  379.     :name                   openEditListButton
  380.     :owner                  menuControlPanel
  381.     :help                   ""
  382.     :x                      280
  383.     :y                      8
  384.     :width                  76
  385.     :height                 19
  386.     :constant-width         nil
  387.     :button-type            :normal
  388.     :foreground-color       "black"
  389.     :label                  "Edit List..."
  390.     :label-type             :string
  391.     :initial-state          :active
  392.     :menu                   nil
  393.     :notify-handler         ShowEditListPanelHandler
  394.     :event-handler          nil
  395.     :user-data              ()
  396.     :actions                (
  397.         (
  398.         :from                   (mainWindow openEditListButton)
  399.         :when                   (Notify )
  400.         :to                     (mainWindow openEditListButton)
  401.         :function_type          CallFunction
  402.         :arg_type               ()
  403.         :action                 (ShowEditListPanelHandler)
  404.         )
  405.     )
  406. )
  407. (
  408.     :type                   :message
  409.     :name                   durationLabelMessage
  410.     :owner                  menuControlPanel
  411.     :help                   ""
  412.     :x                      365
  413.     :y                      12
  414.     :width                  63
  415.     :height                 13
  416.     :foreground-color       "black"
  417.     :label                  "Duration:"
  418.     :label-type             :string
  419.     :label-bold             t
  420.     :initial-state          :active
  421.     :event-handler          nil
  422.     :user-data              ()
  423.     :actions                ()
  424. )
  425. (
  426.     :type                   :message
  427.     :name                   durationMessage
  428.     :owner                  menuControlPanel
  429.     :help                   ""
  430.     :x                      438
  431.     :y                      12
  432.     :width                  0
  433.     :height                 0
  434.     :foreground-color       "black"
  435.     :label                  ""
  436.     :label-type             :string
  437.     :label-bold             nil
  438.     :initial-state          :active
  439.     :event-handler          nil
  440.     :user-data              ()
  441.     :actions                ()
  442. )
  443. (
  444.     :type                   :message
  445.     :name                   sizeLabelMessage
  446.     :owner                  menuControlPanel
  447.     :help                   ""
  448.     :x                      397
  449.     :y                      32
  450.     :width                  31
  451.     :height                 13
  452.     :foreground-color       "black"
  453.     :label                  "Size:"
  454.     :label-type             :string
  455.     :label-bold             t
  456.     :initial-state          :active
  457.     :event-handler          nil
  458.     :user-data              ()
  459.     :actions                ()
  460. )
  461. (
  462.     :type                   :message
  463.     :name                   sizeMessage
  464.     :owner                  menuControlPanel
  465.     :help                   ""
  466.     :x                      438
  467.     :y                      32
  468.     :width                  0
  469.     :height                 0
  470.     :foreground-color       "black"
  471.     :label                  ""
  472.     :label-type             :string
  473.     :label-bold             nil
  474.     :initial-state          :active
  475.     :event-handler          nil
  476.     :user-data              ()
  477.     :actions                ()
  478. )
  479. (
  480.     :type                   :message
  481.     :name                   spaceLeftOnTmpLabelMessage
  482.     :owner                  menuControlPanel
  483.     :help                   ""
  484.     :x                      8
  485.     :y                      44
  486.     :width                  130
  487.     :height                 13
  488.     :foreground-color       "black"
  489.     :label                  "Space left on /tmp:"
  490.     :label-type             :string
  491.     :label-bold             t
  492.     :initial-state          :active
  493.     :event-handler          nil
  494.     :user-data              ()
  495.     :actions                ()
  496. )
  497. (
  498.     :type                   :message
  499.     :name                   spaceLeftOnTmpMessage
  500.     :owner                  menuControlPanel
  501.     :help                   ""
  502.     :x                      148
  503.     :y                      44
  504.     :width                  0
  505.     :height                 0
  506.     :foreground-color       "black"
  507.     :label                  ""
  508.     :label-type             :string
  509.     :label-bold             nil
  510.     :initial-state          :active
  511.     :event-handler          nil
  512.     :user-data              ()
  513.     :actions                ()
  514. )
  515. (
  516.     :type                   :button
  517.     :name                   recordButton
  518.     :owner                  menuControlPanel
  519.     :help                   ""
  520.     :x                      4
  521.     :y                      68
  522.     :width                  60
  523.     :height                 42
  524.     :constant-width         t
  525.     :button-type            :normal
  526.     :foreground-color       "black"
  527.     :label                  "icons/record.icon"
  528.     :label-type             :glyph
  529.     :initial-state          :active
  530.     :menu                   nil
  531.     :notify-handler         RecordButtonHandler
  532.     :event-handler          nil
  533.     :user-data              ()
  534.     :actions                (
  535.         (
  536.         :from                   (mainWindow recordButton)
  537.         :when                   (Notify )
  538.         :to                     (mainWindow recordButton)
  539.         :function_type          CallFunction
  540.         :arg_type               ()
  541.         :action                 (RecordButtonHandler)
  542.         )
  543.     )
  544. )
  545. (
  546.     :type                   :button
  547.     :name                   pauseButton
  548.     :owner                  menuControlPanel
  549.     :help                   ""
  550.     :x                      84
  551.     :y                      68
  552.     :width                  60
  553.     :height                 42
  554.     :constant-width         t
  555.     :button-type            :normal
  556.     :foreground-color       "black"
  557.     :label                  "icons/pause.icon"
  558.     :label-type             :glyph
  559.     :initial-state          :active
  560.     :menu                   nil
  561.     :notify-handler         PauseButtonHandler
  562.     :event-handler          nil
  563.     :user-data              ()
  564.     :actions                (
  565.         (
  566.         :from                   (mainWindow pauseButton)
  567.         :when                   (Notify )
  568.         :to                     (mainWindow pauseButton)
  569.         :function_type          CallFunction
  570.         :arg_type               ()
  571.         :action                 (PauseButtonHandler)
  572.         )
  573.     )
  574. )
  575. (
  576.     :type                   :button
  577.     :name                   stopButton
  578.     :owner                  menuControlPanel
  579.     :help                   ""
  580.     :x                      164
  581.     :y                      68
  582.     :width                  60
  583.     :height                 42
  584.     :constant-width         t
  585.     :button-type            :normal
  586.     :foreground-color       "black"
  587.     :label                  "icons/stop.icon"
  588.     :label-type             :glyph
  589.     :initial-state          :active
  590.     :menu                   nil
  591.     :notify-handler         StopButtonHandler
  592.     :event-handler          nil
  593.     :user-data              ()
  594.     :actions                (
  595.         (
  596.         :from                   (mainWindow stopButton)
  597.         :when                   (Notify )
  598.         :to                     (mainWindow stopButton)
  599.         :function_type          CallFunction
  600.         :arg_type               ()
  601.         :action                 (StopButtonHandler)
  602.         )
  603.     )
  604. )
  605. (
  606.     :type                   :button
  607.     :name                   playButton
  608.     :owner                  menuControlPanel
  609.     :help                   ""
  610.     :x                      244
  611.     :y                      68
  612.     :width                  60
  613.     :height                 42
  614.     :constant-width         t
  615.     :button-type            :normal
  616.     :foreground-color       "black"
  617.     :label                  "icons/play.icon"
  618.     :label-type             :glyph
  619.     :initial-state          :active
  620.     :menu                   nil
  621.     :notify-handler         PlayButtonHandler
  622.     :event-handler          nil
  623.     :user-data              ()
  624.     :actions                (
  625.         (
  626.         :from                   (mainWindow playButton)
  627.         :when                   (Notify )
  628.         :to                     (mainWindow playButton)
  629.         :function_type          CallFunction
  630.         :arg_type               ()
  631.         :action                 (PlayButtonHandler)
  632.         )
  633.     )
  634. )
  635. (
  636.     :type                   :slider
  637.     :name                   playGain
  638.     :owner                  menuControlPanel
  639.     :help                   ""
  640.     :x                      336
  641.     :y                      68
  642.     :width                  254
  643.     :height                 26
  644.     :value-x                369
  645.     :value-y                68
  646.     :slider-width           200
  647.     :ticks                  10
  648.     :foreground-color       "black"
  649.     :label                  "Play "
  650.     :label-type             :string
  651.     :layout-type            :horizontal
  652.     :orientation            :horizontal
  653.     :show-endboxes          nil
  654.     :show-range             nil
  655.     :show-value             nil
  656.     :min-value              0
  657.     :max-value              100
  658.     :min-value-string       ""
  659.     :max-value-string       ""
  660.     :min-tick-string        ""
  661.     :max-tick-string        ""
  662.     :initial-value          0
  663.     :initial-state          :active
  664.     :notify-handler         PlayGainSlider
  665.     :event-handler          nil
  666.     :user-data              ()
  667.     :actions                (
  668.         (
  669.         :from                   (mainWindow playGain)
  670.         :when                   (Notify )
  671.         :to                     (mainWindow playGain)
  672.         :function_type          CallFunction
  673.         :arg_type               ()
  674.         :action                 (PlayGainSlider)
  675.         )
  676.     )
  677. )
  678. (
  679.     :type                   :slider
  680.     :name                   recordGain
  681.     :owner                  menuControlPanel
  682.     :help                   ""
  683.     :x                      324
  684.     :y                      92
  685.     :width                  267
  686.     :height                 26
  687.     :value-x                370
  688.     :value-y                92
  689.     :slider-width           200
  690.     :ticks                  10
  691.     :foreground-color       ""
  692.     :label                  "Record"
  693.     :label-type             :string
  694.     :layout-type            :horizontal
  695.     :orientation            :horizontal
  696.     :show-endboxes          nil
  697.     :show-range             nil
  698.     :show-value             nil
  699.     :min-value              0
  700.     :max-value              100
  701.     :min-value-string       ""
  702.     :max-value-string       ""
  703.     :min-tick-string        ""
  704.     :max-tick-string        ""
  705.     :initial-value          0
  706.     :initial-state          :active
  707.     :notify-handler         RecordGainSlider
  708.     :event-handler          nil
  709.     :user-data              ()
  710.     :actions                (
  711.         (
  712.         :from                   (mainWindow recordGain)
  713.         :when                   (Notify )
  714.         :to                     (mainWindow recordGain)
  715.         :function_type          CallFunction
  716.         :arg_type               ()
  717.         :action                 (RecordGainSlider)
  718.         )
  719.     )
  720. )
  721. (
  722.     :type                   :canvas-pane
  723.     :name                   vuMeterCanvas
  724.     :owner                  mainWindow
  725.     :help                   ""
  726.     :x                      0
  727.     :y                      115
  728.     :width                  147
  729.     :height                 32
  730.     :background-color       "BG1"
  731.     :foreground-color       ""
  732.     :initial-state          :visible
  733.     :draggable              nil
  734.     :droppable              nil
  735.     :default-drop-site      nil
  736.     :menu                   nil
  737.     :horizontal-scrollbar   nil
  738.     :scrollable-width       147
  739.     :vertical-scrollbar     nil
  740.     :scrollable-height      32
  741.     :repaint-proc           VUMeterCanvasRepaintHandler
  742.     :event-handler          nil
  743.     :drawing-model          :xview
  744.     :user-data              ()
  745.     :actions                (
  746.         (
  747.         :from                   (mainWindow vuMeterCanvas)
  748.         :when                   (Repaint )
  749.         :to                     (mainWindow vuMeterCanvas)
  750.         :function_type          CallFunction
  751.         :arg_type               ()
  752.         :action                 (VUMeterCanvasRepaintHandler)
  753.         )
  754.     )
  755. )
  756. (
  757.     :type                   :control-area
  758.     :name                   selectionInfoControlPanel
  759.     :owner                  mainWindow
  760.     :help                   ""
  761.     :x                      147
  762.     :y                      115
  763.     :width                  453
  764.     :height                 32
  765.     :background-color       ""
  766.     :foreground-color       ""
  767.     :initial-state          :visible
  768.     :show-border            nil
  769.     :menu                   nil
  770.     :event-handler          nil
  771.     :user-data              ()
  772.     :actions                ()
  773. )
  774. (
  775.     :type                   :message
  776.     :name                   selectionDurationLabelMessage
  777.     :owner                  selectionInfoControlPanel
  778.     :help                   ""
  779.     :x                      8
  780.     :y                      8
  781.     :width                  134
  782.     :height                 13
  783.     :foreground-color       "black"
  784.     :label                  "Selection Duration :"
  785.     :label-type             :string
  786.     :label-bold             t
  787.     :initial-state          :active
  788.     :event-handler          nil
  789.     :user-data              ()
  790.     :actions                ()
  791. )
  792. (
  793.     :type                   :message
  794.     :name                   selectionDurationMessage
  795.     :owner                  selectionInfoControlPanel
  796.     :help                   ""
  797.     :x                      152
  798.     :y                      8
  799.     :width                  0
  800.     :height                 0
  801.     :foreground-color       "black"
  802.     :label                  ""
  803.     :label-type             :string
  804.     :label-bold             nil
  805.     :initial-state          :active
  806.     :event-handler          nil
  807.     :user-data              ()
  808.     :actions                ()
  809. )
  810. (
  811.     :type                   :message
  812.     :name                   selectionSizeLabelMessage
  813.     :owner                  selectionInfoControlPanel
  814.     :help                   ""
  815.     :x                      312
  816.     :y                      8
  817.     :width                  35
  818.     :height                 13
  819.     :foreground-color       "black"
  820.     :label                  "Size :"
  821.     :label-type             :string
  822.     :label-bold             t
  823.     :initial-state          :active
  824.     :event-handler          nil
  825.     :user-data              ()
  826.     :actions                ()
  827. )
  828. (
  829.     :type                   :message
  830.     :name                   selectionSizeMessage
  831.     :owner                  selectionInfoControlPanel
  832.     :help                   ""
  833.     :x                      356
  834.     :y                      8
  835.     :width                  0
  836.     :height                 0
  837.     :foreground-color       "black"
  838.     :label                  ""
  839.     :label-type             :string
  840.     :label-bold             nil
  841.     :initial-state          :active
  842.     :event-handler          nil
  843.     :user-data              ()
  844.     :actions                ()
  845. )
  846. (
  847.     :type                   :canvas-pane
  848.     :name                   waveCanvas
  849.     :owner                  mainWindow
  850.     :help                   ""
  851.     :x                      0
  852.     :y                      147
  853.     :width                  596
  854.     :height                 200
  855.     :background-color       "BG3"
  856.     :foreground-color       "White"
  857.     :initial-state          :visible
  858.     :draggable              nil
  859.     :droppable              nil
  860.     :default-drop-site      nil
  861.     :menu                   nil
  862.     :horizontal-scrollbar   nil
  863.     :scrollable-width       596
  864.     :vertical-scrollbar     nil
  865.     :scrollable-height      200
  866.     :repaint-proc           WaveCanvasRepaintHandler
  867.     :event-handler          WaveCanvasEventHandler
  868.     :drawing-model          :xwindows
  869.     :user-data              ()
  870.     :actions                (
  871.         (
  872.         :from                   (mainWindow waveCanvas)
  873.         :when                   (Repaint )
  874.         :to                     (mainWindow waveCanvas)
  875.         :function_type          CallFunction
  876.         :arg_type               ()
  877.         :action                 (WaveCanvasRepaintHandler)
  878.         )
  879.         (
  880.         :from                   (mainWindow waveCanvas)
  881.         :when                   (AnyEvent )
  882.         :to                     (mainWindow waveCanvas)
  883.         :function_type          CallFunction
  884.         :arg_type               ()
  885.         :action                 (WaveCanvasEventHandler)
  886.         )
  887.     )
  888. )
  889. (
  890.     :type                   :canvas-pane
  891.     :name                   scaleCanvas
  892.     :owner                  mainWindow
  893.     :help                   ""
  894.     :x                      0
  895.     :y                      347
  896.     :width                  596
  897.     :height                 64
  898.     :background-color       "Highlight"
  899.     :foreground-color       ""
  900.     :initial-state          :visible
  901.     :draggable              nil
  902.     :droppable              nil
  903.     :default-drop-site      nil
  904.     :menu                   nil
  905.     :horizontal-scrollbar   nil
  906.     :scrollable-width       596
  907.     :vertical-scrollbar     nil
  908.     :scrollable-height      64
  909.     :repaint-proc           ScaleCanvasRepaintHandler
  910.     :event-handler          nil
  911.     :drawing-model          :xwindows
  912.     :user-data              ()
  913.     :actions                (
  914.         (
  915.         :from                   (mainWindow scaleCanvas)
  916.         :when                   (Repaint )
  917.         :to                     (mainWindow scaleCanvas)
  918.         :function_type          CallFunction
  919.         :arg_type               ()
  920.         :action                 (ScaleCanvasRepaintHandler)
  921.         )
  922.     )
  923. )
  924. (
  925.     :type                   :control-area
  926.     :name                   zoomControlPanel
  927.     :owner                  mainWindow
  928.     :help                   ""
  929.     :x                      0
  930.     :y                      410
  931.     :width                  597
  932.     :height                 50
  933.     :background-color       ""
  934.     :foreground-color       ""
  935.     :initial-state          :visible
  936.     :show-border            t
  937.     :menu                   nil
  938.     :event-handler          nil
  939.     :user-data              ()
  940.     :actions                ()
  941. )
  942. (
  943.     :type                   :button
  944.     :name                   canvasRewind2Button
  945.     :owner                  zoomControlPanel
  946.     :help                   ""
  947.     :x                      8
  948.     :y                      8
  949.     :width                  42
  950.     :height                 26
  951.     :constant-width         nil
  952.     :button-type            :normal
  953.     :foreground-color       ""
  954.     :label                  "icons/rewind2.icon"
  955.     :label-type             :glyph
  956.     :initial-state          :active
  957.     :menu                   nil
  958.     :notify-handler         CanvasRewind2Handler
  959.     :event-handler          nil
  960.     :user-data              ()
  961.     :actions                (
  962.         (
  963.         :from                   (mainWindow canvasRewind2Button)
  964.         :when                   (Notify )
  965.         :to                     (mainWindow canvasRewind2Button)
  966.         :function_type          CallFunction
  967.         :arg_type               ()
  968.         :action                 (CanvasRewind2Handler)
  969.         )
  970.     )
  971. )
  972. (
  973.     :type                   :button
  974.     :name                   canvasRewind1Button
  975.     :owner                  zoomControlPanel
  976.     :help                   ""
  977.     :x                      64
  978.     :y                      8
  979.     :width                  42
  980.     :height                 26
  981.     :constant-width         nil
  982.     :button-type            :normal
  983.     :foreground-color       ""
  984.     :label                  "icons/rewind1.icon"
  985.     :label-type             :glyph
  986.     :initial-state          :active
  987.     :menu                   nil
  988.     :notify-handler         CanvasRewind1Handler
  989.     :event-handler          nil
  990.     :user-data              ()
  991.     :actions                (
  992.         (
  993.         :from                   (mainWindow canvasRewind1Button)
  994.         :when                   (Notify )
  995.         :to                     (mainWindow canvasRewind1Button)
  996.         :function_type          CallFunction
  997.         :arg_type               ()
  998.         :action                 (CanvasRewind1Handler)
  999.         )
  1000.     )
  1001. )
  1002. (
  1003.     :type                   :button
  1004.     :name                   canvasFastForward1Button
  1005.     :owner                  zoomControlPanel
  1006.     :help                   ""
  1007.     :x                      136
  1008.     :y                      8
  1009.     :width                  42
  1010.     :height                 26
  1011.     :constant-width         nil
  1012.     :button-type            :normal
  1013.     :foreground-color       ""
  1014.     :label                  "icons/fastfrwd1.icon"
  1015.     :label-type             :glyph
  1016.     :initial-state          :active
  1017.     :menu                   nil
  1018.     :notify-handler         CanvasFastForward1Handler
  1019.     :event-handler          nil
  1020.     :user-data              ()
  1021.     :actions                (
  1022.         (
  1023.         :from                   (mainWindow canvasFastForward1Button)
  1024.         :when                   (Notify )
  1025.         :to                     (mainWindow canvasFastForward1Button)
  1026.         :function_type          CallFunction
  1027.         :arg_type               ()
  1028.         :action                 (CanvasFastForward1Handler)
  1029.         )
  1030.     )
  1031. )
  1032. (
  1033.     :type                   :button
  1034.     :name                   canvasFastForward2Button
  1035.     :owner                  zoomControlPanel
  1036.     :help                   ""
  1037.     :x                      192
  1038.     :y                      8
  1039.     :width                  42
  1040.     :height                 26
  1041.     :constant-width         nil
  1042.     :button-type            :normal
  1043.     :foreground-color       ""
  1044.     :label                  "icons/fastfrwd2.icon"
  1045.     :label-type             :glyph
  1046.     :initial-state          :active
  1047.     :menu                   nil
  1048.     :notify-handler         CanvasFastForward2Handler
  1049.     :event-handler          nil
  1050.     :user-data              ()
  1051.     :actions                (
  1052.         (
  1053.         :from                   (mainWindow canvasFastForward2Button)
  1054.         :when                   (Notify )
  1055.         :to                     (mainWindow canvasFastForward2Button)
  1056.         :function_type          CallFunction
  1057.         :arg_type               ()
  1058.         :action                 (CanvasFastForward2Handler)
  1059.         )
  1060.     )
  1061. )
  1062. (
  1063.     :type                   :text-field
  1064.     :name                   zoomLevelTextField
  1065.     :owner                  zoomControlPanel
  1066.     :help                   ""
  1067.     :x                      340
  1068.     :y                      8
  1069.     :width                  100
  1070.     :height                 15
  1071.     :value-x                392
  1072.     :value-y                8
  1073.     :value-length           6
  1074.     :stored-length          80
  1075.     :rows                   3
  1076.     :foreground-color       "black"
  1077.     :text-type              :alphanumeric
  1078.     :label                  "Zoom :"
  1079.     :label-type             :string
  1080.     :layout-type            :horizontal
  1081.     :value-underlined       t
  1082.     :initial-value          ""
  1083.     :initial-state          :active
  1084.     :read-only              nil
  1085.     :notify-handler         ZoomLevelTextFieldHandler
  1086.     :event-handler          nil
  1087.     :user-data              ()
  1088.     :actions                (
  1089.         (
  1090.         :from                   (mainWindow zoomLevelTextField)
  1091.         :when                   (Notify )
  1092.         :to                     (mainWindow zoomLevelTextField)
  1093.         :function_type          CallFunction
  1094.         :arg_type               ()
  1095.         :action                 (ZoomLevelTextFieldHandler)
  1096.         )
  1097.     )
  1098. )
  1099. (
  1100.     :type                   :message
  1101.     :name                   zoomTimesMessage
  1102.     :owner                  zoomControlPanel
  1103.     :help                   ""
  1104.     :x                      460
  1105.     :y                      8
  1106.     :width                  49
  1107.     :height                 13
  1108.     :foreground-color       "black"
  1109.     :label                  "time(s)"
  1110.     :label-type             :string
  1111.     :label-bold             t
  1112.     :initial-state          :active
  1113.     :event-handler          nil
  1114.     :user-data              ()
  1115.     :actions                ()
  1116. )
  1117. (
  1118.     :type                   :slider
  1119.     :name                   zoomSlider
  1120.     :owner                  zoomControlPanel
  1121.     :help                   ""
  1122.     :x                      260
  1123.     :y                      28
  1124.     :width                  317
  1125.     :height                 20
  1126.     :value-x                260
  1127.     :value-y                28
  1128.     :slider-width           280
  1129.     :ticks                  0
  1130.     :foreground-color       "black"
  1131.     :label                  ""
  1132.     :label-type             :string
  1133.     :layout-type            :horizontal
  1134.     :orientation            :horizontal
  1135.     :show-endboxes          t
  1136.     :show-range             nil
  1137.     :show-value             nil
  1138.     :min-value              100
  1139.     :max-value              500
  1140.     :min-value-string       ""
  1141.     :max-value-string       ""
  1142.     :min-tick-string        ""
  1143.     :max-tick-string        ""
  1144.     :initial-value          0
  1145.     :initial-state          :active
  1146.     :notify-handler         ZoomSliderHandler
  1147.     :event-handler          nil
  1148.     :user-data              ()
  1149.     :actions                (
  1150.         (
  1151.         :from                   (mainWindow zoomSlider)
  1152.         :when                   (Notify )
  1153.         :to                     (mainWindow zoomSlider)
  1154.         :function_type          CallFunction
  1155.         :arg_type               ()
  1156.         :action                 (ZoomSliderHandler)
  1157.         )
  1158.     )
  1159. )
  1160. (
  1161.     :type                   :popup-window
  1162.     :name                   globalWaveCanvasPopUp
  1163.     :owner                  mainWindow
  1164.     :width                  707
  1165.     :height                 236
  1166.     :background-color       "light gray"
  1167.     :foreground-color       ""
  1168.     :label                  "Global Wave Canvas"
  1169.     :label-type             :string
  1170.     :initial-state          :invisible
  1171.     :show-footer            t
  1172.     :resizable              t
  1173.     :pinned                 nil
  1174.     :done-handler           nil
  1175.     :event-handler          GlobalWaveCanvasEventHandler
  1176.     :user-data              ()
  1177.     :actions                (
  1178.         (
  1179.         :from                   (globalWaveCanvasPopUp)
  1180.         :when                   (AnyEvent )
  1181.         :to                     (globalWaveCanvasPopUp)
  1182.         :function_type          CallFunction
  1183.         :arg_type               ()
  1184.         :action                 (GlobalWaveCanvasEventHandler)
  1185.         )
  1186.     )
  1187. )
  1188. (
  1189.     :type                   :canvas-pane
  1190.     :name                   globalWaveCanvas
  1191.     :owner                  globalWaveCanvasPopUp
  1192.     :help                   ""
  1193.     :x                      17
  1194.     :y                      0
  1195.     :width                  669
  1196.     :height                 194
  1197.     :background-color       "BG3"
  1198.     :foreground-color       "White"
  1199.     :initial-state          :visible
  1200.     :draggable              nil
  1201.     :droppable              nil
  1202.     :default-drop-site      nil
  1203.     :menu                   nil
  1204.     :horizontal-scrollbar   nil
  1205.     :scrollable-width       669
  1206.     :vertical-scrollbar     nil
  1207.     :scrollable-height      194
  1208.     :repaint-proc           GlobalWaveCanvasRepaintHandler
  1209.     :event-handler          GlobalWaveCanvasEventHandler
  1210.     :drawing-model          :xwindows
  1211.     :user-data              ()
  1212.     :actions                (
  1213.         (
  1214.         :from                   (globalWaveCanvasPopUp globalWaveCanvas)
  1215.         :when                   (Repaint )
  1216.         :to                     (globalWaveCanvasPopUp globalWaveCanvas)
  1217.         :function_type          CallFunction
  1218.         :arg_type               ()
  1219.         :action                 (GlobalWaveCanvasRepaintHandler)
  1220.         )
  1221.         (
  1222.         :from                   (globalWaveCanvasPopUp globalWaveCanvas)
  1223.         :when                   (AnyEvent )
  1224.         :to                     (globalWaveCanvasPopUp globalWaveCanvas)
  1225.         :function_type          CallFunction
  1226.         :arg_type               ()
  1227.         :action                 (GlobalWaveCanvasEventHandler)
  1228.         )
  1229.     )
  1230. )
  1231. (
  1232.     :type                   :control-area
  1233.     :name                   globalWaveControlPanel
  1234.     :owner                  globalWaveCanvasPopUp
  1235.     :help                   ""
  1236.     :x                      17
  1237.     :y                      194
  1238.     :width                  623
  1239.     :height                 42
  1240.     :background-color       "light gray"
  1241.     :foreground-color       ""
  1242.     :initial-state          :visible
  1243.     :show-border            nil
  1244.     :menu                   nil
  1245.     :event-handler          nil
  1246.     :user-data              ()
  1247.     :actions                ()
  1248. )
  1249. (
  1250.     :type                   :button
  1251.     :name                   globalWaveCanvasDoneButton
  1252.     :owner                  globalWaveControlPanel
  1253.     :help                   ""
  1254.     :x                      328
  1255.     :y                      8
  1256.     :width                  49
  1257.     :height                 19
  1258.     :constant-width         nil
  1259.     :button-type            :normal
  1260.     :foreground-color       ""
  1261.     :label                  "Done"
  1262.     :label-type             :string
  1263.     :initial-state          :active
  1264.     :menu                   nil
  1265.     :notify-handler         nil
  1266.     :event-handler          GlobalWaveCanvasDoneHandler
  1267.     :user-data              ()
  1268.     :actions                (
  1269.         (
  1270.         :from                   (globalWaveCanvasPopUp globalWaveCanvasDoneButton)
  1271.         :when                   (AnyEvent )
  1272.         :to                     (globalWaveCanvasPopUp globalWaveCanvasDoneButton)
  1273.         :function_type          CallFunction
  1274.         :arg_type               ()
  1275.         :action                 (GlobalWaveCanvasDoneHandler)
  1276.         )
  1277.     )
  1278. )
  1279. (
  1280.     :type                   :popup-window
  1281.     :name                   editListPanelPopUp
  1282.     :owner                  mainWindow
  1283.     :width                  466
  1284.     :height                 460
  1285.     :background-color       "light gray"
  1286.     :foreground-color       ""
  1287.     :label                  "Edit List Panel"
  1288.     :label-type             :string
  1289.     :initial-state          :invisible
  1290.     :show-footer            nil
  1291.     :resizable              nil
  1292.     :pinned                 nil
  1293.     :done-handler           nil
  1294.     :event-handler          nil
  1295.     :user-data              ()
  1296.     :actions                ()
  1297. )
  1298. (
  1299.     :type                   :control-area
  1300.     :name                   editListUpperControlPanel
  1301.     :owner                  editListPanelPopUp
  1302.     :help                   ""
  1303.     :x                      0
  1304.     :y                      0
  1305.     :width                  466
  1306.     :height                 261
  1307.     :background-color       ""
  1308.     :foreground-color       ""
  1309.     :initial-state          :visible
  1310.     :show-border            t
  1311.     :menu                   nil
  1312.     :event-handler          nil
  1313.     :user-data              ()
  1314.     :actions                ()
  1315. )
  1316. (
  1317.     :type                   :button
  1318.     :name                   editListFileButton
  1319.     :owner                  editListUpperControlPanel
  1320.     :help                   ""
  1321.     :x                      16
  1322.     :y                      12
  1323.     :width                  94
  1324.     :height                 19
  1325.     :constant-width         nil
  1326.     :button-type            :normal
  1327.     :foreground-color       ""
  1328.     :label                  "Document"
  1329.     :label-type             :string
  1330.     :initial-state          :active
  1331.     :menu                   editListDocumentMenu
  1332.     :notify-handler         nil
  1333.     :event-handler          nil
  1334.     :user-data              ()
  1335.     :actions                ()
  1336. )
  1337. (
  1338.     :type                   :message
  1339.     :name                   totalNumberOfEditsLabelMessage
  1340.     :owner                  editListUpperControlPanel
  1341.     :help                   ""
  1342.     :x                      248
  1343.     :y                      12
  1344.     :width                  118
  1345.     :height                 13
  1346.     :foreground-color       "black"
  1347.     :label                  "Number of Edits :"
  1348.     :label-type             :string
  1349.     :label-bold             t
  1350.     :initial-state          :active
  1351.     :event-handler          nil
  1352.     :user-data              ()
  1353.     :actions                ()
  1354. )
  1355. (
  1356.     :type                   :message
  1357.     :name                   totalNumberOfEditsMessage
  1358.     :owner                  editListUpperControlPanel
  1359.     :help                   ""
  1360.     :x                      372
  1361.     :y                      12
  1362.     :width                  0
  1363.     :height                 0
  1364.     :foreground-color       "black"
  1365.     :label                  ""
  1366.     :label-type             :string
  1367.     :label-bold             nil
  1368.     :initial-state          :active
  1369.     :event-handler          nil
  1370.     :user-data              ()
  1371.     :actions                ()
  1372. )
  1373. (
  1374.     :type                   :message
  1375.     :name                   editListMessage
  1376.     :owner                  editListUpperControlPanel
  1377.     :help                   ""
  1378.     :x                      120
  1379.     :y                      52
  1380.     :width                  0
  1381.     :height                 0
  1382.     :foreground-color       "black"
  1383.     :label                  ""
  1384.     :label-type             :string
  1385.     :label-bold             nil
  1386.     :initial-state          :active
  1387.     :event-handler          nil
  1388.     :user-data              ()
  1389.     :actions                ()
  1390. )
  1391. (
  1392.     :type                   :message
  1393.     :name                   editListScrollListHeaderMessagePart1
  1394.     :owner                  editListUpperControlPanel
  1395.     :help                   ""
  1396.     :x                      20
  1397.     :y                      60
  1398.     :width                  188
  1399.     :height                 13
  1400.     :foreground-color       "black"
  1401.     :label                  "Edit #               Label               "
  1402.     :label-type             :string
  1403.     :label-bold             nil
  1404.     :initial-state          :active
  1405.     :event-handler          nil
  1406.     :user-data              ()
  1407.     :actions                ()
  1408. )
  1409. (
  1410.     :type                   :message
  1411.     :name                   editListScrollListHeaderMessagePart2
  1412.     :owner                  editListUpperControlPanel
  1413.     :help                   ""
  1414.     :x                      280
  1415.     :y                      60
  1416.     :width                  165
  1417.     :height                 13
  1418.     :foreground-color       "black"
  1419.     :label                  "Duration (min : sec . 10ths)"
  1420.     :label-type             :string
  1421.     :label-bold             nil
  1422.     :initial-state          :active
  1423.     :event-handler          nil
  1424.     :user-data              ()
  1425.     :actions                ()
  1426. )
  1427. (
  1428.     :type                   :scrolling-list
  1429.     :name                   editListScrollList
  1430.     :owner                  editListUpperControlPanel
  1431.     :help                   ""
  1432.     :x                      16
  1433.     :y                      80
  1434.     :width                  420
  1435.     :height                 164
  1436.     :value-x                16
  1437.     :value-y                80
  1438.     :rows                   8
  1439.     :foreground-color       ""
  1440.     :label                  ""
  1441.     :title                  ""
  1442.     :label-type             :string
  1443.     :layout-type            :horizontal
  1444.     :read-only              t
  1445.     :multiple-selections    nil
  1446.     :selection-required     nil
  1447.     :initial-state          :active
  1448.     :droppable              nil
  1449.     :default-drop-site      nil
  1450.     :menu                   nil
  1451.     :notify-handler         DumpEntry
  1452.     :event-handler          nil
  1453.     :initial-list-values    ()
  1454.     :initial-list-glyphs    ()
  1455.     :initial-selections     ()
  1456.     :user-data              ()
  1457.     :actions                (
  1458.         (
  1459.         :from                   (editListPanelPopUp editListScrollList)
  1460.         :when                   (Notify )
  1461.         :to                     (editListPanelPopUp editListScrollList)
  1462.         :function_type          CallFunction
  1463.         :arg_type               ()
  1464.         :action                 (DumpEntry)
  1465.         )
  1466.     )
  1467. )
  1468. (
  1469.     :type                   :control-area
  1470.     :name                   editListLowerControlPanel
  1471.     :owner                  editListPanelPopUp
  1472.     :help                   ""
  1473.     :x                      0
  1474.     :y                      260
  1475.     :width                  466
  1476.     :height                 200
  1477.     :background-color       ""
  1478.     :foreground-color       ""
  1479.     :initial-state          :visible
  1480.     :show-border            t
  1481.     :menu                   nil
  1482.     :event-handler          nil
  1483.     :user-data              ()
  1484.     :actions                ()
  1485. )
  1486. (
  1487.     :type                   :message
  1488.     :name                   currentEditLabelMessage
  1489.     :owner                  editListLowerControlPanel
  1490.     :help                   ""
  1491.     :x                      144
  1492.     :y                      8
  1493.     :width                  134
  1494.     :height                 13
  1495.     :foreground-color       "black"
  1496.     :label                  "Current Selection :  "
  1497.     :label-type             :string
  1498.     :label-bold             t
  1499.     :initial-state          :active
  1500.     :event-handler          nil
  1501.     :user-data              ()
  1502.     :actions                ()
  1503. )
  1504. (
  1505.     :type                   :message
  1506.     :name                   currentEditMessage
  1507.     :owner                  editListLowerControlPanel
  1508.     :help                   ""
  1509.     :x                      284
  1510.     :y                      8
  1511.     :width                  0
  1512.     :height                 0
  1513.     :foreground-color       "black"
  1514.     :label                  ""
  1515.     :label-type             :string
  1516.     :label-bold             nil
  1517.     :initial-state          :active
  1518.     :event-handler          nil
  1519.     :user-data              ()
  1520.     :actions                ()
  1521. )
  1522. (
  1523.     :type                   :text-field
  1524.     :name                   soundFileTextField
  1525.     :owner                  editListLowerControlPanel
  1526.     :help                   ""
  1527.     :x                      10
  1528.     :y                      32
  1529.     :width                  446
  1530.     :height                 15
  1531.     :value-x                96
  1532.     :value-y                32
  1533.     :value-length           45
  1534.     :stored-length          1024
  1535.     :rows                   3
  1536.     :foreground-color       ""
  1537.     :text-type              :alphanumeric
  1538.     :label                  "Sound File :"
  1539.     :label-type             :string
  1540.     :layout-type            :horizontal
  1541.     :value-underlined       t
  1542.     :initial-value          ""
  1543.     :initial-state          :active
  1544.     :read-only              nil
  1545.     :notify-handler         nil
  1546.     :event-handler          nil
  1547.     :user-data              ()
  1548.     :actions                ()
  1549. )
  1550. (
  1551.     :type                   :text-field
  1552.     :name                   labelTextField
  1553.     :owner                  editListLowerControlPanel
  1554.     :help                   ""
  1555.     :x                      10
  1556.     :y                      59
  1557.     :width                  445
  1558.     :height                 15
  1559.     :value-x                95
  1560.     :value-y                59
  1561.     :value-length           45
  1562.     :stored-length          80
  1563.     :rows                   3
  1564.     :foreground-color       ""
  1565.     :text-type              :alphanumeric
  1566.     :label                  "Label         :"
  1567.     :label-type             :string
  1568.     :layout-type            :horizontal
  1569.     :value-underlined       t
  1570.     :initial-value          ""
  1571.     :initial-state          :active
  1572.     :read-only              nil
  1573.     :notify-handler         LabelTextFieldHandler
  1574.     :event-handler          nil
  1575.     :user-data              ()
  1576.     :actions                (
  1577.         (
  1578.         :from                   (editListPanelPopUp labelTextField)
  1579.         :when                   (Notify )
  1580.         :to                     (editListPanelPopUp labelTextField)
  1581.         :function_type          CallFunction
  1582.         :arg_type               ()
  1583.         :action                 (LabelTextFieldHandler)
  1584.         )
  1585.     )
  1586. )
  1587. (
  1588.     :type                   :message
  1589.     :name                   startingTimeMessage
  1590.     :owner                  editListLowerControlPanel
  1591.     :help                   ""
  1592.     :x                      9
  1593.     :y                      87
  1594.     :width                  100
  1595.     :height                 13
  1596.     :foreground-color       "black"
  1597.     :label                  "Starting Time :"
  1598.     :label-type             :string
  1599.     :label-bold             t
  1600.     :initial-state          :active
  1601.     :event-handler          nil
  1602.     :user-data              ()
  1603.     :actions                ()
  1604. )
  1605. (
  1606.     :type                   :text-field
  1607.     :name                   startingTimeMinuteTextField
  1608.     :owner                  editListLowerControlPanel
  1609.     :help                   ""
  1610.     :x                      125
  1611.     :y                      87
  1612.     :width                  48
  1613.     :height                 15
  1614.     :value-x                125
  1615.     :value-y                87
  1616.     :value-length           6
  1617.     :stored-length          80
  1618.     :rows                   3
  1619.     :foreground-color       ""
  1620.     :text-type              :alphanumeric
  1621.     :label                  ""
  1622.     :label-type             :string
  1623.     :layout-type            :horizontal
  1624.     :value-underlined       t
  1625.     :initial-value          ""
  1626.     :initial-state          :active
  1627.     :read-only              nil
  1628.     :notify-handler         nil
  1629.     :event-handler          nil
  1630.     :user-data              ()
  1631.     :actions                ()
  1632. )
  1633. (
  1634.     :type                   :message
  1635.     :name                   startingTimeMinuteMessage
  1636.     :owner                  editListLowerControlPanel
  1637.     :help                   ""
  1638.     :x                      189
  1639.     :y                      87
  1640.     :width                  15
  1641.     :height                 13
  1642.     :foreground-color       "black"
  1643.     :label                  "m."
  1644.     :label-type             :string
  1645.     :label-bold             nil
  1646.     :initial-state          :active
  1647.     :event-handler          nil
  1648.     :user-data              ()
  1649.     :actions                ()
  1650. )
  1651. (
  1652.     :type                   :text-field
  1653.     :name                   startingTimeSecondTextField
  1654.     :owner                  editListLowerControlPanel
  1655.     :help                   ""
  1656.     :x                      220
  1657.     :y                      87
  1658.     :width                  48
  1659.     :height                 15
  1660.     :value-x                220
  1661.     :value-y                87
  1662.     :value-length           6
  1663.     :stored-length          80
  1664.     :rows                   3
  1665.     :foreground-color       ""
  1666.     :text-type              :alphanumeric
  1667.     :label                  ""
  1668.     :label-type             :string
  1669.     :layout-type            :horizontal
  1670.     :value-underlined       t
  1671.     :initial-value          ""
  1672.     :initial-state          :active
  1673.     :read-only              nil
  1674.     :notify-handler         nil
  1675.     :event-handler          nil
  1676.     :user-data              ()
  1677.     :actions                ()
  1678. )
  1679. (
  1680.     :type                   :message
  1681.     :name                   startingTimeSecondMessage
  1682.     :owner                  editListLowerControlPanel
  1683.     :help                   ""
  1684.     :x                      285
  1685.     :y                      87
  1686.     :width                  9
  1687.     :height                 13
  1688.     :foreground-color       "black"
  1689.     :label                  "s."
  1690.     :label-type             :string
  1691.     :label-bold             nil
  1692.     :initial-state          :active
  1693.     :event-handler          nil
  1694.     :user-data              ()
  1695.     :actions                ()
  1696. )
  1697. (
  1698.     :type                   :message
  1699.     :name                   endingTimeMessage
  1700.     :owner                  editListLowerControlPanel
  1701.     :help                   ""
  1702.     :x                      8
  1703.     :y                      107
  1704.     :width                  101
  1705.     :height                 13
  1706.     :foreground-color       "black"
  1707.     :label                  "Ending   Time :"
  1708.     :label-type             :string
  1709.     :label-bold             t
  1710.     :initial-state          :active
  1711.     :event-handler          nil
  1712.     :user-data              ()
  1713.     :actions                ()
  1714. )
  1715. (
  1716.     :type                   :text-field
  1717.     :name                   endingTimeMinuteTextField
  1718.     :owner                  editListLowerControlPanel
  1719.     :help                   ""
  1720.     :x                      125
  1721.     :y                      107
  1722.     :width                  48
  1723.     :height                 15
  1724.     :value-x                125
  1725.     :value-y                107
  1726.     :value-length           6
  1727.     :stored-length          80
  1728.     :rows                   3
  1729.     :foreground-color       ""
  1730.     :text-type              :alphanumeric
  1731.     :label                  ""
  1732.     :label-type             :string
  1733.     :layout-type            :horizontal
  1734.     :value-underlined       t
  1735.     :initial-value          ""
  1736.     :initial-state          :active
  1737.     :read-only              nil
  1738.     :notify-handler         nil
  1739.     :event-handler          nil
  1740.     :user-data              ()
  1741.     :actions                ()
  1742. )
  1743. (
  1744.     :type                   :message
  1745.     :name                   endingTimeMinuteMessage
  1746.     :owner                  editListLowerControlPanel
  1747.     :help                   ""
  1748.     :x                      189
  1749.     :y                      107
  1750.     :width                  15
  1751.     :height                 13
  1752.     :foreground-color       "black"
  1753.     :label                  "m."
  1754.     :label-type             :string
  1755.     :label-bold             nil
  1756.     :initial-state          :active
  1757.     :event-handler          nil
  1758.     :user-data              ()
  1759.     :actions                ()
  1760. )
  1761. (
  1762.     :type                   :text-field
  1763.     :name                   endingTimeSecondTextField
  1764.     :owner                  editListLowerControlPanel
  1765.     :help                   ""
  1766.     :x                      220
  1767.     :y                      107
  1768.     :width                  48
  1769.     :height                 15
  1770.     :value-x                220
  1771.     :value-y                107
  1772.     :value-length           6
  1773.     :stored-length          80
  1774.     :rows                   3
  1775.     :foreground-color       ""
  1776.     :text-type              :alphanumeric
  1777.     :label                  ""
  1778.     :label-type             :string
  1779.     :layout-type            :horizontal
  1780.     :value-underlined       t
  1781.     :initial-value          ""
  1782.     :initial-state          :active
  1783.     :read-only              nil
  1784.     :notify-handler         nil
  1785.     :event-handler          nil
  1786.     :user-data              ()
  1787.     :actions                ()
  1788. )
  1789. (
  1790.     :type                   :message
  1791.     :name                   endingTimeSecondMessage
  1792.     :owner                  editListLowerControlPanel
  1793.     :help                   ""
  1794.     :x                      285
  1795.     :y                      107
  1796.     :width                  9
  1797.     :height                 13
  1798.     :foreground-color       "black"
  1799.     :label                  "s."
  1800.     :label-type             :string
  1801.     :label-bold             nil
  1802.     :initial-state          :active
  1803.     :event-handler          nil
  1804.     :user-data              ()
  1805.     :actions                ()
  1806. )
  1807. (
  1808.     :type                   :slider
  1809.     :name                   editListVolumeSlider
  1810.     :owner                  editListLowerControlPanel
  1811.     :help                   ""
  1812.     :x                      8
  1813.     :y                      128
  1814.     :width                  273
  1815.     :height                 26
  1816.     :value-x                60
  1817.     :value-y                128
  1818.     :slider-width           200
  1819.     :ticks                  10
  1820.     :foreground-color       "black"
  1821.     :label                  "Volume"
  1822.     :label-type             :string
  1823.     :layout-type            :horizontal
  1824.     :orientation            :horizontal
  1825.     :show-endboxes          nil
  1826.     :show-range             nil
  1827.     :show-value             nil
  1828.     :min-value              0
  1829.     :max-value              100
  1830.     :min-value-string       ""
  1831.     :max-value-string       ""
  1832.     :min-tick-string        ""
  1833.     :max-tick-string        ""
  1834.     :initial-value          0
  1835.     :initial-state          :active
  1836.     :notify-handler         PlayGainSlider
  1837.     :event-handler          nil
  1838.     :user-data              ()
  1839.     :actions                (
  1840.         (
  1841.         :from                   (editListPanelPopUp editListVolumeSlider)
  1842.         :when                   (Notify )
  1843.         :to                     (editListPanelPopUp editListVolumeSlider)
  1844.         :function_type          CallFunction
  1845.         :arg_type               ()
  1846.         :action                 (PlayGainSlider)
  1847.         )
  1848.     )
  1849. )
  1850. (
  1851.     :type                   :button
  1852.     :name                   previewEditButton
  1853.     :owner                  editListLowerControlPanel
  1854.     :help                   ""
  1855.     :x                      341
  1856.     :y                      128
  1857.     :width                  57
  1858.     :height                 19
  1859.     :constant-width         t
  1860.     :button-type            :normal
  1861.     :foreground-color       ""
  1862.     :label                  "Preview"
  1863.     :label-type             :string
  1864.     :initial-state          :active
  1865.     :menu                   nil
  1866.     :notify-handler         PreviewEditButtonHandler
  1867.     :event-handler          nil
  1868.     :user-data              ()
  1869.     :actions                (
  1870.         (
  1871.         :from                   (editListPanelPopUp previewEditButton)
  1872.         :when                   (Notify )
  1873.         :to                     (editListPanelPopUp previewEditButton)
  1874.         :function_type          CallFunction
  1875.         :arg_type               ()
  1876.         :action                 (PreviewEditButtonHandler)
  1877.         )
  1878.     )
  1879. )
  1880. (
  1881.     :type                   :button
  1882.     :name                   addButton
  1883.     :owner                  editListLowerControlPanel
  1884.     :help                   ""
  1885.     :x                      11
  1886.     :y                      164
  1887.     :width                  57
  1888.     :height                 19
  1889.     :constant-width         t
  1890.     :button-type            :normal
  1891.     :foreground-color       ""
  1892.     :label                  "    Add"
  1893.     :label-type             :string
  1894.     :initial-state          :active
  1895.     :menu                   nil
  1896.     :notify-handler         AddButtonHandler
  1897.     :event-handler          nil
  1898.     :user-data              ()
  1899.     :actions                (
  1900.         (
  1901.         :from                   (editListPanelPopUp addButton)
  1902.         :when                   (Notify )
  1903.         :to                     (editListPanelPopUp addButton)
  1904.         :function_type          CallFunction
  1905.         :arg_type               ()
  1906.         :action                 (AddButtonHandler)
  1907.         )
  1908.     )
  1909. )
  1910. (
  1911.     :type                   :button
  1912.     :name                   modifyButton
  1913.     :owner                  editListLowerControlPanel
  1914.     :help                   ""
  1915.     :x                      121
  1916.     :y                      164
  1917.     :width                  57
  1918.     :height                 19
  1919.     :constant-width         t
  1920.     :button-type            :normal
  1921.     :foreground-color       ""
  1922.     :label                  "  Modify"
  1923.     :label-type             :string
  1924.     :initial-state          :active
  1925.     :menu                   nil
  1926.     :notify-handler         ModifyButtonHandler
  1927.     :event-handler          nil
  1928.     :user-data              ()
  1929.     :actions                (
  1930.         (
  1931.         :from                   (editListPanelPopUp modifyButton)
  1932.         :when                   (Notify )
  1933.         :to                     (editListPanelPopUp modifyButton)
  1934.         :function_type          CallFunction
  1935.         :arg_type               ()
  1936.         :action                 (ModifyButtonHandler)
  1937.         )
  1938.     )
  1939. )
  1940. (
  1941.     :type                   :button
  1942.     :name                   deleteButton
  1943.     :owner                  editListLowerControlPanel
  1944.     :help                   ""
  1945.     :x                      231
  1946.     :y                      164
  1947.     :width                  57
  1948.     :height                 19
  1949.     :constant-width         t
  1950.     :button-type            :normal
  1951.     :foreground-color       ""
  1952.     :label                  "  Delete"
  1953.     :label-type             :string
  1954.     :initial-state          :active
  1955.     :menu                   nil
  1956.     :notify-handler         DeleteButtonHandler
  1957.     :event-handler          nil
  1958.     :user-data              ()
  1959.     :actions                (
  1960.         (
  1961.         :from                   (editListPanelPopUp deleteButton)
  1962.         :when                   (Notify )
  1963.         :to                     (editListPanelPopUp deleteButton)
  1964.         :function_type          CallFunction
  1965.         :arg_type               ()
  1966.         :action                 (DeleteButtonHandler)
  1967.         )
  1968.     )
  1969. )
  1970. (
  1971.     :type                   :button
  1972.     :name                   deleteAllButton
  1973.     :owner                  editListLowerControlPanel
  1974.     :help                   ""
  1975.     :x                      341
  1976.     :y                      164
  1977.     :width                  70
  1978.     :height                 19
  1979.     :constant-width         t
  1980.     :button-type            :normal
  1981.     :foreground-color       ""
  1982.     :label                  "Delete All"
  1983.     :label-type             :string
  1984.     :initial-state          :active
  1985.     :menu                   nil
  1986.     :notify-handler         DeleteAllButtonHandler
  1987.     :event-handler          nil
  1988.     :user-data              ()
  1989.     :actions                (
  1990.         (
  1991.         :from                   (editListPanelPopUp deleteAllButton)
  1992.         :when                   (Notify )
  1993.         :to                     (editListPanelPopUp deleteAllButton)
  1994.         :function_type          CallFunction
  1995.         :arg_type               ()
  1996.         :action                 (DeleteAllButtonHandler)
  1997.         )
  1998.     )
  1999. )
  2000. (
  2001.     :type                   :popup-window
  2002.     :name                   infoPopUp
  2003.     :owner                  mainWindow
  2004.     :width                  475
  2005.     :height                 270
  2006.     :background-color       "light gray"
  2007.     :foreground-color       ""
  2008.     :label                  "DTR Info"
  2009.     :label-type             :string
  2010.     :initial-state          :invisible
  2011.     :show-footer            t
  2012.     :resizable              t
  2013.     :pinned                 nil
  2014.     :done-handler           nil
  2015.     :event-handler          nil
  2016.     :user-data              ()
  2017.     :actions                ()
  2018. )
  2019. (
  2020.     :type                   :control-area
  2021.     :name                   infoControlPanel
  2022.     :owner                  infoPopUp
  2023.     :help                   ""
  2024.     :x                      0
  2025.     :y                      0
  2026.     :width                  475
  2027.     :height                 270
  2028.     :background-color       "BG1"
  2029.     :foreground-color       ""
  2030.     :initial-state          :visible
  2031.     :show-border            t
  2032.     :menu                   nil
  2033.     :event-handler          nil
  2034.     :user-data              ()
  2035.     :actions                ()
  2036. )
  2037. (
  2038.     :type                   :message
  2039.     :name                   appNameMessage
  2040.     :owner                  infoControlPanel
  2041.     :help                   ""
  2042.     :x                      164
  2043.     :y                      16
  2044.     :width                  148
  2045.     :height                 13
  2046.     :foreground-color       "black"
  2047.     :label                  "Digital Tape Recorder"
  2048.     :label-type             :string
  2049.     :label-bold             t
  2050.     :initial-state          :active
  2051.     :event-handler          nil
  2052.     :user-data              ()
  2053.     :actions                ()
  2054. )
  2055. (
  2056.     :type                   :message
  2057.     :name                   appVersionMessage
  2058.     :owner                  infoControlPanel
  2059.     :help                   ""
  2060.     :x                      204
  2061.     :y                      36
  2062.     :width                  76
  2063.     :height                 13
  2064.     :foreground-color       "black"
  2065.     :label                  "Version 2.01"
  2066.     :label-type             :string
  2067.     :label-bold             nil
  2068.     :initial-state          :active
  2069.     :event-handler          nil
  2070.     :user-data              ()
  2071.     :actions                ()
  2072. )
  2073. (
  2074.     :type                   :message
  2075.     :name                   appDescriptionMessage
  2076.     :owner                  infoControlPanel
  2077.     :help                   ""
  2078.     :x                      136
  2079.     :y                      65
  2080.     :width                  204
  2081.     :height                 13
  2082.     :foreground-color       "black"
  2083.     :label                  "An audio application for use with"
  2084.     :label-type             :string
  2085.     :label-bold             nil
  2086.     :initial-state          :active
  2087.     :event-handler          nil
  2088.     :user-data              ()
  2089.     :actions                ()
  2090. )
  2091. (
  2092.     :type                   :message
  2093.     :name                   appDescription2Message
  2094.     :owner                  infoControlPanel
  2095.     :help                   ""
  2096.     :x                      92
  2097.     :y                      85
  2098.     :width                  293
  2099.     :height                 13
  2100.     :foreground-color       "black"
  2101.     :label                  "the MAEstro Multimedia Authoring Environment"
  2102.     :label-type             :string
  2103.     :label-bold             nil
  2104.     :initial-state          :active
  2105.     :event-handler          nil
  2106.     :user-data              ()
  2107.     :actions                ()
  2108. )
  2109. (
  2110.     :type                   :message
  2111.     :name                   developerMessage
  2112.     :owner                  infoControlPanel
  2113.     :help                   ""
  2114.     :x                      152
  2115.     :y                      112
  2116.     :width                  143
  2117.     :height                 13
  2118.     :foreground-color       "black"
  2119.     :label                  "Developed by Derek Lai"
  2120.     :label-type             :string
  2121.     :label-bold             nil
  2122.     :initial-state          :active
  2123.     :event-handler          nil
  2124.     :user-data              ()
  2125.     :actions                ()
  2126. )
  2127. (
  2128.     :type                   :message
  2129.     :name                   developerMessage1
  2130.     :owner                  infoControlPanel
  2131.     :help                   ""
  2132.     :x                      136
  2133.     :y                      132
  2134.     :width                  202
  2135.     :height                 13
  2136.     :foreground-color       "black"
  2137.     :label                  "Modifications by George Drapeau"
  2138.     :label-type             :string
  2139.     :label-bold             nil
  2140.     :initial-state          :active
  2141.     :event-handler          nil
  2142.     :user-data              ()
  2143.     :actions                ()
  2144. )
  2145. (
  2146.     :type                   :message
  2147.     :name                   copyrightMessage
  2148.     :owner                  infoControlPanel
  2149.     :help                   ""
  2150.     :x                      8
  2151.     :y                      156
  2152.     :width                  457
  2153.     :height                 13
  2154.     :foreground-color       "black"
  2155.     :label                  "Copyright (C) 1990, 1991, 1992 Libraries and Information Resources (L&IR)"
  2156.     :label-type             :string
  2157.     :label-bold             nil
  2158.     :initial-state          :active
  2159.     :event-handler          nil
  2160.     :user-data              ()
  2161.     :actions                ()
  2162. )
  2163. (
  2164.     :type                   :message
  2165.     :name                   copyright2Message
  2166.     :owner                  infoControlPanel
  2167.     :help                   ""
  2168.     :x                      176
  2169.     :y                      176
  2170.     :width                  118
  2171.     :height                 13
  2172.     :foreground-color       "black"
  2173.     :label                  "Stanford University"
  2174.     :label-type             :string
  2175.     :label-bold             nil
  2176.     :initial-state          :active
  2177.     :event-handler          nil
  2178.     :user-data              ()
  2179.     :actions                ()
  2180. )
  2181. (
  2182.     :type                   :message
  2183.     :name                   copyright3Message
  2184.     :owner                  infoControlPanel
  2185.     :help                   ""
  2186.     :x                      176
  2187.     :y                      196
  2188.     :width                  119
  2189.     :height                 13
  2190.     :foreground-color       "black"
  2191.     :label                  "Stanford, California"
  2192.     :label-type             :string
  2193.     :label-bold             nil
  2194.     :initial-state          :active
  2195.     :event-handler          nil
  2196.     :user-data              ()
  2197.     :actions                ()
  2198. )
  2199. (
  2200.     :type                   :message
  2201.     :name                   moreinfoMessage
  2202.     :owner                  infoControlPanel
  2203.     :help                   ""
  2204.     :x                      84
  2205.     :y                      232
  2206.     :width                  307
  2207.     :height                 13
  2208.     :foreground-color       "black"
  2209.     :label                  "for more info, contact maestro@sioux.stanford.edu"
  2210.     :label-type             :string
  2211.     :label-bold             nil
  2212.     :initial-state          :active
  2213.     :event-handler          nil
  2214.     :user-data              ()
  2215.     :actions                ()
  2216. )
  2217. )
  2218.