Here's a patch that does the vertical split. It doesn't put any delimiter
between the windows, which can be disconcerting, since when you
first create the new region (^A V), absolutely nothing noticeable
happens. But if you ^A-tab you'll be in the new region, and a
next will make something show up. This was
a diff against 4.0.3, which I gather from Michael's comment may
be the wrong thing to diff against.
Only tested very briefly....
Common subdirectories: screen-4.0.3/src/BUGS and my-screen-4.0.3/src/BUGS
diff -u screen-4.0.3/src/comm.c my-screen-4.0.3/src/comm.c
--- screen-4.0.3/src/comm.c 2005-12-16 19:06:39.000000000 +0000
+++ my-screen-4.0.3/src/comm.c 2005-12-18 17:18:47.954749576 +0000
@@ -309,6 +309,7 @@
{ "vbellwait", ARGS_1 },
{ "verbose", ARGS_01 },
{ "version", ARGS_0 },
+ { "vert_split", NEED_DISPLAY|ARGS_0 },
{ "wall", NEED_DISPLAY|ARGS_1},
{ "width", ARGS_0123 },
{ "windowlist", NEED_DISPLAY|ARGS_012 },
Common subdirectories: screen-4.0.3/src/config and my-screen-4.0.3/src/config
Common subdirectories: screen-4.0.3/src/CONVERT and my-screen-4.0.3/src/CONVERT
Common subdirectories: screen-4.0.3/src/CVS and my-screen-4.0.3/src/CVS
diff -u screen-4.0.3/src/display.c my-screen-4.0.3/src/display.c
--- screen-4.0.3/src/display.c 2005-12-16 18:51:07.000000000 +0000
+++ my-screen-4.0.3/src/display.c 2005-12-18 17:16:40.032196760 +0000
@@ -3920,3 +3920,83 @@
}
#endif
+
+int
+AddVerticalCanvas()
+{ /*! Add a new canvas with a vertical split.
+ */
+
+ int canvas_count; /* Canvasses with same y offset. */
+ struct canvas *cv; /* Index into D_cvlist. */
+ int x_start; /* Start position of a canvas. */
+
+ /* Count the canvasses that have the same horizontal position as
+ the canvas with the focus. */
+ for (cv = D_cvlist, canvas_count = 0; cv; cv = cv->c_next) {
+ if (cv -> c_ys == D_forecv -> c_ys)
+ canvas_count++;
+ }
+ canvas_count++;
+
+ debug2("canvas_count = %d, width = %d\n", canvas_count, D_width);
+
+ /* Return EXIT_FAILURE if the screen isn't wide enough to split. */
+ if (D_width / canvas_count <= 1)
+ return EXIT_FAILURE;
+
+ ASSERT(D_forecv);
+
+ /* Allocate a new canvas. */
+ debug("initializing new canvas\n");
+ if ((cv = (struct canvas *) calloc(1, sizeof *cv)) == 0)
+ return EXIT_FAILURE;
+
+ /* Insert the new canvas after the current foreground. */
+ cv -> c_next = D_forecv->c_next;
+ D_forecv -> c_next = cv;
+
+ cv -> c_xs = D_forecv -> c_xs;
+ cv -> c_xe = D_forecv -> c_xe;
+ cv -> c_ys = D_forecv -> c_ys;
+ cv -> c_ye = D_forecv -> c_ye;
+ cv -> c_xoff = D_forecv -> c_xoff;
+ cv -> c_yoff = D_forecv -> c_yoff;
+ cv -> c_display = display;
+ cv -> c_vplist = 0;
+ cv -> c_captev.type = EV_TIMEOUT;
+ cv -> c_captev.data = (char *) cv;
+ cv -> c_captev.handler = cv_winid_fn;
+
+ cv -> c_blank.l_cvlist = cv;
+ cv -> c_blank.l_width = cv->c_xe - cv->c_xs + 1;
+ cv -> c_blank.l_height = cv->c_ye - cv->c_ys + 1;
+ cv -> c_blank.l_x = cv->c_blank.l_y = 0;
+ cv -> c_blank.l_layfn = &BlankLf;
+ cv -> c_blank.l_data = 0;
+ cv -> c_blank.l_next = 0;
+ cv -> c_blank.l_bottom = &cv->c_blank;
+ cv -> c_blank.l_blocking = 0;
+ cv -> c_layer = &cv->c_blank;
+ cv -> c_lnext = 0;
+
+ /* Reset the width of each region. */
+ x_start = 0;
+ for (cv = D_cvlist; cv; cv = cv->c_next) {
+ if (cv -> c_ys == D_forecv -> c_ys) {
+ int this_width; /* new width of cv */
+
+ this_width = D_width / canvas_count - 1;
+ cv -> c_xs = x_start;
+ cv -> c_xe = x_start + this_width - 1;
+ cv -> c_xoff = x_start;
+ x_start += this_width + 1;
+ debug3(" c_xs = %d, x_xe = %d, xoff = %d\n",
+ cv -> c_xs, cv -> c_xe, cv-> c_xoff);
+ }
+ }
+
+ RethinkDisplayViewports();
+ ResizeLayersToCanvases();
+ return 0;
+}
+
Common subdirectories: screen-4.0.3/src/doc and my-screen-4.0.3/src/doc
Common subdirectories: screen-4.0.3/src/etc and my-screen-4.0.3/src/etc
Common subdirectories: screen-4.0.3/src/PATCHES and my-screen-4.0.3/src/PATCHES
diff -u screen-4.0.3/src/process.c my-screen-4.0.3/src/process.c
--- screen-4.0.3/src/process.c 2005-12-16 19:06:39.000000000 +0000
+++ my-screen-4.0.3/src/process.c 2005-12-18 17:18:06.336076576 +0000
@@ -549,6 +549,7 @@
ktab['B'].nr = RC_POW_BREAK;
ktab['_'].nr = RC_SILENCE;
ktab['S'].nr = RC_SPLIT;
+ ktab['V'].nr = RC_VERT_SPLIT;
ktab['Q'].nr = RC_ONLY;
ktab['X'].nr = RC_REMOVE;
ktab['F'].nr = RC_FIT;
@@ -3664,6 +3665,10 @@
AddCanvas();
Activate(-1);
break;
+ case RC_VERT_SPLIT:
+ AddVerticalCanvas();
+ Activate(-1);
+ break;
case RC_REMOVE:
RemCanvas();
Activate(-1);
Common subdirectories: screen-4.0.3/src/terminfo and
my-screen-4.0.3/src/terminfo
Common subdirectories: screen-4.0.3/src/TEST and my-screen-4.0.3/src/TEST
Common subdirectories: screen-4.0.3/src/utf8encodings and
my-screen-4.0.3/src/utf8encodings
_______________________________________________
screen-users mailing list
screen-users@gnu.org
http://lists.gnu.org/mailman/listinfo/screen-users
