comparison arrows/@esender/construct.m @ 0:672052bd81f8

Initial partial import.

+function u=construct(s,sizes_in)
+	fg=fig(s); figure(fg); clf;
+	set(gcf,'Name',s.opts.name);
+	hpanel = uipanel('title',s.opts.title,'bordertype','line');
+	%hpanel = uigridcontainer('v0','GridSize',[1,1]);
+	hedit = uicontrol('parent',hpanel,'style','edit','string',s.opts.init,'horizontalalignment','left');
+	%hbtn  = uicontrol('parent',hpanel,'style','pushbutton','string','send');
+	set(hedit,'BackgroundColor',get(0,'DefaultAxesColor'));
+	set(hedit,'units','normalized','position',[0,0,1,1]);
+	%set(hedit,'ToolTipString','Enter a MATLAB expression to evaluate a send.');
+	%set(hbtn,'ToolTipString','Press to resend the last entered expression.');
+
+	queue = {};
+	u=mkunit(s);
+	u.process=@proc;
+	u.sizes_out = {[1,1]};
+	u.dispose  = @dispose;
+	u.starting = @starting;
+	u.stopping = @stopping;
+	u.get_state = @()get(hedit,'string');
+	u.set_state = @(s)set(hedit,'string',s);
+
+	function dispose, delete(hpanel); end
+	function starting, set(hedit,'Callback',@send); end
+	function stopping, set(hedit,'Callback',[]); end
+	function x=proc, x=queue; queue={}; end
+
+	function send(varargin), 
+		str=get(hedit,'string');
+		fprintf('* esender: evaluating %s\n',str);
+		try, queue = [queue, {evalin('base',str)}]; 
+		catch fprintf('* esender: ERROR evaluating.\n');
+		end
+	end
+end