# popup.rb -- Specialize Popup Menus converted from Scheme to Ruby.

# Author: Michael Scholz <mi-scholz@users.sourceforge.net>
# Created: 02/09/05 22:28:49
# Changed: 14/11/09 01:52:47

# Requires --with-motif
# 
# Tested with Snd 15.x
#             Ruby 2.x.x
#             Motif 2.3.3 X11R6
#
# $info_comment_hook: lambda do |file, info_string| ...; new_info_string; end
# $edhist_save_hook:  lambda do |prc| ... end
#
# make_snd_popup(name, *rest) do ... end
#
# class Snd_popup_menu < Menu
#   initialize(name, parent, args, target) do ... end
#   before_popup_hook, lambda do |snd, chn, xe| ...; flag; end
#   entry(name, *rest) do |snd, chn, w| ... end
#   label(name, args)
#   separator(single)
#   cascade(name, args) do ... end
#   each_value do |val| ... end
#
#     class Cascade < Snd_popup_menu
#     initialize(name, parent, args)
#     values
#     # listener
#     children(set_cb, rest = false) do |snd| ... end
#       ==> set_cb.arity == -1 or 0
#     # edhist
#     children(set_cb, rest = false) do |snd, chn, idx| ... end
#       ==> set_cb.arity == -1 or 0
#     # transform
#     children(set_cb, rest = false) do |snd, chn, val| ... end
#       ==> set_cb.arity == 3 (snd, chn, val)
#
# Usage:
#
# menu = make_snd_popup("graph") do
#   entry("Play") do |snd, chn, w| play(snd, 0) end
#   cascade("Marks") do
#     entry("Add") do |snd, chn, w| add_mark(cursor(snd, chn), snd, chn) end
#     entry("Delete") do |snd, chn, w| delete_mark(marks(snd, chn)[0]) end
#   end
#   entry("Exit") do |snd, chn, w| exit(0) end
# end
# menu.change_menu_color("ivory3")
#
# CHILDREN
#
# Cascading can be simplified by using `children' which can take a
# `set_cb' callback with 0 args (on listener) or 3 args (on channels).
# If set_cb.arity == 0, the body.arity == 1 (current sound).  If
# set_cb.arity == 3, the body.arity == 3 (snd, chn, val).  See
# listener-popup menu below for the former and transform-popup for the
# latter variant.
# 
# children(set_cb, rest = false, &body)
#   case SET_CB.arity
#   when 0
#     # listener popup example below
#     BODY.arity == 1 (snd)
#     REST means "no widget"
#   when 1
#     # transform popup example below
#     BODY.arity == 3 (snd, chn, val)
#     REST means an array of arrays of [name, value]
#   end
#
# make_snd_popup("Listener", ...) do
#   ...
#   cascade("Close") do
#     children(lambda do | | Snd.sounds end) do |snd|
#       close_sound_extend(snd)
#     end
#   end
#   ...
# end
#
# make_snd_popup("Transform") do
#   ...
#   cascade("Graph type") do
#     children(lambda do |snd, chn, val|
#                transform_graph_type(snd, chn) != val
#              end, [["once", Graph_once],
#                    ["sonogram", Graph_as_sonogram],
#                    ["spectrogram", Graph_as_spectrogram]]) do |snd, chn, val|
#       set_transform_graph_type(val, snd, choose_chan.call(snd, chn))
#     end
#   end
#   ...
# end
#
# Change the appearance of menu entries with `before_popup_hook', a
# hook per instance.  The example menus below may help.

require "hooks"
require "snd-xm"
include Snd_XM

unless provided?(:snd_motif)
  Snd.raise(:runtime_error, __FILE__, "--with-motif required")
end

$edhist_help_edits = false       # for prefs

$info_comment_hook = Hook.new("$info_comment_hook", 2, "\
lambda do |file, info_string| ...; new_info_string; end: provides a
way to add more information to INFO_STRING and format the comment of
FILE.  The hook collects the return value of one hook to INFO_STRING
on subsequent calls.  This hook is called in popup.rb and nb.rb.  If
no hook procedure is defined, the normal sound comment is added.

In snd-xm.rb exists format_sound_comment(comment).  It is a very
simple comment formatter.

$info_comment_hook.add_hook!(\"snd-init-hook\") do |file, info|
  info += format_sound_comment(mus_sound_comment(file))
  if s = mus_sound_loop_info(file)
    info += format(\"   loop: %s\n\", s.inspect)
  end
  info
end")

# calls all hook-procs as long as they return true
class Hook
  def run_hook_bool(*args)
    ret = true
    self.run_hook do |prc|
      if prc.call(*args) != true
        ret = false
        break
      end
    end
    ret
  end
end

add_help(:make_snd_popup,
         "make_snd_popup(name, *rest) do ... end
  NAME                             # menu name
  :parent, main_widgets[Main_pane] # e.g. listener popup takes
                                   # main_widgets[Listener_pane]
  :target, :channels               # :channels, :edhist, :widget, :event
  :args, [RXmNbackground, highlight_color] # Motif arguments")
def make_snd_popup(name, *rest, &body)
  parent, target = nil
  optkey(rest, binding,
         [:parent, main_widgets[Main_pane_shell]],
         [:target, :channels]) # targets :channels, :edhist, :widget, :event
  args = get_args(rest, :args, [RXmNbackground, highlight_color])
  Snd_popup_menu.new(name, parent, args, target, &body)
end

class Snd_popup_menu < Menu
  def initialize(name, parent, args, target, &body)
    super(name, parent, args)
    @parent = parent
    @values = []
    @popups = []
    @widget_names = {}
    @target = target
    @before_popup_hook = Hook.new("@before_popup_hook", 3, "\
lambda do |snd, chn, xe| ... flag end: called before posting a popup menu.

On channel popups (see popup.rb): SND, CHN, and XE are the selected
sound, channel and x-position on the channel pane.  If it returns
non-nil or non-false, the menu will be posted.

On the listener popup (see popup.rb): SND, CHN, and XE are meaningless
as well as the return value.  The menu will be posted in every case.

On event-handler popups (see nb.rb): SND, CHN, and XE are meaningless.
If it returns non-nil or non-false, the menu will be posted.")
    if symbol?(@target)
      # no `create' on Cascade.new
      create(&body)
    end
  end
  attr_reader :before_popup_hook
  
  def entry(name, *rest, &body)
    procedure = optkey(rest, :procedure)
    args = get_args(rest, :args, @args)
    child = RXtCreateManagedWidget(name, RxmPushButtonWidgetClass, @menu, args)
    if block_given?
      RXtAddCallback(child, RXmNactivateCallback,
                     lambda do |w, c, i|
                       chn = if snd = selected_sound()
                               selected_channel()
                             else
                               false
                             end
                       body.call(snd, chn, w)
                     end)
    end
    @widget_names[child] = name
    proc?(procedure) and procedure.call(child)
    child
  end

  def label(name, args = @args)
    label = super(name, args)
    @widget_names[label] = name
    label
  end
  
  def cascade(name, args = @args, &body)
    cas = Cascade.new(name, @menu, args, @target)
    cas.instance_eval(&body) if block_given?
    @values.push(cas.values)
    cas
  end

  def each_value(&body)
    @values.map(&body)
  end

  def widget_name(widget)
    @widget_names[widget]
  end
  
  private
  def create(&body)
    @menu = RXmCreatePopupMenu(@parent, @label,
                               [RXmNpopupEnabled, RXmPOPUP_AUTOMATIC] + @args)
    unless @label.empty?
      label(@label)
      separator
    end
    instance_eval(&body) if block_given?
    case @target
    when :channels, :edhist
      Snd.sounds.each do |snd|
        set_channel_popup(snd)
      end
      hook_name = format("%s-popup",
                         (@label or "channels").downcase.tr(" ", "-"))
      $after_open_hook.add_hook!(hook_name) do |snd|
        set_channel_popup(snd)
      end
    when :widget
      set_widget_popup
    when :event
      set_event_popup
    end
  end

  def set_channel_popup(snd)
    channels(snd).times do |chn|
      res = @popups.detect do |c|
        c == [snd, chn]
      end
      unless res
        @popups.push([snd, chn])
        if @target == :edhist
          RXtAddCallback(channel_widgets(snd, chn)[Edhist],
                         RXmNpopupHandlerCallback,
                         lambda do |w, c, i|
                           if Rtype(Revent(i)) == RButtonPress
                             @before_popup_hook.call(snd, chn, w)
                             Rset_menuToPost(i, @menu)
                           end
                         end)
        end
        if @target == :channels
          RXtAddCallback(channel_widgets(snd, chn)[Graph],
                         RXmNpopupHandlerCallback,
                         lambda do |w, c, i|
                           if Rtype(e = Revent(i)) == RButtonPress
                             if @target == :channels and
                                 @before_popup_hook.empty?
                               Rset_menuToPost(i, @menu)
                             else
                               xe = Rx_root(e) - RXtTranslateCoords(w, 0, 0)[0]
                               if channel_style(snd) == Channels_combined
                                 ye = Ry(e)
                                 if channel_style(snd) == Channels_combined
                                   ye = Ry(e)
                                   cn = (0...channels(snd)).detect do |cc|
                                     ye < axis_info(snd, cc)[14]
                                   end
                                   chn = cn ? cn : channels(snd)
                                   chn -= 1
                                 end
                                 unless chn.between?(0, channels(snd) - 1)
                                   # in case of chans(new-snd) < chans(old-snd)
                                   # and new-snd has the same index like closed
                                   # old-snd
                                   chn = channels(snd) - 1
                                 end
                               end
                               if @before_popup_hook.run_hook_bool(snd, chn, xe)
                                 Rset_menuToPost(i, @menu)
                               end
                             end
                           end
                         end)
        end
      end
    end
  end
  
  # e.g. on listener
  def set_widget_popup
    RXtAddCallback(@parent, RXmNpopupHandlerCallback,
                   lambda do |w, c, i|
                     if Rtype(Revent(i)) == RButtonPress
                       @before_popup_hook.call(selected_sound(),
                                               selected_channel(),
                                               w)
                       Rset_menuToPost(i, @menu)
                     end
                   end)
  end

  # see nb.rb for an example
  def set_event_popup
    RXtAddEventHandler(@parent, RButtonPressMask, false,
                       lambda do |w, c, i, f|
                         if Rbutton(i) == 3
                           if @before_popup_hook.run_hook_bool(w, c, i)
                             RXmMenuPosition(@menu, i)
                             RXtManageChild(@menu)
                           end
                         end
                       end)
  end
  
  class Cascade < Snd_popup_menu
    def initialize(name, parent, args, target)
      super(name, parent, args, nil)
      @menu = RXmCreatePulldownMenu(@parent, @label, @args)
      @cascade = RXtCreateManagedWidget(@label,
          RxmCascadeButtonWidgetClass, @parent,
          [RXmNsubMenuId, @menu] + @args)
      @children = []
      @target = target
    end
    attr_reader :values
    
    def children(set_cb, rest = false, &body)
      assert_type(proc?(set_cb), set_cb, 0, "a proc")
      assert_type(proc?(body), body, 2, "a proc")
      case set_cb.arity
      when -1, 0
        add_with_arity_1(rest, set_cb, &body)
      when 3
        add_with_arity_3(rest, set_cb, &body)
      end
    end

    private
    # listener: set_cb.arity == 0|-1, body.arity == 1 (snd)
    #   edhist: set_cb.arity == 0|-1, body.arity == 3 (snd, chn, index)
    def add_with_arity_1(no_widget, set_cb, &body)
      if no_widget
        widget = false
      else
        widget = RXtCreateManagedWidget(@label, RxmPushButtonWidgetClass,
                                        @parent, @args)
        RXtAddCallback(widget, RXmNactivateCallback,
                       lambda do |w, c, i|
                         body.call(set_cb.call.first)
                       end)
      end
      RXtAddCallback(@cascade, RXmNcascadingCallback,
                     lambda do |w, c, i|
                       @children.each do |child|
                         RXtUnmanageChild(child)
                       end
                       snds = set_cb.call.reverse
                       clen = @children.length
                       slen = snds.length
                       if clen < slen
                         (clen...slen).each do |numb|
                           child = RXtCreateManagedWidget(numb.to_s,
                             RxmPushButtonWidgetClass, @menu, @args)
                           RXtAddCallback(child, RXmNactivateCallback,
                             lambda do |ww, cc, ii|
                               if @target == :edhist
                                 body.call(selected_sound,
                                   selected_channel,
                                   RXtVaGetValues(ww,[RXmNuserData, 0]).cadr)
                               else
                                 body.call(find_sound(current_label(ww)))
                               end
                             end)
                           RXtVaSetValues(child,
                             [RXmNuserData, @children.length])
                           @children.push(child)
                         end
                       end
                       if slen.nonzero?
                         if @target == :edhist
                           @children.zip(snds) do |child, label|
                             break unless label
                             if string?(label)
                               change_label(child, label)
                             else
                               change_label(child,
                                 format("%s[%d]",
                                   short_file_name(label.car), label.cadr))
                             end
                             RXtManageChild(child)
                           end
                         else
                           @children.zip(snds) do |child, snd|
                             break unless snd
                             change_label(child, short_file_name(snd))
                             RXtManageChild(child)
                           end
                         end
                       end
                     end)
      @values = [widget, @menu, @cascade, set_cb]
    end
    
    # transform: set_cb.arity and body.arity == 3 (snd, chn, val)
    def add_with_arity_3(list, set_cb, &body)
      list.each do |name, val|
        wid = RXtCreateManagedWidget(name.to_s,
                                     RxmPushButtonWidgetClass, @menu, @args)
        RXtAddCallback(wid, RXmNactivateCallback,
                       lambda do |w, c, i|
                         body.call(selected_sound, selected_channel, val)
                       end)
        @values.push(val)
        @children.push(wid)
      end
      RXtAddCallback(@cascade, RXmNcascadingCallback,
                     lambda do |w, c, i|
                       @children.each_with_index do |child, idx|
                         RXtSetSensitive(child,
                                         set_cb.call(selected_sound,
                                                     selected_channel,
                                                     @values[idx]))
                       end
                     end)
    end
  end
end

unless defined? $__private_popup_menu__ and $__private_popup_menu__
  #
  # Selection Popup
  #
  make_snd_popup("Selection") do
    stopping = stopping1 = false
    stop_widget = stop_widget1 = nil
    selctr = 0
    $stop_playing_selection_hook.add_hook!("popup-stop-selection-hook") do | |
      if stopping
        stopping = false
        change_label(stop_widget, "Play") if widget?(stop_widget)
      end
    end
    entry("Play") do |snd, chn, w|
      if stopping
        stopping = false
        change_label(w, "Play")
        if stopping1
          stopping1 = false
          change_label(stop_widget1, "Loop play")
          $stop_playing_selection_hook.remove_hook!("popup-play-selection")
        end
        stop_playing
      else
        change_label(w, "Stop")
        stop_widget = w
        stopping = true
        play(selection())
      end
    end
    entry("Loop play") do |snd, chn, w|
      if stopping1
        stopping1 = false
        change_label(w, "Loop play")
        $stop_playing_selection_hook.remove_hook!("popup-play-selection")
        if stopping
          stopping = false
          change_label(stop_widget, "Play")
        end
        stop_playing
      else
        change_label(w, "Stop!")
        stop_widget1 = w
        stopping1 = true
        $stop_playing_selection_hook.add_hook!("popup-play-selection") do | |
          play(selection())
        end
        play(selection())
      end
    end
    entry("Delete") do |snd, chn, w|
      delete_selection
    end
    entry("Zero") do |snd, chn, w|
      scale_selection_by(0.0)
    end
    entry("Crop") do |snd, chn, w|
      sndlist = []
      Snd.sounds.each do |s|
        channels(s).times do |i|
          sndlist.push([s, i]) if selection_member?(s, i)
        end
      end
      sndlist.each do |selection|
        snd, chn = selection
        beg = selection_position(snd, chn)
        len = selection_framples(snd, chn)
        as_one_edit(lambda do | |
                      delete_samples(0, beg, snd, chn) if beg > 0
                      if len < framples(snd, chn)
                        delete_samples(len + 1,
                                       framples(snd, chn) - len,
                                       snd, chn)
                      end
                    end)
      end
    end
    entry("Save as") do |snd, chn, w|
      save_selection_dialog
    end
    entry("Copy->New") do |snd, chn, w|
      new_file_name = format("newf-%d.snd", selctr)
      selctr += 1
      save_selection(new_file_name)
      open_sound(new_file_name)
    end
    entry("Cut->New") do |snd, chn, w|
      new_file_name = format("newf-%d.snd", selctr)
      selctr += 1
      save_selection(new_file_name)
      delete_selection
      open_sound(new_file_name)
    end
    entry("Snap marks") do |snd, chn, w|
      selection_members.each do |s, c|
        pos = selection_position(s, c)
        len = selection_framples(s, c) - 1
        add_mark(pos, s, c)
        add_mark(pos + len, s, c)
      end
    end
    entry("Selection Info") do |snd, chn, w|
      beg = selection_position()
      len = selection_framples()
      sr = srate.to_f
      str  = format("    start: %d, %.3f", beg, beg / sr)
      str += format("      end: %d, %.3f", beg + len, (beg + len) / sr)
      str += format(" duration: %d, %.3f", len, len / sr)
      str += format("    chans: %d", selection_chans)
      str += format("   maxamp: %.3f", selection_maxamp)
    end
    # 2 == selection
    entry("Apply controls") do |snd, chn, w|
      apply_controls(snd, 2)
    end
    entry("Reset controls") do |snd, chn, w|
      reset_controls()
    end
    entry("Unselect") do |snd, chn, w|
      set_selection_member?(false, true)
    end
    entry("Revert") do |snd, chn, w|
      reverse_selection()
    end
    entry("Mix") do |snd, chn, w|
      mix_selection(cursor())
    end
    entry("Invert") do |snd, chn, w|
      scale_selection_by(-1)
    end
    before_popup_hook.add_hook!("selection popup") do |snd, chn, xe|
      fax = if transform_graph?(snd, chn)
              axis_info(snd, chn, Transform_graph)
            else
              false
            end
      lax = if lisp_graph?(snd, chn)
              axis_info(snd, chn, Lisp_graph)
            else
              false
            end
      if fax and xe >= fax[10] and xe <= fax[12]
        false
      else
        if lax and xe >= lax[10] and xe <= lax[12]
          false
        else
          if selection?
            sr = srate(snd).to_f
            pos = selection_position(snd, chn)
            beg = pos / sr
            fin = (pos + selection_framples(snd, chn)) / sr
          end
          if selection? and
              xe >= x2position(beg, snd, chn) and
              xe <= x2position(fin, snd, chn)
            true
          else
            false
          end
        end
      end
    end
  end

  #
  # Graph Popup
  #
  make_snd_popup("Snd") do
    stopping = false
    stop_widget = nil
    $stop_playing_hook.add_hook!("popup-change-label-hook") do |snd|
      if stopping
        stopping = false
        change_label(stop_widget, "Play") if widget?(stop_widget)
      end
    end
    entry("Play",
          :procedure,
          lambda do |w|
            stop_widget = w
          end) do |snd, chn, w|
      if stopping
        stopping = false
        change_label(w, "Play")
        stop_playing
      else
        change_label(w, "Stop")
        stopping = true
        play(snd, 0)
      end
    end
    entry("Play channel") do |snd, chn, w|
      stopping = true
      change_label(stop_widget, "Stop")
      play(snd, :channel, chn)
    end
    entry("Play from cursor") do |snd, chn, w|
      stopping = true
      change_label(stop_widget, "Stop")
      play(snd, :start, cursor(snd, chn))
    end
    entry("Play previous") do |snd, chn, w|
      stopping = true
      change_label(stop_widget, "Stop")
      play(snd, :channel, chn, :edit_position, edit_position - 1)
    end
    entry("Play original") do |snd, chn, w|
      stopping = true
      change_label(stop_widget, "Stop")
      play(snd, :channel, chn, :edit_position, 0)
    end
    entry("Undo") do |snd, chn, w|
      undo_edit(1, snd, chn)
    end if defined? undo_edit
    entry("Redo") do |snd, chn, w|
      redo_edit(1, snd, chn)
    end if defined? redo_edit
    entry("Revert") do |snd, chn, w|
      revert_sound(snd)
    end
    entry("Open") do |snd, chn, w|
      open_file_dialog
    end
    entry("Save") do |snd, chn, w|
      save_sound(snd)
    end
    entry("Save as") do |snd, chn, w|
      select_sound(snd)
      save_sound_dialog
    end
    entry("Update") do |snd, chn, w|
      update_sound(snd)
    end
    entry("Close") do |snd, chn, w|
      close_sound_extend(snd)
    end
    entry("Mix selection") do |snd, chn, w|
      mix_selection(cursor(snd, chn), snd, chn)
    end
    entry("Insert selection") do |snd, chn, w|
      insert_selection(cursor(snd, chn), snd, chn)
    end
    entry("Replace with selection") do |snd, chn, w|
      beg = cursor(snd, chn)
      len = selection_framples()
      sbeg = selection_position()
      if (not selection_member?(snd, chn)) or
          ((beg + len) < sbeg) or
          (beg > (sbeg + len))
        delete_samples(beg, len, snd, chn)
        insert_selection(beg, snd, chn)
      elsif beg < sbeg
        delete_samples(beg, sbeg - beg, snd, chn)
      end
    end
    entry("Select all") do |snd, chn, w|
      select_all(snd, chn)
    end
    entry("Unselect") do |snd, chn, w|
      set_selection_member?(false, true)
    end
    entry("Apply controls") do |snd, chn, w|
      apply_controls()
    end
    entry("Reset controls") do |snd, chn, w|
      reset_controls()
    end
    entry("Info") do |snd, chn, w|
      file = file_name(snd)
      fdate = Time.at(mus_sound_write_date(file))
      date = fdate.localtime.strftime("%a %d-%b-%y %H:%M %z")
      info_string = format("\
  chans: %d, srate: %d
 length: %1.3f (%d frms)
 format: %s [%s]
 maxamp: %s
written: %s\n",
                           channels(snd), srate(snd),
                           framples(snd) / srate(snd).to_f, framples(snd),
                           mus_sample_type_name(sample_type(snd)),
                           mus_header_type_name(header_type(snd)),
                           maxamp(snd, true).to_string,
                           date)
      if $info_comment_hook.empty?
        if s = comment(snd)
          info_string += format("comment: %s\n", s)
        end
      else
        $info_comment_hook.run_hook do |prc|
          info_string = prc.call(file, info_string)
        end
      end
      if defined? XM_NB and
          defined? Kernel.xm_nb and
          Kernel.xm_nb.kind_of?(XM_NB)
        Kernel.xm_nb.popup_nb_hook.run_hook do |prc|
          info_string = prc.call(snd, info_string)
        end
      end
      info_dialog(file + " info", info_string)
    end
    entry("Add mark") do |snd, chn, w|
      add_mark(cursor(snd, chn), snd, chn)
    end
    entry("Delete mark") do |snd, chn, w|
      if (ms = marks(snd, chn)).nil? or ms.empty?
        false
      elsif ms.length == 1
        delete_mark(ms[0])
      else
        loc = cursor()
        id = ms.first
        cur_min = (loc - mark_sample(ms.first)).abs
        ms.each do |m|
          if (this_min = (loc - mark_sample(m)).abs) < cur_min
            cur_min = this_min
            id = m
          end
        end
        delete_mark(id)
      end
    end
    entry("Delete all marks") do |snd, chn, w|
      delete_marks(snd, chn)
    end
    entry("To next mark") do |snd, chn, w|
      key(?j, 4, snd, chn)
    end
    entry("To last mark") do |snd, chn, w|
      key(?\-, 4, snd, chn)
      key(?j, 4, snd, chn)
    end
    separator(:double)
    entry("Exit") do |snd, chn, w|
      exit(0)
    end
    before_popup_hook.add_hook!("graph popup") do |snd, chn, xe|
      fax = if transform_graph?(snd, chn)
              axis_info(snd, chn, Transform_graph)
            else
              false
            end
      lax = if lisp_graph?(snd, chn)
              axis_info(snd, chn, Lisp_graph)
            else
              false
            end
      flag = if fax and xe >= fax[10] and xe <= fax[12]
               false
             else
               if lax and xe >= lax[10] and xe <= lax[12]
                 # lisp graph
                 true
               else
                 if selection?
                   sr = srate(snd).to_f
                   pos = selection_position(snd, chn)
                   beg = pos / sr
                   fin = (pos + selection_framples(snd, chn)) / sr
                 end
                 if selection? and
                     xe >= x2position(beg, snd, chn) and
                     xe <= x2position(fin, snd, chn)
                   false
                 else
                   true
                 end
               end
             end
      if flag
        select_sound(snd)
        select_channel(chn)
        each_entry do |w|
          eds = edits(snd, chn)
          case widget_name(w)
          when "Snd"
            if channels(snd) > 1
              change_label(w, format("%s[%d]", short_file_name(snd), chn))
            else
              change_label(w, short_file_name(snd))
            end
          when "Save", "Undo", "Revert", "Play previous"
            eds[0] > 0 ? show_widget(w) : hide_widget(w)
          when "Play channel"
            channels(snd) > 1 ? show_widget(w) : hide_widget(w)
          when "Redo"
            eds[1] > 0 ? show_widget(w) : hide_widget(w)
          when "Mix selection", "Insert selection", "Unselect",
                "Replace with selection"
            selection? ? show_widget(w) : hide_widget(w)
          when "Play from cursor"
            cursor(snd, chn) > 0 ? show_widget(w) : hide_widget(w)
          when "Play original"
            eds[0] > 1 ? show_widget(w) : hide_widget(w)
          when "Delete mark", "To next mark", "To last mark"
            marks(snd, chn) ? show_widget(w) : hide_widget(w)
          when "Delete all marks"
            Snd.marks(snd, chn).length > 1 ? show_widget(w) : hide_widget(w)
          end
        end
      end
      flag
    end
  end

  #
  # Transform Popup
  #
  make_snd_popup("Transform") do
    choose_chan = lambda do |snd, chn|
      if channel_style(snd) == Channels_separate
        chn
      else
        true
      end
    end
    entry("Peaks") do |snd, chn, w| 
      set_show_transform_peaks(!show_transform_peaks(snd, chn), snd,
                               choose_chan.call(snd, chn))
    end
    entry("dB") do |snd, chn, w|
      set_fft_log_magnitude(!fft_log_magnitude(snd, chn), snd,
                            choose_chan.call(snd, chn))
    end
    entry("Log freq") do |snd, chn, w|
      set_fft_log_frequency(!fft_log_frequency(snd, chn), snd,
                            choose_chan.call(snd, chn))
    end
    entry("Normalize") do |snd, chn, w|
      if transform_normalization(snd, chn) == Dont_normalize
        set_transform_normalization(Normalize_by_channel, snd,
                                    choose_chan.call(snd, chn))
      else
        set_transform_normalization(Dont_normalize, snd,
                                    choose_chan.call(snd, chn))
      end
    end
    cascade("Graph type") do
      children(lambda do |snd, chn, val|
                 transform_graph_type(snd, chn) != val
               end, [["once", Graph_once],
                     ["sonogram", Graph_as_sonogram],
                     ["spectrogram", Graph_as_spectrogram]]) do |snd, chn, val|
        set_transform_graph_type(val, snd, choose_chan.call(snd, chn))
      end
    end
    cascade("Size") do
      children(lambda do |snd, chn, val|
                 transform_size(snd, chn) != val
               end, [16, 32, 64, 128, 256, 512, 1024, 2048, 4096,
                     8192, 16384, 65536, 262144, 1048576].map do |s|
                 [s.to_s, s]
               end) do |snd, chn, val|
        set_transform_size(val, snd, choose_chan.call(snd, chn))
      end
    end
    cascade("Window") do
      children(lambda do |snd, chn, val|
                 fft_window(snd, chn) != val
               end, [["Rectangular", Rectangular_window],
                     ["Hann", Hann_window],
                     ["Welch", Welch_window],
                     ["Parzen", Parzen_window],
                     ["Bartlett", Bartlett_window],
                     ["Hamming", Hamming_window],
                     ["Blackman2", Blackman2_window],
                     ["Blackman3", Blackman3_window],
                     ["Blackman4", Blackman4_window],
                     ["Exponential", Exponential_window],
                     ["Riemann", Riemann_window],
                     ["Kaiser", Kaiser_window],
                     ["Cauchy", Cauchy_window],
                     ["Poisson", Poisson_window],
                     ["Gaussian", Gaussian_window],
                     ["Tukey", Tukey_window],
                     ["Dolph-Chebyshev", Dolph_chebyshev_window],
                     ["Hann-Poisson", Hann_poisson_window],
                     ["Connes", Connes_window],
                     ["Samaraki", Samaraki_window],
                     ["Ultraspherical",
                      Ultraspherical_window]]) do |snd, chn, val|
        set_fft_window(val, snd, choose_chan.call(snd, chn))
      end
    end
    cascade("Transform type") do
      children(lambda do |snd, chn, val|
                 transform_type(snd, chn) != val
               end, [["Fourier", $fourier_transform],
                     ["Autocorrelate", $autocorrelation],
                     ["Cepstrum", $cepstrum],
                     ["Walsh", $walsh_transform],
                     ["Haar", $haar_transform],
                     ["Wavelet", $wavelet_transform]]) do |snd, chn, val|
        set_transform_type(val, snd, choose_chan.call(snd, chn))
      end
    end
    cascade("Wavelet type") do
      children(lambda do |snd, chn, val|
                 wavelet_type(snd, chn) != val
               end, ["daub4", "daub6", "daub8", "daub10",
                     "daub12", "daub14", "daub16", "daub18",
                     "daub20", "battle-lemarie", "burt-adelson",
                     "beylkin", "coif2", "coif4", "coif6",
                     "sym2", "sym3",
                     "sym4", "sym5", "sym6"].map_with_index do |v, idx|
                 [v, idx]
               end) do |snd, chn, val|
        set_wavelet_type(val, snd, choose_chan.call(snd, chn))
      end
    end
    entry("Color/Orientation") do |snd, chn, w|
      color_orientation_dialog()
    end
    before_popup_hook.add_hook!("transform popup") do |snd, chn, xe|
      fax = if transform_graph?(snd, chn)
              axis_info(snd, chn, Transform_graph)
            else
              false
            end
      if fax and xe >= fax[10] and xe <= fax[12]
        each_entry do |w|
          case widget_name(w)
          when "Peaks"
            change_label(w,
                         show_transform_peaks(snd, chn) ? "No peaks" : "Peaks")
          when "dB"
            change_label(w,
                         fft_log_magnitude(snd, chn) ? "Linear" : "dB")
          when "Log freq"
            change_label(w,
                         fft_log_frequency(snd, chn) ?
                           "Linear freq" : "Log freq")
          when "Normalize"
            change_label(w,
                         transform_normalization(snd, chn) == Dont_normalize ?
                           "Normalize" : "Original")
          end
        end
        true
      else
        false
      end
    end
  end

  #
  # Edit History Popup
  #
  make_snd_popup("Edits", :target, :edhist) do
    funcs = []
    make_hook("$edhist_save_hook", 1,
              "lambda do |prc| ... end:  for debugging; \
Called in menu entry Save with new delivered PROC \
from edit_list2function as only argument, e.g.
$edhist_save_hook.add_hook!(\"edhist save\") do |prc|
  Snd.display(prc.source)
end")
    $close_hook.add_hook!("edhist-close") do |snd|
      name = short_file_name(snd)
      channels(snd).times do |chn|
        if old_val = funcs.assoc([snd, chn])
          old_val.car = format("%s[%d]", name, chn)
        end
      end
    end
    entry("Save") do |snd, chn, w|
      cur_edits = edits(snd, chn)
      new_func = edit_list2function(snd, chn,
                                    cur_edits.car + 1, cur_edits.apply(:+))
      $edhist_save_hook.call(new_func)
      if old_val = funcs.assoc([snd, chn])
        old_val.cadr = new_func
      else
        funcs.push([[snd, chn], new_func])
      end
    end
    entry("Reapply") do |snd, chn, w|
      val = funcs.assoc([snd, chn])
      if val
        prc = val.cadr
        if proc?(prc)
          prc.call(snd, chn)
        end
      end
    end
    cascade("Apply") do
      children(lambda do | |
                 funcs.map do |vals|
                   vals.car
                 end
               end, true) do |snd, chn, index|
        index.between?(0, funcs.length - 1) and funcs[index].cadr.call(snd, chn)
      end
    end
    entry("Clear") do |snd, chn, w|
      funcs = []
    end
    separator
    entry("Help") do |snd, chn, w|
      help_dialog("Edit History Functions",
                  "This popup menu gives access to the \
edit-list function handlers in Snd.  \
At any time you can backup in the edit list, \
'save' the current trailing edits, make some \
new set of edits, then 'reapply' the saved edits.  \
The 'apply' choice gives access to all \
currently saved edit lists---any such list can be applied to any channel.  \
'Clear' deletes all saved edit lists.",
                  ["{edit lists}" "{edit-list->function}"],
                  ["extsnd.html#editlists" "extsnd.html#editlist_to_function"])
    end
    before_popup_hook.add_hook!("edhist popup") do |snd, chn, wid|
      each_value do |val|
        funcs.empty? ? hide_widget(val.caddr) : show_widget(val.caddr)
      end
      each_entry do |w|
        set_sensitive(w,
                      case widget_name(w)
                      when "Save"
                        (edits(snd,
                              (main_widgets[Notebook_outer_pane] ?
                               false : chn)).apply(:+) > 0)
                      when "Reapply"
                        (not funcs.assoc([snd, chn]).nil?)
                      when "Clear"
                        (not funcs.empty?)
                      else
                        true
                      end)
      end
      true
    end
  end

  #
  # Listener Popup (only with Motif)
  #
  if $with_motif
    make_snd_popup("Listener",
                   :target, :widget,
                   :parent, if widget?(ww = main_widgets[Listener_pane])
                              ww
                            else
                              set_show_listener(true)
                              set_show_listener(false)
                              main_widgets[Listener_pane]
                            end) do
      identity = lambda do | |
        Snd.sounds
      end
      edited = lambda do | |
        Snd.sounds.delete_if do |snd|
          (0...channels(snd)).detect do |chn|
            edits(snd, chn).first.zero?
          end
        end
      end
      focused = lambda do | |
        snds = Snd.sounds
        snds.length > 1 ? snds : []
      end
      cascade("Play") do
        children(identity) do |snd|
          play(snd, 0)
        end
      end
      entry("Open") do |snd, chn, w|
        open_file_dialog
      end
      entry("Clear listener") do |snd, chn, w|
        clear_listener
      end
      cascade("Close") do
        children(identity) do |snd|
          close_sound_extend(snd)
        end
      end
      cascade("Save") do
        children(edited) do |snd|
          save_sound(snd)
        end
      end
      cascade("Revert") do
        children(edited) do |snd|
          revert_sound(snd)
        end
      end
      cascade("Focus") do
        children(focused, true) do |snd|
          if widget?(main_widgets[Notebook_outer_pane])
            set_selected_sound(snd)
          else
            pane = sound_widgets(snd)[Main_pane]
            RXtVaSetValues(main_widgets[Top_level_shell],
                           [RXmNallowShellResize, false])
            Snd.sounds.each do |them|
              hide_widget(sound_widgets(them)[Main_pane])
            end
            show_widget(pane)
            RXtVaSetValues(main_widgets[Top_level_shell],
                           [RXmNallowShellResize, auto_resize])
          end
        end
      end
      entry("Help") do |snd, chn, w|
        selected = listener_selection()
        if selected
          help = snd_help(selected)
          if help
            help_dialog(selected, help)
          else
            snd_warning(format("%p: no help found", selected))
          end
        end
      end
      separator(:double)
      entry("Exit") do |snd, chn, w|
        exit(0)
      end
      before_popup_hook.add_hook!("listener popup") do |d1, d2, d3|
        each_value do |val|
          w = val[0]
          cas = val[1..2]
          prc = val[3]
          len = prc.call.length
          if widget?(w)
            if len == 1
              show_widget(w)
            else
              hide_widget(w)
            end
          end
          if len > 1
            cas.each do |wid|
              show_widget(wid)
            end
          else
            cas.each do |wid|
              hide_widget(wid)
            end
          end
        end
        each_entry do |w1|
          if widget?(w1)
            if widget_name(w1) == "Help"
              subject = listener_selection()
              if subject
                change_label(w1, format("Help on %p", subject))
                show_widget(w1)
              else
                hide_widget(w1)
              end
            end
          end
        end
      end
    end
  end
  $edhist_help_edits = true
end

# popup.rb ends here