From 83227fad7fabe67f633bc254796d576baa8390d3 Mon Sep 17 00:00:00 2001
From: Thomas O Fredericks <mrtof@users.sourceforge.net>
Date: Tue, 29 Sep 2009 19:08:42 +0000
Subject: Added a loadbang to tof/argument

svn path=/trunk/externals/tof/; revision=12491
---
 src/argument.c | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'src/argument.c')

diff --git a/src/argument.c b/src/argument.c
index 0c7df4b..a0925ba 100644
--- a/src/argument.c
+++ b/src/argument.c
@@ -21,6 +21,8 @@
 
 #include "tof.h"
 
+extern int sys_noloadbang;
+
 t_class *argument_class;
 
 typedef struct argument
@@ -47,6 +49,13 @@ static void argument_bang(t_argument *x)
 }
 
 
+
+static void argument_loadbang(t_argument *x)
+{
+    if (!sys_noloadbang)
+        argument_bang(x);
+}
+
 static void argument_free(t_argument *x) {
 	
 	//freebytes(x->x_a, sizeof(t_atom));
@@ -115,5 +124,8 @@ void argument_setup(void)
         sizeof(t_argument), CLASS_DEFAULT, A_GIMME,0);
     class_addbang(argument_class, argument_bang);
    
+   
+   class_addmethod(argument_class, (t_method)argument_loadbang, gensym("loadbang"), 0);
+   
 }
 
-- 
cgit v1.2.1