view private/addkbcallback.m @ 15:a6d5597bd922

Trying alternative fixed point computation in mc_global_info1>mc_fixpt2;
Also factored out randnat from some other functions.

function addkbcallback(fig,handler)
% addkbcallback - Add keypress handler to figure or remove all handlers

	if nargin>1,
		cb=get(fig,'KeypressFcn');
		if isempty(cb)
			set(fig,'KeypressFcn',{@kpcb,{handler}});
		else
			set(fig,'KeypressFcn',{cb{1},[cb{2},{handler}]});
		end
	else
		set(fig,'KeypressFcn',[]);
	end
end

function kpcb(a,b,handlers), 
	for i=1:length(handlers), h=handlers{i}; h(b); end; 
end