module_view.m

Go to the documentation of this file.

classdef module_view   
    properties(GetAccess=private,SetAccess=private,Hidden)
        biograph_struct;
        internalUnits;
        label;
    end

    methods (Access=public)
        function obj=module_view(biograph_struc,internalUnits,label)
           % Setter
           obj.biograph_struct    = biograph_struc;
           obj.internalUnits      = internalUnits;
           obj.label              = label;
           
           % Create and show biograph
           obj.createBiograph();
        end
        
        function node_callback(obj,node)
            obj.internalUnits{node.UserData}.view();        
        end
    end
    
    methods (Access=private)
        function createBiograph(obj)
           if isempty(obj.biograph_struct.dg) % no edges
                warning('Module %s encloses no units. No graph will be drawn.',obj.biograph_struct.label);
            elseif isscalar(obj.biograph_struct.dg) % one edge
                warning('Module %s encloses only one unit. No graph will be drawn.',obj.biograph_struct.label);
            else % more than one edge
                bg = biograph(obj.biograph_struct.dg);
                set(bg, 'NodeCallbacks', @(node)obj.node_callback(node))
                bg.ShowTextInNodes = 'Label';
                N = numel(obj.internalUnits);
                for i=1:N
                    bg.Nodes(i).Label = obj.biograph_struct.labels{i};
                    bg.Nodes(i).Description = '';
                    bg.Nodes(i).UserData = i;                    
%                     if(obj.internalUnits{i}.debugMode)
%                         bg.Nodes(i).Shape = 'house';
%                     end
                    classes = superclasses(obj.internalUnits{i});
                    switch classes{1}
                        case 'unit' 
                            bg.Nodes(i).Color = [1 1 1];
                        case 'module'
                            bg.Nodes(i).Color = [200 200 200]/255;
                    end
                end
                view(bg);
                handles = allchild(0);
                hg = handles(1);
                hg.Name = obj.label;                                       
            end
        end        
    end    
end