[brlcad-commits] SF.net SVN: brlcad:[54711] brlcad/trunk/src/libtclcad/tclcad_obj.c

[<n_...@us...>]

Revision: 54711
          http://brlcad.svn.sourceforge.net/brlcad/?rev=54711&view=rev
Author:   n_reed
Date:     2013-03-15 16:04:04 +0000 (Fri, 15 Mar 2013)
Log Message:
-----------
update view dimension info on zoom

Modified Paths:
--------------
    brlcad/trunk/src/libtclcad/tclcad_obj.c

Modified: brlcad/trunk/src/libtclcad/tclcad_obj.c
===================================================================
--- brlcad/trunk/src/libtclcad/tclcad_obj.c	2013-03-15 15:54:24 UTC (rev 54710)
+++ brlcad/trunk/src/libtclcad/tclcad_obj.c	2013-03-15 16:04:04 UTC (rev 54711)
@@ -12466,7 +12466,11 @@
 	gdvp->gdv_view->gv_redraw_on_zoom)
     {
 	char *gr_av[] = {"redraw", NULL};
+
 	ged_redraw(gedp, 1, (const char **)gr_av);
+
+	gdvp->gdv_view->gv_x_samples = gdvp->gdv_dmp->dm_width;
+	gdvp->gdv_view->gv_y_samples = gdvp->gdv_dmp->dm_height;
     }
 
     if (ret == GED_OK) {

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.