changeset 17150:88616c872933

Set the root property "currentfigure", and figure property "currentaxes". * libinterp/dldfcn/__init_fltk__.cc: Set the current figure and current axes when setting the current point.
author Ben Abbott <bpabbott@mac.com>
date Thu, 01 Aug 2013 19:34:50 -0400
parents 501420581087
children f7fd413dcf4a
files libinterp/dldfcn/__init_fltk__.cc
diffstat 1 files changed, 5 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/libinterp/dldfcn/__init_fltk__.cc
+++ b/libinterp/dldfcn/__init_fltk__.cc
@@ -1114,6 +1114,10 @@
         if (! uimenu->is_visible ())
           pos(1) = pos(1) +  menu_h;
         fp.set_currentpoint (pos);
+        graphics_object robj = gh_manager::get_object (fp.get_parent ());
+        root_figure::properties& rp =
+          dynamic_cast<root_figure::properties&> (robj.get_properties ());
+        rp.set_currentfigure (fp.get___myhandle__ ().value ());
       }
   }
 
@@ -1134,6 +1138,7 @@
         pos(1,1) = yy;
 
         ap.set_currentpoint (pos);
+        fp.set_currentaxes (ap.get___myhandle__ ().value ());
       }
   }