[Author Prev][Author Next][Thread Prev][Thread Next][Author Index][Thread Index]

gEDA-cvs: gaf.git: branch: master updated (1.5.0-20080706-46-ga3ee37b)



The branch, master has been updated
       via  a3ee37bbb4a87379a129d6993e175136416721da (commit)
       via  78f18664289a29ca137c341fac9c7bbceb17cd06 (commit)
       via  20bd89fa6fd55d757194bd7d0143f8b9fff58ee7 (commit)
       via  59cf57b8eb960b5e8041778d5377c160a4af57d3 (commit)
      from  6802a78d5a19069919e4524530b91c34c1d099fe (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.


=========
 Summary
=========

 gschem/include/gschem_struct.h |    3 +-
 gschem/include/i_vars.h        |    3 +-
 gschem/include/prototype.h     |    2 +
 gschem/lib/system-gschemrc.in  |   21 ++++++++++++++++
 gschem/src/a_zoom.c            |    5 ++-
 gschem/src/g_rc.c              |   50 ++++++++++++++++++++++++++++++++++++++++
 gschem/src/g_register.c        |    2 +
 gschem/src/gschem_toplevel.c   |    2 +
 gschem/src/i_vars.c            |    4 +++
 gschem/src/x_event.c           |    6 +++-
 10 files changed, 92 insertions(+), 6 deletions(-)


=================
 Commit Messages
=================

commit a3ee37bbb4a87379a129d6993e175136416721da
Author: Peter Clifton <pcjc2@xxxxxxxxx>
Date:   Mon Jul 28 00:27:13 2008 +0100

    Adjust scroll pan increment to be finer
    
    Scrolling in a smaller steps gives a greater degree of control when
    navigating around the schematic, with a (subjective) improvement to
    usability.
    
    This commit changes the number of scroll events required to traverse
    the viewed area from 4 to 8.

:100644 100644 d7c206b... b31a349... M	gschem/lib/system-gschemrc.in
:100644 100644 1607d7a... e9cff5d... M	gschem/src/g_rc.c
:100644 100644 8373532... a108247... M	gschem/src/gschem_toplevel.c
:100644 100644 2f73ade... a8d95f5... M	gschem/src/i_vars.c

commit 78f18664289a29ca137c341fac9c7bbceb17cd06
Author: Peter Clifton <pcjc2@xxxxxxxxx>
Date:   Mon Jul 28 00:27:12 2008 +0100

    Change default zoom-gain to from 50%, to 20% increase in size.
    
    Zooming in a smaller amount gives a greater degree of control when
    navigating around the schematic, with a (subjective) improvement to
    usability.

:100644 100644 e093f8b... d7c206b... M	gschem/lib/system-gschemrc.in
:100644 100644 bac9342... 1607d7a... M	gschem/src/g_rc.c
:100644 100644 af17aae... 8373532... M	gschem/src/gschem_toplevel.c
:100644 100644 85c3a6c... 2f73ade... M	gschem/src/i_vars.c

commit 20bd89fa6fd55d757194bd7d0143f8b9fff58ee7
Author: Peter Clifton <pcjc2@xxxxxxxxx>
Date:   Mon Jul 28 00:27:11 2008 +0100

    Make size of panning steps with the mouse scroll wheel adjustable
    
    The new gschemrc function, (scrollpan-steps integer) controls how many
    scroll wheel events are required to pan across the viewed area of the
    schematic.
    
    The default setting keeps gschem's previous hard-coded behaviour of 4
    scroll events (in a particular direction) across the viewed area.

:100644 100644 68db1fc... 8a5179f... M	gschem/include/gschem_struct.h
:100644 100644 8e9ab86... 35bc68c... M	gschem/include/i_vars.h
:100644 100644 df0bd8b... c7850b3... M	gschem/include/prototype.h
:100644 100644 356dbf8... e093f8b... M	gschem/lib/system-gschemrc.in
:100644 100644 35a0b8b... bac9342... M	gschem/src/g_rc.c
:100644 100644 a8c60a8... a1b8818... M	gschem/src/g_register.c
:100644 100644 593c95b... af17aae... M	gschem/src/gschem_toplevel.c
:100644 100644 3814a93... 85c3a6c... M	gschem/src/i_vars.c
:100644 100644 34816ae... 5d276ed... M	gschem/src/x_event.c

commit 59cf57b8eb960b5e8041778d5377c160a4af57d3
Author: Peter Clifton <pcjc2@xxxxxxxxx>
Date:   Sun Jul 27 23:50:55 2008 +0100

    Make the "gain" of zoom in / out operations an adjustable parameter.
    
    The new gschemrc function, (zoom-gain integer) controls the percentage
    size increase when zooming into the page. Zooming out uses the inverse
    factor such that a zoom in followed by a zoom out will return the
    schematic to the same size.
    
    E.g:
       20% increment => x 1.2 original size when zooming in
                     => x 1 / 1.2 x original size when zooming out
    
    The default gain keeps gschem's previous hard-coded behaviour of zooming in
    by a factor of 1.5. This is now specified with the command (zoom-gain 50).

:100644 100644 3d4351a... 68db1fc... M	gschem/include/gschem_struct.h
:100644 100644 6be9935... 8e9ab86... M	gschem/include/i_vars.h
:100644 100644 fb34a70... df0bd8b... M	gschem/include/prototype.h
:100644 100644 d35b605... 356dbf8... M	gschem/lib/system-gschemrc.in
:100644 100644 392b264... 39ec422... M	gschem/src/a_zoom.c
:100644 100644 ccbe19a... 35a0b8b... M	gschem/src/g_rc.c
:100644 100644 c836e1c... a8c60a8... M	gschem/src/g_register.c
:100644 100644 37c370c... 593c95b... M	gschem/src/gschem_toplevel.c
:100644 100644 afa83c1... 3814a93... M	gschem/src/i_vars.c

=========
 Changes
=========

commit a3ee37bbb4a87379a129d6993e175136416721da
Author: Peter Clifton <pcjc2@xxxxxxxxx>
Date:   Mon Jul 28 00:27:13 2008 +0100

    Adjust scroll pan increment to be finer
    
    Scrolling in a smaller steps gives a greater degree of control when
    navigating around the schematic, with a (subjective) improvement to
    usability.
    
    This commit changes the number of scroll events required to traverse
    the viewed area from 4 to 8.

diff --git a/gschem/lib/system-gschemrc.in b/gschem/lib/system-gschemrc.in
index d7c206b..b31a349 100644
--- a/gschem/lib/system-gschemrc.in
+++ b/gschem/lib/system-gschemrc.in
@@ -711,8 +711,8 @@
 ; Controls the number of scroll pan events required to traverse the viewed
 ; schematic area. Larger numbers mean more scroll steps are required to
 ; pan across the viewed area and giving finer control over positioning.
-(scrollpan-steps 4)
-;(scrollpan-steps 8)
+(scrollpan-steps 8)
+;(scrollpan-steps 4) ; Hard-coded behaviour up to version 1.5.0.20080706
 
 ; warp-cursor string
 ;
diff --git a/gschem/src/g_rc.c b/gschem/src/g_rc.c
index 1607d7a..e9cff5d 100644
--- a/gschem/src/g_rc.c
+++ b/gschem/src/g_rc.c
@@ -1679,7 +1679,7 @@ SCM g_rc_scrollpan_steps(SCM steps)
    * but don't allow zero steps as this would cause a division by zero error */
   if (val == 0) {
     fprintf(stderr, _("Invalid number of steps [%d] scrollpan-steps\n"), val);
-    val = 4; /* absolute default */
+    val = 8; /* absolute default */
   }
 
   default_scrollpan_steps = val;
diff --git a/gschem/src/gschem_toplevel.c b/gschem/src/gschem_toplevel.c
index 8373532..a108247 100644
--- a/gschem/src/gschem_toplevel.c
+++ b/gschem/src/gschem_toplevel.c
@@ -209,7 +209,7 @@ GSCHEM_TOPLEVEL *gschem_toplevel_new ()
   w_current->keyboardpan_gain = 10;
   w_current->select_slack_pixels = 4;
   w_current->zoom_gain = 20;
-  w_current->scrollpan_steps = 4;
+  w_current->scrollpan_steps = 8;
 
   return w_current;
 }
diff --git a/gschem/src/i_vars.c b/gschem/src/i_vars.c
index 2f73ade..a8d95f5 100644
--- a/gschem/src/i_vars.c
+++ b/gschem/src/i_vars.c
@@ -135,7 +135,7 @@ int default_mousepan_gain = 5;
 int default_keyboardpan_gain = 20;
 int default_select_slack_pixels = 4;
 int default_zoom_gain = 20;
-int default_scrollpan_steps = 4;
+int default_scrollpan_steps = 8;
 
 /*! \todo Finish function documentation!!!
  *  \brief

commit 78f18664289a29ca137c341fac9c7bbceb17cd06
Author: Peter Clifton <pcjc2@xxxxxxxxx>
Date:   Mon Jul 28 00:27:12 2008 +0100

    Change default zoom-gain to from 50%, to 20% increase in size.
    
    Zooming in a smaller amount gives a greater degree of control when
    navigating around the schematic, with a (subjective) improvement to
    usability.

diff --git a/gschem/lib/system-gschemrc.in b/gschem/lib/system-gschemrc.in
index e093f8b..d7c206b 100644
--- a/gschem/lib/system-gschemrc.in
+++ b/gschem/lib/system-gschemrc.in
@@ -202,8 +202,8 @@
 ;    20% increment => x 1.2 original size when zooming in
 ;                  => x 1 / 1.2 x original size when zooming out
 ;
-(zoom-gain 50)
-;(zoom-gain 20)
+(zoom-gain 20)
+;(zoom-gain 50) ; Hard-coded behaviour up to version 1.5.0.20080706
 
 ; fast-mousepan string
 ;
diff --git a/gschem/src/g_rc.c b/gschem/src/g_rc.c
index bac9342..1607d7a 100644
--- a/gschem/src/g_rc.c
+++ b/gschem/src/g_rc.c
@@ -1654,7 +1654,7 @@ SCM g_rc_zoom_gain(SCM gain)
    * but don't allow zero gain as this would disable the zoom action */
   if (val == 0) {
     fprintf(stderr, _("Invalid gain [%d] passed to zoom-gain\n"), val);
-    val = 50; /* absolute default */
+    val = 20; /* absolute default */
   }
 
   default_zoom_gain = val;
diff --git a/gschem/src/gschem_toplevel.c b/gschem/src/gschem_toplevel.c
index af17aae..8373532 100644
--- a/gschem/src/gschem_toplevel.c
+++ b/gschem/src/gschem_toplevel.c
@@ -208,7 +208,7 @@ GSCHEM_TOPLEVEL *gschem_toplevel_new ()
   w_current->mousepan_gain = 5;
   w_current->keyboardpan_gain = 10;
   w_current->select_slack_pixels = 4;
-  w_current->zoom_gain = 50;
+  w_current->zoom_gain = 20;
   w_current->scrollpan_steps = 4;
 
   return w_current;
diff --git a/gschem/src/i_vars.c b/gschem/src/i_vars.c
index 85c3a6c..2f73ade 100644
--- a/gschem/src/i_vars.c
+++ b/gschem/src/i_vars.c
@@ -134,7 +134,7 @@ int default_text_feedback = ONLY_WHEN_READABLE;
 int default_mousepan_gain = 5;
 int default_keyboardpan_gain = 20;
 int default_select_slack_pixels = 4;
-int default_zoom_gain = 50;
+int default_zoom_gain = 20;
 int default_scrollpan_steps = 4;
 
 /*! \todo Finish function documentation!!!

commit 20bd89fa6fd55d757194bd7d0143f8b9fff58ee7
Author: Peter Clifton <pcjc2@xxxxxxxxx>
Date:   Mon Jul 28 00:27:11 2008 +0100

    Make size of panning steps with the mouse scroll wheel adjustable
    
    The new gschemrc function, (scrollpan-steps integer) controls how many
    scroll wheel events are required to pan across the viewed area of the
    schematic.
    
    The default setting keeps gschem's previous hard-coded behaviour of 4
    scroll events (in a particular direction) across the viewed area.

diff --git a/gschem/include/gschem_struct.h b/gschem/include/gschem_struct.h
index 68db1fc..8a5179f 100644
--- a/gschem/include/gschem_struct.h
+++ b/gschem/include/gschem_struct.h
@@ -201,5 +201,6 @@ struct st_gschem_toplevel {
   int keyboardpan_gain;   /* Controls the gain of the keyboard pan */
   int select_slack_pixels; /* Number of pixels around an object we can still select it with */
   int zoom_gain;          /* Percentage increase in size for a zoom-in operation */
+  int scrollpan_steps;    /* Number of scroll pan events required to traverse the viewed area */
 };
 
diff --git a/gschem/include/i_vars.h b/gschem/include/i_vars.h
index 8e9ab86..35bc68c 100644
--- a/gschem/include/i_vars.h
+++ b/gschem/include/i_vars.h
@@ -96,3 +96,4 @@ extern int default_mousepan_gain;
 extern int default_keyboardpan_gain;
 extern int default_select_slack_pixels;
 extern int default_zoom_gain;
+extern int default_scrollpan_steps;
diff --git a/gschem/include/prototype.h b/gschem/include/prototype.h
index df0bd8b..c7850b3 100644
--- a/gschem/include/prototype.h
+++ b/gschem/include/prototype.h
@@ -283,6 +283,7 @@ SCM g_rc_keyboardpan_gain(SCM mode);
 SCM g_rc_print_command(SCM mode);
 SCM g_rc_select_slack_pixels(SCM pixels);
 SCM g_rc_zoom_gain(SCM gain);
+SCM g_rc_scrollpan_steps(SCM steps);
 /* g_register.c */
 void g_register_funcs(void);
 /* globals.c */
diff --git a/gschem/lib/system-gschemrc.in b/gschem/lib/system-gschemrc.in
index 356dbf8..e093f8b 100644
--- a/gschem/lib/system-gschemrc.in
+++ b/gschem/lib/system-gschemrc.in
@@ -705,6 +705,15 @@
 (scroll-wheel "classic")
 ;(scroll-wheel "gtk")
 
+
+; scrollpan-steps integer
+;
+; Controls the number of scroll pan events required to traverse the viewed
+; schematic area. Larger numbers mean more scroll steps are required to
+; pan across the viewed area and giving finer control over positioning.
+(scrollpan-steps 4)
+;(scrollpan-steps 8)
+
 ; warp-cursor string
 ;
 ; Controls if the cursor is warped (or moved) when you zoom in and out.
diff --git a/gschem/src/g_rc.c b/gschem/src/g_rc.c
index 35a0b8b..bac9342 100644
--- a/gschem/src/g_rc.c
+++ b/gschem/src/g_rc.c
@@ -1661,3 +1661,28 @@ SCM g_rc_zoom_gain(SCM gain)
 
   return SCM_BOOL_T;
 }
+
+/*! \todo Finish function documentation!!!
+ *  \brief
+ *  \par Function Description
+ *
+ */
+SCM g_rc_scrollpan_steps(SCM steps)
+{
+  int val;
+
+  SCM_ASSERT (scm_is_integer (steps), steps, SCM_ARG1, "scrollpan-steps");
+
+  val = scm_to_int (steps);
+
+  /* Allow -ve numbers in case the user wishes to reverse scroll direction,
+   * but don't allow zero steps as this would cause a division by zero error */
+  if (val == 0) {
+    fprintf(stderr, _("Invalid number of steps [%d] scrollpan-steps\n"), val);
+    val = 4; /* absolute default */
+  }
+
+  default_scrollpan_steps = val;
+
+  return SCM_BOOL_T;
+}
diff --git a/gschem/src/g_register.c b/gschem/src/g_register.c
index a8c60a8..a1b8818 100644
--- a/gschem/src/g_register.c
+++ b/gschem/src/g_register.c
@@ -158,6 +158,7 @@ static struct gsubr_t gschem_funcs[] = {
   { "print-command",             1, 0, 0, g_rc_print_command },
   { "select-slack-pixels",       1, 0, 0, g_rc_select_slack_pixels },
   { "zoom-gain",                 1, 0, 0, g_rc_zoom_gain },
+  { "scrollpan-steps",           1, 0, 0, g_rc_scrollpan_steps },
 
   /* backup functions */
   { "auto-save-interval",        1, 0, 0, g_rc_auto_save_interval },
diff --git a/gschem/src/gschem_toplevel.c b/gschem/src/gschem_toplevel.c
index 593c95b..af17aae 100644
--- a/gschem/src/gschem_toplevel.c
+++ b/gschem/src/gschem_toplevel.c
@@ -209,6 +209,7 @@ GSCHEM_TOPLEVEL *gschem_toplevel_new ()
   w_current->keyboardpan_gain = 10;
   w_current->select_slack_pixels = 4;
   w_current->zoom_gain = 50;
+  w_current->scrollpan_steps = 4;
 
   return w_current;
 }
diff --git a/gschem/src/i_vars.c b/gschem/src/i_vars.c
index 3814a93..85c3a6c 100644
--- a/gschem/src/i_vars.c
+++ b/gschem/src/i_vars.c
@@ -135,6 +135,7 @@ int default_mousepan_gain = 5;
 int default_keyboardpan_gain = 20;
 int default_select_slack_pixels = 4;
 int default_zoom_gain = 50;
+int default_scrollpan_steps = 4;
 
 /*! \todo Finish function documentation!!!
  *  \brief
@@ -261,6 +262,7 @@ void i_vars_set(GSCHEM_TOPLEVEL *w_current)
 
   w_current->select_slack_pixels = default_select_slack_pixels;
   w_current->zoom_gain = default_zoom_gain;
+  w_current->scrollpan_steps = default_scrollpan_steps;
 
   toplevel->auto_save_interval = default_auto_save_interval;
 }
diff --git a/gschem/src/x_event.c b/gschem/src/x_event.c
index 34816ae..5d276ed 100644
--- a/gschem/src/x_event.c
+++ b/gschem/src/x_event.c
@@ -1284,14 +1284,16 @@ gint x_event_scroll (GtkWidget *widget, GdkEventScroll *event,
   if (pan_xaxis) {
     adj = gtk_range_get_adjustment(GTK_RANGE(w_current->h_scrollbar));
     gtk_adjustment_set_value(adj, min(adj->value + pan_direction *
-                                        (adj->page_increment / 4),
+                                        (adj->page_increment /
+                                         w_current->scrollpan_steps),
                                       adj->upper - adj->page_size));
   }
 
   if (pan_yaxis) {
     adj = gtk_range_get_adjustment(GTK_RANGE(w_current->v_scrollbar));
     gtk_adjustment_set_value(adj, min(adj->value + pan_direction *
-                                        (adj->page_increment / 4),
+                                        (adj->page_increment /
+                                         w_current->scrollpan_steps),
                                       adj->upper - adj->page_size));
   }
 

commit 59cf57b8eb960b5e8041778d5377c160a4af57d3
Author: Peter Clifton <pcjc2@xxxxxxxxx>
Date:   Sun Jul 27 23:50:55 2008 +0100

    Make the "gain" of zoom in / out operations an adjustable parameter.
    
    The new gschemrc function, (zoom-gain integer) controls the percentage
    size increase when zooming into the page. Zooming out uses the inverse
    factor such that a zoom in followed by a zoom out will return the
    schematic to the same size.
    
    E.g:
       20% increment => x 1.2 original size when zooming in
                     => x 1 / 1.2 x original size when zooming out
    
    The default gain keeps gschem's previous hard-coded behaviour of zooming in
    by a factor of 1.5. This is now specified with the command (zoom-gain 50).

diff --git a/gschem/include/gschem_struct.h b/gschem/include/gschem_struct.h
index 3d4351a..68db1fc 100644
--- a/gschem/include/gschem_struct.h
+++ b/gschem/include/gschem_struct.h
@@ -200,6 +200,6 @@ struct st_gschem_toplevel {
   int mousepan_gain;      /* Controls the gain of the mouse pan */
   int keyboardpan_gain;   /* Controls the gain of the keyboard pan */
   int select_slack_pixels; /* Number of pixels around an object we can still select it with */
-
+  int zoom_gain;          /* Percentage increase in size for a zoom-in operation */
 };
 
diff --git a/gschem/include/i_vars.h b/gschem/include/i_vars.h
index 6be9935..8e9ab86 100644
--- a/gschem/include/i_vars.h
+++ b/gschem/include/i_vars.h
@@ -95,4 +95,4 @@ extern int default_drag_can_move;
 extern int default_mousepan_gain;
 extern int default_keyboardpan_gain;
 extern int default_select_slack_pixels;
-
+extern int default_zoom_gain;
diff --git a/gschem/include/prototype.h b/gschem/include/prototype.h
index fb34a70..df0bd8b 100644
--- a/gschem/include/prototype.h
+++ b/gschem/include/prototype.h
@@ -282,6 +282,7 @@ SCM g_rc_mousepan_gain(SCM mode);
 SCM g_rc_keyboardpan_gain(SCM mode);
 SCM g_rc_print_command(SCM mode);
 SCM g_rc_select_slack_pixels(SCM pixels);
+SCM g_rc_zoom_gain(SCM gain);
 /* g_register.c */
 void g_register_funcs(void);
 /* globals.c */
diff --git a/gschem/lib/system-gschemrc.in b/gschem/lib/system-gschemrc.in
index d35b605..356dbf8 100644
--- a/gschem/lib/system-gschemrc.in
+++ b/gschem/lib/system-gschemrc.in
@@ -193,6 +193,18 @@
 (zoom-with-pan "enabled")
 ;(zoom-with-pan "disabled")
 
+; zoom-gain integer
+;
+; Controls the percentage size increase when zooming into the page.
+; Un-zooming uses the inverse factor such that a zoom in / zoom out
+; pair will return the schematic to the same size.
+;  E.g:
+;    20% increment => x 1.2 original size when zooming in
+;                  => x 1 / 1.2 x original size when zooming out
+;
+(zoom-gain 50)
+;(zoom-gain 20)
+
 ; fast-mousepan string
 ;
 ; Controls if text is drawn properly or if a simplified version (a line which
diff --git a/gschem/src/a_zoom.c b/gschem/src/a_zoom.c
index 392b264..39ec422 100644
--- a/gschem/src/a_zoom.c
+++ b/gschem/src/a_zoom.c
@@ -78,13 +78,14 @@ void a_zoom(GSCHEM_TOPLEVEL *w_current, int dir, int selected_from, int pan_flag
                                    toplevel->page_current->bottom ) / 2;
   }
 
+  /* NB: w_current->zoom_gain is a percentage increase */
   switch(dir) {
     case(ZOOM_IN):
-    relativ_zoom_factor = 1.5;
+    relativ_zoom_factor = (100.0 + w_current->zoom_gain) / 100.0;
     break;	
 	
     case(ZOOM_OUT):
-    relativ_zoom_factor = 0.6667;
+    relativ_zoom_factor = 100.0 / (100.0 + w_current->zoom_gain);
     break;
 
     case(ZOOM_FULL):
diff --git a/gschem/src/g_rc.c b/gschem/src/g_rc.c
index ccbe19a..35a0b8b 100644
--- a/gschem/src/g_rc.c
+++ b/gschem/src/g_rc.c
@@ -1636,3 +1636,28 @@ SCM g_rc_select_slack_pixels(SCM pixels)
 
   return SCM_BOOL_T;
 }
+
+/*! \todo Finish function documentation!!!
+ *  \brief
+ *  \par Function Description
+ *
+ */
+SCM g_rc_zoom_gain(SCM gain)
+{
+  int val;
+
+  SCM_ASSERT (scm_is_integer (gain), gain, SCM_ARG1, "zoom-gain");
+
+  val = scm_to_int (gain);
+
+  /* Allow -ve numbers in case the user wishes to reverse zoom direction,
+   * but don't allow zero gain as this would disable the zoom action */
+  if (val == 0) {
+    fprintf(stderr, _("Invalid gain [%d] passed to zoom-gain\n"), val);
+    val = 50; /* absolute default */
+  }
+
+  default_zoom_gain = val;
+
+  return SCM_BOOL_T;
+}
diff --git a/gschem/src/g_register.c b/gschem/src/g_register.c
index c836e1c..a8c60a8 100644
--- a/gschem/src/g_register.c
+++ b/gschem/src/g_register.c
@@ -157,6 +157,7 @@ static struct gsubr_t gschem_funcs[] = {
   { "keyboardpan-gain",          1, 0, 0, g_rc_keyboardpan_gain },
   { "print-command",             1, 0, 0, g_rc_print_command },
   { "select-slack-pixels",       1, 0, 0, g_rc_select_slack_pixels },
+  { "zoom-gain",                 1, 0, 0, g_rc_zoom_gain },
 
   /* backup functions */
   { "auto-save-interval",        1, 0, 0, g_rc_auto_save_interval },
diff --git a/gschem/src/gschem_toplevel.c b/gschem/src/gschem_toplevel.c
index 37c370c..593c95b 100644
--- a/gschem/src/gschem_toplevel.c
+++ b/gschem/src/gschem_toplevel.c
@@ -208,6 +208,7 @@ GSCHEM_TOPLEVEL *gschem_toplevel_new ()
   w_current->mousepan_gain = 5;
   w_current->keyboardpan_gain = 10;
   w_current->select_slack_pixels = 4;
+  w_current->zoom_gain = 50;
 
   return w_current;
 }
diff --git a/gschem/src/i_vars.c b/gschem/src/i_vars.c
index afa83c1..3814a93 100644
--- a/gschem/src/i_vars.c
+++ b/gschem/src/i_vars.c
@@ -134,6 +134,7 @@ int default_text_feedback = ONLY_WHEN_READABLE;
 int default_mousepan_gain = 5;
 int default_keyboardpan_gain = 20;
 int default_select_slack_pixels = 4;
+int default_zoom_gain = 50;
 
 /*! \todo Finish function documentation!!!
  *  \brief
@@ -259,6 +260,7 @@ void i_vars_set(GSCHEM_TOPLEVEL *w_current)
   w_current->keyboardpan_gain = default_keyboardpan_gain;
 
   w_current->select_slack_pixels = default_select_slack_pixels;
+  w_current->zoom_gain = default_zoom_gain;
 
   toplevel->auto_save_interval = default_auto_save_interval;
 }




_______________________________________________
geda-cvs mailing list
geda-cvs@xxxxxxxxxxxxxx
http://www.seul.org/cgi-bin/mailman/listinfo/geda-cvs