""

svn path=/trunk/; revision=687

11 files changed, 594 insertions, 1 deletions

diff --git a/externals/grill/flext/tutorial/attr1/attr1.cw b/externals/grill/flext/tutorial/attr1/attr1.cw
index a597bf1e..32e4ec8f 100755
--- a/externals/grill/flext/tutorial/attr1/attr1.cw
+++ b/externals/grill/flext/tutorial/attr1/attr1.cw
diff --git a/externals/grill/flext/tutorial/attr2/attr2.cw b/externals/grill/flext/tutorial/attr2/attr2.cw
index f1dbec3b..c2713289 100755
--- a/externals/grill/flext/tutorial/attr2/attr2.cw
+++ b/externals/grill/flext/tutorial/attr2/attr2.cw
diff --git a/externals/grill/flext/tutorial/attr3/attr3.cw b/externals/grill/flext/tutorial/attr3/attr3.cw
index 9384e993..644c96a6 100755
--- a/externals/grill/flext/tutorial/attr3/attr3.cw
+++ b/externals/grill/flext/tutorial/attr3/attr3.cw
diff --git a/externals/grill/flext/tutorial/bind1/bind1.cw b/externals/grill/flext/tutorial/bind1/bind1.cw
new file mode 100755
index 00000000..750d275b
--- /dev/null
+++ b/externals/grill/flext/tutorial/bind1/bind1.cw
diff --git a/externals/grill/flext/tutorial/bind1/bind1.dsp b/externals/grill/flext/tutorial/bind1/bind1.dsp
new file mode 100755
index 00000000..d4095c8f
--- /dev/null
+++ b/externals/grill/flext/tutorial/bind1/bind1.dsp
@@ -0,0 +1,95 @@
+# Microsoft Developer Studio Project File - Name="bind1" - Package Owner=<4>
+# Microsoft Developer Studio Generated Build File, Format Version 6.00
+# ** NICHT BEARBEITEN **
+
+# TARGTYPE "Win32 (x86) Dynamic-Link Library" 0x0102
+
+CFG=bind1 - Win32 Debug
+!MESSAGE Dies ist kein gültiges Makefile. Zum Erstellen dieses Projekts mit NMAKE
+!MESSAGE verwenden Sie den Befehl "Makefile exportieren" und führen Sie den Befehl
+!MESSAGE 
+!MESSAGE NMAKE /f "bind1.mak".
+!MESSAGE 
+!MESSAGE Sie können beim Ausführen von NMAKE eine Konfiguration angeben
+!MESSAGE durch Definieren des Makros CFG in der Befehlszeile. Zum Beispiel:
+!MESSAGE 
+!MESSAGE NMAKE /f "bind1.mak" CFG="bind1 - Win32 Debug"
+!MESSAGE 
+!MESSAGE Für die Konfiguration stehen zur Auswahl:
+!MESSAGE 
+!MESSAGE "bind1 - Win32 Release" (basierend auf  "Win32 (x86) Dynamic-Link Library")
+!MESSAGE "bind1 - Win32 Debug" (basierend auf  "Win32 (x86) Dynamic-Link Library")
+!MESSAGE 
+
+# Begin Project
+# PROP AllowPerConfigDependencies 0
+# PROP Scc_ProjName "max/flext/tutorial/bind1"
+# PROP Scc_LocalPath "."
+CPP=cl.exe
+MTL=midl.exe
+RSC=rc.exe
+
+!IF  "$(CFG)" == "bind1 - Win32 Release"
+
+# PROP BASE Use_MFC 0
+# PROP BASE Use_Debug_Libraries 0
+# PROP BASE Output_Dir "Release"
+# PROP BASE Intermediate_Dir "Release"
+# PROP BASE Target_Dir ""
+# PROP Use_MFC 0
+# PROP Use_Debug_Libraries 0
+# PROP Output_Dir "msvc"
+# PROP Intermediate_Dir "msvc"
+# PROP Ignore_Export_Lib 0
+# PROP Target_Dir ""
+# ADD BASE CPP /nologo /MT /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /YX /FD /c
+# ADD CPP /nologo /W3 /O2 /I "c:\programme\audio\pd\src" /I "..\..\source" /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "PD" /YX /FD /c
+# ADD BASE MTL /nologo /D "NDEBUG" /mktyplib203 /win32
+# ADD MTL /nologo /D "NDEBUG" /mktyplib203 /win32
+# ADD BASE RSC /l 0xc07 /d "NDEBUG"
+# ADD RSC /l 0xc07 /d "NDEBUG"
+BSC32=bscmake.exe
+# ADD BASE BSC32 /nologo
+# ADD BSC32 /nologo
+LINK32=link.exe
+# ADD BASE LINK32 kernel32.lib /nologo /dll /machine:I386
+# ADD LINK32 kernel32.lib user32.lib pd.lib flext-pdwin.lib /nologo /dll /machine:I386 /out:"../pd-msvc/bind1.dll" /libpath:"..\..\pd-msvc"
+
+!ELSEIF  "$(CFG)" == "bind1 - Win32 Debug"
+
+# PROP BASE Use_MFC 0
+# PROP BASE Use_Debug_Libraries 1
+# PROP BASE Output_Dir "Debug"
+# PROP BASE Intermediate_Dir "Debug"
+# PROP BASE Target_Dir ""
+# PROP Use_MFC 0
+# PROP Use_Debug_Libraries 1
+# PROP Output_Dir "msvc-debug"
+# PROP Intermediate_Dir "msvc-debug"
+# PROP Ignore_Export_Lib 0
+# PROP Target_Dir ""
+# ADD BASE CPP /nologo /MTd /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /YX /FD /GZ /c
+# ADD CPP /nologo /W3 /Gm /ZI /Od /I "c:\programme\audio\pd\src" /I "..\..\source" /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "PD" /Fr /YX /FD /GZ /c
+# ADD BASE MTL /nologo /D "_DEBUG" /mktyplib203 /win32
+# ADD MTL /nologo /D "_DEBUG" /mktyplib203 /win32
+# ADD BASE RSC /l 0xc07 /d "_DEBUG"
+# ADD RSC /l 0xc07 /d "_DEBUG"
+BSC32=bscmake.exe
+# ADD BASE BSC32 /nologo
+# ADD BSC32 /nologo
+LINK32=link.exe
+# ADD BASE LINK32 kernel32.lib user32.lib /nologo /dll /debug /machine:I386 /pdbtype:sept
+# ADD LINK32 kernel32.lib user32.lib pd.lib flext_d-pdwin.lib /nologo /dll /debug /machine:I386 /out:"msvc-debug/bind1.dll" /pdbtype:sept /libpath:"..\..\pd-msvc"
+
+!ENDIF 
+
+# Begin Target
+
+# Name "bind1 - Win32 Release"
+# Name "bind1 - Win32 Debug"
+# Begin Source File
+
+SOURCE=.\main.cpp
+# End Source File
+# End Target
+# End Project
diff --git a/externals/grill/flext/tutorial/bind1/main.cpp b/externals/grill/flext/tutorial/bind1/main.cpp
new file mode 100755
index 00000000..35459fc4
--- /dev/null
+++ b/externals/grill/flext/tutorial/bind1/main.cpp
@@ -0,0 +1,146 @@
+/* 
+flext tutorial - bind 1 
+
+Copyright (c) 2003 Thomas Grill (xovo@gmx.net)
+For information on usage and redistribution, and for a DISCLAIMER OF ALL
+WARRANTIES, see the file, "license.txt," in this distribution.  
+
+-------------------------------------------------------------------------
+
+This is an example of a simple object demonstrating method to symbol binding and message forwarding
+*/
+
+
+// include flext header
+#include <flext.h>
+
+// check for appropriate flext version
+#if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 400)
+#error You need at least flext version 0.4.0
+#endif
+
+
+// define the class that stands for a pd/Max object
+
+class bind1:
+	// inherit from basic flext class
+	public flext_base
+{
+	// obligatory flext header (class name,base class name) featuring a setup function
+	FLEXT_HEADER_S(bind1,flext_base,setup)
+ 
+public:
+	// constructor with no arguments
+	bind1();
+
+protected:
+	const t_symbol *bufname;
+	buffer *buf;
+
+	// bind object
+	void m_bind(const t_symbol *s);  
+	// unbind object
+	void m_unbind(const t_symbol *s);  
+	// bind method
+	void m_bindmethod(const t_symbol *s);  
+	// unbind method
+	void m_unbindmethod(const t_symbol *s);  
+
+	// forward message
+	void m_forward(const t_symbol *s,int argc,const t_atom *argv);  
+
+	// method for symbol-bound messages
+	void m_bound(const t_symbol *sym,int argc,const t_atom *argv,void *data);
+
+	// method for binding test
+	void m_test(float value);
+
+private:
+	static void setup(t_classid c);
+
+	FLEXT_CALLBACK_S(m_bind)  // wrapper for method m_bind (with symbol argument)
+	FLEXT_CALLBACK_S(m_unbind)  // wrapper for method m_unbind (with symbol argument)
+	FLEXT_CALLBACK_S(m_bindmethod)  // wrapper for method m_bindmethod (with symbol argument)
+	FLEXT_CALLBACK_S(m_unbindmethod)  // wrapper for method m_unbindmethod (with symbol argument)
+
+	FLEXT_CALLBACK_A(m_forward) // wrapper for method m_forward (with anything argument)
+	
+	FLEXT_CALLBACK_AX(m_bound)  // wrapper for method m_bound (anything+data arguments)
+	FLEXT_CALLBACK_F(m_test)    // wrapper for method m_test (one float argument)
+};
+
+// instantiate the class
+FLEXT_NEW("bind1",bind1)
+
+
+void bind1::setup(t_classid c)
+{
+	// register methods
+	
+	FLEXT_CADDMETHOD_(c,0,"bind",m_bind);  // register method "bind" for inlet 0
+	FLEXT_CADDMETHOD_(c,0,"unbind",m_unbind);  // register method "unbind" for inlet 0
+	FLEXT_CADDMETHOD_(c,0,"bindmethod",m_bindmethod);  // register method "bindmethod" for inlet 0
+	FLEXT_CADDMETHOD_(c,0,"unbindmethod",m_unbindmethod);  // register method "unbindmethod" for inlet 0
+
+	FLEXT_CADDMETHOD_(c,0,"test",m_test);  // register method m_test for inlet 0
+
+	FLEXT_CADDMETHOD(c,1,m_forward);  // register method m_forward for inlet 1
+}
+
+
+bind1::bind1()
+{ 
+	// define inlets:
+	// first inlet must always be of type anything (or signal for dsp objects)
+	AddInAnything("message inlet");  // add one inlet for any message
+	AddInAnything("forwarding inlet");  // add one inlet for any message	
+	
+	AddOutAnything("bound message");  // output received bound message
+}	
+ 
+
+void bind1::m_bind(const t_symbol *s)
+{
+	if(!Bind(s)) {
+		post("%s (%s) - Binding failed",thisName(),GetString(thisTag()));
+	}
+}  
+
+void bind1::m_unbind(const t_symbol *s)
+{
+	if(!Unbind(s)) {
+		post("%s (%s) - Binding failed",thisName(),GetString(thisTag()));
+	}
+}
+
+void bind1::m_bindmethod(const t_symbol *s)
+{
+	if(!FLEXT_BINDMETHOD(s,m_bound,NULL)) {
+		post("%s (%s) - Binding failed",thisName(),GetString(thisTag()));
+	}
+}
+
+void bind1::m_unbindmethod(const t_symbol *s)
+{
+	if(!FLEXT_UNBINDMETHOD(s)) {
+		post("%s (%s) - Binding failed",thisName(),GetString(thisTag()));
+	}
+}
+
+void bind1::m_forward(const t_symbol *s,int argc,const t_atom *argv)
+{
+	Forward(s,argc,argv);
+}
+
+
+void bind1::m_bound(const t_symbol *sym,int argc,const t_atom *argv,void *data)
+{
+	ToOutAnything(0,sym,argc,argv);
+}
+
+void bind1::m_test(float value)
+{
+	post("%s - TEST METHOD: value %f",thisName(),value);
+}
+
+
diff --git a/externals/grill/flext/tutorial/buffer1/buffer1.cw b/externals/grill/flext/tutorial/buffer1/buffer1.cw
new file mode 100755
index 00000000..31671b11
--- /dev/null
+++ b/externals/grill/flext/tutorial/buffer1/buffer1.cw
diff --git a/externals/grill/flext/tutorial/buffer1/buffer1.dsp b/externals/grill/flext/tutorial/buffer1/buffer1.dsp
new file mode 100755
index 00000000..0dfa0e4f
--- /dev/null
+++ b/externals/grill/flext/tutorial/buffer1/buffer1.dsp
@@ -0,0 +1,95 @@
+# Microsoft Developer Studio Project File - Name="buffer1" - Package Owner=<4>
+# Microsoft Developer Studio Generated Build File, Format Version 6.00
+# ** NICHT BEARBEITEN **
+
+# TARGTYPE "Win32 (x86) Dynamic-Link Library" 0x0102
+
+CFG=buffer1 - Win32 Debug
+!MESSAGE Dies ist kein gültiges Makefile. Zum Erstellen dieses Projekts mit NMAKE
+!MESSAGE verwenden Sie den Befehl "Makefile exportieren" und führen Sie den Befehl
+!MESSAGE 
+!MESSAGE NMAKE /f "buffer1.mak".
+!MESSAGE 
+!MESSAGE Sie können beim Ausführen von NMAKE eine Konfiguration angeben
+!MESSAGE durch Definieren des Makros CFG in der Befehlszeile. Zum Beispiel:
+!MESSAGE 
+!MESSAGE NMAKE /f "buffer1.mak" CFG="buffer1 - Win32 Debug"
+!MESSAGE 
+!MESSAGE Für die Konfiguration stehen zur Auswahl:
+!MESSAGE 
+!MESSAGE "buffer1 - Win32 Release" (basierend auf  "Win32 (x86) Dynamic-Link Library")
+!MESSAGE "buffer1 - Win32 Debug" (basierend auf  "Win32 (x86) Dynamic-Link Library")
+!MESSAGE 
+
+# Begin Project
+# PROP AllowPerConfigDependencies 0
+# PROP Scc_ProjName "max/flext/tutorial/buffer1"
+# PROP Scc_LocalPath "."
+CPP=cl.exe
+MTL=midl.exe
+RSC=rc.exe
+
+!IF  "$(CFG)" == "buffer1 - Win32 Release"
+
+# PROP BASE Use_MFC 0
+# PROP BASE Use_Debug_Libraries 0
+# PROP BASE Output_Dir "Release"
+# PROP BASE Intermediate_Dir "Release"
+# PROP BASE Target_Dir ""
+# PROP Use_MFC 0
+# PROP Use_Debug_Libraries 0
+# PROP Output_Dir "msvc"
+# PROP Intermediate_Dir "msvc"
+# PROP Ignore_Export_Lib 0
+# PROP Target_Dir ""
+# ADD BASE CPP /nologo /MT /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /YX /FD /c
+# ADD CPP /nologo /W3 /O2 /I "c:\programme\audio\pd\src" /I "..\..\source" /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "PD" /YX /FD /c
+# ADD BASE MTL /nologo /D "NDEBUG" /mktyplib203 /win32
+# ADD MTL /nologo /D "NDEBUG" /mktyplib203 /win32
+# ADD BASE RSC /l 0xc07 /d "NDEBUG"
+# ADD RSC /l 0xc07 /d "NDEBUG"
+BSC32=bscmake.exe
+# ADD BASE BSC32 /nologo
+# ADD BSC32 /nologo
+LINK32=link.exe
+# ADD BASE LINK32 kernel32.lib /nologo /dll /machine:I386
+# ADD LINK32 kernel32.lib user32.lib pd.lib flext-pdwin.lib /nologo /dll /machine:I386 /out:"../pd-msvc/buffer1.dll" /libpath:"..\..\pd-msvc"
+
+!ELSEIF  "$(CFG)" == "buffer1 - Win32 Debug"
+
+# PROP BASE Use_MFC 0
+# PROP BASE Use_Debug_Libraries 1
+# PROP BASE Output_Dir "Debug"
+# PROP BASE Intermediate_Dir "Debug"
+# PROP BASE Target_Dir ""
+# PROP Use_MFC 0
+# PROP Use_Debug_Libraries 1
+# PROP Output_Dir "msvc-debug"
+# PROP Intermediate_Dir "msvc-debug"
+# PROP Ignore_Export_Lib 0
+# PROP Target_Dir ""
+# ADD BASE CPP /nologo /MTd /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /YX /FD /GZ /c
+# ADD CPP /nologo /W3 /Gm /ZI /Od /I "c:\programme\audio\pd\src" /I "..\..\source" /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "PD" /Fr /YX /FD /GZ /c
+# ADD BASE MTL /nologo /D "_DEBUG" /mktyplib203 /win32
+# ADD MTL /nologo /D "_DEBUG" /mktyplib203 /win32
+# ADD BASE RSC /l 0xc07 /d "_DEBUG"
+# ADD RSC /l 0xc07 /d "_DEBUG"
+BSC32=bscmake.exe
+# ADD BASE BSC32 /nologo
+# ADD BSC32 /nologo
+LINK32=link.exe
+# ADD BASE LINK32 kernel32.lib user32.lib /nologo /dll /debug /machine:I386 /pdbtype:sept
+# ADD LINK32 kernel32.lib user32.lib pd.lib flext_d-pdwin.lib /nologo /dll /debug /machine:I386 /out:"msvc-debug/buffer1.dll" /pdbtype:sept /libpath:"..\..\pd-msvc"
+
+!ENDIF 
+
+# Begin Target
+
+# Name "buffer1 - Win32 Release"
+# Name "buffer1 - Win32 Debug"
+# Begin Source File
+
+SOURCE=.\main.cpp
+# End Source File
+# End Target
+# End Project
diff --git a/externals/grill/flext/tutorial/buffer1/main.cpp b/externals/grill/flext/tutorial/buffer1/main.cpp
new file mode 100755
index 00000000..7f604c87
--- /dev/null
+++ b/externals/grill/flext/tutorial/buffer1/main.cpp
@@ -0,0 +1,257 @@
+/* 
+flext tutorial - buffer 1 
+
+Copyright (c) 2003 Thomas Grill (xovo@gmx.net)
+For information on usage and redistribution, and for a DISCLAIMER OF ALL
+WARRANTIES, see the file, "license.txt," in this distribution.  
+
+-------------------------------------------------------------------------
+
+This is an example of a simple object doing some basic buffer operation
+*/
+
+
+// IMPORTANT: enable attribute processing (specify before inclusion of flext headers!)
+// For clarity, this is done here, but you'd better specify it as a compiler definition
+// FLEXT_ATTRIBUTES must be 0 or 1, 
+#define FLEXT_ATTRIBUTES 1
+
+
+// include flext header
+#include <flext.h>
+
+// check for appropriate flext version
+#if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 400)
+#error You need at least flext version 0.4.0
+#endif
+
+
+// define the class that stands for a pd/Max object
+
+class buffer1:
+	// inherit from basic flext class
+	public flext_base
+{
+	// obligatory flext header (class name,base class name) featuring a setup function
+	FLEXT_HEADER_S(buffer1,flext_base,setup)
+ 
+public:
+	// constructor with a variable argument list
+	buffer1(int argc,const t_atom *argv);
+
+protected:
+	const t_symbol *bufname;
+	buffer *buf;
+
+	// set new buffer (or none if name omitted)
+	void m_set(int argc,const t_atom *argv);  
+
+	// get buffer name
+	void mg_buf(AtomList &lst) const;
+	// set buffer name (simply reuse m_set method)
+	inline void ms_buf(const AtomList &lst) { m_set(lst.Count(),lst.Atoms()); }
+
+	// get buffer channels
+	inline void mg_chns(int &chns) { chns = Check()?buf->Channels():0; }
+
+	// get buffer length in frames
+	inline void mg_frames(int &frames) { frames = Check()?buf->Frames():0; }
+	// set buffer length in frames
+	inline void ms_frames(int frames) { if(Check()) buf->Frames(frames); }
+
+	// get sample (index channel)
+	void m_peek(int argc,const t_atom *argv);
+	// set sample (index value channel)
+	void m_poke(int argc,const t_atom *argv);
+
+	// delete eventual existing buffer		
+	void Clear();
+	
+	// check and eventually update buffer reference (return true if valid)		
+	bool Check();
+	
+private:
+	static void setup(t_classid c);
+
+	FLEXT_CALLBACK_V(m_set)  // wrapper for method m_set (with variable argument list)
+	FLEXT_CALLBACK_V(m_peek)  // wrapper for method m_peek (with variable argument list)
+	FLEXT_CALLBACK_V(m_poke)  // wrapper for method m_poke (with variable argument list)
+	
+	FLEXT_CALLVAR_V(mg_buf,ms_buf) // wrappers for attribute getter/setter mg_buffer/ms_buffer (with variable argument list)	
+	FLEXT_CALLGET_I(mg_chns) // wrappers for attribute getter mg_chns (with integer arguments)	
+	FLEXT_CALLVAR_I(mg_frames,ms_frames) // wrappers for attribute getter/setter mg_frames/ms_frames (with integer arguments)	
+};
+
+// instantiate the class
+FLEXT_NEW_V("buffer1",buffer1)
+
+
+void buffer1::setup(t_classid c)
+{
+	// register methods and attributes
+	
+	FLEXT_CADDMETHOD_(c,0,"set",m_set);  // register method "set" for inlet 0
+	FLEXT_CADDMETHOD_(c,0,"peek",m_peek);  // register method "peek" for inlet 0
+	FLEXT_CADDMETHOD_(c,0,"poke",m_poke);  // register method "poke" for inlet 0
+
+	FLEXT_CADDATTR_VAR(c,"buffer",mg_buf,ms_buf);  // register attribute "buffer" 
+	FLEXT_CADDATTR_GET(c,"channels",mg_chns);  // register attribute "channels" 
+	FLEXT_CADDATTR_VAR(c,"frames",mg_frames,ms_frames);  // register attribute "frames" 
+}
+
+
+buffer1::buffer1(int argc,const t_atom *argv):
+	// clear buffer
+	buf(NULL),bufname(NULL)
+{ 
+	// define inlets:
+	// first inlet must always be of type anything (or signal for dsp objects)
+	AddInAnything("message inlet");  // add one inlet for any message
+	
+	// peek outlet
+	AddOutFloat("peek value outlet");
+	
+	// set buffer according to creation arguments
+	m_set(argc,argv);
+}	
+ 
+
+void buffer1::Clear() 
+{
+	if(buf) { 
+		delete buf; 
+		buf = NULL; bufname = NULL;
+	}
+}
+
+bool buffer1::Check() 
+{
+	if(!buf || !buf->Valid()) {
+		post("%s (%s) - no valid buffer defined",thisName(),GetString(thisTag()));
+		// return zero length
+		return false;
+	} 
+	else {
+		if(buf->Update()) {
+			// buffer parameters have been updated
+			if(buf->Valid()) {
+				post("%s (%s) - updated buffer reference",thisName(),GetString(thisTag()));
+				return true;
+			}
+			else {
+				post("%s (%s) - buffer has become invalid",thisName(),GetString(thisTag()));
+				return false;
+			}
+		}
+		else
+			return true;		
+	}
+}
+
+void buffer1::m_set(int argc,const t_atom *argv)
+{
+	if(argc == 0) {
+		// argument list is empty
+
+		// clear existing buffer
+		Clear();		
+	}
+	else if(argc == 1 && IsSymbol(argv[0])) {
+		// one symbol given as argument
+		
+		// clear existing buffer
+		Clear();
+		// save buffer name
+		bufname = GetSymbol(argv[0]);
+		// make new reference to system buffer object
+		buf = new buffer(bufname);
+		
+		if(!buf->Ok()) {
+			post("%s (%s) - warning: buffer is currently not valid!",thisName(),GetString(thisTag()));
+		}
+	}
+	else {
+		// invalid argument list, leave buffer as is but issue error message to console
+		post("%s (%s) - message argument must be a symbol (or left blank)",thisName(),GetString(thisTag()));
+	}
+}
+
+void buffer1::mg_buf(AtomList &lst) const
+{
+	if(buf) {
+		// buffer exists: return buffer name
+		lst(1); SetSymbol(lst[0],bufname);
+	}
+	else 
+		// no buffer: set empty list
+		lst(0);
+}
+
+
+void buffer1::m_poke(int argc,const t_atom *argv)
+{
+	// if buffer is invalid bail out
+	if(!Check()) return;
+	
+	bool ok = true;
+	int ix,chn = 0;
+	float val;
+
+	if(argc == 3) {
+		if(CanbeInt(argv[2]))
+			// get channel index
+			chn = GetAInt(argv[2]);
+		else
+			ok = false;
+	}
+
+	if(ok && (argc == 2 || argc == 3) && CanbeInt(argv[0]) && CanbeFloat(argv[1]))	{
+		// get frame index
+		ix = GetAInt(argv[0]);
+		// get value
+		val = GetAFloat(argv[1]);
+	}
+	else
+		ok = false;
+		
+	if(ok) {
+		// correct syntax, set sample
+		buf->Data()[ix] = val;
+	}
+	else
+		post("%s (%s) - syntax error - use \"poke index value [channel]\"",thisName(),GetString(thisTag()));
+}
+
+void buffer1::m_peek(int argc,const t_atom *argv)
+{
+	// if buffer is invalid bail out
+	if(!Check()) return;
+	
+	bool ok = true;
+	int ix,chn = 0;
+
+	if(argc == 2) {
+		if(CanbeInt(argv[1]))
+			// get channel index
+			chn = GetAInt(argv[1]);
+		else
+			ok = false;
+	}
+
+	if(ok && (argc == 1 || argc == 2) && CanbeInt(argv[0])) {
+		// get frame index
+		ix = GetAInt(argv[0]);
+	}
+	else
+		ok = false;
+		
+	if(ok)
+		// correct syntax, output value
+		ToOutFloat(0,buf->Data()[ix]);
+	else
+		post("%s (%s) - syntax error - use \"peek index [channel]\"",thisName(),GetString(thisTag()));
+}
+
+
+
+
diff --git a/externals/grill/flext/tutorial/simple1/main.cpp b/externals/grill/flext/tutorial/simple1/main.cpp
index 6099a792..9f0f43e8 100755
--- a/externals/grill/flext/tutorial/simple1/main.cpp
+++ b/externals/grill/flext/tutorial/simple1/main.cpp
@@ -48,7 +48,7 @@ FLEXT_NEW("simple1",simple1)
 simple1::simple1()
 { 
 	// define inlets:
-	// first inlet must always by of type anything (or signal for dsp objects)
+	// first inlet must always be of type anything (or signal for dsp objects)
 	AddInAnything();  // add one inlet for any message
 	
 	// define outlets:
diff --git a/externals/grill/flext/tutorial/simple1/simple1.cw b/externals/grill/flext/tutorial/simple1/simple1.cw
index e6b451be..6e778ba5 100755
--- a/externals/grill/flext/tutorial/simple1/simple1.cw
+++ b/externals/grill/flext/tutorial/simple1/simple1.cw