[Plplot-cvs] SF.net SVN: plplot:[12762] trunk/drivers/ntk.c

[<arj...@us...>]

Revision: 12762
          http://sourceforge.net/p/plplot/code/12762
Author:   arjenmarkus
Date:     2013-11-27 08:41:24 +0000 (Wed, 27 Nov 2013)
Log Message:
-----------
Insert a column break every 30 pages, mostly useful for example 33, as this has 100 pages in total. Some small glitch is left (first column runs from page 1 to 29, the next one from 30 to 59, so one more page), still the menu is now useable even with example 33.

Modified Paths:
--------------
    trunk/drivers/ntk.c

Modified: trunk/drivers/ntk.c
===================================================================
--- trunk/drivers/ntk.c	2013-11-27 08:39:29 UTC (rev 12761)
+++ trunk/drivers/ntk.c	2013-11-27 08:41:24 UTC (rev 12762)
@@ -122,14 +122,17 @@
 static void
 create_canvas( PLStream *pls )
 {
+    int columnbreak;
+
     ccanv++;
+    columnbreak = (ccanv%30 == 0);
 
     // create new canvas
     sprintf( cmd, "set ccanv %d; canvas $plf.f2.c$ccanv -width $xmax -height $ymax -background #%02x%02x%02x -xscrollcommand \"$hs set\" -yscrollcommand \"$vs set\" -scrollregion \"0 0 $xmax $ymax\"", ccanv, pls->cmap0[0].r, pls->cmap0[0].g, pls->cmap0[0].b );
     tk_cmd( cmd );
 
     // add new canvas to option menu
-    sprintf( cmd, "$plf.f1.mb.menu add command -label \"Page $ccanv\" -command {\n"
+    sprintf( cmd, "$plf.f1.mb.menu add command -label \"Page $ccanv\" -columnbreak %d -command {\n"
         "set w $plf.f2.c%d;\n"
         "$hs configure -command \"$w xview\";\n"
         "$vs configure -command \"$w yview\";\n"
@@ -141,7 +144,7 @@
         "$hs set $i $j;\n"
         "scan [$w yview] \"%%f %%f\" i j;\n"
         "$vs set $i $j;}",
-        ccanv, ccanv, ccanv );
+        columnbreak, ccanv, ccanv, ccanv );
     tk_cmd( cmd );
 
     sprintf( cmd, "set item(%d) 0", ccanv );

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