Enforce restriction on total number of patterns and phrases.

src/gui/input.C

@@ -195,9 +195,14 @@ canvas_input_callback ( O_Canvas *widget, Canvas *c, int m )
                             break;
                         case 'c':
                         {
-                            c->grid( c->grid()->create() );
+                            Grid *g = c->grid()->create();
+
+                            if ( g )
+                            {
+                                c->grid( g );
                                 
                                 ui->update_sequence_widgets();
+                            }
 
                             break;
                         }

src/pattern.C

@@ -261,7 +261,12 @@ pattern::recording ( void )
 pattern *
 pattern::create ( void )
 {
+    if ( pattern::patterns() < 128 )
+    {
         return new pattern;
+    }
+    else
+        return NULL;
 }
 
 pattern *

src/phrase.C

@@ -109,7 +109,12 @@ phrase::reset ( void )
 phrase *
 phrase::create ( void )
 {
+    if ( phrase::phrases() < 128 )
+    {
         return new phrase;
+    }
+    else
+        return NULL;
 }
 
 phrase *