Index: /issm/trunk/src/m/kml/kml_colorstyle.m
===================================================================
--- /issm/trunk/src/m/kml/kml_colorstyle.m	(revision 6454)
+++ /issm/trunk/src/m/kml/kml_colorstyle.m	(revision 6455)
@@ -46,8 +46,8 @@
                             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,4 +75,34 @@
                 else
                     disp(sprintf('     colormode: ''%s'''  ,kml(i).colormode));
+                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
Index: /issm/trunk/src/m/kml/kml_container.m
===================================================================
--- /issm/trunk/src/m/kml/kml_container.m	(revision 6454)
+++ /issm/trunk/src/m/kml/kml_container.m	(revision 6455)
@@ -49,8 +49,8 @@
                             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,4 +75,34 @@
                 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
Index: /issm/trunk/src/m/kml/kml_document.m
===================================================================
--- /issm/trunk/src/m/kml/kml_document.m	(revision 6454)
+++ /issm/trunk/src/m/kml/kml_document.m	(revision 6455)
@@ -51,8 +51,8 @@
                             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,4 +75,34 @@
                 disp(sprintf('       feature: %s %s\n' ,string_size(kml(i).feature),...
                              class(kml(i).feature)));
+            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
 
Index: /issm/trunk/src/m/kml/kml_feature.m
===================================================================
--- /issm/trunk/src/m/kml/kml_feature.m	(revision 6454)
+++ /issm/trunk/src/m/kml/kml_feature.m	(revision 6455)
@@ -56,8 +56,8 @@
                             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
@@ -92,4 +92,34 @@
                     disp(sprintf('         style: %s %s'   ,string_size(kml(i).style),...
                                  class(kml(i).style)));
+                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
Index: /issm/trunk/src/m/kml/kml_folder.m
===================================================================
--- /issm/trunk/src/m/kml/kml_folder.m	(revision 6454)
+++ /issm/trunk/src/m/kml/kml_folder.m	(revision 6455)
@@ -51,8 +51,8 @@
                             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,4 +75,34 @@
                 disp(sprintf('       feature: %s %s\n' ,string_size(kml(i).feature),...
                              class(kml(i).feature)));
+            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
 
Index: /issm/trunk/src/m/kml/kml_geometry.m
===================================================================
--- /issm/trunk/src/m/kml/kml_geometry.m	(revision 6454)
+++ /issm/trunk/src/m/kml/kml_geometry.m	(revision 6455)
@@ -42,8 +42,8 @@
                             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
@@ -68,4 +68,34 @@
                 if strcmp(class(kml),'kml_geometry')
                     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
Index: /issm/trunk/src/m/kml/kml_linearring.m
===================================================================
--- /issm/trunk/src/m/kml/kml_linearring.m	(revision 6454)
+++ /issm/trunk/src/m/kml/kml_linearring.m	(revision 6455)
@@ -50,8 +50,8 @@
                             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
@@ -77,4 +77,34 @@
                 disp(sprintf('        coords: %s %s\n' ,string_size(kml(i).coords),...
                              class(kml(i).coords)));
+            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
 
Index: /issm/trunk/src/m/kml/kml_linestring.m
===================================================================
--- /issm/trunk/src/m/kml/kml_linestring.m	(revision 6454)
+++ /issm/trunk/src/m/kml/kml_linestring.m	(revision 6455)
@@ -50,8 +50,8 @@
                             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
@@ -77,4 +77,34 @@
                 disp(sprintf('        coords: %s %s\n' ,string_size(kml(i).coords),...
                              class(kml(i).coords)));
+            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
 
Index: /issm/trunk/src/m/kml/kml_linestyle.m
===================================================================
--- /issm/trunk/src/m/kml/kml_linestyle.m	(revision 6454)
+++ /issm/trunk/src/m/kml/kml_linestyle.m	(revision 6455)
@@ -46,8 +46,8 @@
                             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
@@ -69,4 +69,34 @@
                 disp@kml_colorstyle(kml(i));
                 disp(sprintf('         width: %d\n'    ,kml(i).width));
+            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
 
Index: /issm/trunk/src/m/kml/kml_multigeometry.m
===================================================================
--- /issm/trunk/src/m/kml/kml_multigeometry.m	(revision 6454)
+++ /issm/trunk/src/m/kml/kml_multigeometry.m	(revision 6455)
@@ -44,8 +44,8 @@
                             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
@@ -54,4 +54,34 @@
                     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
 
Index: /issm/trunk/src/m/kml/kml_object.m
===================================================================
--- /issm/trunk/src/m/kml/kml_object.m	(revision 6454)
+++ /issm/trunk/src/m/kml/kml_object.m	(revision 6455)
@@ -41,8 +41,8 @@
                             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
@@ -69,4 +69,34 @@
                 else
                     disp(sprintf('            id: ''%s'''  ,kml(i).id));
+                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
Index: /issm/trunk/src/m/kml/kml_placemark.m
===================================================================
--- /issm/trunk/src/m/kml/kml_placemark.m	(revision 6454)
+++ /issm/trunk/src/m/kml/kml_placemark.m	(revision 6455)
@@ -51,8 +51,8 @@
                             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,4 +75,34 @@
                 disp(sprintf('      geometry: %s %s\n' ,string_size(kml(i).geometry),...
                              class(kml(i).geometry)));
+            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
 
Index: /issm/trunk/src/m/kml/kml_polygon.m
===================================================================
--- /issm/trunk/src/m/kml/kml_polygon.m	(revision 6454)
+++ /issm/trunk/src/m/kml/kml_polygon.m	(revision 6455)
@@ -52,8 +52,8 @@
                             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
@@ -81,4 +81,34 @@
                 disp(sprintf('         inner: %s %s\n' ,string_size(kml(i).inner),...
                              class(kml(i).inner)));
+            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
 
Index: /issm/trunk/src/m/kml/kml_polystyle.m
===================================================================
--- /issm/trunk/src/m/kml/kml_polystyle.m	(revision 6454)
+++ /issm/trunk/src/m/kml/kml_polystyle.m	(revision 6455)
@@ -48,8 +48,8 @@
                             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
@@ -72,4 +72,34 @@
                 disp(sprintf('          fill: %d'      ,kml(i).fill));
                 disp(sprintf('       outline: %d\n'    ,kml(i).outline));
+            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
 
Index: /issm/trunk/src/m/kml/kml_style.m
===================================================================
--- /issm/trunk/src/m/kml/kml_style.m	(revision 6454)
+++ /issm/trunk/src/m/kml/kml_style.m	(revision 6455)
@@ -58,8 +58,8 @@
                             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
@@ -92,4 +92,34 @@
                 disp(sprintf('          list: %s %s\n' ,string_size(kml(i).list),...
                              class(kml(i).list)));
+            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
 
Index: /issm/trunk/src/m/kml/kml_styleselector.m
===================================================================
--- /issm/trunk/src/m/kml/kml_styleselector.m	(revision 6454)
+++ /issm/trunk/src/m/kml/kml_styleselector.m	(revision 6455)
@@ -42,8 +42,8 @@
                             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
@@ -68,4 +68,34 @@
                 if strcmp(class(kml),'kml_styleselector')
                     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
Index: /issm/trunk/src/m/kml/kml_substyle.m
===================================================================
--- /issm/trunk/src/m/kml/kml_substyle.m	(revision 6454)
+++ /issm/trunk/src/m/kml/kml_substyle.m	(revision 6455)
@@ -42,8 +42,8 @@
                             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
@@ -68,4 +68,34 @@
                 if strcmp(class(kml),'kml_substyle')
                     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