Fix uicontrol display. 56/11056/3
Vincent COUVERT [Wed, 27 Mar 2013 14:31:12 +0000 (15:31 +0100)]
To test: test_run("string", "bug_12291") (must still pass)

f = figure();
latexLabel=uicontrol(f,'Style','text','string',"$\text{Text: }\Gamma(s)=\int_0^\infty t^{s-1}\mathrm{e}^{-t}\,\mathrm{d}t$"); latexLabel.fontsize=15;
latexLabel

Check you do not get any error message.

Change-Id: I23f5dc0a22b958b3ca5732889cb4ff4057888ee4

scilab/modules/graphics/macros/%h_p.sci

index 46e3ad6..61f3f8c 100644 (file)
 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
 function %h_p(h)
-    if size(h,'*')>1 then
-            T=matrix(h.type,size(h))
-            t=''
+    if size(h,"*")>1 then
+        T=matrix(h.type,size(h))
+        t=""
         for k=1:size(h,2)
             t=t+part(T(:,k),1:max(length(T(:,k)))+1)
         end
-        t1=string(size(h,1))+' by '+string(size(h,2))+' matrix of handles:'
-        t1=[t1;part('=',ones(1,length(t1)))]
+        t1=string(size(h,1))+" by "+string(size(h,2))+" matrix of handles:"
+        t1=[t1;part("=",ones(1,length(t1)))]
         t=[t1;t]
     else
         if (h.type=="Waitbar" | h.type=="Progressionbar")
             t="Handle of type """+h.type+"""";
         else
             t="Handle of type """+h.type+""" with properties:"
-            t=[t;part('=',ones(1,length(t)))]
+            t=[t;part("=",ones(1,length(t)))]
         end
 
         select h.type
 
-        // Polyline
-        // =====================================================================
+            // Polyline
+            // =====================================================================
 
         case "Polyline"
 
-            if size(h.data,'*') > 10 then
-                d="matrix "+strcat(string(size(h.data)),'x')
+            if size(h.data,"*") > 10 then
+                d="matrix "+strcat(string(size(h.data)),"x")
             else
                 d=sci2exp(h.data,0)
-                if length(d)>70 then d="matrix "+strcat(string(size(h.data)),'x'),end
+                if length(d)>70 then d="matrix "+strcat(string(size(h.data)),"x"),end
             end
 
-            if size(h.x_shift,'*') > 10 then
-                bxs="matrix "+strcat(string(size(h.x_shift)),'x')
+            if size(h.x_shift,"*") > 10 then
+                bxs="matrix "+strcat(string(size(h.x_shift)),"x")
             else
                 bxs=sci2exp(h.x_shift,0)
-                if length(bxs)>70 then bxs="matrix "+strcat(string(size(h.x_shift)),'x'),end
+                if length(bxs)>70 then bxs="matrix "+strcat(string(size(h.x_shift)),"x"),end
             end
 
-            if size(h.y_shift,'*') > 10 then
-                bys="matrix "+strcat(string(size(h.y_shift)),'x')
+            if size(h.y_shift,"*") > 10 then
+                bys="matrix "+strcat(string(size(h.y_shift)),"x")
             else
                 bys=sci2exp(h.y_shift,0)
-                if length(bys)>70 then bys="matrix "+strcat(string(size(h.y_shift)),'x'),end
+                if length(bys)>70 then bys="matrix "+strcat(string(size(h.y_shift)),"x"),end
             end
 
-            if size(h.z_shift,'*') > 10 then
-                bzs="matrix "+strcat(string(size(h.z_shift)),'x')
+            if size(h.z_shift,"*") > 10 then
+                bzs="matrix "+strcat(string(size(h.z_shift)),"x")
             else
                 bzs=sci2exp(h.z_shift,0)
-                if length(bzs)>70 then bzs="matrix "+strcat(string(size(h.z_shift)),'x'),end
+                if length(bzs)>70 then bzs="matrix "+strcat(string(size(h.z_shift)),"x"),end
             end
 
             u=h.user_data;
             t=[t;
-                "parent: "+h.parent.type
-                "children: "+fmtchildren(h.children)
-                "visible = "+sci2exp(h.visible)
-                "data = "+d
-                "closed = "+sci2exp(h.closed)
-                "line_mode = "+sci2exp(h.line_mode)
-                "fill_mode = "+sci2exp(h.fill_mode)
-                "line_style = "+string(h.line_style)
-                "thickness = "+string(h.thickness)
-                "arrow_size_factor = "+string(h.arrow_size_factor)
-                "polyline_style = "+string(h.polyline_style)
-                "foreground = "+string(h.foreground)
-                "background = "+string(h.background)
-                "interp_color_vector = "+sci2exp(h.interp_color_vector)
-                "interp_color_mode = "+sci2exp(h.interp_color_mode)
-                "mark_mode = "+sci2exp(h.mark_mode)
-                "mark_style = "+sci2exp(h.mark_style)
-                "mark_size_unit = "+sci2exp(h.mark_size_unit)
-                "mark_size = "+string(h.mark_size)
-                "mark_foreground = "+string(h.mark_foreground)
-                "mark_background = "+string(h.mark_background)
-                "x_shift = "+bxs
-                "y_shift = "+bys
-                "z_shift = "+bzs
-                "bar_width = "+sci2exp(h.bar_width)
-                "clip_state = "+sci2exp(h.clip_state)
-                "clip_box = "+sci2exp(h.clip_box)
-                "user_data = "+fmtuser_data(u)
-                "tag = "+h.tag
+            "parent: "+h.parent.type
+            "children: "+fmtchildren(h.children)
+            "visible = "+sci2exp(h.visible)
+            "data = "+d
+            "closed = "+sci2exp(h.closed)
+            "line_mode = "+sci2exp(h.line_mode)
+            "fill_mode = "+sci2exp(h.fill_mode)
+            "line_style = "+string(h.line_style)
+            "thickness = "+string(h.thickness)
+            "arrow_size_factor = "+string(h.arrow_size_factor)
+            "polyline_style = "+string(h.polyline_style)
+            "foreground = "+string(h.foreground)
+            "background = "+string(h.background)
+            "interp_color_vector = "+sci2exp(h.interp_color_vector)
+            "interp_color_mode = "+sci2exp(h.interp_color_mode)
+            "mark_mode = "+sci2exp(h.mark_mode)
+            "mark_style = "+sci2exp(h.mark_style)
+            "mark_size_unit = "+sci2exp(h.mark_size_unit)
+            "mark_size = "+string(h.mark_size)
+            "mark_foreground = "+string(h.mark_foreground)
+            "mark_background = "+string(h.mark_background)
+            "x_shift = "+bxs
+            "y_shift = "+bys
+            "z_shift = "+bzs
+            "bar_width = "+sci2exp(h.bar_width)
+            "clip_state = "+sci2exp(h.clip_state)
+            "clip_box = "+sci2exp(h.clip_box)
+            "user_data = "+fmtuser_data(u)
+            "tag = "+h.tag
             ]
 
-        // Compound
-        // =====================================================================
+            // Compound
+            // =====================================================================
 
         case "Compound"
             u=h.user_data
             t=[t;
-                "parent: "+h.parent.type
-                "children: "+fmtchildren(h.children)
-                "visible = "+sci2exp(h.visible)
-                "user_data = "+fmtuser_data(u)
-                "tag = "+h.tag
-                ]
+            "parent: "+h.parent.type
+            "children: "+fmtchildren(h.children)
+            "visible = "+sci2exp(h.visible)
+            "user_data = "+fmtuser_data(u)
+            "tag = "+h.tag
+            ]
 
-        // Axes
-        // =====================================================================
+            // Axes
+            // =====================================================================
 
         case "Axes"
 
             T=h.x_ticks
-            if size(T.locations,'*')>9 then
-                locx="matrix "+strcat(string(size(T.locations)),'x')
-                labx="matrix "+strcat(string(size(T.labels)),'x')
+            if size(T.locations,"*")>9 then
+                locx="matrix "+strcat(string(size(T.locations)),"x")
+                labx="matrix "+strcat(string(size(T.labels)),"x")
             else
                 locx=sci2exp(T.locations,0)
                 labx=sci2exp(T.labels,0)
-                if length(locx)>70 then locx="matrix "+strcat(string(size(T.locations)),'x'), end
-                if length(labx)>70 then labx="matrix "+strcat(string(size(T.labels)),'x'), end
+                if length(locx)>70 then locx="matrix "+strcat(string(size(T.locations)),"x"), end
+                if length(labx)>70 then labx="matrix "+strcat(string(size(T.labels)),"x"), end
             end
 
             T=h.y_ticks
-            if size(T.locations,'*')>9 then
-                locy="matrix "+strcat(string(size(T.locations)),'x')
-                laby="matrix "+strcat(string(size(T.labels)),'x')
+            if size(T.locations,"*")>9 then
+                locy="matrix "+strcat(string(size(T.locations)),"x")
+                laby="matrix "+strcat(string(size(T.labels)),"x")
             else
                 locy=sci2exp(T.locations,0)
                 laby=sci2exp(T.labels,0)
-                if length(locy)>70 then locx="matrix "+strcat(string(size(T.locations)),'x'), end
-                if length(laby)>70 then labx="matrix "+strcat(string(size(T.labels)),'x'), end
+                if length(locy)>70 then locx="matrix "+strcat(string(size(T.locations)),"x"), end
+                if length(laby)>70 then labx="matrix "+strcat(string(size(T.labels)),"x"), end
             end
 
             T=h.z_ticks
-            if size(T.locations,'*')>9 then
-                locz="matrix "+strcat(string(size(T.locations)),'x')
-                labz="matrix "+strcat(string(size(T.labels)),'x')
+            if size(T.locations,"*")>9 then
+                locz="matrix "+strcat(string(size(T.locations)),"x")
+                labz="matrix "+strcat(string(size(T.labels)),"x")
             else
                 locz=sci2exp(T.locations,0)
                 labz=sci2exp(T.labels,0)
-                if length(locz)>70 then locx="matrix "+strcat(string(size(T.locations)),'x'), end
-                if length(labz)>70 then labx="matrix "+strcat(string(size(T.labels)),'x'), end
+                if length(locz)>70 then locx="matrix "+strcat(string(size(T.locations)),"x"), end
+                if length(labz)>70 then labx="matrix "+strcat(string(size(T.labels)),"x"), end
             end
 
             u=h.user_data
             t=[t;
-                "parent: "+h.parent.type
-                "children: "+fmtchildren(h.children)
-                " "
-                "visible = "+sci2exp(h.visible)
-                "axes_visible = "+sci2exp(h.axes_visible)
-                "axes_reverse = "+sci2exp(h.axes_reverse)
-                "grid = "+sci2exp(h.grid,0)
-                "grid_position = "+sci2exp(h.grid_position)
-                "x_location = "+sci2exp(h.x_location)
-                "y_location = "+sci2exp(h.y_location)
-                "title: "+fmtchildren(h.title)
-                "x_label: "+fmtchildren(h.x_label)
-                "y_label: "+fmtchildren(h.y_label)
-                "z_label: "+fmtchildren(h.z_label)
-                "auto_ticks = "+sci2exp(h.auto_ticks)
-                "x_ticks.locations = "+locx
-                "y_ticks.locations = "+locy
-                "z_ticks.locations = "+locz
-                "x_ticks.labels = "+labx
-                "y_ticks.labels = "+laby
-                "z_ticks.labels = "+labz
-                "box = "+sci2exp(h.box)
-                "filled = " + sci2exp(h.filled)
-                "sub_ticks = "+sci2exp(h.sub_ticks,0)
-                "font_style = "+string(h.font_style)
-                "font_size = "+string(h.font_size)
-                "font_color = "+string(h.font_color)
-                "fractional_font = " + sci2exp(h.fractional_font)
-                " "
-                "isoview = "+sci2exp(h.isoview)
-                "cube_scaling = "+sci2exp(h.cube_scaling)
-                "view = "+sci2exp(h.view)
-                "rotation_angles = "+sci2exp(h.rotation_angles,0)
-                "log_flags = "+sci2exp(h.log_flags)
-                "tight_limits = "+sci2exp(h.tight_limits)
-                "data_bounds = "+sci2exp(h.data_bounds,0)
-                "zoom_box = "+sci2exp(h.zoom_box,0)
-                "margins = "+sci2exp(h.margins,0)
-                "axes_bounds = "+sci2exp(h.axes_bounds,0)
-                " "
-                "auto_clear = "+sci2exp(h.auto_clear)
-                "auto_scale = "+sci2exp(h.auto_scale)
-                " "
-                "hidden_axis_color = " + string(h.hidden_axis_color);
-                "hiddencolor = "+string(h.hiddencolor)
-                "line_mode = "+sci2exp(h.line_mode)
-                "line_style = "+string(h.line_style)
-                "thickness = "+string(h.thickness)
-                "mark_mode = "+sci2exp(h.mark_mode)
-                "mark_style = "+sci2exp(h.mark_style,0)
-                "mark_size_unit = "+sci2exp(h.mark_size_unit)
-                "mark_size = "+sci2exp(h.mark_size,0)
-                "mark_foreground = "+string(h.mark_foreground)
-                "mark_background = "+string(h.mark_background)
-                "foreground = "+string(h.foreground)
-                "background = "+string(h.background)
-                "arc_drawing_method = " + sci2exp(h.arc_drawing_method)
-                "clip_state = "+sci2exp(h.clip_state)
-                "clip_box = "+sci2exp(h.clip_box,0)
-                "user_data = "+fmtuser_data(h.user_data)
-                "tag = "+h.tag
+            "parent: "+h.parent.type
+            "children: "+fmtchildren(h.children)
+            " "
+            "visible = "+sci2exp(h.visible)
+            "axes_visible = "+sci2exp(h.axes_visible)
+            "axes_reverse = "+sci2exp(h.axes_reverse)
+            "grid = "+sci2exp(h.grid,0)
+            "grid_position = "+sci2exp(h.grid_position)
+            "x_location = "+sci2exp(h.x_location)
+            "y_location = "+sci2exp(h.y_location)
+            "title: "+fmtchildren(h.title)
+            "x_label: "+fmtchildren(h.x_label)
+            "y_label: "+fmtchildren(h.y_label)
+            "z_label: "+fmtchildren(h.z_label)
+            "auto_ticks = "+sci2exp(h.auto_ticks)
+            "x_ticks.locations = "+locx
+            "y_ticks.locations = "+locy
+            "z_ticks.locations = "+locz
+            "x_ticks.labels = "+labx
+            "y_ticks.labels = "+laby
+            "z_ticks.labels = "+labz
+            "box = "+sci2exp(h.box)
+            "filled = " + sci2exp(h.filled)
+            "sub_ticks = "+sci2exp(h.sub_ticks,0)
+            "font_style = "+string(h.font_style)
+            "font_size = "+string(h.font_size)
+            "font_color = "+string(h.font_color)
+            "fractional_font = " + sci2exp(h.fractional_font)
+            " "
+            "isoview = "+sci2exp(h.isoview)
+            "cube_scaling = "+sci2exp(h.cube_scaling)
+            "view = "+sci2exp(h.view)
+            "rotation_angles = "+sci2exp(h.rotation_angles,0)
+            "log_flags = "+sci2exp(h.log_flags)
+            "tight_limits = "+sci2exp(h.tight_limits)
+            "data_bounds = "+sci2exp(h.data_bounds,0)
+            "zoom_box = "+sci2exp(h.zoom_box,0)
+            "margins = "+sci2exp(h.margins,0)
+            "axes_bounds = "+sci2exp(h.axes_bounds,0)
+            " "
+            "auto_clear = "+sci2exp(h.auto_clear)
+            "auto_scale = "+sci2exp(h.auto_scale)
+            " "
+            "hidden_axis_color = " + string(h.hidden_axis_color);
+            "hiddencolor = "+string(h.hiddencolor)
+            "line_mode = "+sci2exp(h.line_mode)
+            "line_style = "+string(h.line_style)
+            "thickness = "+string(h.thickness)
+            "mark_mode = "+sci2exp(h.mark_mode)
+            "mark_style = "+sci2exp(h.mark_style,0)
+            "mark_size_unit = "+sci2exp(h.mark_size_unit)
+            "mark_size = "+sci2exp(h.mark_size,0)
+            "mark_foreground = "+string(h.mark_foreground)
+            "mark_background = "+string(h.mark_background)
+            "foreground = "+string(h.foreground)
+            "background = "+string(h.background)
+            "arc_drawing_method = " + sci2exp(h.arc_drawing_method)
+            "clip_state = "+sci2exp(h.clip_state)
+            "clip_box = "+sci2exp(h.clip_box,0)
+            "user_data = "+fmtuser_data(h.user_data)
+            "tag = "+h.tag
             ]
 
-        // Legend
-        // =====================================================================
+            // Legend
+            // =====================================================================
 
         case "Legend"
-          t=[t;
-              "parent: "+h.parent.type
-              "children: "+fmtchildren(h.children)
-              "visible = "+sci2exp(h.visible)
-              "text = "+sci2exp(h.text)
-              "font_style = "+string(h.font_style)
-              "font_size = "+string(h.font_size)
-              "font_color = "+string(h.font_color)
-              "fractional_font = " + sci2exp(h.fractional_font)
-              "links = " +  fmtchildren(h.links)
-              "legend_location = " + sci2exp(h.legend_location)
-              "position = " + sci2exp(h.position)
-              "line_mode = "+sci2exp(h.line_mode)
-              "thickness = "+string(h.thickness)
-              "foreground = "+string(h.foreground)
-              "fill_mode = "+sci2exp(h.fill_mode)
-              "background = "+string(h.background)
-              "clip_state = "+sci2exp(h.clip_state)
-              "clip_box = "+sci2exp(h.clip_box,0)
-              "user_data = "+fmtuser_data(h.user_data)
-              "tag = "+h.tag
-              ]
-
-        // Rectangle
-        // =====================================================================
+            t=[t;
+            "parent: "+h.parent.type
+            "children: "+fmtchildren(h.children)
+            "visible = "+sci2exp(h.visible)
+            "text = "+sci2exp(h.text)
+            "font_style = "+string(h.font_style)
+            "font_size = "+string(h.font_size)
+            "font_color = "+string(h.font_color)
+            "fractional_font = " + sci2exp(h.fractional_font)
+            "links = " +  fmtchildren(h.links)
+            "legend_location = " + sci2exp(h.legend_location)
+            "position = " + sci2exp(h.position)
+            "line_mode = "+sci2exp(h.line_mode)
+            "thickness = "+string(h.thickness)
+            "foreground = "+string(h.foreground)
+            "fill_mode = "+sci2exp(h.fill_mode)
+            "background = "+string(h.background)
+            "clip_state = "+sci2exp(h.clip_state)
+            "clip_box = "+sci2exp(h.clip_box,0)
+            "user_data = "+fmtuser_data(h.user_data)
+            "tag = "+h.tag
+            ]
+
+            // Rectangle
+            // =====================================================================
 
         case "Rectangle"
             u=h.user_data
             t=[t;
-                "parent: "+h.parent.type
-                "children: "+fmtchildren(h.children)
-                "mark_mode = "+sci2exp(h.mark_mode)
-                "mark_style = "+string(h.mark_style)
-                "mark_size_unit = "+sci2exp(h.mark_size_unit)
-                "mark_size = "+string(h.mark_size)
-                "mark_foreground = "+string(h.mark_foreground)
-                "mark_background = "+string(h.mark_background)
-                "line_mode = "+sci2exp(h.line_mode)
-                "fill_mode = "+sci2exp(h.fill_mode)
-                "line_style = "+string(h.line_style)
-                "thickness = "+string(h.thickness)
-                "foreground = "+string(h.foreground)
-                "background = "+string(h.background)
-                "data = "+sci2exp(h.data,0)
-                "visible = "+sci2exp(h.visible)
-                "clip_state = "+sci2exp(h.clip_state)
-                "clip_box = "+sci2exp(h.clip_box,0)
-                "user_data = "+fmtuser_data(u)
-                "tag = "+h.tag
+            "parent: "+h.parent.type
+            "children: "+fmtchildren(h.children)
+            "mark_mode = "+sci2exp(h.mark_mode)
+            "mark_style = "+string(h.mark_style)
+            "mark_size_unit = "+sci2exp(h.mark_size_unit)
+            "mark_size = "+string(h.mark_size)
+            "mark_foreground = "+string(h.mark_foreground)
+            "mark_background = "+string(h.mark_background)
+            "line_mode = "+sci2exp(h.line_mode)
+            "fill_mode = "+sci2exp(h.fill_mode)
+            "line_style = "+string(h.line_style)
+            "thickness = "+string(h.thickness)
+            "foreground = "+string(h.foreground)
+            "background = "+string(h.background)
+            "data = "+sci2exp(h.data,0)
+            "visible = "+sci2exp(h.visible)
+            "clip_state = "+sci2exp(h.clip_state)
+            "clip_box = "+sci2exp(h.clip_box,0)
+            "user_data = "+fmtuser_data(u)
+            "tag = "+h.tag
             ]
 
-        // Arc
-        // =====================================================================
+            // Arc
+            // =====================================================================
 
         case "Arc"
             u=h.user_data
             t=[t;
-                "parent: "+h.parent.type
-                "children: "+fmtchildren(h.children)
-                "thickness = "+string(h.thickness)
-                "line_style = "+string(h.line_style)
-                "line_mode = "+sci2exp(h.line_mode)
-                "fill_mode = "+sci2exp(h.fill_mode)
-                "foreground = "+string(h.foreground)
-                "background = "+string(h.background)
-                "data = "+sci2exp(h.data,0)
-                "visible = "+sci2exp(h.visible)
-                "arc_drawing_method = " + sci2exp(h.arc_drawing_method)
-                "clip_state = "+sci2exp(h.clip_state)
-                "clip_box = "+sci2exp(h.clip_box,0)
-                "user_data = "+fmtuser_data(u)
-                "tag = "+h.tag
+            "parent: "+h.parent.type
+            "children: "+fmtchildren(h.children)
+            "thickness = "+string(h.thickness)
+            "line_style = "+string(h.line_style)
+            "line_mode = "+sci2exp(h.line_mode)
+            "fill_mode = "+sci2exp(h.fill_mode)
+            "foreground = "+string(h.foreground)
+            "background = "+string(h.background)
+            "data = "+sci2exp(h.data,0)
+            "visible = "+sci2exp(h.visible)
+            "arc_drawing_method = " + sci2exp(h.arc_drawing_method)
+            "clip_state = "+sci2exp(h.clip_state)
+            "clip_box = "+sci2exp(h.clip_box,0)
+            "user_data = "+fmtuser_data(u)
+            "tag = "+h.tag
             ]
 
-        // Figure
-        // =====================================================================
+            // Figure
+            // =====================================================================
 
         case "Figure"
             u=h.user_data
             t=[t;
-                "children: "+fmtchildren(h.children)
-                "figure_position = "+sci2exp(h.figure_position,0)
-                "figure_size = "+sci2exp(h.figure_size,0)
-                "axes_size = "+sci2exp(h.axes_size,0)
-                "auto_resize = "+sci2exp(h.auto_resize)
-                "viewport = "+sci2exp(h.viewport)
-                "figure_name = "+sci2exp(h.figure_name,0)
-                "figure_id = "+sci2exp(h.figure_id,0)
-                "info_message = "+sci2exp(h.info_message)
-                "color_map = matrix "+strcat(string(size(h.color_map)),'x')
-                "pixmap = "+sci2exp(h.pixmap)
-                "pixel_drawing_mode = "+sci2exp(h.pixel_drawing_mode,0)
-                "anti_aliasing = " + sci2exp(h.anti_aliasing)
-                "immediate_drawing = "+sci2exp(h.immediate_drawing)
-                "background =  "+string(h.background)
-                "visible = "+sci2exp(h.visible)
-                "rotation_style = "+sci2exp(h.rotation_style)
-                "event_handler = " + sci2exp( h.event_handler ) ;
-                "event_handler_enable = " + sci2exp( h.event_handler_enable ) ;
-                "user_data = "+fmtuser_data(u)
-                "resizefcn = "+sci2exp(h.resizefcn)
-                "closerequestfcn = "+sci2exp(h.closerequestfcn)
-                "tag = "+sci2exp(h.tag)
+            "children: "+fmtchildren(h.children)
+            "figure_position = "+sci2exp(h.figure_position,0)
+            "figure_size = "+sci2exp(h.figure_size,0)
+            "axes_size = "+sci2exp(h.axes_size,0)
+            "auto_resize = "+sci2exp(h.auto_resize)
+            "viewport = "+sci2exp(h.viewport)
+            "figure_name = "+sci2exp(h.figure_name,0)
+            "figure_id = "+sci2exp(h.figure_id,0)
+            "info_message = "+sci2exp(h.info_message)
+            "color_map = matrix "+strcat(string(size(h.color_map)),"x")
+            "pixmap = "+sci2exp(h.pixmap)
+            "pixel_drawing_mode = "+sci2exp(h.pixel_drawing_mode,0)
+            "anti_aliasing = " + sci2exp(h.anti_aliasing)
+            "immediate_drawing = "+sci2exp(h.immediate_drawing)
+            "background =  "+string(h.background)
+            "visible = "+sci2exp(h.visible)
+            "rotation_style = "+sci2exp(h.rotation_style)
+            "event_handler = " + sci2exp( h.event_handler ) ;
+            "event_handler_enable = " + sci2exp( h.event_handler_enable ) ;
+            "user_data = "+fmtuser_data(u)
+            "resizefcn = "+sci2exp(h.resizefcn)
+            "closerequestfcn = "+sci2exp(h.closerequestfcn)
+            "tag = "+sci2exp(h.tag)
             ]
 
-        // Grayplot
-        // =====================================================================
+            // Grayplot
+            // =====================================================================
 
         case "Grayplot"
             Data = h.data
-            if size(Data.x,'*') > 10 then
-                dx="matrix "+strcat(string(size(Data.x)),'x')
+            if size(Data.x,"*") > 10 then
+                dx="matrix "+strcat(string(size(Data.x)),"x")
             else
                 dx=sci2exp(Data.x,0)
-                if length(dx)>70 then d="matrix "+strcat(string(size(Data.x)),'x'),end
+                if length(dx)>70 then d="matrix "+strcat(string(size(Data.x)),"x"),end
             end
 
-            if size(Data.y,'*') > 10 then
-                dy="matrix "+strcat(string(size(Data.y)),'x')
+            if size(Data.y,"*") > 10 then
+                dy="matrix "+strcat(string(size(Data.y)),"x")
             else
                 dy=sci2exp(Data.y,0)
-                if length(dy)>70 then d="matrix "+strcat(string(size(Data.y)),'x'),end
+                if length(dy)>70 then d="matrix "+strcat(string(size(Data.y)),"x"),end
             end
 
-            if size(Data.z,'*') > 10 then
-                dz="matrix "+strcat(string(size(Data.z)),'x')
+            if size(Data.z,"*") > 10 then
+                dz="matrix "+strcat(string(size(Data.z)),"x")
             else
                 dz=sci2exp(Data.z,0)
-                if length(dz)>70 then d="matrix "+strcat(string(size(Data.z)),'x'),end
+                if length(dz)>70 then d="matrix "+strcat(string(size(Data.z)),"x"),end
             end
 
             u=h.user_data
             t=[t;
-                "parent: "+h.parent.type
-                "children: "+fmtchildren(h.children)
-                "visible = "+sci2exp(h.visible)
-                "data.x = "+dx
-                "data.y = "+dy
-                "data.z = "+dz
-                "data_mapping = "+sci2exp(h.data_mapping)
-                "clip_state = "+sci2exp(h.clip_state)
-                "clip_box = "+sci2exp(h.clip_box,0)
-                "user_data = "+fmtuser_data(u)
-                "tag = "+h.tag
+            "parent: "+h.parent.type
+            "children: "+fmtchildren(h.children)
+            "visible = "+sci2exp(h.visible)
+            "data.x = "+dx
+            "data.y = "+dy
+            "data.z = "+dz
+            "data_mapping = "+sci2exp(h.data_mapping)
+            "clip_state = "+sci2exp(h.clip_state)
+            "clip_box = "+sci2exp(h.clip_box,0)
+            "user_data = "+fmtuser_data(u)
+            "tag = "+h.tag
             ]
 
-        // Matplot
-        // =====================================================================
+            // Matplot
+            // =====================================================================
 
 
         case "Matplot"
-            if size(h.data,'*') > 10 then
-                d="matrix "+strcat(string(size(h.data)),'x')
+            if size(h.data,"*") > 10 then
+                d="matrix "+strcat(string(size(h.data)),"x")
             else
                 d=sci2exp(h.data,0)
-                if length(d)>70 then d="matrix "+strcat(string(size(h.data)),'x'),end
+                if length(d)>70 then d="matrix "+strcat(string(size(h.data)),"x"),end
             end
             u=h.user_data
             t=[t;
-                "parent: "+h.parent.type
-                "children: "+fmtchildren(h.children)
-                "visible = "+sci2exp(h.visible)
-                "data = "+d
-                "clip_state = "+sci2exp(h.clip_state)
-                "clip_box = "+sci2exp(h.clip_box,0)
-                "user_data = "+fmtuser_data(u)
-                "tag = "+h.tag
+            "parent: "+h.parent.type
+            "children: "+fmtchildren(h.children)
+            "visible = "+sci2exp(h.visible)
+            "data = "+d
+            "clip_state = "+sci2exp(h.clip_state)
+            "clip_box = "+sci2exp(h.clip_box,0)
+            "user_data = "+fmtuser_data(u)
+            "tag = "+h.tag
             ]
 
-        // Fec
-        // =====================================================================
+            // Fec
+            // =====================================================================
         case "Fec"
             u=h.user_data
-            if size(h.data,'*') > 10 then
-                d="matrix "+strcat(string(size(h.data)),'x')
+            if size(h.data,"*") > 10 then
+                d="matrix "+strcat(string(size(h.data)),"x")
             else
                 d=sci2exp(h.data,0)
-                if length(d)>70 then d="matrix "+strcat(string(size(h.data)),'x'),end
+                if length(d)>70 then d="matrix "+strcat(string(size(h.data)),"x"),end
             end
 
-            if size(h.triangles,'*') > 10 then
-                f="matrix "+strcat(string(size(h.triangles)),'x')
+            if size(h.triangles,"*") > 10 then
+                f="matrix "+strcat(string(size(h.triangles)),"x")
             else
                 f=sci2exp(h.triangles,0)
-                if length(f)>70 then f="matrix "+strcat(string(size(h.triangles)),'x'),end
+                if length(f)>70 then f="matrix "+strcat(string(size(h.triangles)),"x"),end
             end
 
             t=[t;
-                "parent: "+h.parent.type
-                "children: "+fmtchildren(h.children)
-                "visible = "+sci2exp(h.visible)
-                "data = "+d
-                "triangles = "+f
-                "z_bounds = "+sci2exp(h.z_bounds,0)
-                "color_range = " + sci2exp(h.color_range, 0);
-                "outside_colors = " + sci2exp(h.outside_colors, 0);
-                "line_mode = " + sci2exp(h.line_mode);
-                "foreground = " + sci2exp(h.foreground);
-                "clip_state = "+sci2exp(h.clip_state)
-                "clip_box = "+sci2exp(h.clip_box,0)
-                "user_data = "+fmtuser_data(u)
-                "tag = "+h.tag
+            "parent: "+h.parent.type
+            "children: "+fmtchildren(h.children)
+            "visible = "+sci2exp(h.visible)
+            "data = "+d
+            "triangles = "+f
+            "z_bounds = "+sci2exp(h.z_bounds,0)
+            "color_range = " + sci2exp(h.color_range, 0);
+            "outside_colors = " + sci2exp(h.outside_colors, 0);
+            "line_mode = " + sci2exp(h.line_mode);
+            "foreground = " + sci2exp(h.foreground);
+            "clip_state = "+sci2exp(h.clip_state)
+            "clip_box = "+sci2exp(h.clip_box,0)
+            "user_data = "+fmtuser_data(u)
+            "tag = "+h.tag
             ]
 
-        // Segs
-        // =====================================================================
+            // Segs
+            // =====================================================================
 
         case "Segs"
-            if size(h.data,'*') > 10 then
-                d="matrix "+strcat(string(size(h.data)),'x')
+            if size(h.data,"*") > 10 then
+                d="matrix "+strcat(string(size(h.data)),"x")
             else
                 d=sci2exp(h.data,0)
-                if length(d)>70 then d="matrix "+strcat(string(size(h.data)),'x'),end
+                if length(d)>70 then d="matrix "+strcat(string(size(h.data)),"x"),end
             end
 
-            if size(h.segs_color,'*') > 10 then
-                c="matrix "+strcat(string(size(h.segs_color)),'x')
+            if size(h.segs_color,"*") > 10 then
+                c="matrix "+strcat(string(size(h.segs_color)),"x")
             else
                 c=sci2exp(h.segs_color,0)
-                if length(c)>70 then c="matrix "+strcat(string(size(h.segs_color)),'x'),end
+                if length(c)>70 then c="matrix "+strcat(string(size(h.segs_color)),"x"),end
             end
 
             u=h.user_data
             t=[t;
-                "parent: "+h.parent.type
-                "children: "+fmtchildren(h.children)
-                "visible = "+sci2exp(h.visible)
-                "data = "+d
-                "line_mode = "+sci2exp(h.line_mode)
-                "line_style = "+string(h.line_style)
-                "thickness = "+string(h.thickness)
-                "arrow_size = "+string(h.arrow_size)
-                "segs_color = "+c
-                "mark_mode = "+sci2exp(h.mark_mode)
-                "mark_style = "+sci2exp(h.mark_style)
-                "mark_size_unit = "+sci2exp(h.mark_size_unit)
-                "mark_size = "+string(h.mark_size)
-                "mark_foreground = "+string(h.mark_foreground)
-                "mark_background = "+string(h.mark_background)
-                "clip_state = "+sci2exp(h.clip_state)
-                "clip_box = "+sci2exp(h.clip_box,0)
-                "user_data = "+fmtuser_data(u)
-                "tag = "+h.tag
+            "parent: "+h.parent.type
+            "children: "+fmtchildren(h.children)
+            "visible = "+sci2exp(h.visible)
+            "data = "+d
+            "line_mode = "+sci2exp(h.line_mode)
+            "line_style = "+string(h.line_style)
+            "thickness = "+string(h.thickness)
+            "arrow_size = "+string(h.arrow_size)
+            "segs_color = "+c
+            "mark_mode = "+sci2exp(h.mark_mode)
+            "mark_style = "+sci2exp(h.mark_style)
+            "mark_size_unit = "+sci2exp(h.mark_size_unit)
+            "mark_size = "+string(h.mark_size)
+            "mark_foreground = "+string(h.mark_foreground)
+            "mark_background = "+string(h.mark_background)
+            "clip_state = "+sci2exp(h.clip_state)
+            "clip_box = "+sci2exp(h.clip_box,0)
+            "user_data = "+fmtuser_data(u)
+            "tag = "+h.tag
             ]
 
-        // Champ
-        // =====================================================================
+            // Champ
+            // =====================================================================
 
         case "Champ"
             Data = h.data
-            if size(Data.x,'*') > 10 then
-                dx="matrix "+strcat(string(size(Data.x)),'x')
+            if size(Data.x,"*") > 10 then
+                dx="matrix "+strcat(string(size(Data.x)),"x")
             else
                 dx=sci2exp(Data.x,0)
-                if length(dx)>70 then d="matrix "+strcat(string(size(Data.x)),'x'),end
+                if length(dx)>70 then d="matrix "+strcat(string(size(Data.x)),"x"),end
             end
 
-            if size(Data.y,'*') > 10 then
-                dy="matrix "+strcat(string(size(Data.y)),'x')
+            if size(Data.y,"*") > 10 then
+                dy="matrix "+strcat(string(size(Data.y)),"x")
             else
                 dy=sci2exp(Data.y,0)
-                if length(dy)>70 then d="matrix "+strcat(string(size(Data.y)),'x'),end
+                if length(dy)>70 then d="matrix "+strcat(string(size(Data.y)),"x"),end
             end
 
-            if size(Data.fx,'*') > 10 then
-                dfx="matrix "+strcat(string(size(Data.fx)),'x')
+            if size(Data.fx,"*") > 10 then
+                dfx="matrix "+strcat(string(size(Data.fx)),"x")
             else
                 dfx=sci2exp(Data.fx,0)
-                if length(dfx)>70 then d="matrix "+strcat(string(size(Data.fx)),'x'),end
+                if length(dfx)>70 then d="matrix "+strcat(string(size(Data.fx)),"x"),end
             end
 
-            if size(Data.fy,'*') > 10 then
-                dfy="matrix "+strcat(string(size(Data.fy)),'x')
+            if size(Data.fy,"*") > 10 then
+                dfy="matrix "+strcat(string(size(Data.fy)),"x")
             else
                 dfy=sci2exp(Data.fy,0)
-                if length(dfy)>70 then d="matrix "+strcat(string(size(Data.fy)),'x'),end
+                if length(dfy)>70 then d="matrix "+strcat(string(size(Data.fy)),"x"),end
             end
 
             u=h.user_data
             t=[t;
-                "parent: "+h.parent.type
-                "children: "+fmtchildren(h.children)
-                "visible = "+sci2exp(h.visible)
-                "data.x = "+dx
-                "data.y = "+dy
-                "data.fx = "+dfx
-                "data.fy = "+dfy
-                "line_style = "+string(h.line_style)
-                "thickness = "+string(h.thickness)
-                "colored = "+sci2exp(h.colored)
-                "arrow_size = "+string(h.arrow_size)
-                "clip_state = "+sci2exp(h.clip_state)
-                "clip_box = "+sci2exp(h.clip_box,0)
-                "user_data = "+fmtuser_data(u)
-                "tag = "+h.tag
+            "parent: "+h.parent.type
+            "children: "+fmtchildren(h.children)
+            "visible = "+sci2exp(h.visible)
+            "data.x = "+dx
+            "data.y = "+dy
+            "data.fx = "+dfx
+            "data.fy = "+dfy
+            "line_style = "+string(h.line_style)
+            "thickness = "+string(h.thickness)
+            "colored = "+sci2exp(h.colored)
+            "arrow_size = "+string(h.arrow_size)
+            "clip_state = "+sci2exp(h.clip_state)
+            "clip_box = "+sci2exp(h.clip_box,0)
+            "user_data = "+fmtuser_data(u)
+            "tag = "+h.tag
             ]
 
-        // Text
-        // =====================================================================
+            // Text
+            // =====================================================================
 
         case "Text"
             u=h.user_data
             T=sci2exp(h.text,0)
-            if length(T)>70 then T="string array "+strcat(string(size(h.text)),'x'),end
+            if length(T)>70 then T="string array "+strcat(string(size(h.text)),"x"),end
             t=[t;
-                "parent: "+h.parent.type
-                "children: "+fmtchildren(h.children)
-                "visible = "+sci2exp(h.visible)
-                "text = "+T
-                "alignment = "+sci2exp(h.alignment) ;
-                "data = "+sci2exp(h.data,0)
-                "box = "+sci2exp(h.box)
-                "line_mode = " + sci2exp(h.line_mode);
-                "fill_mode = " + sci2exp(h.fill_mode);
-                "text_box = "+sci2exp(h.text_box,0)
-                "text_box_mode = "+sci2exp(h.text_box_mode,0)
-                "font_foreground = "+string(h.font_foreground)
-                "foreground = "+string(h.foreground)
-                "background = "+string(h.background)
-                "font_style = "+string(h.font_style)
-                "font_size = "+string(h.font_size)
-                "fractional_font = " + sci2exp(h.fractional_font)
-                "auto_dimensionning = " + sci2exp(h.auto_dimensionning)
-                "font_angle = "+string(h.font_angle)
-                "clip_state = "+sci2exp(h.clip_state)
-                "clip_box = "+sci2exp(h.clip_box,0)
-                "user_data = "+fmtuser_data(u)
-                "tag = "+h.tag
+            "parent: "+h.parent.type
+            "children: "+fmtchildren(h.children)
+            "visible = "+sci2exp(h.visible)
+            "text = "+T
+            "alignment = "+sci2exp(h.alignment) ;
+            "data = "+sci2exp(h.data,0)
+            "box = "+sci2exp(h.box)
+            "line_mode = " + sci2exp(h.line_mode);
+            "fill_mode = " + sci2exp(h.fill_mode);
+            "text_box = "+sci2exp(h.text_box,0)
+            "text_box_mode = "+sci2exp(h.text_box_mode,0)
+            "font_foreground = "+string(h.font_foreground)
+            "foreground = "+string(h.foreground)
+            "background = "+string(h.background)
+            "font_style = "+string(h.font_style)
+            "font_size = "+string(h.font_size)
+            "fractional_font = " + sci2exp(h.fractional_font)
+            "auto_dimensionning = " + sci2exp(h.auto_dimensionning)
+            "font_angle = "+string(h.font_angle)
+            "clip_state = "+sci2exp(h.clip_state)
+            "clip_box = "+sci2exp(h.clip_box,0)
+            "user_data = "+fmtuser_data(u)
+            "tag = "+h.tag
             ]
 
-        // Title
-        // =====================================================================
+            // Title
+            // =====================================================================
 
         case "Title"
             T=sci2exp(h.text,0)
-            if length(T)>70 then T="string array "+strcat(string(size(h.text)),'x'),end
+            if length(T)>70 then T="string array "+strcat(string(size(h.text)),"x"),end
             t=[t;
-                "parent: "+h.parent.type
-                "children: "+fmtchildren(h.children)
-                "visible = "+sci2exp(h.visible)
-                "text = "+T
-                "foreground = "+string(h.foreground)
-                "font_style = "+string(h.font_style)
-                "font_size = "+string(h.font_size)
-                "fractional_font = " + sci2exp(h.fractional_font)
-                "font_angle = "+string(h.font_angle)
-                "tag = "+h.tag
+            "parent: "+h.parent.type
+            "children: "+fmtchildren(h.children)
+            "visible = "+sci2exp(h.visible)
+            "text = "+T
+            "foreground = "+string(h.foreground)
+            "font_style = "+string(h.font_style)
+            "font_size = "+string(h.font_size)
+            "fractional_font = " + sci2exp(h.fractional_font)
+            "font_angle = "+string(h.font_angle)
+            "tag = "+h.tag
             ]
 
-        // Label
-        // =====================================================================
+            // Label
+            // =====================================================================
 
         case "Label"
             T=sci2exp(h.text,0)
-            if length(T)>70 then T="string array "+strcat(string(size(h.text)),'x'),end
+            if length(T)>70 then T="string array "+strcat(string(size(h.text)),"x"),end
             t=[t;
-                "parent: "+h.parent.type
-                "visible = "+sci2exp(h.visible)
-                "text = "+T;
-                "font_foreground = " + string(h.font_foreground) ;
-                "foreground = "+string(h.foreground)
-                "background = "+string(h.background)
-                "fill_mode = "+sci2exp(h.fill_mode)
-                "font_style = "+string(h.font_style)
-                "font_size = "+string(h.font_size)
-                "fractional_font = " + sci2exp(h.fractional_font)
-                "font_angle = "+string(h.font_angle)
-                "auto_position = "+sci2exp(h.auto_position)
-                "position = "+sci2exp(h.position,0)
-                "auto_rotation = "+sci2exp(h.auto_rotation)
-                "tag = "+h.tag
+            "parent: "+h.parent.type
+            "visible = "+sci2exp(h.visible)
+            "text = "+T;
+            "font_foreground = " + string(h.font_foreground) ;
+            "foreground = "+string(h.foreground)
+            "background = "+string(h.background)
+            "fill_mode = "+sci2exp(h.fill_mode)
+            "font_style = "+string(h.font_style)
+            "font_size = "+string(h.font_size)
+            "fractional_font = " + sci2exp(h.fractional_font)
+            "font_angle = "+string(h.font_angle)
+            "auto_position = "+sci2exp(h.auto_position)
+            "position = "+sci2exp(h.position,0)
+            "auto_rotation = "+sci2exp(h.auto_rotation)
+            "tag = "+h.tag
             ]
 
-        // Plot3d
-        // =====================================================================
+            // Plot3d
+            // =====================================================================
         case "Plot3d"
             Data = h.data
-            if size(Data.x,'*') > 10 then
-                dx="matrix "+strcat(string(size(Data.x)),'x')
+            if size(Data.x,"*") > 10 then
+                dx="matrix "+strcat(string(size(Data.x)),"x")
             else
                 dx=sci2exp(Data.x,0)
-                if length(dx)>70 then d="matrix "+strcat(string(size(Data.x)),'x'),end
+                if length(dx)>70 then d="matrix "+strcat(string(size(Data.x)),"x"),end
             end
 
-            if size(Data.y,'*') > 10 then
-                dy="matrix "+strcat(string(size(Data.y)),'x')
+            if size(Data.y,"*") > 10 then
+                dy="matrix "+strcat(string(size(Data.y)),"x")
             else
                 dy=sci2exp(Data.y,0)
-                if length(dy)>70 then d="matrix "+strcat(string(size(Data.y)),'x'),end
+                if length(dy)>70 then d="matrix "+strcat(string(size(Data.y)),"x"),end
             end
 
-            if size(Data.z,'*') > 10 then
-                dz="matrix "+strcat(string(size(Data.z)),'x')
+            if size(Data.z,"*") > 10 then
+                dz="matrix "+strcat(string(size(Data.z)),"x")
             else
                 dz=sci2exp(Data.z,0)
-                if length(dz)>70 then d="matrix "+strcat(string(size(Data.z)),'x'),end
+                if length(dz)>70 then d="matrix "+strcat(string(size(Data.z)),"x"),end
             end
 
             u=h.user_data
 
             if size(Data) == 5 then // There is a color
-                if size(Data.color,'*') > 10 then
-                    dcolor="matrix "+strcat(string(size(Data.color)),'x')
+                if size(Data.color,"*") > 10 then
+                    dcolor="matrix "+strcat(string(size(Data.color)),"x")
                 else
                     dcolor=sci2exp(Data.color,0)
-                    if length(dcolor)>70 then dcolor="matrix "+strcat(string(size(Data.color)),'x'),end
+                    if length(dcolor)>70 then dcolor="matrix "+strcat(string(size(Data.color)),"x"),end
                 end
 
                 t=[t;
-                    "parent: "+h.parent.type
-                    "children: "+fmtchildren(h.children)
-                    "visible = "+sci2exp(h.visible)
-                    "surface_mode = "+sci2exp(h.surface_mode)
-                    "foreground = "+string(h.foreground)
-                    "thickness = "+string(h.thickness)
-                    "mark_mode = "+sci2exp(h.mark_mode)
-                    "mark_style = "+sci2exp(h.mark_style)
-                    "mark_size_unit = "+sci2exp(h.mark_size_unit)
-                    "mark_size = "+string(h.mark_size)
-                    "mark_foreground = "+string(h.mark_foreground)
-                    "mark_background = "+string(h.mark_background)
-                    "data.x = "+dx
-                    "data.y = "+dy
-                    "data.z "+dz
-                    "data.color (not used) = "+dcolor
-                    "color_mode = "+string(h.color_mode)
-                    "color_flag = "+sci2exp(h.color_flag,0)
-                    "hiddencolor = "+string(h.hiddencolor)
-                    "clip_state = "+sci2exp(h.clip_state)
-                    "clip_box = "+sci2exp(h.clip_box,0)
-                    "user_data = "+fmtuser_data(u)
-                    "tag = "+h.tag
+                "parent: "+h.parent.type
+                "children: "+fmtchildren(h.children)
+                "visible = "+sci2exp(h.visible)
+                "surface_mode = "+sci2exp(h.surface_mode)
+                "foreground = "+string(h.foreground)
+                "thickness = "+string(h.thickness)
+                "mark_mode = "+sci2exp(h.mark_mode)
+                "mark_style = "+sci2exp(h.mark_style)
+                "mark_size_unit = "+sci2exp(h.mark_size_unit)
+                "mark_size = "+string(h.mark_size)
+                "mark_foreground = "+string(h.mark_foreground)
+                "mark_background = "+string(h.mark_background)
+                "data.x = "+dx
+                "data.y = "+dy
+                "data.z "+dz
+                "data.color (not used) = "+dcolor
+                "color_mode = "+string(h.color_mode)
+                "color_flag = "+sci2exp(h.color_flag,0)
+                "hiddencolor = "+string(h.hiddencolor)
+                "clip_state = "+sci2exp(h.clip_state)
+                "clip_box = "+sci2exp(h.clip_box,0)
+                "user_data = "+fmtuser_data(u)
+                "tag = "+h.tag
                 ]
             else
                 t=[t;
-                    "parent: "+h.parent.type
-                    "children: "+fmtchildren(h.children)
-                    "visible = "+sci2exp(h.visible)
-                    "surface_mode = "+sci2exp(h.surface_mode)
-                    "foreground = "+string(h.foreground)
-                    "thickness = "+string(h.thickness)
-                    "mark_mode = "+sci2exp(h.mark_mode)
-                    "mark_style = "+sci2exp(h.mark_style)
-                    "mark_size_unit = "+sci2exp(h.mark_size_unit)
-                    "mark_size = "+string(h.mark_size)
-                    "mark_foreground = "+string(h.mark_foreground)
-                    "mark_background = "+string(h.mark_background)
-                    "data.x = "+dx
-                    "data.y = "+dy
-                    "data.z = "+dz
-                    "color_mode = "+string(h.color_mode)
-                    "color_flag = "+sci2exp(h.color_flag,0)
-                    "hiddencolor = "+string(h.hiddencolor)
-                    "clip_state = "+sci2exp(h.clip_state)
-                    "clip_box = "+sci2exp(h.clip_box,0)
-                    "user_data = "+fmtuser_data(u)
-                    "tag = "+h.tag
+                "parent: "+h.parent.type
+                "children: "+fmtchildren(h.children)
+                "visible = "+sci2exp(h.visible)
+                "surface_mode = "+sci2exp(h.surface_mode)
+                "foreground = "+string(h.foreground)
+                "thickness = "+string(h.thickness)
+                "mark_mode = "+sci2exp(h.mark_mode)
+                "mark_style = "+sci2exp(h.mark_style)
+                "mark_size_unit = "+sci2exp(h.mark_size_unit)
+                "mark_size = "+string(h.mark_size)
+                "mark_foreground = "+string(h.mark_foreground)
+                "mark_background = "+string(h.mark_background)
+                "data.x = "+dx
+                "data.y = "+dy
+                "data.z = "+dz
+                "color_mode = "+string(h.color_mode)
+                "color_flag = "+sci2exp(h.color_flag,0)
+                "hiddencolor = "+string(h.hiddencolor)
+                "clip_state = "+sci2exp(h.clip_state)
+                "clip_box = "+sci2exp(h.clip_box,0)
+                "user_data = "+fmtuser_data(u)
+                "tag = "+h.tag
                 ]
             end
 
-        // Fac3d
-        // =====================================================================
+            // Fac3d
+            // =====================================================================
 
         case "Fac3d"
             Data = h.data
-            if size(Data.x,'*') > 10 then
-                dx="matrix "+strcat(string(size(Data.x)),'x')
+            if size(Data.x,"*") > 10 then
+                dx="matrix "+strcat(string(size(Data.x)),"x")
             else
                 dx=sci2exp(Data.x,0)
-                if length(dx)>70 then d="matrix "+strcat(string(size(Data.x)),'x'),end
+                if length(dx)>70 then d="matrix "+strcat(string(size(Data.x)),"x"),end
             end
 
-            if size(Data.y,'*') > 10 then
-                dy="matrix "+strcat(string(size(Data.y)),'x')
+            if size(Data.y,"*") > 10 then
+                dy="matrix "+strcat(string(size(Data.y)),"x")
             else
                 dy=sci2exp(Data.y,0)
-                if length(dy)>70 then d="matrix "+strcat(string(size(Data.y)),'x'),end
+                if length(dy)>70 then d="matrix "+strcat(string(size(Data.y)),"x"),end
             end
 
-            if size(Data.z,'*') > 10 then
-                dz="matrix "+strcat(string(size(Data.z)),'x')
+            if size(Data.z,"*") > 10 then
+                dz="matrix "+strcat(string(size(Data.z)),"x")
             else
                 dz=sci2exp(Data.z,0)
-                if length(dz)>70 then d="matrix "+strcat(string(size(Data.z)),'x'),end
+                if length(dz)>70 then d="matrix "+strcat(string(size(Data.z)),"x"),end
             end
 
             u=h.user_data;
 
             if size(Data) == 5 then // There is a color
-                if size(Data.color,'*') > 10 then
-                    dcolor="matrix "+strcat(string(size(Data.color)),'x')
+                if size(Data.color,"*") > 10 then
+                    dcolor="matrix "+strcat(string(size(Data.color)),"x")
                 else
                     dcolor=sci2exp(Data.color,0)
-                    if length(dcolor)>70 then dcolor="matrix "+strcat(string(size(Data.color)),'x'),end
+                    if length(dcolor)>70 then dcolor="matrix "+strcat(string(size(Data.color)),"x"),end
                 end
 
                 t=[t;
-                    "parent: "+h.parent.type
-                    "children: "+fmtchildren(h.children)
-                    "visible = "+sci2exp(h.visible)
-                    "surface_mode = "+sci2exp(h.surface_mode)
-                    "foreground = "+string(h.foreground)
-                    "thickness = "+string(h.thickness)
-                    "mark_mode = "+sci2exp(h.mark_mode)
-                    "mark_style = "+sci2exp(h.mark_style)
-                    "mark_size_unit = "+sci2exp(h.mark_size_unit)
-                    "mark_size = "+string(h.mark_size)
-                    "mark_foreground = "+string(h.mark_foreground)
-                    "mark_background = "+string(h.mark_background)
-                    "data.x = "+dx
-                    "data.y = "+dy
-                    "data.z = "+dz
-                    "data.color = "+dcolor
-                    "color_mode = "+string(h.color_mode)
-                    "color_flag = "+sci2exp(h.color_flag,0)
-                    "cdata_mapping = "+sci2exp(h.cdata_mapping)
-                    "hiddencolor = "+string(h.hiddencolor)
-                    "clip_state = "+sci2exp(h.clip_state)
-                    "clip_box = "+sci2exp(h.clip_box,0)
-                    "user_data = "+fmtuser_data(u)
-                    "tag = "+h.tag
+                "parent: "+h.parent.type
+                "children: "+fmtchildren(h.children)
+                "visible = "+sci2exp(h.visible)
+                "surface_mode = "+sci2exp(h.surface_mode)
+                "foreground = "+string(h.foreground)
+                "thickness = "+string(h.thickness)
+                "mark_mode = "+sci2exp(h.mark_mode)
+                "mark_style = "+sci2exp(h.mark_style)
+                "mark_size_unit = "+sci2exp(h.mark_size_unit)
+                "mark_size = "+string(h.mark_size)
+                "mark_foreground = "+string(h.mark_foreground)
+                "mark_background = "+string(h.mark_background)
+                "data.x = "+dx
+                "data.y = "+dy
+                "data.z = "+dz
+                "data.color = "+dcolor
+                "color_mode = "+string(h.color_mode)
+                "color_flag = "+sci2exp(h.color_flag,0)
+                "cdata_mapping = "+sci2exp(h.cdata_mapping)
+                "hiddencolor = "+string(h.hiddencolor)
+                "clip_state = "+sci2exp(h.clip_state)
+                "clip_box = "+sci2exp(h.clip_box,0)
+                "user_data = "+fmtuser_data(u)
+                "tag = "+h.tag
                 ]
             else
                 t=[t;
-                    "parent: "+h.parent.type
-                    "children: "+fmtchildren(h.children)
-                    "visible = "+sci2exp(h.visible)
-                    "surface_mode = "+sci2exp(h.surface_mode)
-                    "foreground = "+string(h.foreground)
-                    "thickness = "+string(h.thickness)
-                    "mark_mode = "+sci2exp(h.mark_mode)
-                    "mark_style = "+sci2exp(h.mark_style)
-                    "mark_size_unit = "+sci2exp(h.mark_size_unit)
-                    "mark_size = "+string(h.mark_size)
-                    "mark_foreground = "+string(h.mark_foreground)
-                    "mark_background = "+string(h.mark_background)
-                    "data.x = "+dx
-                    "data.y = "+dy
-                    "data.z = "+dz
-                    "color_mode = "+string(h.color_mode)
-                    "color_flag = "+sci2exp(h.color_flag,0)
-                    "hiddencolor = "+string(h.hiddencolor)
-                    "clip_state = "+sci2exp(h.clip_state)
-                    "clip_box = "+sci2exp(h.clip_box,0)
-                    "user_data = "+fmtuser_data(u)
-                    "tag = "+h.tag
-                ]
-            end
-
-        // Param3d
-        // =====================================================================
-
-        case "Param3d"
-            u=h.user_data;
-            if size(h.data,'*') > 10 then
-                d="matrix "+strcat(string(size(h.data)),'x')
-            else
-                d=sci2exp(h.data,0)
-                if length(d)>70 then d="matrix "+strcat(string(size(h.data)),'x'),end
-            end
-
-            if size(h.surface_color,'*') > 10 then
-                c="matrix "+strcat(string(size(h.surface_color)),'x')
-            else
-                c=sci2exp(h.surface_color,0)
-                if length(c)>70 then c="matrix "+strcat(string(size(h.surface_color)),'x'),end
-            end
-
-            t=[t;
                 "parent: "+h.parent.type
                 "children: "+fmtchildren(h.children)
                 "visible = "+sci2exp(h.visible)
-                "line_mode = "+sci2exp(h.line_mode)
+                "surface_mode = "+sci2exp(h.surface_mode)
                 "foreground = "+string(h.foreground)
                 "thickness = "+string(h.thickness)
                 "mark_mode = "+sci2exp(h.mark_mode)
@@ -793,75 +748,120 @@ function %h_p(h)
                 "mark_size = "+string(h.mark_size)
                 "mark_foreground = "+string(h.mark_foreground)
                 "mark_background = "+string(h.mark_background)
-                "data = "+d
+                "data.x = "+dx
+                "data.y = "+dy
+                "data.z = "+dz
+                "color_mode = "+string(h.color_mode)
+                "color_flag = "+sci2exp(h.color_flag,0)
+                "hiddencolor = "+string(h.hiddencolor)
                 "clip_state = "+sci2exp(h.clip_state)
                 "clip_box = "+sci2exp(h.clip_box,0)
-                "color_mode = "+string(h.color_mode)
-                "surface_color = "+c
                 "user_data = "+fmtuser_data(u)
                 "tag = "+h.tag
+                ]
+            end
+
+            // Param3d
+            // =====================================================================
+
+        case "Param3d"
+            u=h.user_data;
+            if size(h.data,"*") > 10 then
+                d="matrix "+strcat(string(size(h.data)),"x")
+            else
+                d=sci2exp(h.data,0)
+                if length(d)>70 then d="matrix "+strcat(string(size(h.data)),"x"),end
+            end
+
+            if size(h.surface_color,"*") > 10 then
+                c="matrix "+strcat(string(size(h.surface_color)),"x")
+            else
+                c=sci2exp(h.surface_color,0)
+                if length(c)>70 then c="matrix "+strcat(string(size(h.surface_color)),"x"),end
+            end
+
+            t=[t;
+            "parent: "+h.parent.type
+            "children: "+fmtchildren(h.children)
+            "visible = "+sci2exp(h.visible)
+            "line_mode = "+sci2exp(h.line_mode)
+            "foreground = "+string(h.foreground)
+            "thickness = "+string(h.thickness)
+            "mark_mode = "+sci2exp(h.mark_mode)
+            "mark_style = "+sci2exp(h.mark_style)
+            "mark_size_unit = "+sci2exp(h.mark_size_unit)
+            "mark_size = "+string(h.mark_size)
+            "mark_foreground = "+string(h.mark_foreground)
+            "mark_background = "+string(h.mark_background)
+            "data = "+d
+            "clip_state = "+sci2exp(h.clip_state)
+            "clip_box = "+sci2exp(h.clip_box,0)
+            "color_mode = "+string(h.color_mode)
+            "surface_color = "+c
+            "user_data = "+fmtuser_data(u)
+            "tag = "+h.tag
             ]
 
-        // Axis
-        // =====================================================================
+            // Axis
+            // =====================================================================
 
         case "Axis"
             u=h.user_data;
             T=sci2exp(h.tics_labels,0)
-            if length(T)>70 then T="string array "+strcat(string(size(h.tics_labels)),'x'),end
+            if length(T)>70 then T="string array "+strcat(string(size(h.tics_labels)),"x"),end
             t=[t;
-                "parent: "+h.parent.type
-                "visible = "+sci2exp(h.visible)
-                "tics_direction = "+sci2exp(h.tics_direction)
-                "xtics_coord = "+sci2exp(h.xtics_coord,0)
-                "ytics_coord = "+sci2exp(h.ytics_coord,0)
-                "tics_color = "+string(h.tics_color)
-                "tics_segment = "+sci2exp(h.tics_segment)
-                "tics_style = "+sci2exp(h.tics_style)
-                "sub_tics = "+string(h.sub_tics)
-                "tics_labels = "+T
-                "format_n = "+sci2exp(h.format_n)
-                "labels_font_size = "+string(h.labels_font_size)
-                "labels_font_color = "+string(h.labels_font_color)
-                "fractional_font = " + sci2exp(h.fractional_font)
-                "clip_state = "+sci2exp(h.clip_state)
-                "clip_box = "+sci2exp(h.clip_box,0)
-                "user_data = "+fmtuser_data(u)
-                "tag = "+h.tag
+            "parent: "+h.parent.type
+            "visible = "+sci2exp(h.visible)
+            "tics_direction = "+sci2exp(h.tics_direction)
+            "xtics_coord = "+sci2exp(h.xtics_coord,0)
+            "ytics_coord = "+sci2exp(h.ytics_coord,0)
+            "tics_color = "+string(h.tics_color)
+            "tics_segment = "+sci2exp(h.tics_segment)
+            "tics_style = "+sci2exp(h.tics_style)
+            "sub_tics = "+string(h.sub_tics)
+            "tics_labels = "+T
+            "format_n = "+sci2exp(h.format_n)
+            "labels_font_size = "+string(h.labels_font_size)
+            "labels_font_color = "+string(h.labels_font_color)
+            "fractional_font = " + sci2exp(h.fractional_font)
+            "clip_state = "+sci2exp(h.clip_state)
+            "clip_box = "+sci2exp(h.clip_box,0)
+            "user_data = "+fmtuser_data(u)
+            "tag = "+h.tag
             ]
 
-        // uimenu
-        // =====================================================================
+            // uimenu
+            // =====================================================================
 
         case "uimenu"
             u=h.user_data;
             t=[t;
-                "Parent: "+h.parent.type
-                "Children: "+fmtchildren(h.children)
-                "Enable = "+sci2exp(h.enable)
-                "Foregroundcolor = "+sci2exp(h.foregroundcolor,0)
-                "Label = "+h.label
-                "Handle_Visible = "+sci2exp(h.handle_visible)
-                //"Position = "+sci2exp(h.position,0)
-                "Visible = "+sci2exp(h.visible)
-                "Callback = "+h.callback
-                "Callback_Type = "+sci2exp(h.callback_type,0)
-                "Checked =  "+sci2exp(h.checked)
-                "Userdata = "+fmtuser_data(u)
-                "Tag = "+h.tag
+            "Parent: "+h.parent.type
+            "Children: "+fmtchildren(h.children)
+            "Enable = "+sci2exp(h.enable)
+            "Foregroundcolor = "+sci2exp(h.foregroundcolor,0)
+            "Label = "+h.label
+            "Handle_Visible = "+sci2exp(h.handle_visible)
+            //"Position = "+sci2exp(h.position,0)
+            "Visible = "+sci2exp(h.visible)
+            "Callback = "+h.callback
+            "Callback_Type = "+sci2exp(h.callback_type,0)
+            "Checked =  "+sci2exp(h.checked)
+            "Userdata = "+fmtuser_data(u)
+            "Tag = "+h.tag
             ]
 
-        // uicontextmenu
-        // =====================================================================
+            // uicontextmenu
+            // =====================================================================
 
         case "uicontextmenu"
             t=[t;
-                "Parent: "+h.parent.type
-                "Children: "+fmtchildren(h.children)
-                ]
+            "Parent: "+h.parent.type
+            "Children: "+fmtchildren(h.children)
+            ]
 
-        // uicontrol
-        // =====================================================================
+            // uicontrol
+            // =====================================================================
 
         case "uicontrol"
             u=h.user_data;
@@ -897,14 +897,14 @@ function %h_p(h)
             "Tag = "+h.tag
             ]
 
-        // Console
-        // =====================================================================
+            // Console
+            // =====================================================================
 
         case "Console"
             t=[t;
-                "Children: "+fmtchildren(h.children)
-                "ShowHiddenHandles: "+sci2exp(h.showhiddenhandles)
-                ]
+            "Children: "+fmtchildren(h.children)
+            "ShowHiddenHandles: "+sci2exp(h.showhiddenhandles)
+            ]
         end
     end
     write(%io(2),t)
@@ -915,13 +915,13 @@ endfunction
 
 function t=fmtchildren(c)
     if c==[] then
-        t='[]'
+        t="[]"
     else
-        if size(c,'*')<10 then
+        if size(c,"*")<10 then
             t=sci2exp(c.type,0);
-            if length(t)>70 then t="matrix "+strcat(string(size(c)),'x'),end
+            if length(t)>70 then t="matrix "+strcat(string(size(c)),"x"),end
         else
-            t="matrix "+strcat(string(size(c)),'x')
+            t="matrix "+strcat(string(size(c)),"x")
         end
     end
 endfunction
@@ -932,25 +932,29 @@ function t=fmtuser_data(d)
     if or(td==[1 2 3 4 8 10 15]) then
         t=sci2exp(d,0)
         if length(t)>70 then
-            t=typeof(d)+'(';
-            for i=1:length(d)
-                if type(d(i)) <> 9 then
-                    t=t+typeof(d(i))+', ';
-                else
-                    t=t+d(i).type +', ';
+            if type(d) <> 15 then
+                t=typeof(d)+" "+strcat(string(size(d)),"x");
+            else
+                t=typeof(d)+"(";
+                for i=1:length(d)
+                    if type(d(i)) <> 9 then
+                        t=t+typeof(d(i))+", ";
+                    else
+                        t=t+d(i).type +", ";
+                    end
                 end
+                t=part(t,1:length(t)-2);
+                t=t+")";
             end
-            t=part(t,1:length(t)-2);
-            t=t+')';
         end
     elseif or(td==16) then
-        t=typeof(d)+" "+strcat(string(size(d)),'x'),
+        t=typeof(d)+" "+strcat(string(size(d)),"x"),
     elseif or(td==17) then
         if typeof(d)=="ce" then
-            t="cell "+strcat(string(size(d)),'x'),
+            t="cell "+strcat(string(size(d)),"x"),
         elseif typeof(d)=="st" then
             T=getfield(1,d)
-            t="struct with fields: "+strcat(T(3:$),' '),
+            t="struct with fields: "+strcat(T(3:$)," "),
         else
             t=typeof(d)
         end