#include <CtrlLib/CtrlLib.h>
using namespace Upp;

template <class T>
class Cached : public T{
	Value val;
	bool refreshflag;
public:
	void operator<<=(Callback action) {T::operator<<=(action);}
	void operator<<=(Value data)      {refreshflag=true; val=data;}
	void SetData(Value data)          {refreshflag=true; val=data;}
	Value GetData()                   {return val;}
	Value operator~()                 {return val;}
	void Apply()                      {if(refreshflag) T::SetData(val);}
	bool IsChanged()                  {return refreshflag;}
};
template <>
class Cached<Label> : public Label{
	Value val;
	bool refreshflag;
public:
	void operator<<=(Value data)      {refreshflag=true; val=data;}
	void SetData(Value data)          {refreshflag=true; val=data;}
	Value GetData()                   {return val;}
	Value operator~()                 {return val;}
	void Apply()                      {if(refreshflag) Label::SetLabel(AsString(val));}
	bool IsChanged()                  {return refreshflag;}
};

class guitest : public TopWindow {
public:
	typedef guitest CLASSNAME;
	Cached<EditIntSpin> s;		Cached<Label> l;
	guitest(){
		s.SetRect(10,10,50,24);	l.SetRect(10,40,100,54);
		Add(s);			Add(l);
		s<<=0;			l<<="Nothing yet";
		s.Apply();		l.Apply();
	}
	void LeftDown(Point p,dword keyflags){
		s<<=int(~s)+1;		l<<=String("Last value: ")+IntStr(s.EditIntSpin::GetData());
	}
	void RightDown(Point p,dword keyflags){
		s.Apply();		l.Apply();
	}
};

GUI_APP_MAIN{
	guitest().Run();
}