*** empty log message ***

svn path=/trunk/; revision=192

1 files changed, 0 insertions, 801 deletions

diff --git a/externals/grill/guitest/flguiobj.cpp b/externals/grill/guitest/flguiobj.cpp
deleted file mode 100644
index b845ae5e..00000000
--- a/externals/grill/guitest/flguiobj.cpp
+++ /dev/null
@@ -1,801 +0,0 @@
-#include "flguiobj.h"
-
-#include <stdio.h>
-#include <string.h>
-#include <stdlib.h>
-#include <stdarg.h>
-
-
-#define USETAGS
-
-#define BUFSIZE 20000
-#define ZONE 1000
-
-
-#ifdef PD
-bool Canvas::store = true;
-bool Canvas::debug = false;
-#endif
-
-Canvas::Canvas(t_canvas *c): 
-	canvas(c)
-#ifdef PD
-	,buffer(new char[BUFSIZE]),bufix(0),waiting(0) 
-#endif
-{}
-
-Canvas::~Canvas() 
-{ 
-#ifdef PD
-	if(buffer) delete[] buffer; 
-#endif
-}
-
-#ifdef PD
-void Canvas::Send(const char *t)
-{
-	if(debug) post("GUI - %s",t);
-	sys_gui((char *)t);
-}
-
-void Canvas::SendBuf()
-{
-	if(bufix) {
-		Send(buffer);
-		bufix = 0;
-	}
-}
-
-void Canvas::ToBuf(const char *t)
-{
-	int len = strlen(t);
-	if(!len) return;
-
-	bool end = t[len-1] == '\n';
-	if((store && waiting) || !end) {
-		int nxt = bufix+len;
-		if(nxt >= BUFSIZE || (end && nxt >= BUFSIZE-ZONE)) SendBuf();
-
-		memcpy(buffer+bufix,t,len);
-		buffer[bufix += len] = 0;
-	}
-	else {
-		SendBuf();
-		Send(t);
-	}
-}
-
-Canvas &Canvas::TkC()
-{
-	char tmp[20];
-	sprintf(tmp,".x%x.c ",canvas);
-	ToBuf(tmp);
-	return *this;
-}
-
-Canvas &Canvas::TkE()
-{
-	ToBuf("\n");
-	return *this;
-}
-
-Canvas &Canvas::Tk(char *fmt,...)
-{
- //   int result, i;
-    char buf[2048];
-    va_list ap;
-
-    va_start(ap, fmt);
-    vsprintf(buf, fmt, ap);
-    ToBuf(buf);
-    va_end(ap);
-	return *this;
-}
-#endif
-
-bool Canvas::Pre(int x,int y) 
-{ 
-	xpos = x,ypos = y;
-#ifdef PD
-	++waiting;
-	return true;
-#else
-	svgp = patcher_setport(canvas); 
-	if(svgp != NULL) {
-		GetForeColor(&svcol);
-		GetPenState(&svpen);
-		::PenMode(patCopy);
-		return true;
-	}
-	else return false; 
-#endif
-}
-
-void Canvas::Post() 
-{ 
-#ifdef PD
-	if(!--waiting) SendBuf();
-#else
-	if(svgp) {
-		RGBForeColor(&svcol);
-		SetPenState(&svpen);
-		SetPort(svgp); 
-	}
-#endif
-}
-
-
-// --------------------------------------------------------------------------
-
-
-Rect &Rect::Add(const Pnt &p)
-{
-	if(p.x < lo.x) lo.x = p.x;
-	if(p.y < lo.y) lo.y = p.y;
-	if(p.x > hi.x) hi.x = p.x;
-	if(p.y > hi.y) hi.y = p.y;
-	return *this;
-}
-
-Rect &Rect::Add(const Rect &r)
-{
-	if(r.lo.x < lo.x) lo.x = r.lo.x;
-	if(r.lo.y < lo.y) lo.y = r.lo.y;
-	if(r.hi.x > hi.x) hi.x = r.hi.x;
-	if(r.hi.y > hi.y) hi.y = r.hi.y;
-	return *this;
-}
-
-bool Rect::In(const Pnt &p) const
-{
-	return p.x >= lo.x && p.x <= hi.x && p.y >= lo.y && p.y <= hi.y;
-}
-
-bool Rect::Inter(const Rect &r) const
-{
-	return true;
-}
-
-
-// --------------------------------------------------------------------------
-
-
-GuiObj::GuiObj(Canvas *c,GuiGroup *p): 
-	canvas(c),idsym(NULL),
-	parent(p)
-//	,ori(0,0)
-{}
-
-GuiObj::~GuiObj() 
-{ 
-//	Delete();
-}
-
-
-// --------------------------------------------------------------------------
-
-GuiSingle::Event::Event(int evmask,bool (*m)(flext_gui &g,GuiSingle &obj,const flext_gui::CBParams &p)):
-	methfl(evmask),method(m),ext(false),nxt(NULL) 
-{}
-
-GuiSingle::Event::~Event() { if(nxt) delete nxt; }
-
-
-GuiSingle::GuiSingle(Canvas *c,GuiGroup *p,const t_symbol *s): 
-	GuiObj(c,p),sym(s),active(false),event(NULL)
-{
-	char tmp[20];
-#ifdef __MWERKS__
-	std::
-#endif
-		sprintf(tmp,"GUI%x",this);
-	idsym = MakeSymbol(tmp);
-}
-
-GuiSingle::~GuiSingle() 
-{ 
-	Delete(); 
-	if(event) delete event;
-}
-
-void GuiSingle::Symbol(const t_symbol *s) 
-{ 
-	sym = s;
-}
-
-GuiSingle *GuiSingle::Find(const t_symbol *s)
-{
-	return sym == s?this:NULL;
-}
-
-GuiObj &GuiSingle::MoveTo(int x,int y)
-{
-#ifdef PD
-    if(active) { 
-		canvas->TkC().Tk("coords %s %i %i\n",GetString(Id()), x, y);
-	}
-#endif
-	rect.MoveTo(x,y);
-	return *this;
-}
-
-GuiObj &GuiSingle::MoveRel(int dx,int dy)
-{
-#ifdef PD
-	if(active) {
-		canvas->TkC().Tk("move %s %i %i\n",GetString(Id()), dx, dy);
-	}
-#endif
-	rect.Move(dx,dy);
-	return *this;
-}
-
-GuiObj &GuiSingle::Delete()
-{
-#ifdef PD
-	if(active) {
-		canvas->TkC().Tk("delete -tags %s\n",GetString(Id()));
-		active = false;
-	}
-#endif
-	return *this;
-}
-
-GuiObj &GuiSingle::FillColor(unsigned long col)
-{
-#ifdef PD
-	if(active) {
-		canvas->TkC().Tk("itemconfigure %s -fill #%06x\n",GetString(Id()),col);
-	}
-#endif
-	return *this;
-}
-
-GuiObj &GuiSingle::Outline(unsigned long col)
-{
-#ifdef PD
-	if(active) {
-		canvas->TkC().Tk("itemconfigure %s -outline #%06x\n",GetString(Id()),col);
-	}
-#endif
-	return *this;
-}
-
-GuiObj &GuiSingle::Focus()
-{
-#ifdef PD
-	if(active) {
-		canvas->TkC().Tk("focus %s\n",GetString(Id()));
-	}
-#endif
-	return *this;
-}
-
-bool GuiSingle::Method(flext_gui &g,const flext_gui::CBParams &p)
-{
-	bool ret = true;
-	for(Event *ei = event; ei && ret; ei = ei->nxt)
-		ret = ret && ((ei->method && (ei->methfl&p.kind))?ei->method(g,*this,p):true);
-	return ret;
-}
-
-void GuiSingle::AddEvent(int evmask,bool (*m)(flext_gui &g,GuiSingle &obj,const flext_gui::CBParams &p))
-{
-	Event *prv = NULL,*ix = event;
-	for(; ix && ix->method != m; prv = ix,ix = ix->nxt) {}
-
-	if(ix) 
-		// previous handler found -> update event mask
-		ix->methfl |= evmask;
-	else {
-		// no previous handler was found -> make new one
-
-		Event *nev = new Event(evmask,m);
-		if(prv) prv->nxt = nev;
-		else event = nev;
-	}
-}
-
-void GuiSingle::RmvEvent(int evmask,bool (*m)(flext_gui &g,GuiSingle &obj,const flext_gui::CBParams &p))
-{
-	Event *prv = NULL,*ix = event;
-	for(; ix && ix->method != m; prv = ix,ix = ix->nxt) {}
-
-	if(ix) {
-		// handler found
-
-		if(!(ix->methfl &= ~evmask)) {
-			// mask has become zero -> remove handler
-
-			if(prv) prv->nxt = ix->nxt;
-			else event = ix->nxt;
-			ix->nxt = NULL;
-			delete ix;
-		}
-	}
-}
-
-
-
-// --------------------------------------------------------------------------
-
-
-GuiGroup::GuiGroup(Canvas *c,GuiGroup *p): 
-	GuiObj(c,p),head(NULL),tail(NULL)
-{
-	char tmp[20];
-#ifdef __MWERKS__
-	std::
-#endif
-		sprintf(tmp,"GRP%x",this);
-	idsym = MakeSymbol(tmp);
-}
-
-GuiGroup::~GuiGroup() { Clear(); }
-
-void GuiGroup::Clear()
-{
-	for(Part *ix = head; ix; ) {
-		Part *n = ix->nxt;
-#ifdef PD
-		RemoveTag(ix->obj);
-#endif
-		if(ix->owner) delete ix->obj;
-		delete ix;
-		ix = n;
-	}
-	head = tail = NULL;
-}
-
-void GuiGroup::Add(GuiObj *o,bool owner)
-{
-	o->canvas = canvas;
-#ifdef PD
-	AddTag(o); // valid only for GuiSingle!
-#endif
-	Part *n = new Part(o,owner);
-	if(!head) head = n;
-	else tail->nxt = n;
-	tail = n;
-	
-	rect.Add(o->rect);
-}
-
-GuiSingle *GuiGroup::Find(const t_symbol *s)
-{
-	GuiSingle *r = NULL;
-	for(Part *ix = head; ix && !r; ix = ix->nxt) {
-		r = ix->obj->Find(s);
-	}
-	return r;
-}
-
-GuiSingle *GuiGroup::Detach(const t_symbol *s)
-{
-	if(head) {
-		Part *p = NULL,*ix = head;
-		while(ix) {
-			if(ix->obj->Symbol() == s) {
-				// found
-				if(p) p->nxt = ix->nxt;
-				GuiSingle *ret = (GuiSingle *)(ix->obj);
-				
-#ifdef PD
-				RemoveTag(ret);
-#endif
-				if(head == ix) head = ix->nxt;
-				if(tail == ix) tail = p;
-				
-				delete ix;
-				
-				return ret;
-			}
-			else p = ix,ix = ix->nxt;
-		}
-	}
-	return NULL;
-}
-
-GuiObj &GuiGroup::MoveRel(int dx,int dy)
-{
-#ifdef PD
-	canvas->TkC().Tk("move %s %i %i\n",GetString(Id()), dx, dy);
-#endif
-	for(Part *ix = head; ix; ix = ix->nxt) {
-		ix->obj->rect.Move(dx,dy);
-	}
-	return *this;
-}
-
-GuiObj &GuiGroup::Delete()
-{	
-#ifdef PD
-	canvas->TkC().Tk("delete -tags %s\n",GetString(Id()));
-
-	for(Part *ix = head; ix; ix = ix->nxt) ix->obj->Inactive();
-#endif
-	return *this;
-}
-
-
-GuiObj &GuiGroup::Draw()
-{	
-	for(Part *ix = head; ix; ix = ix->nxt) ix->obj->Draw();
-	return *this;
-}
-
-
-#ifdef PD
-
-void GuiGroup::AddTag(GuiObj *o)
-{
-	canvas->TkC().Tk("addtag %s withtag %s\n",GetString(Id()),GetString(o->Id()));
-}
-
-void GuiGroup::RemoveTag(GuiObj *o)
-{
-	canvas->TkC().Tk("dtag %s %s\n",GetString(o->Id()),GetString(Id()));
-}
-
-#endif
-
-GuiGroup *GuiGroup::Add_Group()
-{
-	GuiGroup *obj = new GuiGroup(canvas,this);
-	Add(obj);
-	return obj;
-}
-
-
-GuiSingle *GuiGroup::Add_Point(int x,int y,long fill)
-{
-	GuiPoint *obj = new GuiPoint(canvas,this);
-	obj->Set(x,y,fill);
-	Add(obj);
-	return obj;
-}
-
-GuiSingle *GuiGroup::Add_Cloud(int n,const Pnt *p,long fill)
-{
-	GuiCloud *obj = new GuiCloud(canvas,this);
-	obj->Set(n,p,fill);
-	Add(obj);
-	return obj;
-}
-
-GuiSingle *GuiGroup::Add_Box(int x,int y,int xsz,int ysz,int width,long fill,long outl)
-{
-	GuiBox *obj = new GuiBox(canvas,this);
-	obj->Set(x,y,xsz,ysz,width,fill,outl);
-	Add(obj);
-	return obj;
-}
-
-GuiSingle *GuiGroup::Add_Rect(int x,int y,int xsz,int ysz,int width,long outl)
-{
-	GuiRect *obj = new GuiRect(canvas,this);
-	obj->Set(x,y,xsz,ysz,width,outl);
-	Add(obj);
-	return obj;
-}
-
-GuiSingle *GuiGroup::Add_Line(int x1,int y1,int x2,int y2,int width,long fill)
-{
-	GuiLine *obj = new GuiLine(canvas,this);
-	obj->Set(x1,y1,x2,y2,width,fill);
-	Add(obj);
-	return obj;
-}
-
-GuiSingle *GuiGroup::Add_Poly(int n,const Pnt *p,int width,long fill)
-{
-	GuiPoly *obj = new GuiPoly(canvas,this);
-	obj->Set(n,p,width,fill);
-	Add(obj);
-	return obj;
-}
-
-GuiSingle *GuiGroup::Add_Text(int x,int y,const char *txt,long fill,GuiText::just_t just)
-{
-	GuiText *obj = new GuiText(canvas,this);
-	obj->Set(x,y,txt,fill,just);
-	Add(obj);
-	return obj;
-}
-
-GuiSingle *GuiGroup::Remove(GuiSingle *go)
-{
-	for(Part *prv = NULL,*ix = head; ix; prv = ix,ix = ix->nxt) 
-		if(ix->obj == go) {
-			if(prv) prv->nxt = ix->nxt;
-			else head = ix->nxt;
-			if(!head) tail = NULL;
-
-			GuiObj *ret = ix->obj;
-			delete ix;
-
-			if(head) {
-				rect = head->obj->rect;
-				for(ix = head->nxt; ix; ix = ix->nxt) rect.Add(ix->obj->rect);
-			}
-
-			return (GuiSingle *)ret;
-		}
-
-	return NULL;
-}
-
-bool GuiGroup::Method(flext_gui &g,const flext_gui::CBParams &p)
-{
-	bool go = true;
-	for(Part *ix = head; go && ix; ix = ix->nxt) go = go && ix->obj->Method(g,p);
-	return go;
-}
-
-
-// --------------------------------------------------------------------------
-
-
-GuiObj &GuiPoint::Set(int x,int y,long fl)
-{
-	Delete();
-	fill = fl;
-	rect(x,y,x,y);
-
-#ifdef PD
-    canvas->TkC();
-	canvas->Tk("create line %i %i %i %i -tags %s",x,y,x+1,y,GetString(Id()));
-	if(fill >= 0) canvas->Tk(" -fill #%06x",fill);
-	canvas->TkE();
-
-	active = true;
-#endif
-	return *this;
-}
-
-GuiObj &GuiPoint::Draw()
-{
-#ifdef MAXMSP
-#endif
-	return *this;
-}
-
-
-GuiObj &GuiCloud::Set(int n,const Pnt *p,long fl)
-{
-	int i;
-	Delete();
-
-	fill = fl;
-	pnt = new Pnt[pnts = n];
-	rect(pnt[0] = p[0],p[0]);
-	for(i = 1; i < n; ++i) rect.Add(pnt[i] = p[i]);
-
-#ifdef PD
-    canvas->TkC().Tk("create line");
-	for(i = 0; i < n; ++i)
-		canvas->Tk(" %i %i",p[i].X(),p[i].Y());
-	canvas->Tk(" -tags %s",GetString(Id()));
-	if(fill >= 0) canvas->Tk(" -fill #%06x",fill);
-	canvas->TkE();
-
-	active = true;
-#endif
-	return *this;
-}
-
-GuiObj &GuiCloud::Draw()
-{
-#ifdef MAXMSP
-#endif
-	return *this;
-}
-
-GuiObj &GuiCloud::Delete()
-{
-	if(pnt) { delete[] pnt; pnt = NULL; }
-	return *this;
-}
-
-
-GuiObj &GuiBox::Set(int x,int y,int xsz,int ysz,int wd,long fl,long outl)
-{
-	Delete();
-	rect(x,y,x+xsz-1,y+ysz-1);
-	width = wd,fill = fl,outln = outl;
-
-#ifdef PD
-    canvas->TkC().Tk("create rectangle %i %i %i %i -tags %s",x,y,x+xsz,y+ysz,GetString(Id()));
-	if(wd >= 0) canvas->Tk(" -width %i",wd);
-	if(fl >= 0) canvas->Tk(" -fill #%06x",fl);
-	if(outl >= 0) canvas->Tk(" -outline #%06x",outl);
-	canvas->TkE();
-
-	active = true;
-#endif
-	return *this;
-}
-
-GuiObj &GuiBox::Draw()
-{
-#ifdef MAXMSP
-	::Rect r;
-	::RGBColor col;
-	int w = width; 
-	if(!w) w = 1;
-
-	r.left = Canv().X()+rect.Lo().X();
-	r.top = Canv().Y()+rect.Lo().Y();
-	r.right = Canv().X()+rect.Hi().X();
-	r.bottom = Canv().Y()+rect.Hi().Y();
-	
-	if(width >= 0) {
-		col.red = (outln>>8)&0xff00;
-		col.green = outln&0xff00;
-		col.blue = (outln&0xff)<<8;
-		::RGBForeColor(&col);
-		::PenSize(w,w);
-		::FrameRect(&r);
-	}
-	col.red = (fill>>8)&0xff00;
-	col.green = fill&0xff00;
-	col.blue = (fill&0xff)<<8;
-	::RGBForeColor(&col);
-	::PaintRect(&r);
-#endif
-	return *this;
-}
-
-
-GuiObj &GuiRect::Set(int x,int y,int xsz,int ysz,int wd,long outl)
-{
-	Delete();
-	rect(x,y,x+xsz-1,y+ysz-1);
-	width = wd,outln = outl;
-
-#ifdef PD
-    canvas->TkC().Tk("create line %i %i %i %i %i %i %i %i %i %i -tags %s",x,y,x+xsz,y,x+xsz,y+ysz,x,y+ysz,x,y,GetString(Id()));
-	if(width >= 0) canvas->Tk(" -width %i",width);
-	if(outl >= 0) canvas->Tk(" -fill #%06x",outl);
-	canvas->TkE();
-
-	active = true;
-#endif
-	return *this;
-}
-
-GuiObj &GuiRect::Draw()
-{
-#ifdef MAXMSP
-#endif
-	return *this;
-}
-
-
-GuiObj &GuiLine::Set(int x1,int y1,int x2,int y2,int wd,long fl)
-{
-	Delete();
-	rect(p1(x1,y1),p2(x2,y2));
-	width = wd,fill = fl;
-	
-#ifdef PD
-	canvas->TkC().Tk("create line %i %i %i %i -tags %s",x1,y1,x2,y2,GetString(Id()));
-	if(width >= 0) canvas->Tk(" -width %i",width);
-	if(fill >= 0) canvas->Tk(" -fill #%06x",fill);
-	canvas->TkE();
-
-	active = true;
-#endif
-	return *this;
-}
-
-GuiObj &GuiLine::Draw()
-{
-#ifdef MAXMSP
-	::Point p;
-	::RGBColor col;
-	int w = width; 
-	if(!w) w = 1;
-	
-	col.red = (fill>>8)&0xff00;
-	col.green = fill&0xff00;
-	col.blue = (fill&0xff)<<8;
-	::RGBForeColor(&col);
-	::PenSize(w,w);
-	p.h = Canv().X()+p1.X();
-	p.v = Canv().Y()+p1.Y();
-	::MoveTo(p.h,p.v);
-	p.h = Canv().X()+p2.X();
-	p.v = Canv().Y()+p2.Y();
-	::LineTo(p.h,p.v);
-#endif
-	return *this;
-}
-
-
-GuiObj &GuiPoly::Set(int n,const Pnt *p,int wd,long fl)
-{
-	int i;
-
-	Delete();
-
-	width = wd,fill = fl;
-	pnt = new Pnt[pnts = n];
-	rect(pnt[0] = p[0],p[0]);
-	for(i = 1; i < n; ++i) rect.Add(pnt[i] = p[i]);
-
-#ifdef PD	
-	canvas->TkC().Tk("create line");
-	for(i = 0; i < n; ++i)
-		canvas->Tk(" %i %i",p[i].X(),p[i].Y());
-	canvas->Tk(" -tags %s",GetString(Id()));
-	if(width >= 0) canvas->Tk(" -width %i",width);
-	if(fill >= 0) canvas->Tk(" -fill #%06x",fill);
-	canvas->TkE();
-
-	active = true;
-#endif
-	return *this;
-}
-
-GuiObj &GuiPoly::Draw()
-{
-#ifdef MAXMSP
-	::Point p;
-	::RGBColor col;
-	int ox = Canv().X(),oy = Canv().Y();
-	int w = width; 
-	if(!w) w = 1;
-	
-	col.red = (fill>>8)&0xff00;
-	col.green = fill&0xff00;
-	col.blue = (fill&0xff)<<8;
-	::RGBForeColor(&col);
-	::PenSize(w,w);
-	p.h = ox+pnt[0].X();
-	p.v = oy+pnt[0].Y();
-	::MoveTo(p.h,p.v);
-	for(int i = 1; i < pnts; ++i) {
-		p.h = ox+pnt[i].X();
-		p.v = oy+pnt[i].Y();
-		::LineTo(p.h,p.v);
-	}
-#endif
-	return *this;
-}
-
-GuiObj &GuiPoly::Delete()
-{
-	if(pnt) { delete[] pnt; pnt = NULL; }
-	return *this;
-}
-
-
-GuiObj &GuiText::Set(int x,int y,const char *txt,long fl,just_t jt)
-{
-	Delete();
-	rect(x,y,x,y);
-	fill = fl,just = jt;
-
-#ifdef PD
-	canvas->TkC().Tk("create text %i %i -tags %s",x,y,GetString(Id()));
-	if(txt) canvas->Tk(" -text %s",txt);
-	if(fill >= 0) canvas->Tk(" -fill #%06x",fill);
-	if(just != none) {
-		static const char justtxt[][7] = {"left","right","center"};
-		canvas->Tk(" -justify %s",justtxt[(int)just]);
-	}
-	canvas->TkE();
-
-	active = true;
-#endif
-	return *this;
-}
-
-GuiObj &GuiText::Draw()
-{
-#ifdef MAXMSP
-#endif
-	return *this;
-}
-