www.gusucode.com > rtw 工具箱matlab源码程序 > rtw/callback_function_management.m
function callback_function_management (varargin) % CALLBACK_FUNCTION_MANAGEMENT - Real-Time Workshop internal routine. % Copyright 1994-2002 The MathWorks, Inc. if (nargin == 0) dialogFig = get (gcbo, 'Parent'); else dialogFig = varargin{1}; end functionSplit = 'Function split threshold'; fileSplit = 'File split threshold'; dialogUserData = get(dialogFig, 'UserData'); hModel = dialogUserData.model; loDefault = get_param(hModel,'OptimizeBlockIOStorage'); val_to_string{1} = 'off'; val_to_string{2} = 'on'; % switch on the value of dialogUserData % Set enable 'on' for edit field o = findobj (dialogFig, 'Tag', 'Function management_PopupFieldTag'); val = get(o,'Value'); switch(val) case (1) obj = findobj (dialogFig, 'Tag', [functionSplit, '_EditLabelTag']); set (obj, 'Enable', 'off'); obj = findobj (dialogFig, 'Tag', [functionSplit, '_EditFieldTag']); set (obj, 'Enable', 'off'); obj = findobj (dialogFig, 'Tag', [fileSplit, '_EditLabelTag']); set (obj, 'Enable', 'off'); obj = findobj (dialogFig, 'Tag', [fileSplit, '_EditFieldTag']); set (obj, 'Enable', 'off'); % Turn on ShowEliminatedStatements checkbox obj = findobj (dialogFig, 'Tag', 'Show eliminated statements_CheckboxTag'); set (obj, 'Enable', 'on'); % Turn on LocalBlockOutputs checkbox obj = findobj (dialogFig, 'Tag', 'Local block outputs_CheckboxTag'); set(obj, 'Enable', loDefault); case (2) obj = findobj (dialogFig, 'Tag', [functionSplit, '_EditLabelTag']); set (obj, 'Enable', 'on'); obj = findobj (dialogFig, 'Tag', [functionSplit, '_EditFieldTag']); set (obj, 'Enable', 'on'); obj = findobj (dialogFig, 'Tag', [fileSplit, '_EditLabelTag']); set (obj, 'Enable', 'off'); obj = findobj (dialogFig, 'Tag', [fileSplit, '_EditFieldTag']); set (obj, 'Enable', 'off'); % Turn on ShowEliminatedStatements checkbox obj = findobj (dialogFig, 'Tag', 'Show eliminated statements_CheckboxTag'); set (obj, 'Enable', 'on'); % Turn off LocalBlockOutputs checkbox obj = findobj (dialogFig, 'Tag', 'Local block outputs_CheckboxTag'); set (obj, 'Enable', 'off'); case (3) obj = findobj (dialogFig, 'Tag', [functionSplit, '_EditLabelTag']); set (obj, 'Enable', 'off'); obj = findobj (dialogFig, 'Tag', [functionSplit, '_EditFieldTag']); set (obj, 'Enable', 'off'); obj = findobj (dialogFig, 'Tag', [fileSplit,'_EditLabelTag']); set (obj, 'Enable', 'on'); obj = findobj (dialogFig, 'Tag', [fileSplit,'_EditFieldTag']); set (obj, 'Enable', 'on'); % Shut off ShowEliminatedStatements checkbox obj = findobj (dialogFig, 'Tag', 'Show eliminated statements_CheckboxTag'); set (obj, 'Enable', 'off'); % Turn on LocalBlockOutputs checkbox obj = findobj (dialogFig, 'Tag', 'Local block outputs_CheckboxTag'); set(obj, 'Enable', loDefault); case (4) obj = findobj (dialogFig, 'Tag', [functionSplit, '_EditLabelTag']); set (obj, 'Enable', 'on'); obj = findobj (dialogFig, 'Tag', [functionSplit, '_EditFieldTag']); set (obj, 'Enable', 'on'); obj = findobj (dialogFig, 'Tag', [fileSplit, '_EditLabelTag']); set (obj, 'Enable', 'on'); obj = findobj (dialogFig, 'Tag', [fileSplit, '_EditFieldTag']); set (obj, 'Enable', 'on'); % Shut off ShowEliminatedStatements checkbox obj = findobj (dialogFig, 'Tag', 'Show eliminated statements_CheckboxTag'); set (obj, 'Enable', 'off'); % Turn off LocalBlockOutputs checkbox obj = findobj (dialogFig, 'Tag', 'Local block outputs_CheckboxTag'); set (obj, 'Enable', 'off'); end