Mercurial > hg > ltpda
diff m-toolbox/m/gui/gltpda/g_KeepResultCallback.m @ 0:f0afece42f48
Import.
| author | Daniele Nicolodi <nicolodi@science.unitn.it> |
|---|---|
| date | Wed, 23 Nov 2011 19:22:13 +0100 |
| parents | |
| children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/m-toolbox/m/gui/gltpda/g_KeepResultCallback.m Wed Nov 23 19:22:13 2011 +0100 @@ -0,0 +1,42 @@ +function g_KeepResultCallback(hObject,varargin) + % Whenever the user clicks on the checkbox to maintain local results. + + global selBlocks + + switch get(hObject,'Value') + case 0 + % Cycle to restore proper color + [meth,clas] = strtok(get_param(gcbh,'Tag'),' '); + infoObj = eval([clas,'.getInfo(''',getappdata(0,'ltpda_currFunctionName'),''')']); + switch infoObj.mcategory + case 'Constructor' + for kk=1:length(selBlocks) + try %#ok<ALIGN> + set_param(selBlocks(kk),'Backgroundcolor','green') + set_param(selBlocks(kk),'MaskHelp','') + catch, end + end + case 'Output' + for kk=1:length(selBlocks) + try %#ok<ALIGN> + set_param(selBlocks(kk),'Backgroundcolor','lightBlue') + set_param(selBlocks(kk),'MaskHelp','') + catch, end + end + otherwise + for kk=1:length(selBlocks) + try %#ok<ALIGN> + set_param(selBlocks(kk),'Backgroundcolor','red') + set_param(selBlocks(kk),'MaskHelp','') + catch, end + end + end + case 1 + for kk=1:length(selBlocks) + try %#ok<ALIGN> + set_param(selBlocks(kk),'Backgroundcolor','magenta'); + set_param(selBlocks(kk),'MaskHelp','probe'); + catch, end + end + end +end