mikutter

  def self.scrollname(key)

    type_strict key => Array

    type, direction, state = key

    if key.empty? or type == 0 or not key.all?(&ret_nth)

      return '(割り当てなし)'

    else

      r = ""

      r << 'Control + ' if (state & Gdk::Window::CONTROL_MASK) != 0

      r << 'Shift + ' if (state & Gdk::Window::SHIFT_MASK) != 0

      r << 'Alt + ' if (state & Gdk::Window::MOD1_MASK) != 0

      r << 'Super + ' if (state & Gdk::Window::SUPER_MASK) != 0

      r << 'Hyper + ' if (state & Gdk::Window::HYPER_MASK) != 0

      case direction

      when Gdk::EventScroll::UP

          r << 'Scroll Up'

      when Gdk::EventScroll::DOWN

          r << 'Scroll Down'

      when Gdk::EventScroll::LEFT

          r << 'Scroll Left'

      when Gdk::EventScroll::RIGHT

          r << 'Scroll Right'

      else

        return '(割り当てなし)' end

      return r end end

    button.signal_connect(:scroll_event, &scroll_set(label))

  def scroll_set(label)

    lambda{ |widget, event|

      self.keycode = Gtk.scrollname([event.event_type, event.direction, event.state])

      buttonlabel.text = label.text = keycode

      self.change_hook.call(keycode) if self.change_hook

      true }

  end

    scrolling = false

      # タイムラインにincludeされている場合、コマンドを実行する

      if defined?(imaginary) && imaginary.is_a?(Plugin::GUI::Timeline)

        path, column, cell_x, cell_y = get_path_at_pos(e.x, e.y)

        if column

          if !scrolling

            scrolling = true

            Delayer.new(:ui_response) {

              if Plugin::GUI.keypress(::Gtk::scrollname([e.event_type, e.direction, e.state]), imaginary)

                Thread.new {

                  sleep 1.0

                  scrolling = false

                }

              else

                scrolling = false

              end

            }

          end

        end

      end

      if e.state == 0

        case e.direction

        when Gdk::EventScroll::UP

          this.vadjustment.value = [this.vadjustment.value - this.vadjustment.step_increment, this.vadjustment.lower].max

          scroll_to_top_animation_id.call

        when Gdk::EventScroll::DOWN

          @scroll_to_zero_lator = false if this.vadjustment.value == 0

          this.vadjustment.value = [this.vadjustment.value + this.vadjustment.step_increment, this.vadjustment.upper - visible_rect.height].min

          scroll_to_top_animation_id.call end

      end

    false }