Changeset 6455 for issm/trunk/src/m/kml/kml_container.m

Timestamp:

10/29/10 10:13:49 (14 years ago)

Author:

jschierm

Message:

Addition of set methods to all the kml classes.

File:

• issm/trunk/src/m/kml/kml_container.m (modified) (2 diffs)

issm/trunk/src/m/kml/kml_container.m

@@ -49 +49 @@
                             else
                                 if ~isempty(inputname(i))
-                                    warning('Argument ''%s'' for field ''%s'' is a ''%s'' class object, not ''%s''.',...
+                                    warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
                                         inputname(i),fnames{i},class(varargin{i}),class(kml.(fnames{i})));
                                 else
-                                    warning('Argument %d for field ''%s'' is a ''%s'' class object, not ''%s''.',...
+                                    warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
                                         i           ,fnames{i},class(varargin{i}),class(kml.(fnames{i})));
                                 end
@@ -75 +75 @@
                 if strcmp(class(kml),'kml_container')
                     disp(sprintf('\n'));
+                end
+            end
+
+        end
+
+%  set the properties of the object
+
+        function [kml]=set(kml,varargin)
+
+            kmlref=feval(class(kml));
+
+%  loop through each parameter in the input list (comparing to the reference
+%  object in case property types have been changed)
+
+            for i=1:2:length(varargin)
+                if isfield(kmlref,varargin{i})
+                    if isa(varargin{i+1},class(kmlref.(varargin{i})))
+                        kml.(varargin{i})=varargin{i+1};
+                    else
+                        if ~isempty(inputname(i+1))
+                            warning('Argument ''%s'' for property ''%s'' is a ''%s'' class object, not ''%s''.',...
+                                inputname(i+1),varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
+                        else
+                            warning('Argument %d for property ''%s'' is a ''%s'' class object, not ''%s''.',...
+                                i+1           ,varargin{i},class(varargin{i+1}),class(kmlref.(varargin{i})));
+                        end
+                    end
+                else
+                    warning('Property ''%s'' for class ''%s'' does not exist.',...
+                        varargin{i},class(kmlref));
                 end
             end