Sequencer: Fix pattern insertion trigger length on phrase.

sequencer/src/phrase.C

@@ -126,13 +126,8 @@ phrase::by_number ( int n ) const
 }
 
 void
-phrase::put ( int x, int y, tick_t l )
+phrase::put ( int x, int y, tick_t l, int velocity )
 {
-    // FIXME: fix insertion length to the length of the pattern
-    // referred to by this row.
-
-    l = 4;
-
     // FIXME: use translation here.
     pattern *p = pattern::pattern_by_number( y + 1 );
 

sequencer/src/phrase.H

@@ -51,7 +51,7 @@ public:
     phrase *create ( void );
     phrase * by_number ( int n ) const;
 
-    void put ( int x, int y, tick_t l );
+    virtual void put ( int x, int y, tick_t l, int velocity = 64 );
     phrase * clone ( void );
     const char * row_name ( int r ) const;
     void draw_row_names ( Canvas *c ) const;