samer@11: function addkbcallback(fig,handler)
samer@11: % addkbcallback - Add keypress handler to figure or remove all handlers
samer@11: 
samer@11: 	if nargin>1,
samer@11: 		cb=get(fig,'KeypressFcn');
samer@11: 		if isempty(cb)
samer@11: 			set(fig,'KeypressFcn',{@kpcb,{handler}});
samer@11: 		else
samer@11: 			set(fig,'KeypressFcn',{cb{1},[cb{2},{handler}]});
samer@11: 		end
samer@11: 	else
samer@11: 		set(fig,'KeypressFcn',[]);
samer@11: 	end
samer@11: end
samer@11: 
samer@11: function kpcb(a,b,handlers), 
samer@11: 	for i=1:length(handlers), h=handlers{i}; h(b); end; 
samer@11: end
samer@11: